用VB:用随机函数产生20个两位的正整数,并要求从小到大顺序输出.
来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/10/03 08:17:31
用VB:用随机函数产生20个两位的正整数,并要求从小到大顺序输出.
Dim a(1 To 20) As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
Randomize
Print "原始数据:"
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
Print: Print
End Sub
Private Sub Command2_Click()
For i = 1 To 20
For j = 1 To i - 1
If a(j) > a(i) Then
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next j
Next i
Print "排序结果为:"
For i = 1 To 20
Print a(i);
Next i
Print: Print
End Sub
Private Sub Command1_Click()
Randomize
Print "原始数据:"
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
Print: Print
End Sub
Private Sub Command2_Click()
For i = 1 To 20
For j = 1 To i - 1
If a(j) > a(i) Then
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next j
Next i
Print "排序结果为:"
For i = 1 To 20
Print a(i);
Next i
Print: Print
End Sub
1.VB随机产生10个两位数正整数的素数 2.随机产生10个两位数正整数,并输出其中的素数(用for或while语句
VB利用随机函数产生30个[3,99]整数,打印输出其中的素数(要求用数组存放)
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上
建立一个一位数组A,数组元素是用随机函数产生的10个正整数,并在窗体上输出,要求5个一换行.求出该数组元
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
使用随机函数产生50个10—99的随机整数放入数组a中,再按从小到大的顺序排序,并以每行10个数据输出.
C语言编程考试题 用随机函数产生并输出20个[10,99]的随机整数,输出其中大于这20个数的平均值的数.
VB:用函数array产生一组数并输出,然后求出其大于平均值的元素个数并输出
VB中用随机函数产生一个两位的随机正整数的公式是什么?
用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和
设计一个程序,能随机产生3个3位的正整数,且要求每个数的三位数字之和等于20,并输出结果