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

高教版二级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 计算出： 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；“秒” 6、自由落体位移公式为：s=gt2/2+v0t 其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。设v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。 Dim v as single，t as single，s as single g=9.81 v= inputbox（“请输入初始速度：”，“数据输入”） v=val（v） t=inputbox（“请输入经历的时间：”，“数据输入”） t=val（t） s=g*t*t/2+v*t print “位移量是：”;s 第七章 1、设计一个程序，从键盘上输入学生的分数，计算并输出及格（大于或等于60分）、不及格人数和总平均分数。有输入并计算、显示结果、退出3个按钮。 窗体层通用声明变量： Dim n as integer，n1 as integer，n2 as integer Dim score as single Dim total as single 按钮1的click事件过程： Start： Score=inputbox（“请输入学生的分数，输入-1结束”，“数据输入”） If score0 or score100 then msgbox(“您输入的成绩有误，请重新输入！”) goto finish else score=val（score）