vb二分查找编程,随机生成1到100的一个数,并查找该数

发布网友发布时间：2024-06-01 19:32

共4个回答

热心网友时间：2024-07-15 23:58

Dim i, a, b, c, d(1 To 99999)
Private Sub Form_Load()
i = 0
b = 0
Me.Caption = "没有随机数,单击窗体后产生"
Command1.Caption = "查找已有的数"
End Sub
Private Sub Form_Click()
b = b + 1
For i = 1 To b
a = (Int(Rnd() * 100) + 1)
d(i) = a
Next
Me.Caption = "第" & b & "个随机整数诞生"
End Sub
Private Sub Command1_Click() 'CommandButton（控件
c = InputBox("查第几次单击窗体后产生的随机整数？输入一数字：", "单击窗体后产生的1至100随机整数，最多99999个", "", 10, 1)
If Val(c) > b Or Val(c) <= 0 Then
MsgBox "请输入一个1到" & b & "的整数!", vbOKOnly, "窗体仅被单击了" & b & "次。"
Else
MsgBox d(Val(c)), vbOKOnly, "第" & c & "个1至100的随机整数是"
End If
End Sub

热心网友时间：2024-07-15 23:54

'　随机生成1到100的一个数x = Int(100 * Rnd + 1)

热心网友时间：2024-07-15 23:55

1，产生随机数，保存到指定的数组。2，输入一个数，采用对分查找的方法，在上面的数组里找寻。

热心网友时间：2024-07-15 23:55

加我QQ 1039523469