VB答案(黄色那本).docxVIP

1.3.4程序设计题 【习题1-49】编写一个华氏温度F和摄氏温度C之间转换的使用程序，界面如图1-4所示。 其中F和C之间的关系为： 。 参考程序如下： \o QQ截图229.jpg 下载次数:69 Private Sub Command1_Click() Dim f As Single, c As Single f = Val(Text1.Text) c = (f - 32) * 5 / 9 Text2.Text = Str(C) End Sub Private Sub Command2_Click() Dim f As Single, c As Single c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1.Text = Str(f) End Sub 【习题1-50】编程将弧度值转换为角度值（度、分、秒）的形式，然后在窗体上显示出来。程序运行界面如图1-5所示。 【提示】利用InputBox()输入弧度值，首先把弧度值转换为原始角度值，然后取整得到角度值，再把原始角度值减去度值，将结果转化为分值，采用类似思维即可求出结果。 参考程序如下： \o QQ截图21.jpg 下载次数:17 Private Sub Form_Click() Dim s As Single, a As Integer,b As Integer, c As Integer Const pi As Single =3.14159 s = Val(InputBox(请输入弧度值:)) s1 = s s = s * 180 / pi a = Int(s) s = s - a s = s * 60 b = Int(s) s = s - b c = s * 60 Print 输入的弧度值 s1; 对应的角度值为: Print a 度 b 分 c 秒。 End Sub 2.3.6设计程序题 源程序见文件夹“第二章习题66-75答案” 【习题2-66】公用电话收费标准如下：通话时间在3分钟以内，收费0.5元；3分钟以上，则每超过1分钟加收0.15元。编写程序，计算某人通话S分钟时应缴的电话费。 Private Sub Command1_Click() Dim t As Single, f As Single t = Val(Text1.Text) If t = 3 Then f = 0.5 Else f = 0.5 + (-(Int(-(t - 3)))) * 0.15 End If Text2.Text = f 元 End Sub 【习题2-67】写程序找出能被2,3,5除时余数均为1的最小的10个自然数。 Private Sub Form_Click() n = 0: k = 0 Do n = n + 1 If n Mod 2 = 1 And n Mod 3 = 1 And n Mod 5 = 1 Then k = k + 1 Print n; End If Loop While k 10 End Sub 【习题2-68】编写程序，计算 。 Private Sub Form_click() Dim s As Single, n As Integer n = Val(InputBox(请输入计算项数n:)) For i = 1 To n s = s + (-1) ^ (i - 1) * 1 / (2 * i - 1) Next i Print s=; 4 * s End Sub 【习题2-69】编写程序，计算1×2×3×…×n，找出能使计算结果大于106的n的值。 Private Sub Form_Click() Dim s As Double, n As Integer n = 0 s = 1 Do n = n + 1 s = s * n Print s Loop While s = 1E+20 Print 满足要求的n=; n End Sub 【习题2-70】凡是满足x2+y2=z2的正整数数组(x,y,z)就称为勾股数组(如3,4,5)。请找出任意一个正整数n(通过InputBox函数输入)以内的所有勾股数组。 Private Sub Form_Click() Dim n As Integer Cls n = Val(InputBox(请输入正整数n：)) For x = 1 To n For y = 1 + x To n 避免重复数对出现 For z = 1 To n If x * x + y * y = z * z Then Print x; y; z Next z Next y Next x End Sub 【习题2-71】某正整数和3的和是5的倍数，和3的差是6的倍数。