用VB编一个程序,随机产生10个100以内的不同的偶数

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/06 09:42:17

用VB编一个程序,随机产生10个100以内的不同的偶数
要不同的10个

vb6测试通过
Private Sub Command1_Click()
Dim a(10) As Integer,temp As Integer,i As Integer,j As Integer
Randomize
temp = (Int(Rnd() * 50) + 1) * 2 '产生100以内的偶数
For i = 0 To 9
'判断是否已经存在
Do
For j = 0 To i
If temp = a(j) Then
temp = (Int(Rnd() * 50) + 1) * 2 '重新产生100以内的偶数
Exit For
End If
If j = i Then
a(i) = temp
Print temp;
Exit Do
End If
Next j
Loop
Next i
Print
End Su

用VB编一个程序,随机产生10个100以内的不同的偶数编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果如何用vB程序随机产生30个不同的字母? VB中要求随机产生10个在［10,30］的不同整数怎么编写程序? 用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和 vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该 vb中如何随机产生20个10以内的正整数怎样用VB做随机产生10个1－100以内的整型数,求出其的最大值,最小值,平均值用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计用VB编程序验证哥德巴赫猜想,即一个大于等于6的偶数可以表示为两个素数之和 vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数. 请教大神用VB编一个计算的程序?