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

1、精品文档安全土木化工化学vb练习题4满分： 111 分姓名： _1、单项选择题 (本题共计 60 分)1、在过程调用中，参数的传递可以分为 _和_ 两种方式。( )A 、按值传递 按地址传递B 、按地址传递 按参数传递C、 按参数传递按值传递D、 按位置传递按参数传递2、下面的过程定义语句中合法的是 _ 。 ( )A、Sub Procl (ByVal n () )B 、 Sub Procl ( n ) As IntegerC、 Function Procl (Procl )D 、 Function Procl (ByVal n )3、在参数传递过程中， 使用关键字 _来修饰参数， 可以使之按值

2、传递。 ( )A 、 ByValB 、 ByRefC、 Value D 、 Reference4、 要想在过程调用后返回两个结果，下面的过程定义语句合法的是 _ 。 ( )A 、 Sub Procl ( ByVal n , ByVal m)B 、 Sub Procl ( n , ByVal m)C、 Sub Procl ( n , m) D 、 Sub Procl ( ByVal n , m)5、通用过程可以通过执行“工具”菜单中的 _命令来建立。 ( )A 、添加过程B 、通用过程C、添加窗体D 、添加模块6、 可以在窗体模块的通用声明段中声明的是 _ 。( )A 、全局变量B 、全局常量C

3、、全局数组D、全局用户自定义类型7、 当运行程序时，系统自动执行启动窗体的 _事件过程。 ( )A、LoadB、ClickC、UnLoadD、GotFocus8、 在语句 Public Sub Sort(i As Integer)中 i 是一个按 _ 传递的参数。()精品文档A、地址B、值C、变量D、常量9、 下列定义 Sub 过程的语句中， 正确的语句是 _。Private Sub Test(St As String* 8) Private Sub Test(Sarray( ) As String * 5) Private Sub Test(Sarray( ) As String) Priv

4、ateSub Test(St As Stri ng) ()A、B、C、D、10、 在窗体模块的通用声明处有如下语句，会产生错误的语句是 _ 。Const A AsInteger=25 Public St As String * 8 ReDim B(3) As Integer Dim Const X As Integer=10()A、B、C、D、11、 在窗体 Forml 中用Public Sub Fun(x As Integer,y As Single) ”定义过程 Fun，在窗体 Form2 中定义了变量 i 为 Integer,j 为 Single，若要在 Form2 的某事件过程中调用

5、Forml 中的 Fun 过程， 则下列语句中，正确的语句有 _个。 Call Fun (i,j) Call Forml. Fun (i,j) Forml.Fu n(i),j Forml.Fun i+1,(j)()A、1B、2C、3D、412.某过程的说明语句中，正确的数组说明语句是 _。Const N as in teger=4Dim L as in teger1.Dim X (L) As In teger2.Dim A(K) As In tegerConst K As In teger=33.Dim B(N) As Integer4.Dim Y(2000 To 2008) As In te

6、gerA. B. C. D.13、程序中的不同过程之间，不能通过 _进行数据传递。 全局变量 窗体或模块级变量 形参与实参结合 静态变量 ( )精品文档A、B、C、D、14、调用由语句 Private Sub Convert(Y As Integer) 定义的 Sub 过程时，以下不是按值传递的语句是 _。 ( )A、Call Convert (X)B 、 Call Convert(X*1)C、 Convert (X)D 、 Convert X15、Sub 过程和 Function 过程最根本的区别是 _ 。 ( )A 、 Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Func

7、tion 过程不可以B 、 Function 过程可以有参数， Sub 过程不可以C、两种过程参数的传递方式不同D、Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值16、在窗体模块的通用声明段中声明变量时，不能使用 _ 关键字。 ( )A、DimB、PublicC、PrivateD、Static17、假定已定义了一个过程 Sub Add(a As Single, b As Single) ，则正确的调用语句是 _( )A、Add (12 , 12) B 、 Call Add( 2 * x , Sin(1.57) )C、 Call Add x , y D 、 Call

8、 Add(12 ,12, x)18. 单击一次命令按钮后，下列程序代码的执行结果为 _Private Sub proc(a() As Integer)Static i As IntegerDo a(i) = a(i) + a(i + 1)i= i + 1Loop While i 2End SubPrivate Sub Command1_Click()Dim m As Integer, i As Integer, x(10) As IntegerFor i = 0 To 4x(i) = i + 1Next iFor i = 1 To 2Call proc(x)Next iFor i = 0 To

9、 4Print x(i)Next iEnd SubA. 3 4 7 5 6B. 3 5 7 4 5精品文档C. 1 2 3 4 5D. 1 2 3 5 719、如下程序，运行的结果是 _Dim a%,b%,c%Public Sub pl(x%,y%)dim c% =2*x : y=y+2 : c=x+yEnd SubPublic Sub p2( x% , ByVal y% )dim c%x=2*x : y=y+2 : c=x+yEnd SubPrivate Sub Comma ndl_Click(a=2: b=4: c=6call pl(a,b)print a= ; a ; b=; b ;c=

10、 ; ccall p2(a,b)print a= ; a ; b=; b ;c= ; cEnd Sub ()A、 a=2 b=4 c=6a=4 b=6 c=10B、 a=4 b=6 c=10a=8 b=8 c=16C、a=4 b=6 c=6a=8 b=6 c=6D、a=4 b=6 c=14a=8 b=8 c=620、设有如下说明：Public Sub Fl( n%)n =3*n+4End SubPrivate Sub Comma ndl_Click()Dim n%, m%n=3m =4 调用 F1 语句End Sub则在 Commandl_C1ick 事件中有效的地址传递的调用语句是 。 (

11、)A、F1 n+mB、F1 mC、F1 5D、F1 m+5精品文档21、窗体的 Name 属性为 Frm1 ，在窗体模块通用声明处和过程Sub1 中分别用 Public K AsInteger,Dim K As Integer 声明了两个同名变量 K ，则在过程 Sub1 中要访问全局变量 K ，可采用。( )A、Frm1.KB、Form.KC、Form1.KD、K22、要使 Print 方法在 FormLoad 事件中起作用，要对窗体的 _属性进行设置。( )A、BackColorB 、 ForeColorC、 AutoRedrawD、 Caption23、在调用 Sub 过程或 Funct

12、ion 过程时，采用 _ 传送相应过程的变量名、数组名、常数或表达式。 ( )A 、形式参数B 、实际参数C、对象参数D、数组参数24、以下有关 Sub 过程与 Function 过程的区别，正确的是 _。 ( )A 、 Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以B 、 Function 过程可以有形参， Sub 过程不能有形参C、两种过程参数传递方式不同D 、 Sub 过程没有返回值， Function 过程能返回值25、给出下列程序代码，在单击命令按钮时的输出结果是_。Private Sub Command1_Click ( )Dim x A

13、s Integer, y As Integer x=1:y=1For n=1 TO 3z=FirstFunc (x, y)Print n, z ,Next nEnd SubPrivate Function FirstFunc (x As Integer, y As Integer) As Integer Dim n As IntegerDo While n = 4 x=x+y n=n+1LoopFirstFunc=xEnd Function ( )A、1 6 2 11 3 16B、2 6 1 3 11 16C、1 2 3 4 5 6D、2 1 3 1 3 326、给出下列程序代码在第一次单击命

14、令按钮时文本框Text1 和 Text2 中的内容，第二次单击命令按钮时文本框 Text1 和 Text2 的内容。Dim y As Integer精品文档Private Sub Command1_Click( )Dim x As Integerx=2Text1.Text=SecondFunc(FirstFunc(x), y)Text2.Text=FirstFunc(x)End SubPrivate Function FirstFunc(x As Integer)x=x+y:y=x+yFirstFunc=x+YEnd FunctionPrivate Function SecondFunc(x

15、As Integer, y As Integer)SecondFunc=2*x+yEnd Function ( )A 、 10,10 20,20B 、20,20 30,30C、 50,50 10,10D、 10,10 58,5827、给出下列程序代码，在单击三次命令按钮时的输出结果是 _ 。Dim x, y, z As IntegerSub SS( )x=x+1y=y+1z=z+1Print x;y;zSub EndPrivate Sub Command1_Click ( )Dim x, y, z x=1: y=2: z=3Call SSPrint x; y; zEnd Sub ( )A、1

16、1 11 2 32 2 21 2 33 3 31 2 3B、1 1 11 1 12 2 22 2 23 3 33 3 3C、1 2 3精品文档1 2 31 2 3D、1 1 12 2 23 3 328、设有下列程序代码，在单击命令按钮时的输出结果是 _ 。Sub SS (ByVal x, ByRef y, z) x=x+1 y=y+1 z=z+1End SubPrivate Sub Command1_Click ( )A=1: B=2 :C=3Call SS (A,B,C)Print A,B,CEnd Sub ( )A、1 2 3B、1 3 4C、2 2 4D、1 3 329、一般来说，当变量

17、名称相同而作用域不同时，局限性 _的变量总会用遮住局限性不太大的变量。 ( )A、大B、小C、更小D、比较小30、在过程中定义的变量，如果希望在离开该过程后，还能保持过程中局部变量的值，则应 该使用关键字在过程中定义局部变量。 ( )A、DimB 、 PrivateC、 PublicD、Static31、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为_传递。()A、按值B、按地址C、ByRefD、按形参32.通用过程可以完成一项指定任务，必须由 _调用才行。A.应用程序B.系统引发阴影精品文档C.定时器n LD.Sub Mai n(1 分)33.以下

18、说法正确的是 _。A.属性是对象的一部分B.方法是对象的一部分C.事件是对象的一部分D.A、B 都正确34、 若在应用程序中用Private Sub Sub1(Xasinteger,YasSingle)定义了子程序 Sub1，调用程序中的变量 I、J 均为 Integer 型，则正确调用子程序Sub1 的 Call 语句是_ 。1Call Sub1(I,J)2Call Sub1(3.1415,1)3Call Sub1(3.14,234)4Call Sub1( “ 245 ” ,“ 231.5” )()A、B、C、D、无35、 窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输岀为_ 。

19、Private Sub fun()Static a As In tegera=a+2Pri nt a;End SubPrivate Sub Comma nd1_Click()Dim m As In tegerFor m=1 To 3Call funNext mEnd Sub ( )A、2 2 2B、0 0 0C、2 4 8D、2 4 636、在窗体上添加一个命令按钮，名为Command1 ，事件过程如下。执行结果是 _Sub pb(b( ) As Integer)For i=1 To 4B(i)=2*iNext i精品文档End SubPrivate Sub Command1_Click( )

20、Dim a(1 To 4) As Integer a(1)=5:a(2)=6: a(3)=7:a(4)=8 pb aFor i=1 To 4Print a(i);Next iEnd Sub ( )A、5 5 55 10 10B、5 5 55 5 10C、5 5 105 10 10D、5 5 510 10 1037、在窗体上画一个名称 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如 下程序：Private Sub Command1_Click()Dim x, y, z As Integerx = 5: y = 7: z = 0 Text1.Text = Call p1

21、(x, y, z) Text1.Text = Str(z) End Sub Private Sub p1(ByVal a AsInteger, ByVal b As Integer, c As Integer) c = a + b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是A、0B、12C、Str(z)D、没有显示38、856.窗体中添加一个命令按钮，程序运行后，输岀结果为Private Sub test(x,y,z)x = x+1: y = y + 2: z = z + 3Print Sub=; x; y; zEnd SubPrivate Sub Comma nd

22、1_Click()al = 10: bl = 17: cl = 41Call test(a1,b1+2,(c1)Print Main=; a1; b1; c1End Sub ()A、Sub=10 17 41Main=11 17 44B、Sub=10 17 41Main=11 17 44C、Sub=12 11 41Mai n=10 11 41D、Sub=11 21 44Mai n=11 17 41精品文档39._ 阅读下列程序，其输出的结果是oPrivate Sub Comma nd1_Click()Dim a(1 To 3) As In tegerFor i=1 To 3a(i)=iNext

23、iCall sub1(a)For i=2 To 3Print a(i)Next iEnd SubPublic Sub sub1(a() As In teger)For i=1 To 3a(i)=i*iNext iEnd SubrA. 1 2B. 2 3C. 4 9-D. 1 4（1分）40. 程序中未定义的变量均为 integer，单击 Command1 程序的输出Private Sub Comma nd1_Click() k=4 : m=1 n=Fun c(k, m) Print n. Fun c(k,m)End SubPublic Fun cti on Func(a As In teger

24、, b As In teger) As In tegerStatic m As In tegerm=0：i=2i=i+m+1m=i+a+bFun c=mEnd Fun cti onA. 8 8B. 8 20精品文档C. 8 16D. 8 17(1分)41.在多窗体的应用程序中，当前窗体模块的Form_Click 事件过程中包含如下语句，单击该窗体，其中 _一定可以将 Hello 显示在当前窗体上。nIA.Forml.PrintnLB.Me.Print ” Hello ”nIC.Debug.Print Hello nLD.Form2.Print Hello (1分)42.当一个工程含有多个窗体时

25、，其中的启动窗体是 _ 。A.启动时建立的窗体精品文档B.第一个添加窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体（1分）43.Sub Main 函数可以在_模块中定义。A.窗体B.标准C.类模块D.以上均可（1分）44.下列操作中不能向工程添加窗体的是 _。A.单击工具栏上的添加窗体按钮B.右击窗体，在弹出的菜单中选择“添加窗体”命令C.右击工程资源管理器，在弹出菜单中选择“添加”，然后在下一级菜单中选择“添加窗体”D.执行“工程”菜单中的“添加窗体”命令（1分）45.要为工程添加一个过程，可执行“ _ ”菜单中的“添加过程”.C.工程D.工具（1分）46._以下说法正确的是

26、_。A.在 VB 中，过程可以嵌套定义也可以嵌套调用A.文件B.视图精品文档B.在 VB 中，过程可以嵌套定义但不可以嵌套调用C.在 VB 中，过程不可以嵌套定义但可以嵌套调用D.在 VB 中，过程不可以嵌套定义也不可以嵌套调用（1分）47.模块的通用声明处有如下语句，会产生错误的语句是 _ 。1Const a as In teger=252Public St As Stri ng * 83ReDim B（3） As In teger4Dim Con st X As In teger=10A.B.C.D.（1 分）48.使用 Public Const 语句声明一个全局的符号常量时，该语句应放在

27、 _。A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段（1分）49.可以在_中，使用语句 Public PubStr As Stri ng*20定义一个定长字符串。A.窗体模块B.标准模块rC.类模块D.三者均可（1分）50.在窗体的 Ge neral 段声明变量时，不能使用 _关键字。r八精品文档A.DimB.Public精品文档51.以下有关变量作用域的说明中，错误的是A.只有在标准模块中用Public 语句说明的变量才是全局变量B.在过程中不能使用Public 语句说明全局变量C.在标准模块的通用声明处可用语句说明模块级变量D.在窗体的通用声明

28、处可用Private 语句说明窗体级变量53._在单击命令按钮时的输岀结果是 _Private Sub Command1_Click ()Dim x%, y%x=1:y=1For n=1 to 3z=First (x, y)Print n, zNext nC.PrivateD.Static(1 分)(1 分)52._单击按钮，输出为_Private Sub fun()Static a As In tegera=a+2Print a;End SubPrivate Sub Comma nd1_Click()Dim m As In tegerFor m=1 To 3Call funNext mEnd

29、 SubrA.2 2 2rB.0 0 0r小C.2 4 8r I(1 分)精品文档End SubPrivate Function First% (x%, y%)Dim n%Do While n 0t = n Mod 10n = n 10k = k - 1LoopEnd Fun cti onPrivate Sub Form_Click()Print t(1234, 2)Print t(1234, 4)（2分）(2 分)精品文档End sub精品文档答案：(2 分)8.执行程序，单击窗体后在窗体上显示的第一行是，第二行是；若将 Sub 过程形参表中的 ByVai 关键字删除，再执行程序后在窗体上显

30、示的第一行是，第二行是 。Private Sub Value (ByVai m As In teger,ByVal n As In teger)m=m*2n=n-5Pri ntm=;m, n=; nEnd SubPrivate Sub Form_Click()Dim x As In teger,y As In tegerX=20 : y=15Call Value(x,y)Prin tx=;x,y=;yEnd Sub答案：（1）(4 分)For i = 1 To 3x = x * iPrint fun 1(x)Next iEnd SubPrivate Fun ction fun 1(x As S

31、in gle) As Sin gleStatic y As Sin gley = y + x fun1 = y / 2End Fun cti on答案：（3 分）10.单击按钮 Command1 ，A（ 1，1）的值是 ，A（ 1，4）的值是 ，A（ 4，1）的值是 ，A（ 4，4）的值是 。9.执行下列程序，在窗体上显示的第一行是Opti on ExplicitPrivate Sub Comma nd1_Click()dim x As Si ngle, i As In tegerx = 1.2，第二行是 ，第二行是精品文档Option Base 1Private Sub Comma nd1_

32、Click()Dim a() As Integer, i%, j% ， k%, n%n=4 ： ReDim a(n, n)i=1 : j=n : a(i, j) = 1For k = 2 To n * nIf i+1n Theni = n - j + 2: j = 1ElseIf i+1n Thenj=j-i : i=1Elsei=i+1: j=j+1End Ifa(i, j) = kNext kFor i = 1 To nFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd Sub11、运行下面程序，当单击窗体时，窗体上显示的内容的第一行是 _ (

33、1)_ ，第二行是_ (2)_ 。 Private Sub test(x As Integer)x = x * 2 + 1If x 1 Then ret=ret(S,L-1)S=S+2ret=SEnd Function14、下程序的功能是找出此数各位数字的阶乘相加之和等于该数，并在列表框 阶乘由 Function 计算。在 (1) 、(2)处填上正确内容。Private Sub Command1_Click( )For k=1 To 1000 a=LTrim(Str(k) n=0For i=1 To Len(a) p=Val(Mid(a,i,1) n=n+fact(p)Next iIf n=k

34、 Then_(1)_Next kEnd SubPrivate Function fact(x) if x=1 Then fact=1Elsefact=_ (2) _End IfEnd Function15、窗体中有一文本框 Text1 ，执行下面程序后，窗体上结果是 _果是 _ 。Option ExplicitPrivate Sub Form_Click( )Dim a As Integera=2Call Sub1(a)Text1.Text=aEnd SubPrivate Sub Sub1(x As Integer)x=x*2+1If x10 ThenCall Sub1(x)List1 中显示

35、，文本框中输出结精品文档End Ifx=x*2+1Print x;End Sub16、执行下面的程序，在窗体上显示的输出结果的第二行是 _，第三行是 _ 。Option ExplicitDim a As Integer, b As IntegerPrivate Sub Command1_Click( )Dim c As Integera = 1: b = 3: c = 5Print fun(c)print a;b;cPrint fun(c)End SubPrivate Function fun(x As Integer)As Singlefun = a + b + x/2a = a + bb = a + xx = b + aEnd Function17、一个窗体上有一个命令按钮Command1 ，下列程序执行后，输出的结果为 _。Private Sub Command1_Click( )Dim x As Integerx = 1Call sort(x)Print x;call sort(