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

- PAGE 1 - 计算机高职单招VB编程练习题 练习一 数据的输入输出 以下程序代码在窗体的单击事件过程（Form_click）中编写，结果输出到窗体上。 1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。 Private Sub Form_Click() a = InputBox(输入第一个数) a = Val(a) b = InputBox(输入第二个数) b = Val(b) c = InputBox(输入第三个数) c = Val(c) d = InputBox(输入第四个数) 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 Form_Click() n$ = InputBox(请输入您的姓名) Age$ = InputBox(请输入您的年龄) Addr$ = InputBox(请输入通信地址) Pos$ = InputBox(请输入邮政编码) Tel$ = InputBox(请输入电话号码) 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 可按上式编写程序。用inputbox函数输入H和F的值，设H＝71，F＝158，请编写程序并上机运行。 Private Sub Form_Click() h = InputBox(请输入鸡和兔的总的头数) h = Val(h) f = InputBox(请输入鸡和兔的总的脚数) 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 Form_Click() a = 5: b = 2.5: c = 7.8 y = (3.1416 * a * b) / (a + b * c) Print y=; y End Sub 程序运行后，单击窗体，输出结果为： y=1.60285714285714 5、输入以秒为单位表示的时间，编写程序，将其换算成几日几时几秒。 　Private Sub Form_Click() Dim Second, Minute, Hour, Day As Long Dim Second1 As Long Second = InputBox(请输入秒数) 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;