2017年全国计算机二级考试试卷 历年考试真题演练

D．6

(15)设x=4,y=8,z=7，以下表达式的值是 x z)Or z A．1 B．-1 C．True D．False

(16)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=\ Print String(3,a$) End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是 A．VVV B．Vis C．sic D．11

(17)设有如下程序段： x=2

For i=1 To 10 Step 2 x=x+i Next

运行以上程序后，x的值是 A．26 B．27 C．38 D．57

(18)以下叙述中错误的是

A．在KeyPress事件过程中不能识别键盘的按下与释放 B．在KeyPress事件过程中不能识别回车键

C．在KeyDown和KeyUp事件过程中,将键盘输入的\和\视作相同的字母

D．在KeyDown和KeyUp事件过程中,从大键盘上输入的\和从右侧小键盘上输入的\被视作不同的字符 (19)执行如下两条语句，窗体上显示的是 a=9.8596

Print Format(a,\ A．0,009.86 B．$9.86 C．9.86

D．$0,009.86

(20)在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.FileName =\

CommonDialog1.Filter=\ C．|*.Doc|(*.Txt)|*.Txt\

CommonDialog1.FilterIndex=2

CommonDialog1.DialogTitle=\ CommonDialog1.Action=1 End Sub

对于这个程序，以下叙述中错误的是 A．该对话框被设置为“打开”对话框 B．在该对话框中指定的默认文件名为空 C．该对话框的标题为VBTest

D．在该对话框中指定的默认文件类型为文本文件(*.Txt)

转贴于：计算机二级考试_考试大 21)设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click() Dim a As Integer a=10

Call g(Form2,a) End Sub

Private Sub g(f As Form,x As Integer) y=IIf(x>10,100,-100) f,Show f.Caption=y End Sub

运行以上程序，正确的结果是 A．Form1的Caption属性值为100 B．Form2的Caption属性值为-100 C．Form1的Caption属性值为-100 D．Form2的Caption属性值为100

(22)在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5

Call f1(x,y) Print x,y End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是 A．10 5 B．12 5 C．10 7

D．12 7

(23)设有如下程序 Option Base 1

Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer

n=InputBox(\输入数据\ If n<10 Then Call GetArray(a,n) End If End Sub

Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0

For i=1 To n

b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub

以下叙述中错误的是

A．数组b中的偶数被保存在数组c中

B．程序运行结束后,在窗体上显示的是c数组中元素的个数 C．GetArray过程的参数n是按值传送的

D．如果输入的数据大于10，则窗体上不显示任何显示

(24)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click() Dim a

a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i)= a(i)+i-1 Next Print a(3) End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是 A．4 B．5 C．6 D．7 (25)阅读程序

Option Base 1

Private Sub Form_Click() Dim arr,Sum Sum = 0

arr = Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10

If arr(i)/3 = arr(i)\\3 Then Sum = Sum + arr(i) End If Next i Print Sum End Sub

程序运行后，单击窗体，输出结果为 A．13 B．14 C．27 D．15

(26)在窗体上画一个名称为File1的文件列表框，并编写如下程序： Private Sub File1_DblClick() x=Shell(File1.FileName,1) End Sub

以下关于该程序的叙述中，错误的是

A．x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1) B．双击文件列表框中的文件，将触发该事件过程 C．要执行的文件的名字通过File1.FileName指定

D．File1中显示的是当前 驱动 器、当前目录下的文件

(27)在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为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

Label1.Left = Label1.Left + 20 Else

Label1.Left=0 End If

End Sub

程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是 A．标签的移动方向为自右向左

B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动 C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动 D．标签按指定的时间间隔移动 (28)执行以下程序段 a$=\ For i=6 To 2 Step -2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i)

z=UCase(X & Y & z) Next i Print z

输出结果为 A．ABA B．BBABBA C．ABBABA D．AABAAB

(29)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1

Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0

For i=1 To 5 Sum = sum+a(i) Next i x=Sum/5 For i =1 To 5

If a(i)>x Then Print a(i); Next i End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是 A．1 2 B．1 2 3 C．3 4 5 D．4 5

(30)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer Public y As Integer