南京工业大学VB期末考试复习安全土木化工化学vb练习题4(4)

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. ①② B. ②③ C. ②④ D. ③④

分)分)(1

(1

(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) 3.

, (2) , (3) , (4) (4分)

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

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

答案： (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 End Function

Private Sub Form_Click() Print t(1234, 2) Print t(1234, 4) End sub

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

8.执行程序，单击窗体后在窗体上显示的第一行是 ① ，第二行是 ② ；若将Sub过程

形参表中的ByVal关键字删除，再执行程序后在窗体上显示的第一行是 ③ ，第二行是 ④ 。

Private Sub Value (ByVal m As Integer,ByVal n As Integer)

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库南京工业大学VB期末考试复习安全土木化工化学vb练习题4(4)在线全文阅读。