福建省高职单招计算机vb考试题,对口计算机高职单招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 =