程序的基本知识.doc

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