百度作业网VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/04/28 01:09:01
VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.
单击command2,则弹出对话框,接受用户输入的任意一个数,并在一维数组中查找该数,若查找失败,则在text2中显示“不存在于数组中”,否则给出该数组中的位置.
单击command2,则弹出对话框,接受用户输入的任意一个数,并在一维数组中查找该数,若查找失败,则在text2中显示“不存在于数组中”,否则给出该数组中的位置.
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 su
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 su
VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中.
VB单击Command1,随机生成100个大写英文字母存于数组a中,并显示在Text1中,字母之间用空格隔开
vb编程：随机产生10个0~100之间整数放到一个数组中,单击窗体,在窗体上显示这10个数以及10个数中的最小值
用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显示平均值.怎么写?
VB计算,在TEXT1中输入两个数字,单击command1按钮,则在text2中显示总和数和平均值.怎么写?
VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和
vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b)
VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显 示最大值和最小值相除
VB程序设计 简答题编写程序,利用随机函数产生100个0~99之间的整数,存放在数组中,然后在窗体上显示所有小于50的随
VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素
（1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中