VB随机产生10个两位数整数（正整数）,要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上是编程问题用VB编程

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 04:21:33

VB随机产生10个两位数整数（正整数）,要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上是编程问题用VB编程
VB随机产生10个两位数整数（正整数）,要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
是编程问题用VB编程

VB随机产生10个两位数整数（正整数）,要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上是编程问题用VB编程
Option Base 1
Dim a(20)
Private Sub Form_Load()
Randomize
For i = 1 To 10
a(i) = Int(10 + 90 * Rnd)
Next
End Sub
Private Sub Command1_Click() '选择排序法
For i = 1 To 9
For j = i + 1 To 10
If a(j) > a(i) Then t = a(i):a(i) = a(j):a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
Next
Print
End Sub
Private Sub Command2_Click() '冒泡排序法
For i = 1 To 9
For j = 10 To i + 1 Step -1
If a(j - 1) < a(j) Then
t = a(j - 1):a(j - 1) = a(j):a(j) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next
Print
End Sub

VB随机产生10个两位数整数（正整数）,要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上是编程问题用VB编程 VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现 VB随机产生10个两位数,求出他们的总和及平均数.（或按奇偶行排列） VB随机函数 产生2个两位数的随机正整数 放在数据1和数据2两个文本框中 代码应该怎么打? vb中如何随机产生20个10以内的正整数 1.VB随机产生10个两位数正整数的素数 2.随机产生10个两位数正整数,并输出其中的素数（用for或while语句最好文字表达一下这两个问题的区别~有点搞混了.谢谢~两道题的代码留一下~谢谢~ VB：随机产生10个小于100（不含100）的随机整数,并统计出其中5的倍数所占比例 vb随机产生10个两位数随机正整数,求其中素数之和（用过程实现判断一个数是否是素数）Private Sub Command1_Click()Dim a As Integer, r As Integer, s As Integers = 0For a = 1 To 10r = Int(90 * Rnd + 10)Print r;If f = True VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.VB VB:随机产生30个[100,500]区间的随机整数,求其和及平均值. VB随机产生10个10到100的整数,每行输出10个代码怎么写?必须是基数 vb中怎么随机产生3个整数,整数范围不定 在VB中,随机产生10个两位数保存在数组中随机产生10个两位数保存在数组中,找出最大值,最小值,计算最大值与最小值的平均值,统计小于该平均数的个数 VB中要求随机产生10个在［10,30］的不同整数怎么编写程序? vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数. 用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码 VB编程 随机产生50个10~200的整数,统计能被5整除的数的个数 VB随机产生10个100到200之间的整数,将其按从大到小顺序排列