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

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

计算机高职单招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("请输入鸡和兔的总的脚数")