VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素急啊,在线等答案,打下救命!

来源：学生作业帮助网编辑：作业帮时间：2024/05/07 19:15:09

VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素急啊,在线等答案,打下救命!
VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素
急啊,在线等答案,打下救命!

VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素急啊,在线等答案,打下救命!
Option Explicit
Private a(9) As Integer
Private iMaxIndex As Integer
Private Sub Command1_Click()
Dim i,j,k,iMax As Integer
Dim b As Boolean
Randomize
b = True
i = 0
iMax = 0
iMaxIndex = 0
Cls
Do While b
k = Int(Rnd * 100) + 1
For j = 0 To i
If k = a(j) Then Exit For
Next j
If j > i Then
a(i) = k
If k > iMax Then
iMax = k
iMaxIndex = i
End If
i = i + 1
b = (Not (i > 9))
Print k
End If
Loop
Print "最大：" & Str(iMax)
End Sub
Private Sub Command2_Click()
Dim i As Integer
a(iMaxIndex) = 0
For i = 0 To 9
Print a(i)
Next i
End Sub

VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素急啊,在线等答案,打下救命! vb中如何生成20个互不相同的两位随机整数? 用VB编写程序,随机生成10个10~99互不相同的整数,将它们按由小到大的顺序排列起来 VB编程：利用随机函数Rnd()生成20个在1~100之间的各不相同的正整数,并在窗体上显看清楚,一定要是正整数,谢谢了.用VB 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?（求VB编程答案!）要写清界面搭建过程! 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?VB编程精简明朗 vb编程随机生成20个【1,100】以内的整数,以每行五个输出其中的奇数,并统计输出奇数的个数. Vb小编程用随机函数生成10个100以内的的整数找出最大值并指出是第几个数 VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序? Matlab如何生成互不相同的随机整数我的问题是生成1到91之间的互不相同的个数从1到90的随机整数列,并且每个数不能等于77 vb题随机生成10个两位整数,求出他们的总和及平均数求助,基础一点的编程啊 VB 编程题,产生50个1～100之间的随机整数,显示所有小于60的数.VB 编程题,产生50个1～100之间的随机整数,显示所有小于60的数.希望可以详细写出步骤,最好写在纸上,严格按照编程步骤书写! VB 编程题,产生50个1～100之间的随机整数,显示所有小于60的数.我真心想不会.VB 编程题,产生50个1～100之间的随机整数,显示所有小于60的数.希望可以详细写出步骤,最好写在纸上,严格按照编程步 vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数. VB编程随机产生50个10~200的整数,统计能被5整除的数的个数随机产生10000个0-1之间的数,统计并显示0.5以下及0.5以上的数各有几个,占比例是多少?VB编程 JAVA 生成一个长度为10的一维数组,用该数组保存随机生成的1~100的整数,且该数组保存的整数互不相同 vb语句设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数