349 ()属性决定了按Tab键时焦点在各个控件之间移动的顺序. A) Index B) TabStop C) TabIndex D) SetFocus 答案 C
350 VB的过程有三种,它们是(). A) 事件过程、子过程和函数过程
B) Sub过程、Function过程和Property过程 C) 事件过程、函数过程和属性过程 D) Sub过程、函数过程和通用过程 答案 A
351 要定义一个变量为全局变量,应使用()关键字. A) Static B) Public C) Private D) Sub 答案 B
352 下面函数过程语句说明合法的是(). A) Sub f1(ByVal n%( )) B) Sub f1(n%) As Integer C) Function f1%(f1%)
D) Function f1%( ByVal n%) 答案 D
353 要想从子过程调用后返回两个结果,下面子过程语句说明合法的是(). A) Sub f2(ByVal n%, ByVal m%) B) Sub f1(n%, ByVal m%) C) Sub f1(n%, m%)
D) Sub f1(ByVal n%, m%) 答案 C
354 Sub和Function的最大差别在于______. A) Function有返回值,而Sub没有 B) Function需要输入参数,而Sub不用
C) Sub可以用Call语句调用,而Function不行 D) 两者并无不同 答案 A
355 记录长度最大可取的值是______字节. A) 32767 B) 32768 C) 65535 D) 65536 答案 A
356 写出如下程序运行结果.
Function f(m As Integer) As Integer b = 1
Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function
Private Sub Command1_Click() Dim a As Integer a = 2
sum=0
For I = 1 To 3 sum=sum+ f(a) Next I print sum End Sub A) 12 B) 16 C) 20 D) 24 答案 D
357 在窗体上画一个名称为Command1的按钮,并有下面程序,当按下Command1按钮后,程序输出的结果是 Private Sub Command1_Click() Dim a%, b%
a = 50: b = 100
Print \调用前\ Swap a, b
Print \调用后\End Sub
Private Sub Swap(ByVal x%, y%) Dim t%
t = x: x = y: y = t End Sub
A) 调用前A=50 B=100 调用后A=50 B=100 B) 调用前A=50 B=100 调用后A=100 B=50 C) 调用前A=50 B=100 调用后A=50 B=50 D) 调用前A=50 B=100 调用后A=100 B=100 答案 C
358 在窗体上画一个名称为Label1、标题为\考试\的标签,两个名称分别为Command1和Command2、标题分别为\开始\和\停止\的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500.编写如下程序:
Private Sub Form_Load() Timer1.Enabled = False End Sub
Private Sub Command1_Click() Timer1.Enabled = True End Sub
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Timer1_Timer() If Label1.Left < Width Then
Label1.Left = Label1.Left + 120 Else
Label1.Left = 0 End If End Sub
程序运行后,单击\开始\按钮,标签在窗体中移动.对于这个程序,以下叙述中错误的是
A) 标签的移动方向为自左向右
B) 单击\停止\按钮后再单击\开始\按钮,标签从停止的位置继续移动 C) 当标签全部移出窗体后,将从窗体的另一端出现并重新移动 D) 标签每隔1秒移动一次 答案 D
359 Sub过程与Function过程最根本的区别是 A) Sub过程可以有参数,Function过程不可以 B) Function过程可以有参数,Sub过程不可以 C) 两种过程参数的传递方式不同
D) Sub过程的过程名不能返回值,而Function过程能通过过程名返回值 答案 D
360 假定一个工程由两个窗体文件Form1及Form2和一个标准模块文件Model1组成. Model1代码如下: Public x As Integer Public y As Integer Public Sub S1() x =1 S2 End Sub Sub S2() y=10
Form1.Show End Show
Form2的Load事件过程如下: Private Sub Form_Load() S1 End Sub
其中Form2被设置为启动窗体.程序运行后,各模块的执行顺序是 A) Form1-> Form2 ->Model1 B) Form2-> Form1 ->Model1 C) Form1-> Model1->Form2 D) Form2-> Model1 -> Form1 答案 D
361 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:
Private Sub Command1_Click()
Dim x, y, z As Integer x = 5 y = 7 z = 0
Text1.Text = \Call P1(x, y, z)
Text1.Text = Str(x) & Str(z) End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
a=a+1 b=b+1
c = a + b End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是 A) 5 14
B) 6 14 C) 5 0 D) 6 0 答案 A
362 设有如下的用户定义类型: Type Worker number As String name As string age As Integer End Type
则以下正确引用该类型成员的代码是 A) Worker name=\李四\B) Dim s As Worker s.name=\李四\
C) Dim s As Type Worker s.name=\李四\D) Dim s As Type s.name=\李四 \答案 B
363 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1).编写如下程序 Private Sub Form_Load()
Text1.Text=\End Sub
Private Sub Command1_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=GCD(x,y) End Sub
Function GCD(ByVal x As Integer,ByVal y As Integer) Do While y<>0 tmp=x Mod y x=y y=tmp Loop GCD=x
End Function
运行程序,在Text1文本框中输入18,在Text2文本框中输入12,然后单击命令按钮,则在Text3文本框中显示的内容是 A) 4 B) 6 C) 12 D) 18 答案 B
364 以下正确的描述是: 在Visual Basic 应用程序中 A) 过程的定义可以嵌套,但过程的调用不能嵌套 B) 过程的定义不可以嵌套,但过程的调用能嵌套 C) 过程的定义过程的调用均可以嵌套 D) 过程的定义过程的调用均不可以嵌套 答案 B
365 以下关于过程及过程参数的描述,错误的是: A) 过程的参数可以是控件的名称
B) 用数组作为过程的参数时,使用的传地址的方式
C) 只有函数过程能够将过程中矗立的信息传回到调用的程序中 D) 窗体可以作为过程的参数 答案 C
366 下面过程运行后显示的结果是
Pubic Sub F1(n%,ByVal m%) Private Sub Command1_Click()
N=n Mod 10 Dim x%,y% M=m\\10 x=12:y=34 End Sub Call F1(x,y) Print x,y End Sub A) 2 34 B) 12 34 C) 2 3 D) 12 3 答案 A
367 如下程序：
Private Sub Command1_Click() Print p1(3,7) End Sub
Public function p1!(x!,n%) If n=0 Then P1=1 Else If n Mod 2=1 Then P1=x*p1(x,n\\2) Else P1=p1(x,n\\2)\\x End If End If End Function 运行的结果是 A) 18 B) 7 C) 14 D) 27 答案 D
368 如下程序：运行的结果是 Dim a%, b%, c%
Public Sub p1(x%, y%) Dim c% x = 2 * x: y = y + 2: c = c + y End Sub
Public Sub p2(x%, ByVal y%) Dim c% x = 2 * x:: y = y + 2: c = x + y End Sub
Private Sub Command1_Click() a = 2: b = 4: c = 6 Call p1(a,B) Print \ Call p2(a,B) Print \End Sub