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

安全土木化工化学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、在参数传递过程中，使用关键字________________ 来修饰参数，可以使之按值传递。

( )A 、 ByValB 、ByRefC、 ValueD、 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、全局数组D、全局用户自定义类型7、当运行程序时，系统自动执行启动窗体的____________ 事件过程。

( )A 、 LoadB、ClickC、UnLoad D、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) ④ Private Sub Test(St As String) ( )A、①②B、①④C、②③④D、①②③④10、在窗体模块的通用声明处有如下语句，会产生错误的语句是____________ 。

① Const A As Integer=25 ② Public St As String * 8 ③ ReDim B(3) As Integer ④ Dim Const X As Integer=10 ( )A 、①②B 、①③C、①②③D、②③④11、在窗体 Form1 中用“ Public Sub Fun(x As Integer,y As Single)”定义过程Fun，在窗体Form2 中定义了变量i 为 Integer,j 为 Single ，若要在Form2 的某事件过程中调用Form1 中的 Fun 过程，则下列语句中，正确的语句有____________ 个。

① Call Fun(i,j)② Call Form1. Fun(i,j)③Form1.Fun(i),j ④ Form1.Fun i+1,(j)( )A 、 1B、2C、 3D、 412.某过程的说明语句中，正确的数组说明语句是 ____________。

Const N as integer=4Dim L as integer①.Dim X (L) As Integer②.Dim A(K) As IntegerConst K As Integer=3③.Dim B(N) As Integer④.Dim Y(2000 To 2008) As IntegerA.①②④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 语句或直接使用过程名调用，而Function 过程不可以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 , yD、 Call 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 4Print x(i)Next iEnd SubA. 3 4 7 5 6B. 3 5 7 4 5C. 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 Commandl_Click(a=2: b=4: c=6call pl(a,b)print "a=" ; a ; "b="; b ;"c=" ; 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 Commandl_Click()Dim n%, m%n=3m =4'调用 F1 语句End Sub则在 Commandl_C1ick事件中有效的地址传递的调用语句是。

( )A 、 F1 n+mB 、F1 mC、 F1 5D、 F1 m+521、窗体的Name 属性为 Frm1，在窗体模块通用声明处和过程Sub1 中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K ，则在过程Sub1 中要访问全局变量K ，可采用________ 。

( )A 、 Frm1.KB 、Form.KC、 Form1.KD、 K22、要使 Print 方法在FormLoad 事件中起作用，要对窗体的____________ 属性进行设置。

( )A 、 BackColorB 、ForeColorC、 AutoRedrawD、 Caption23、在调用Sub 过程或 Function 过程时，采用________________ 传送相应过程的变量名、数组名、常数或表达式。

( )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 As Integer, y As Integerx=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 IntegerDim n As Integer精品文档Do While n <= 4x=x+yn=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、给出下列程序代码在第一次单击命令按钮时文本框Text1 和 Text2 中的内容，第二次单击命令按钮时文本框Text1 和 Text2 的内容。

Dim y As IntegerPrivate 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 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、给出下列程序代码，在单击三次命令按钮时的输出结果是________ 。