VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/15 08:21:08
VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
Private Sub Command1_Click()
Text1.Text = ""
Dim A(1 To 10) As Integer, K As Integer
For I = 1 To 10
Randomize
A(I) = Int(Rnd * 100 + 100)
Next I
For I = 1 To 9
For J = I + 1 To 10
If A(I) < A(J) Then
K = A(I)
A(I) = A(J)
A(J) = K
End If
Next J
Next I
For I = 1 To 10
If I < 10 Then
Text1.Text = Text1.Text & A(I) & ","
Else
Text1.Text = Text1.Text & A(I)
End If
Next I
End Su
Text1.Text = ""
Dim A(1 To 10) As Integer, K As Integer
For I = 1 To 10
Randomize
A(I) = Int(Rnd * 100 + 100)
Next I
For I = 1 To 9
For J = I + 1 To 10
If A(I) < A(J) Then
K = A(I)
A(I) = A(J)
A(J) = K
End If
Next J
Next I
For I = 1 To 10
If I < 10 Then
Text1.Text = Text1.Text & A(I) & ","
Else
Text1.Text = Text1.Text & A(I)
End If
Next I
End Su
VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
求VB 程序设计利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇
利用高级语言程序设计(VB)随机函数产生90个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列…
VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码
利用随机函数产生80个10~99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
vb问题利用随机函数产生80个10~99之间的随机整数,
随机产生N个1,1000之间不重复的整数存入数组A中,并按从大到小顺序排列.键入整数X,查找:若无,则插入,
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
C语言程序:产生10个2位的随机整数,用气泡法将这10个整数按从大到小的顺序排列