随机产生20个数 查找某数(通过输入)在数组中的位置 VB

发布网友 发布时间：2024-10-24 09:32

我来回答

共1个回答

热心网友 时间：2024-11-01 04:36

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

热心网友 时间：2024-11-01 04:34

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