VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/29 03:25:56

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 Su

VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计整型一维数组中存放互不相同的10个数,从键盘输入一个整数,输出与该数相同的数组元素的下标随机生成一个元素为10到40之间整数的4行5列数组,找出该二维数组的最大元素与最小元素, 1.编写程序,随机生成30个10-99之间的整数保存到数组中,在输出此数组后,要求删除数组中的所有重复元素之后 C语言编程随机产生10个10到50的正整数存放到数组中,并求数组中的所以元素最大值、最小值、平均值及各元素几道VB题1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小使用随机函数“rand()”,生成10个[1,100]之间的整数并存于数组中,首先输出数组各元素值.然后使用随机函数“rand()”,生成10个[1,100]之间的整数并存于数组中,首先输出数组各元素值.请统计定义一个含有10个元素的一维数组. 要求：1）用for循环给个元素输入整数. 2）求出该数组中存放的最小整数在C语言：用随机数生成一个整数数组,数组中有10个元素,各元素的值在0——9之间,输出该数组的各元素一个具有10个元素的一维数组,下标从1到10,每个数组元素的值是随机函数产生的1～100之间的随机整数.要求：用Visu