作业帮VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.单击command2,则弹出对话框,接受用户输入的任意一个数,并在一维数组中查找该数,若查找失败,则
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 12:01:51
VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.单击command2,则弹出对话框,接受用户输入的任意一个数,并在一维数组中查找该数,若查找失败,则
VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.
单击command2,则弹出对话框,接受用户输入的任意一个数,并在一维数组中查找该数,若查找失败,则在text2中显示“不存在于数组中”,否则给出该数组中的位置.
VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.单击command2,则弹出对话框,接受用户输入的任意一个数,并在一维数组中查找该数,若查找失败,则
dim a(9) as integer
private sub command1_click()
dim i as integer
randomize
for i=0 to 9
a(i)=int(rnd*101)
text1.text=text1.text & a(i) & ","
next i
end sub
private sub command2_click()
dim b as integer,i as integer,c as boolean
b=val(inputbox("请输入一个数字"))
c=false
for i=0 to 9
if b=a(i) then
c=true
exit for
end if
next
if c=false then text2.text="不存在于数组中" else text2.text="在数组中的位置=" & i+1
end sub