学校考试VB数组，谁会啊？10分。

来源：百度知道 编辑：UC知道 时间：2024/04/29 22:18:41
a数组有3个数，B数组有6个数，a表示为a(1,2,3),B表示为B(1,2,3,4,5,6)现在要打印出a+b=5的数
如果A有100个数，B有1万个数，楼下的朋友，也要这样写吗？有没有动态的方法呀？有没有动态给数组赋值的方法？

Dim a, b As Variant, i, j As Integer
a = Array(1, 3, 5)
b = Array(2, 4, 8, 9)
For i = LBound(a) To UBound(a)
For j = LBound(b) To UBound(b)
If Val(a(i)) + Val(b(j)) > 5 Then
Print a(i); b(j)
End If
Next j
Next i

Option Base 1

Private Sub Command1_Click()
Dim a(3) As Integer, b(5) As Integer
赋值：利用产生随机数赋值，如果数组元素增加，则增加循环即可
for i = 1 to 3
a(i)=int(rnd*99)+1
next i
for i = 1 to 5
b(i)=int(rnd*99)+1
next
判断：
For i = 1 To 3
For j = 1 To 5
If a(i) + b(j) = 5 Then
Print a(i) & "+" & b(j) & "=" & "5",
End If
Next j
Next i
End Sub

Private Sub Form_Click()
dim a(1 to 3) as integer,b(1to 6) as integer
'以下给数组赋值
.
.
.
'以下按题意处理
For i=1 to 3
For j