南京工业大学VB期末考试模拟题6

. .

Private Sub Command1_Click( ) dim x, y, z As Integer x=5: y=7: z=0 text1=“” call p1(x,y,z) text1=str(z) End Sub

Private Sub p1(ByVal a%, ByVal b%, c%) c=a+b End Sub

A. 0 B. 12 C. Str(z) D. 没有显示

56. 当在Cmd1按钮上单击时，程序的输出是 .

Public Function Func(a%,b%)As Integer Static m As Integer : Dim i As Integer m=0 : i=2: i=i+m+1 : m=i+a+b : Func=m End Function

Private Sub Cmd1_Click( ) Dim k%,m%,n%

k=4 : m=1 :n=Func(k,m) Print n, Func(k, m) End Sub

A. 8 8 B. 8 20 C. 8 16 D. 8 17

57. 若需要在同一窗口安排两组相互独立的单选按钮（OptionButton ），可使

用 控件将它们分隔开。 ① TexBox ② Picture ③ Image ④ Frame

A. ①②

. . . 分)分) (1

(1

. .

B. ②③ C. ②④ D. ③④

(1分)

58. 如果是启动窗体，并且Forml的Load事件过程中有form2.show，则程序启动后 。

A. 发生一个运行时错误 B. 发生一个编译错误

C. 在所有的初始化代码运行后Form1是活动窗体 D. 在所有的初始化代码运行后Form2是活动窗体

(1分)

59. 要从自定义对话框Form2中退出，可以在该对话框的“退出”按钮的Click事件过程中使用的语句是 。

A. Unload Form2 B. Hide Form2 C. Unload.Form2 D. Form2.Unload

(1分)

60. 窗体有一个方法可以使窗体隐藏但不从存中卸载，该方法是 。

A. Show B. Release C. Hide D. Unload

2、填空题(本题共计51分)

1.下面程序的功能是:通过键盘输入一个正整数 N ，找出所有分母为N ，且数值介于 1/3 和

1/4 之间的最简分数（即分子、分母除1以外无公因子）。 Private Sub Command1_Click()

dim i As Integer, J As Integer, n As Integer, Flag As Boolean n = Val(InputBox(“输入分母 N ：”, ,11)

. . .

. .

for i = 1 To n–1

① Call Sub1(I,N,Flag)

If ② Then Print CStr(I); “/”; CStr (N) End If next i End Sub

Private Sub Sub1(K As Integer, N As Integer , F As Boolean) dim i As Integer

if ③ Then for i = 2 To k

If ④ Then

Exit Sub End If next i f = True end If End Sub

答案： (1) , (2) , (3) , (4) (4分)

2.下列程序的功能是：单击窗体事件后，在窗体上显示1！+2！+3！+…+9！的和。

Private Sub Form_Click( ) Dim s&, i% s=0

For i=1 To 9

s=s + ① Next i Print s End Sub

Private Function fact( ② )As Long Dim i%,f&

③ For i=2 To n f=f*i Next i

④ End Function

答案： (1) , (2) , (3) , (4) . . .

. .

(4分)

3.

用二分法求函数f(x)=x–4x + 1=0 在x=0～5 围的x=2附近的一个实根，其计算误差为|xl–x2|＜10。

Private Sub form_Click ( )

Dim x!, t!, x1 As Single, x2 As Single x1=0: x2=5 Do While __①____ x = (x1+x2)/2

If Sgn(func(x)) ② Then x2 = x Else

x1 = x End If Loop

Print \ End Sub

Private Function func( x! ) As Single

f1 = ③ End Function

3

–5

答案： (1) , (2) , (3) (3分)

4.用随机数模拟掷骰子，统计掷50次，骰子各点出现的次数。(提示:骰子点数只能是1~6一位

随机整数) Option Base 1

Private Sub Command1_Click( )

Dim ① For i = 1 To 50

n = ② d(n)= ③ Next i

For i = 1 To 6

Print i; \点出现的次数:\ Next i End Sub

答案： (1) , (2) , (3) (3分)

5.执行程序单击命令按钮后，调试窗口中显示的结果是 ① ；将A、

B语句交换位置,运行程序后调试窗口的容是 ② 。

. . .

. .

Option Explicit Sub qq(k,x)

Dim i As Integer x=1

For i=1 To k x=x*i Next i End Sub

Private Sub Command1_Click() Dim n%, i%, x% n=1 : x=1 For i=1 To 3

Call qq(i,x) 'A

n=n+x 'B Next i

Debug.Print \ End Sub

答案： (1) , (2) (2分)

6.下列程序执行后，输出的结果为 ① ; 将A、B语句互换后，执行结果

是 ② 。

Private Sub Command1_Click( ) Dim x As Integer x = 1

Call sort(x) ‘A Print x;

call sort((x)) ‘B Print x; End Sub

Private Sub sort(y As Integer) y = y+1 End Sub

答案： (1) , (2) (2分)

7.运行下列程序，在窗体上显示的第一行是 ① _；第二行是 ② 。

Private Function t(n As Integer, k As Integer) As Integer t = 0

Do While k > 0 t = n Mod 10 n = n \\ 10 k = k - 1 Loop

. . .