UC知道VB作业，急用。要快啊。
来源：百度知道 编辑：UC知道 时间：2024/06/14 19:43:37
实验一 选择、循环和数组综合程序设计
（一）实验目的
学会综合运用选择结构、循环结构和数组进行程序设计的方法。
（二）实验内容
利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。
（三）实验要求
1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。
2．将排好序的偶数和奇数分别输出到两个文本框中。
3．界面由学生自行设计
（一）实验目的
学会综合运用选择结构、循环结构和数组进行程序设计的方法。
（二）实验内容
利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。
（三）实验要求
1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。
2．将排好序的偶数和奇数分别输出到两个文本框中。
3．界面由学生自行设计
朋友，我已经试过啦，不信，你在VB里试下
首先你在窗体上建立一个命令按钮，然后输入以下代码：
Dim a%(1 To 60), b%(1 To 60), c%(1 To 60)
Private Sub Command1_Click()
Randomize
Print "你所产生的数是："
For i = 1 To 60
a(i) = Int(Rnd * 101 + 100)
Print a(i);
If i Mod 10 = 0 Then Print
Next
For i = 1 To 60
If a(i) Mod 2 = 0 Then x = x + 1: b(x) = a(i) Else y = y + 1: c(y) = a(i)
Next i
Print "偶数从小到大排列："
For i = 1 To x - 1
For j = (i + 1) To x&n