福建省高职单招计算机vb考试题,对口计算机高职单招VB编程练习题及答案

对口计算机高职单招VB编程练习题及答案

计算机高职单招VB编程练习题 练习一 数据的输入输出 以下程序代码在窗体的单击事件过程(_click)中编写，结果输出到窗体上。 1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过box函数输入数据，在窗体上显示和及平均值。 Private Sub _Click() a = Box(“输入第一个数“) a = Val(a) b = Box(“输入第二个数“) b = Val(b) c = Box(“输入第三个数“) c = Val(c) d = Box(“输入第四个数“) d = Val(d) Sum = a + b + c + d aver = Sum / 4 Print “所输入的4个数分别为：“; a; b; c; d Print “4个数的和为：“; Sum Print “4个数的平均值为：“; aver End Sub 2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。 Private Sub _Click() n$ = Box(“请输入您的姓名“) Age$ = Box(“请输入您的年龄“) Addr$ = Box(“请输入通信地址“) Pos$ = Box(“请输入邮政编码“) Tel$ = Box(“请输入电话号码“) Print Print Tab(6); “姓名“; Space$(3); “年龄“; Space$(3); “通信地址“; _ Space$(5); “邮政编码“; Space$(3); “电话号码“ Print Print Tab(5); n$; Space$(3); Age$; Space$(3); Addr$; _ Space$(3); Pos$; Space$(3); Tel$ End Sub 3、编写程序，求解鸡兔同笼问题。一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚，今知鸡和兔的总头数为H，总脚数为F。问笼中鸡和兔各若干？ 提示：根据数学知识，可以写出如下的联立方程式： X＋Y＝H (1) 2X＋4Y＝F (2) (2)式－2*(1)式： 2Y＝F－2H 故Y＝(F－2H)/2 4*(1)－(2)式： 2X＝4H－F 故X=(4H－F)/2 可按上式编写程序。用box函数输入H和F的值，设H＝71，F＝158，请编写程序并上机运行。 Private Sub _Click() h = Box(“请输入鸡和兔的总的头数“) h = Val(h) f = Box(“请输入鸡和兔的总的脚数“) f = Val(f) y = (f - 2 * h) / 2 x = (4 * h - f) / 2 Print “笼中有鸡“; x; “只，兔“; y; “只“ End Sub 4、设a=5，b=2.5，c=7.8，编程计算：Y＝pi*ab/(a+b*c)。 y=3.14*a*b/(a+b*c) Private Sub _Click() a = 5: b = 2.5: c = 7.8 y = (3.1416 * a * b) / (a + b * c) Print “y=“; y End Sub 程序运行后，单击窗体，输出结果为： y=1.714 5、输入以秒为单位表示的时间，编写程序，将其换算成几日几时几秒。 Private Sub _Click() Dim Second, Minute, Hour, Day As Long Dim Second1 As Long Second = Box(“请输入秒数“) Second = Val(Second) Second1 = Second Minute = Int(Second / 60) Second = Second Mod 60 Hour = Int(Minute / 60) Minute = Minute Mod 60 Day = Int(Hour / 24) Hour = Hour Mod 24 Print Second1; “秒=“; Day; “天“; Hour; “小时“; Minute; “分“; Second; “秒“ End Sub 6、自由落体位移公式为：s＝1/2gt2+vt，其中V为初始速度，g为重力加速度，t为经历程的时间，编写程序，求位移量s。设v=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用box函数输入v和t两个变量的值。 Private Sub _Click() Const g = 9.81 V = Box(“Please V:“) T = Box(“Please T:“) s = 1 / 2 * g * T ^ 2 + V * T Print “位移量为:“; s End Sub 程序运行后，单击窗体，输出结果为： 位移量为：3.62625 练习二 常用标准控件 1、在窗体上画4个图像框和一个文本框，在每个图像框中装入一个箭头图形，分为4个不同的方向，把文本框的multiline属性设置为true。编写程序，当单击某个图像框时，在文本框中显示相应的信息。例如，单击向右的箭头时，在文本框中显示“单击向右箭头”。 程序如下： Private Sub _Load() Image1.Picture = LoadPicture(“c:\vb98\Graphics\Icons\arrows\arw04up.ico“) Image2.Picture = LoadPicture(“c:\vb98\Graphics\Icons\arrows\arw04dn.ico “) Image3.Picture = LoadPicture(“c:\vb98\Graphics\Icons\arrows\arw04lt.ico “) Image4.Picture = LoadPicture(“c:\vb98\Graphics\Icons\arrows\arw04rt.ico “) End Sub Private Sub image1_