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

Question

如题所述

Answer 1

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

Answer 2

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

也可以2，产生一个随机数，用对分查找方法，到上面的数组里寻找。

Answer 3

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

把 x 显示出来即可，还要怎么查找该数喃？

Answer 4

加我QQ 1039523469