UC知道vb作业 急用啊···· 谢谢大家了
来源：百度知道 编辑：UC知道 时间：2024/05/24 04:11:02
实验一 选择、循环和数组综合程序设计
（一）实验目的
学会综合运用选择结构、循环结构和数组进行程序设计的方法。
（二）实验内容
利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。
（三）实验要求
1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。
2．将排好序的偶数和奇数分别输出到两个文本框中。
3．界面由学生自行设计。
（一）实验目的
学会综合运用选择结构、循环结构和数组进行程序设计的方法。
（二）实验内容
利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。
（三）实验要求
1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。
2．将排好序的偶数和奇数分别输出到两个文本框中。
3．界面由学生自行设计。
Private Sub Form_click()
Dim a(1 To 60) As Integer, o(1 To 60) As Integer, ji(1 To 60) As Integer
Randomize
num1 = 0
num2 = 0
For i = 1 To 60
a(i) = Int(Rnd * 101 + 100)
Picture1.Print a(i);
If a(i) Mod 2 = 0 Then
num1 = num1 + 1
o(num1) = a(i)
Else
num2 = num2 + 1
ji(num2) = a(i)
End If
If i Mod 10 = 0 Then Picture1.Print
Next
Print num1, num2
For i = 1 To num1 - 1
For j = i + 1 To num1
If o(i) > o(j) Then
temp = o(i)
o(i) = o(j)
o(j) = temp
End If
Next
Next
For i = 1 To num1
Picture2.Print o(i);
If i Mod 10 = 0 Then Picture2.Print
Next
For i = 1 To num2 - 1
For j = i + 1 To num2
If ji(i) < ji(j) Then
temp = ji(i)
ji(i) = ji(j)
ji(j) = temp
End If
Next
Picture3.Print ji(i);
If i Mod 10 = 0 Then Picture3.Print
Next
Picture3