程序的基本知识.docVIP

一、请为三角形的面积计算选择合适的程序。 (1) Private Sub Form_load() Let a = Text1.Text Let h = Text2.Text Let s = a * h / 2 Let Text3.Text = s End Sub (2) Private Sub Command1_Click() Let a = Text1.Text Let h = Text2.Text Let s = a * h / 2 Let s = Text3.Text End Sub （3）Private Sub Command1_Click() Let a = Text1.Text Let h = Text2.Text Let s = a * h / 2 Let Text3.Text = s End Sub 二、写出程序的输出结果，再上机验证。 Private Sub Form_load() Let x=6 Print x Let x=8 Print x Let x=x+1 Print x End Sub 三、编写“孙悟空上织女星”程序 问题：孙悟空一个筋斗可翻十万八千里，即5.4×104km，织女星距地球约2.3×1014km，那么孙悟空大约要翻多少个筋斗才能到织女星？如果孙悟空每秒钟翻多少筋斗才能到达织女星？如果孙悟空每秒钟翻一个筋斗，那么他要连续不停翻约多少年才能到达织女星？ （1）分析问题与确定算法 所翻筋斗（秒）数n: n= 一年的秒数m（列式）: 翻筋斗年数y: (2)初全程序： Rem 输入信息 Let j = 5.4 * 10 ^ 4 Let z = Let m = Rem 处理信息 Let n = z / j Let y = Rem 输出信息 Print Print 孙悟空要翻; ; 个筋斗才能到织女星 Print 孙悟空要花; y; 年才能到达织女星