求VB编程代码

显示全部楼层 · 2010-5-27 11:23:12

利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。
1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。
2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。

千问 · 2010-5-27 11:23:12

Private Sub Command1_Click()Form1.ClsDim n(1 To 80) As IntegerRandomizePrint "随机数为："For i = 1 To 80
n(i) = Int(Rnd() * 90 + 10)
Print n(i);
If i Mod 10 = 0 Then PrintNextFor i = 1 To 80
'排序
For j = 1 To 80 - i
If n(j) > n(j + 1) Then
temp = n(j)