随机产生一组数，输入需查的数。用vb 顺序查找代码
答案:1 悬赏:40 手机版
解决时间 2021-02-03 01:39
- 提问者网友：刺鸟
- 2021-02-02 21:38
随机产生一组数，输入需查的数。用vb 顺序查找代码
最佳答案
- 五星知识达人网友：孤独的牧羊人
- 2021-02-02 22:29
Dim data(1 To 100) As Integer
Dim i%, num%
For i = 1 To 100
data(i) = Int(Rnd * 1000)
Print data(i)
Next
num = Val(InputBox("请输入一个数"))
For i = 1 To 100
If data(i) = num Then Exit For
Next
If i <= 100 Then
MsgBox "找到该数，是第" & i & "个数"
Else
MsgBox "该数不在数组中"
End If
Dim i%, num%
For i = 1 To 100
data(i) = Int(Rnd * 1000)
Print data(i)
Next
num = Val(InputBox("请输入一个数"))
For i = 1 To 100
If data(i) = num Then Exit For
Next
If i <= 100 Then
MsgBox "找到该数，是第" & i & "个数"
Else
MsgBox "该数不在数组中"
End If
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯