D、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
123、假定已定义了一个过程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 Add(12 ,12, x)
124、在过程调用中，参数的传递可以分为________________和________________两种方式。 ( )
A、按值传递 按地址传递 B、按地址传递 按参数传递 C、按参数传递 按值传递 D、按位置传递 按参数传递
125、在参数传递过程中，使用关键字________________来修饰参数，可以使之按值传递。 ( )
A、ByVal B、ByRef C、Value D、Reference
126、要想在过程调用后返回两个结果，下面的过程定义语句合法的是________________。 ( )
A、Sub Procl ( ByVal n , ByVal m) B、Sub Procl ( n , ByVal m) C、Sub Procl ( n , m) D、Sub Procl ( ByVal n , m)
127、名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是________。 ( )
A、Private Sub sort(A( )As Integer) B、Private Sub sort(A(10)As Integer) C、Private Sub sort(By Val A( ) As Integer) D、Private Sub sort(A( , )As Integer) 128、在调用Sub过程或Function过程时，采用________________传送相应过程的变量名、数组名、常数或表达式。 ( )
A、形式参数 B、实际参数 C、对象参数 D、数组参数
129、当运行程序时，系统自动执行启动窗体的____________事件过程。 ( )
A、Load B、Click C、UnLoad D、GotFocus 130、在语句Public Sub Sort(i As Integer)中i是一个按________传递的参数。 ( )
A、地址 B、值 C、变量 D、常量
131、程序中的不同过程之间，不能通过____________进行数据传递。 ①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量 ( )
A、①②④ B、①②③ C、②④ D、④
132、调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的语句是____________。 ( )
A、Call Convert ((X)) B、Call Convert(X*1) C、Convert (X) D、Convert X
133、给出下列程序代码，在单击三次命令按钮时的输出结果是________。 Dim x, y, z As Integer Sub SS( ) x=x+1 y=y+1 z=z+1 Print x;y;z Sub End
Private Sub Command1_Click ( ) Dim x, y, z x=1: y=2: z=3 Call SS Print x; y; z
End Sub ( )
A、1 1 1 B、1 1 1 C、1 2 3 D、1 1 1 1 2 3 1 1 1 123 222 2 2 2 2 2 2 123 333 1 2 3 2 2 2 3 3 3 333 1 2 3 333
134、设有下列程序代码，在单击命令按钮时的输出结果是________。 Sub SS (ByVal x, ByRef y, z) x=x+1 y=y+1 z=z+1 End Sub
Private Sub Command1_Click ( ) A=1: B=2 :C=3 Call SS (A,B,C) Print A,B,C End Sub ( )
A、1 2 3 B、1 3 4 C、2 2 4 D、1 3 3 135、系统默认的参数传递方式是___________传递。 ( )
A、按值 B、按地址 C、ByVal D、按实参
136、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为___________传递。 ( )
A、按值 B、按地址 C、ByRef D、按形参
137、通用过程可以完成一项指定任务，必须由__________调用才行。 ( )
A、应用程序 B、系统引发 C、定时器 D、Sub Main
138、 ( )
A、 &# 160; 。
A、 B、
C、
D、 140、窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为__________。 Private Sub fun( ) Static a As Integer a=a+2 Print a; End Sub
Private Sub Command1_Click( ) Dim m As Integer For m=1 To 3 Call fun Next m End Sub ( )
A、2 2 2 B、0 0 0 C、2 4 8 D、2 4 6 141、856. 窗体中添加一个命令按钮，程序运行后，输出结果为_________ 。 Private Sub test(x,y,z) x = x+1: y = y + 2: z = z + 3 Print \End Sub
Private Sub Command1_Click( ) a1 = 10: b1 = 17: c1 = 41 Call test(a1,b1+2,(c1)) Print \End Sub ( )
A、Sub=10 17 41 Main=11 17 44 B、Sub=10 17 41 Main=11 17 44 C、Sub=12 11 41 Main=10 11 41 D、Sub=11 21 44 Main=11 17 41
142、参数传递有值传递和地址传递，_________关键字表示地址传递。 ( )
A、ByVal B、ByRef C、Value D、Refrence
2、填空题(本题共计88分)
1、执行下面的程序，击窗体后在窗体上显示的第一行结果是___(1)______，第三行结果是____(2)_______。 Private Sub Form_click()
Dim mystr, mystr1, mysrr2 As String mystr1 = \For i = 1 To 3
mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mysre & mystr1
Print mystr
mystr1 = Chr(Asc(mystr1) + i) Next i End Sub
2、以下程序段的输出结果是_____ 。 Dim j As Integer,s As Integer Do s=s+j j=j+1 Loop Until j=5 Print \
3、执行下面的程序段后，s的值为_____ 。 s=5
For i=2.6 To 4.9 Step 0.6 s=s+i Next i print s
4、可使用列表框的______ 方法向列表框中增加一个项目。 5、在VB中一个汉字的长度等于____ 个英文字母的长度。 6、文本框的_____ 属性用来设置在文本框中显示的最多字符个数。
7、要使文本框可以显示多行文本，应把文本框的__(1)___ 属性设置为True。 8、__(1)__属性决定了按Tab键时，焦点在各个控件移动的顺序。
9、已知K=2，J=3，A=True，则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为 _____。 10、表示\大于等于255，或A与B分别大于90且C大于80\的VB表达式的 ____ 11、表示\和B之一为零但不同时为零\的VB表达式为______ 。 12、能正确产生[1,30]之间的随机整数的表达式是 ________ 。 13、表达式Fix(-48.65)+Int(-52.15)的值是________。
14、已知A=7.5，B=2，C=-3.6，表达式 a>b and c>a or ab的值为___(1)____. 15、X是小于100的非负数，对应的表达式是____(1)______. 16、A的绝对值大于等于B同时不等于C的表达式是____(1)____. 17、关系式-5<=X<=5所对应的表达式是_____(1)______
18、A=7，B=3，C=4，则表达式 A MOD 3+B^3/C\\5的值为______。 19、表达式7^2Mod 5^2\\3的值为__________
20、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为________
21、下列程序的功能是输出如下数列的前20项，按每行5个数的形式输出。 1，1，2，3，5，8，13,...... Dim a As Integer,b As Integer Dim i As Integer a=1:b=1:i=3 Print a,b, Do While(i<=20) c=a+b t=b b=a+b
____(1)____ Print c,
If____(2)____ Then Print End If _____(3)_____ Loop
22、在窗体中添加一个命令按钮Command1，并编写如下程序代码。执行程序单击命令按钮后，文本框中的结果是_________。
Option Explicit
Private Sub Command1_Click( ) Dim x(3),i as integer For i=1 To 3 x(i)=i+i^2 Next i Print x(i-1) End Sub
23、以下程序的输出结果是______ 。 x=12.7 x=Int(x+0.5) Print x
24、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_____。 Dim a As Integer,b As Integer a=InputBox(\请输入第一个整数\b=InputBox(\请输入第二个整数\Print a+b
25、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是__(1)___。 a=InputBox(\请输入第一个整数\b=InputBox(\请输入第二个整数\Print a+b
26、语句Print \执行后，窗体上打印结果是_______ . 27、InputBox函数返回值的类型为_________。
28、下面程序的功能是判断100～999之间的所有素数，所谓素数是指只能被1和它本身整除的数。完善下列程序。
Private Sub Form_Click( ) Dim i As Integer Dim k As integer For i=100 To 999 For k=2 To i-1 If ________Then _________ End If Next k
If ________Then