vb单元测验卷(开放式练习)答案.docVIP

A1 Private Sub Command1_Click() Dim x$ x = Text1.Text Text1.Text = Text2.Text Text2.Text = x End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = End Sub A2 Private Sub Command1_Click() Cls x = Val(Text1.Text) If x = 1 And x = 8 Then For i = 1 To x Print Spc(i - 1); For j = 1 To 10 Print *; Next j Print Next i Else Text1.Text = 您的输入有误！ End If End Sub A3（略） B1 Private Sub Command1_Click() x = Val(Text1.Text) If x 0 And x 20 Then Label4.Caption = 2 * x * 3.14 Label5.Caption = 3.14 * x ^ 2 Else Text1.Text = 您的输入有误！ Label4.Caption = Label5.Caption = End If End Sub B2 Private Sub Command1_Click() Dim i%, n% n = 0 For i = 100 To 999 If i Mod 5 = 0 And i Mod 7 = 0 Then Print i n = n + 1 End If Next i Label1.Caption = 符合条件的数有 Str$(n) 个 End Sub B3 Private Sub Command1_Click() Label8.Caption = Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Command2.Enabled = False Command1.Enabled = True Label8.Caption = Label2.Caption + + Label3.Caption + + Label4.Caption + + Label5.Caption End Sub Private Sub Command3_Click() End End Sub Private Sub Timer1_Timer() Randomize Label2.Caption = Int(Rnd * 90) + 10 Label3.Caption = Int(Rnd * 90) + 10 Label4.Caption = Int(Rnd * 90) + 10 Label5.Caption = Int(Rnd * 90) + 10 End Sub C1 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) If a 0 Or a 100 Or b 0 Or b 100 Then Text1.Text = 请重新输入 Else Label4.Caption = 2 * a + 2 * b Label6.Caption = a * b End If End Sub C2 Private Sub Command1_Click() Cls n = Val(Text1.Text) If n 3 Or n 12 or nint(n) Then Text1.Text = 请重新输入 Else For i = 1 To n For j = 1 To n - i + 1 Print *; Next j Print Next i End If End Sub C3（略） D1 Private Sub Command1_Click() a = val(Text1.Text) b = val(Text2.Text) c = val(Text3.Text) If a b And a c Then Label1.Caption = a End If If b a And b c Then Label1.Caption = b End If If c a And c b Then Label1.