用VB编写程序,随机生成10个10~99互不相同的整数,将它们按由小到大的顺序排列起来

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/10/06 02:23:26

Private Sub Command1_Click()
Cls
Dim a(1 To 10) As Integer
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 90 + 10)
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
Next i
Print "产生的随机数为："
For i = 1 To UBound(a)
Print a(i);
Next i
Print
For i = 1 To UBound(a) - 1
For j = UBound(a) To i + 1 Step -1
If a(i) > a(j) Then b = a(i):a(i) = a(j):a(j) = b
Next j
Next i
Print "排序后的数为："
For i = 1 To UBound(a)
Print a(i);
Next i
End Su

求VB 程序设计利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇利用高级语言程序设计（VB）随机函数产生90个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列… VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出 vb中如何生成20个互不相同的两位随机整数? VB随机产生10个100到200之间的整数,将其按从大到小顺序排列利用随机函数产生80个10～99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出 VB编写程序,生成一个10个元素的随机整数组,数组元素的范围0-100,要求将这个数组的最大值和最小值的位置对调 VB 编写程序,生成10个无重复数（即互不相等）的两位随机数 vb编写一个程序,利用随机函数生成15个80~99之间的随机整数,输出其中的最大值与最小值 VB中要求随机产生10个在［10,30］的不同整数怎么编写程序? 用VB在1-100中产生10个随机整数,按从小到大的顺序排列如题..求代码用指针实现：由键盘输入10个整数,将他们按由小到大的顺序排列.