程序设计教程第三版实验答案.docVIP

Private Sub Command1_Click() If Val(Text1) 1000 Then Text2 = Text1 ElseIf 1000 = Val(Text1) And Val(Text1) 2000 Then Text2 = 0.9 * Val(Text1) ElseIf 2000 = Val(Text1) And Val(Text1) 3000 Then Text2 = 0.8 * Val(Text1) Else Text2 = 0.7 * Val(Text1) End If End Sub Private Sub Command2_Click() Text1 = Text2 = Text1.SetFocus End Sub Private Sub Command1_Click() Dim a, b, c a = Val(Text1) b = Val(Text2) c = Val(Text3) If b * b - 4 * a * c 0 Then MsgBox 该一元二次方程无解, , 警告 Text1 = Text2 = Text3 = Text1.SetFocus ElseIf b * b - 4 * a * c = 0 Then Text4 = -b / 2 * a Text5 = -b / 2 * a Else Text4 = (b + Sqr(b * b - 4 * a * c)) / -2 * a Text5 = (b - Sqr(b * b - 4 * a * c)) / -2 * a End If End Sub Private Sub Command2_Click() End End Sub Private Sub qin_Click() Text1 = Text2 = Text3 = Text4 = Text5 = Text1.SetFocus End Sub Private Sub Command1_Click() Dim i As String i = Text3 Select Case i Case + Text4 = Val(Text1) + Val(Text2) Case - Text4 = Val(Text1) - Val(Text2) Case × Text4 = Val(Text1) * Val(Text2) Case ÷ Text4 = Val(Text1) / Val(Text2) Case Else m = MsgBox(输入的操作符无效，请重新输入, 1 + 48, 警告) If m = 1 Then Text3 = Text3.SetFocus Else End End If End Select End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1 = Text2 = Text3 = Text4 = Text1.SetFocus End Sub Private Sub Form_Load() Dim x, y, z Form1.AutoRedraw = True x = Val(InputBox(输入x, x)) y = Val(InputBox(输入y, y)) z = Val(InputBox(输入z, z)) Print Tab(10); x; Tab(18); y; Tab(26); z Print Print 排序前; Tab(8); x; Tab(16); y; Tab(24); z If x y Then t = y: y = x: x = t If x z Then t = z: z = x: x = t If y z Then t = z: z = y: y = t Print Print 排序后; Tab(8); x; Tab(16); y; Tab(24); z End Sub Private Sub Command1_Click() Text1 = Text2 = Text3 = Text4 = Text1.SetFocus End Sub Private Sub Text2_LostFocus() Dim a, i a = Val(Text2) If a Mod 2 = 0 And a 0 Then Else i = MsgBox(脚数必须≥2倍的头数,请重新输入, 2 + 48, sy2 - 5) If i = 4 Then Text2 = Text2.SetFocus ElseIf i = 3 Then End Else End If End If En