全国计算机等级考试教材 高教版二级教材程序汇编.pdf

全国计算机等级考试教材 高教版二级教材程序汇编 高教版二级 VB 教材程序汇编 第四章 一、VB 中常用数据类型 整型 integer % 长整型 long & 单精度浮点数 single ！ 双精度浮点数 double # 货币型 currency @ 字符串型 string $ 变体型 variant 第五章 1、从键盘上输入 4 个数，编写程序，计算并输出这 4 个数的和及平均值。通过 inputbox 函 数输入数据，在窗体上显示和及平均值。 Dim a as single For i=1 to 4 a=inputbox （“请输入一个数：”，“数据输入”） sum=sum+a n=n+1 avg=sum/n next i print “和是：”,sum print “平均值是：”，avg 2 、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将 输入的数据用适当的格式在窗体上显示出来。 Dim a as variant Fontsize=20 a=inputbox （“请输入姓名：”，“数据输入”） print “姓名：”；a a=inputbox （“请输入年龄：”，“数据输入”） print “年龄：”；a a=inputbox （“请输入通信地址：”，“数据输入”） print “通信地址：”；a a=inputbox （“请输入邮政编码：”，“数据输入”） print “邮政编码：”；a a=inputbox （“请输入电话：”，“数据输入”） print “电话：”；a 3、编写程序，求解鸡兔同笼问题。一个笼子中有鸡 x 只，兔 y 只，每只鸡有 2 条腿，每只 兔有 4 只脚。今知鸡和兔的总头数为 h ，总脚数为 f 。问笼中鸡和兔各若干？ 算法： h=x+y f=2x+4y 第 1 页 全国计算机等级考试教材 高教版二级教材程序汇编 计算出： x= （4h-f ）/2 y= （f-2h ）/2 程序： Dim h as integer，f as integer h=inputbox （“请输入鸡和兔的总头数：”，“数据输入”） f=inputbox （“请输入鸡和兔的总脚数：”，“数据输入”） x= （4*h-f ）/2 y= （f-2*h ）/2 print “鸡的数量为：”；x print “兔的数量为：”；y 4 、设 a=5，b=2.5 ，c=7.8，编程序计算： y= （πab ）/ （a+bc ） 程序： Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y= （pi*a*b ）/ （a+b*c ） print “结果是：”;y 5、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。 Dim a as long，d as integer ，h as integer，s as integer a=inputbox （“请输入秒数：”，“数据输入”） d=int （a/86400 ） h=int （（a-d*86400 ）/3600 ） s=a-d*86400-h*3600 print d ；“日”；h ；“时”；s；“秒” 2 6、自由落体位移公式为：s=gt /2+v t 0