随机生成3个正整数,其中一个1位数,一个2位数,一个3位数,计算他们的平均值.VB程序设计

Private Sub Command1_Click()
Randomize
Dim i As Integer, j As Integer, k As Integer
i = Int(Rnd * 10)'0-9
j = Int(Rnd * 90) + 10'0-89+10 即为10-99
k = Int(Rnd * 900) + 10'0-899+100 即为100-999
Dim result As String
result = "(" & i & "," & j & "," & k & ")/3="
MsgBox result & (i + j + k) / 3
End Sub呃。刚刚有了答案了。不过很感谢你的回答