VB课本各个实验课后题答案.doc

实验3 3-2el Private Sub Command1_Click() Dim n% n = Abs(Val(Text1)) Label2 = Format(n ^ 2, #.000) Space(2) Format(Sqr(n), #.000) Space(2) Format(n ^ 3, #.000) Space(2) Format(n ^ (1 / 3), #.000) End Sub Private Sub Form_Load() End Sub 3-3 Private Sub Command1_Click() Dim x%, y% x = Int(Rnd * 900 + 100) Print 产生的随机数：; x y = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100 Print 反序数：; Format(y, 000) End Sub Private Sub Command2_Click() Dim x%, y As String x = Int(Rnd * 900 + 100) Print 产生的随机数：; x y = Trim(Str(x)) Print 反序数： Right(y, 1) Mid(y, 2, 1) Left(y, 1) End Sub Private Sub Form_Load() End Sub 3-4 Private Sub Command1_Click() Dim m%, n% Randomize m = Val(Text1): n = Val(Text2) x = Int(Rnd * (n - m) + m) y = Int(Rnd * (n - m) + m) z = Int(Rnd * (n - m) + m) Label3 = m 到 n 之间的3个随机数为: x Space(3) y Space(3) z End Sub 3-5 Private Sub Command1_Click() Label1.Caption = Date End Sub Private Sub Command2_Click() Label2.Caption = Time End Sub Private Sub Command3_Click() Label3.Caption = WeekdayName(Weekday(Date)) End Sub 实验4 4-1 Private Sub Command1_Click() Dim x!, a!, aa%, b!, bb%, c!, cc$ x = Val(Text1) a = x * 180 / 3.14 aa = Int(a) b = (a - aa) * 60 bb = Int(b) c = (b - bb) * 60 cc = Format(c, #.000) Label2 = 弧度 Text1 转换为 aa 度 bb 分 cc 秒 End Sub 4-2 Private Sub Command1_Click() x = InputBox(请输入弧度数值, 弧度转换, 0) x = Val(x) a = x * 180 / 3.14 aa = Int(a) b = (a - aa) * 60 bb = Int(b) c = (b - bb) * 60 cc = Format(c, #.000) MsgBox 弧度 x 转换为 aa 度 bb 分 cc 秒 End Sub 4-3 Private Sub Command1_Click() Dim x%, y%, z% x = InputBox(输入第一个数) y = InputBox(输入第二个数) z = InputBox(输入第三个数) If x y Then t = x: x = y: y = t If y z Then t = y: y = z: z = t If x y Then t = x: x = y: y = t Print x, y, z End Sub 4-4 Private Sub Command1_Click() x = Val(InputBox(请输入上网时间:)) If x -1 Then Select Case x Case Is 10 fei = 25 Case 10 To 50 fei = x * 2 Cas