想用VB实现 三个0-9之间随机的数相加？

Question

想用VB实现 三个0-9之间随机的数相加？怎样编写代码，应该很简单吧？谁会？

Answer 1

Option ExplicitPrivate Sub Form_Load()
Dim i, j, k, s As Integer
i = xx
j = xx
k = xx
s = i + j + k
MsgBox s
End Sub
Private Function xx()
Dim MyValue
Randomize
MyValue = Int(10 * Rnd)
xx = MyValueEnd Function

Answer 2

请问是不是这个语句MyValue = Int(10 * Rnd)是实现0-9的功能？？麻烦了

Answer 3

Option ExplicitPrivate Sub Form_Load()
    Dim intSum      As Integer
    Dim intLoop     As Integer
    For intLoop = 0 To 2
        intSum = intSum + xx()
    Next
End SubPrivate Function xx()
    Dim MyValue As Integer
    Randomize
    MyValue = Int(10 * Rnd)
    xx = MyValue
End Function

Answer 4

Private Sub Command1_Click()
    Dim myCol As New Collection
    Dim i As Integer
    Dim intSum As Integer
    Dim strSumMemo As String
    Dim intRnd As Integer    
    For i = 0 To 9
        myCol.Add i
    Next i
    
    For i = 1 To 10
        Debug.Print myCol.Item(i)
    Next i
    
    Randomize
    
    For i = 1 To 3
        intRnd = Int(Rnd * myCol.Count + 1)
        
        intSum = intSum + myCol.Item(intRnd)
        strSumMemo = strSumMemo & IIf(Len(strSumMemo) > 0, " + " & myCol.Item(intRnd), myCol.Item(intRnd))
        myCol.Remove intRnd
    Next i
    
    strSumMemo = strSumMemo & " = " & intSum
    Debug.Print strSumMemo
End Sub

Answer 5

Private Sub Form_Click()
Dim i%, a%, b%, c%, sum%
Randomize
a = Int(Rnd * 10 + 0)
b = Int(Rnd * 10 + 0)
c = Int(Rnd * 10 + 0)
sum = a + b + c
Print "a=" & a, "b=" & b, "c=" & c, "sum=" & sum,
End Sub

Answer 6

Private Sub Command1_Click()
Dim a%(2), i%, s%
Me.Cls
For i = 0 To 2
    Randomize
    a(i) = Int(Rnd * 9)
    s = s + a(i)
    If i = 2 Then
    Me.Print a(i) & "=" & s
    Else
    Me.Print a(i) & "+";
    End If
Next i
End Sub

Answer 7

请问这是什么意思？Dim i%, a%, b%, c%

Answer 8

 a(i) = Int(Rnd * 9)应该改为
[/code]
a(i) = Int(Rnd * 10)
[code=VB]

Answer 9

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer      ' 定义3个整型变量
Dim result As Integer       '定义结果
a = Int(Rnd * 10)
b = Int(Rnd * 10)
c = Int(Rnd * 10)
result = a + b + c        '计算结果
Print a & "+" & b & "+" & c & "=" & result        '打印出来
End Sub