vb课后标准答案三四章-朱国华主编.docVIP

第3章 1. Private Sub Command1_Click() Dim a As Integer a = Text1.Text Text2.Text = -a Text3.Text = a ^ 2 Text4.Text = Sqr(Abs(a)) Text5.Text = a ^ 3 Text6.Text = Abs(a) ^ (1 / 3) End Sub 2. Private Sub Command1_Click() Dim x As Integer, y As Integer x = Text1.Text y = Text2.Text Text1.Text = y Text2.Text = x End Sub 3. Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim x1 As Single, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) a * x^2+b *x+c=0 x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a) Text4.Text = x1 Text5.Text = x2 End Sub Private Sub Command2_Click() End End Sub 第4章 1. Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If x = 0 Then Text2.Text = Sqr(x) Else MsgBox 该数不能开平方 End If End Sub 2. Private Sub Command1_Click() Dim a As Integer, b As Boolean a = Text1.Text If a Mod 5 = 0 And a Mod 7 = 0 Then b = True Label1.Caption = 该数能同时被5和7整除 Else b = False Label1.Caption = 该数不能同时被5和7整除 End If End Sub 3. Private Sub Command1_Click() Dim x As Integer x = Val(InputBox(请输入一个百分制成绩 )) Select Case x Case Is 90 Print A Case Is = 80 Print B Case Is = 70 Print C Case Is = 60 Print D Case Else Print E End Select End Sub 4. Private Sub Command1_Click() Dim n As Integer, t As Long, s As Long s = 0: t = 1 For n = 1 To 9 t = t * n If n Mod 2 0 Then s = s + t Next n Print s End Sub 5. Private Sub Command1_Click() Dim i As Integer, s As Double, n As Integer n = Val(InputBox(请输入一个正整数)) s = 0 For i = 1 To n s = s + ((-1) ^ (i + 1)) / i Next i Print s End Sub Private Sub Command2_Click() Dim i As Integer, s As Long, n As Integer, t As Integer n = Val(InputBox(请输入一个正整数)) s = 0 For i = 1 To n