大一VB答案.docVIP

第五章5-15 Dim xb As String, kch As String Private Sub Check1_Click() kch = kch Check1.Caption End Sub Private Sub Check2_Click() kch = kch Check2.Caption End Sub Private Sub Check3_Click() kch = kch Check3.Caption End Sub Private Sub Check4_Click() kch = kch Check4.Caption End Sub Private Sub Command1_Click() Text1.Text = Text1 Text2 = 姓名： Text1.Text vbCrLf _ 性别： xb vbCrLf _ 班级： Combo1.Text vbCrLf _ 已学课程： kch End Sub Private Sub Option1_Click() xb = Option1.Caption End Sub Private Sub Option2_Click() xb = Option2.Caption End Sub 5.7 Dim a, b As String Private Sub Check1_Click() a = Check1.Caption End Sub Private Sub Check2_Click() a = Check2.Caption End Sub Private Sub Command1_Click() Label1.FontSize = a Label1.FontItalic = b Label1.FontUnderline = c 另解 Dim a(1 To 10) As Integer Private Sub Command1_Click() For i = 1 To 10 a(i) = Int(Rnd * 100) Text1 = Text1 a(i) Next i End Sub Private Sub Command2_Click() For i = 1 To 10 Sum = Sum + a(i) Text2 = Sum / 10 Next i End Sub Private Sub Command3_Click() Dim max As Integer max = a(1) For i = 1 To 10 If max a(i) Then max = a(i) End If Next i Text3 = max End Sub Private Sub Command4_Click() Dim min As Integer min = a(1) For i = 1 To 10 If min a(i) Then min = a(i) End If Next i Text4 = min End Sub Private Sub Command5_Click() 比较排序法 For i = 1 To 10 For j = i+1 To 10 If a(j) a(i) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i For i = 1 To 10 Text5 = Text5 a(i) Next i End Sub Private Sub Command6_Click() 冒泡排序法 For i = 1 To 9 For j = 1 To 10 - i If a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1)