Question

VB编程题，有人会做么？要详细的编程步骤！谢谢！！

Answer 1

第三题么？

Private Sub Command1_Click()
    Dim i As Integer, n As Integer
    Dim s As String, num As Integer
    Dim iTotal As Long, iAvg As Double, iMax As Long
    n = Val(InputBox("您要生成多少个1-100以内的随机数？"))
    For i = 1 To n
        num = Int(Rnd * 100 + 1)   '生成100以内的随机数
        If s = "" Then s = num Else s = s & "," & num
        iTotal = iTotal + num    '求和
        If iMax < num Then iMax = num   '求最大值
    Next
    iAvg = iTotal / n   '求平均值
    
    MsgBox "您要求输入：" & n & "个100以内的随机数，这些数是：" & vbCrLf & s _
           & vbCrLf & "最大值为：" & iMax _
           & vbCrLf & "和为：" & iTotal _
           & vbCrLf & "平均值为：" & iAvg
End Sub

追问

你自己写的么？

追答

当然是我自己写的啊，这哪里有现成的啊！

追问

有才！你能不能写纸上发给我啊？

现在发的我有点看不懂…

谢谢你啦！

追答

写纸上怎么发给你！？

追问

不是有照相功能么？

照下来通过百度知道发过来不就好了么？

追答

我是用电脑给你发的啊，我截图给你可以么？

追问

嗯嗯。刚还想给你说呢。谢谢你！！！！！！！

刚上电脑，按照你的步骤一步一步的打，检查了好几遍，可结果出不来，

是哪编错了么？

追答

是不是Msgbox哪里出了问题，后面有个下划线不要丢！

追问

这个编程我有好多都不认识，不懂，还有其他方法木有？

Q多少？

追答

1346.7914

追问

网名是“SunShine…”吧？

追答

嗯，是的！