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

VB课本各个实验课后题答案 - 实验3 3-2el Private Sub Command1_Click Dim n% n = Abs(Val(Text1) Private Sub Command1_Click Dim x%, y% x = Int(Rnd * 900 + 100) Print 产生的随机数：Private Sub Command2_Click Dim x%, y As String x = Int(Rnd * 900 + 100) Print 产生的随机数： y = Trim(Str(x) 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) 3-5 Private Sub Command3_Click 实验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, Private Sub Command1_Click x = InputBox(请输入弧度数值弧度转换 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, 4-3 Private Sub Command1_Click Dim x%, y%, z% Private Sub Command1_Click 4-4带循环 Private Sub Command1_Click Do x = Val(InputBox(请输入上网时间: If x -1 Then Select Case x 实验5 5-1 Private Sub Command1_Click For i = 0 To 20 For j = 0 To 33 5-3 Private Sub Command1_Click n = 0 Do Private Sub Command1_Click Dim x%, y%, z%, i%, j% For x = 0 To 9 For y = 0 To 9 For z = 0 To 9 i = x * 100 + x * 10 + z j = y * 100 + z * 10 + z Private Sub Command2_Click For i = 0 To 9 For j = 0 To 9 For k = 0 To 9 Private Sub Command1_Click x = Val(Text1) n = 0 第 3 页 共 3 页