随机产生20个数 查找某数(通过输入)在数组中的位置 VB
发布网友
共1个回答
热心网友
Dim a(20) '定义数组
For i = 1 To 20
a(i) = Int(Rnd * 100) '[0,99]随机数
Print a(i); '窗体上输出
Next i
x = Val(InputBox("输入要查找的数", "查找", 10)) '得到输入的数字
For i = 1 To 20
If x = a(i) Then MsgBox "位置" & i '如果找到了，提示位置
Next i
热心网友
Dim a(20) '定义数组
For i = 1 To 20
a(i) = Int(Rnd * 100) '[0,99]随机数
Print a(i); '窗体上输出
Next i
x = Val(InputBox("输入要查找的数", "查找", 10)) '得到输入的数字
For i = 1 To 20
If x = a(i) Then MsgBox "位置" & i '如果找到了，提示位置
Next i
