VB程序设计 谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/16 10:03:45
就是有序号1到10 A,B两组数据,比较两组数据求A数据高于B数据的组序号
希望有好心人帮帮 谢谢
楼下回答的
Rnd * 100 是什么

Private Sub Form_Click()
Dim A(10) As Integer
Dim B(10) As Integer
Dim I As Integer, J As Integer
Cls
Randomize
For I = 1 To 10
A(I) = Rnd * 100
Print I; A(I);
B(I) = Rnd * 100
Print B(I),
If A(I) > B(I) Then
Print "A>B True";
J = J + 1
End If
Print
Next I
Print "共有"; J; "个数满足A>B条件。"
End Sub

Private Sub Form_Click()
Dim A(9) As Integer
Dim B(9) As Integer
For i = 1 To 9
A(i) = Rnd * 100
Print A(i);
B(i) = Rnd * 100
Print B(i);
If A(i) > B(i) Then Print "A第"; i; "个数据大于B"
Print
Next i
End Sub