VB机试题答案.doc

1． Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2． Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) = 65 And Asc(Mid(ch, i, 1)) = 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3．------------------------------------------------------------------------------------------------------------------- Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) max Then max = a(i) Next i Print max End Sub 4．--------------------------------------------------------------------------------------------------------------- Private Sub Command1_Click() If Option1.Value = True Then Text1.FontName = 宋体 Else Text1.FontName = 隶书 End If If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Form_Load() End Sub 5．------------------------------------------------------------------------------------------------------------------- Private Sub Opt1_Click() If Opt1 Then Text1.Alignment = 0 End Sub Private Sub Opt2_Click() If Opt2 Then Text1.Alignment = 2 End Sub Private Sub Opt3_Click() If Opt3 Then Text1.Alignment = 1 End Sub Private Sub Opt4_Click() If Opt4 Then Text1.FontName = 宋体 End Sub Private Sub Opt5_Click() If Opt5 Then Text1.FontName = 黑体 End Sub 6．------------------------------------------------------------------------------------------------------------------- Dim n% Private Sub Form_Load() End Sub Private Sub Option1_Click() Dim i% n = Val(Text1) m = 1 For i = 1 To n m = m * i Next i Text2 = m End Sub