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

1、Private Sub Command1_Click()If Val(Text1) 1000 ThenText2 = Text1ElseIf 1000 = Val(Text1) And Val(Text1) 2000 ThenText2 = 0.9 * Val(Text1)ElseIf 2000 = Val(Text1) And Val(Text1) 3000 ThenText2 = 0.8 * Val(Text1)ElseText2 = 0.7 * Val(Text1)End IfEnd SubPrivate Sub Command2_Click()Text1 = Text2 = Text1

2、.SetFocusEnd SubPrivate Sub Command1_Click()Dim a, b, ca = Val(Text1)b = Val(Text2)c = Val(Text3)If b * b - 4 * a * c 0 ThenMsgBox 该一元二次方程无解, , 警告Text1 = Text2 = Text3 = Text1.SetFocusElseIf b * b - 4 * a * c = 0 ThenText4 = -b / 2 * aText5 = -b / 2 * aElseText4 = (b + Sqr(b * b - 4 * a * c) / -2 *

3、aText5 = (b - Sqr(b * b - 4 * a * c) / -2 * aEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub qin_Click()Text1 = Text2 = Text3 = Text4 = Text5 = Text1.SetFocusEnd SubPrivate Sub Command1_Click()Dim i As Stringi = Text3Select Case iCase +Text4 = Val(Text1) + Val(Text2)Case -Text4 = Val(

4、Text1) - Val(Text2)Case Text4 = Val(Text1) * Val(Text2)Case Text4 = Val(Text1) / Val(Text2)Case Elsem = MsgBox(输入的操作符无效，请重新输入, 1 + 48, 警告)If m = 1 ThenText3 = Text3.SetFocusElseEndEnd IfEnd SelectEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Text1 = Text2 = Text3 = Text4 =

5、 Text1.SetFocusEnd SubPrivate Sub Form_Load()Dim x, y, zForm1.AutoRedraw = Truex = Val(InputBox(输入x, x)y = Val(InputBox(输入y, y)z = Val(InputBox(输入z, z)Print Tab(10); x; Tab(18); y; Tab(26); zPrintPrint 排序前; Tab(8); x; Tab(16); y; Tab(24); zIf x y Then t = y: y = x: x = tIf x z Then t = z: z = x: x =

6、 tIf y z Then t = z: z = y: y = tPrintPrint 排序后; Tab(8); x; Tab(16); y; Tab(24); zEnd SubPrivate Sub Command1_Click()Text1 = Text2 = Text3 = Text4 = Text1.SetFocusEnd SubPrivate Sub Text2_LostFocus()Dim a, ia = Val(Text2)If a Mod 2 = 0 And a 0 ThenElsei = MsgBox(脚数必须2倍的头数,请重新输入, 2 + 48, sy2 - 5)If i

7、 = 4 ThenText2 = Text2.SetFocusElseIf i = 3 ThenEndElseEnd IfEnd IfEnd SubPrivate Sub Text3_lostfocus()If Val(Text3) = 0 And Fix(Val(Text3) = Val(Text3) And Text1 And Text2 ThenText3 = (4 * Val(Text1) - Val(Text2) / 2End IfIf Val(Text3) 0 And Fix(Val(Text3) Val(Text3) ThenMsgBox 鸡的只数不能为小数, , 错误信息Text3 = Text1.SetFocusEnd IfEnd SubPrivate Sub Text4_lostfocus()If Val(Text4) = 0 And Fix(Val(Text4) = Val(Text4) And Text1 And Text2 ThenText4 = (Val(Text2) - 2 * Val(Text1)