全国计算机等级考试二级笔试试卷(编辑修改稿)

全国计算机等级考试二级笔试试卷(编辑修改稿)内容摘要：

ype Student Number As String Name As String Age As Integer End Type 则正确引用该记录类型变量的代码是 A) =张红 B) Dim s As Student =张红 C) Dim s As Type Student D) Dim s As Type =张红 =张红 (5) (5) 函数 String(n, str)的功能是 A) 把数值型数据转换为字符串 B) 返回由 n 个字符组成的字符串 C) 从字符串中取出 n 个字符 D) 从字符串中 第 n 个字符的位置开始取子字符串 (6) (6) 将数学表达式 Cos2(a+b)+5e2写成 Visual Basic 的表达式，其正确的形式是 A) Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2) C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2) (7) (7) 在窗体上画一个命令按钮，名称为 Command1。 单击命令按钮时，执行如下事件过程 : Private Sub Command1_Click() a$=software and hardware b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是 A) software and hardwar B) software C) hardware D) 1 (8) (8) 执行如下语句 a=InputBox(Today,Tomorrow,Yesterday,Day before yesterday,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 A) Today B) Tomorrow C) Yesterday D) Day before Yesterday (9) (9) 表示滚动条控件取值范围最大值的属性是 A) Max B) LargeChange C) Value D) MaxMin (10) (10) 在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。 列表框中显示若干城市的名称。 当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 A) Private Sub List1_Click() B) Private Sub List1_Chilk() = = End Sub End Sub C) Private Sub List1_click() D) Private Sub List1_Click() = = End Sub End Sub (11) (11) 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程 Private Sub Command1_Click() x=0 n=InputBox() For i=1 To n For j=1 Toi x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是 A） 3 B） 4 C） 5 D） 6 (12) (12) 以下关于菜单的叙述中，错误的是 A) 在程序运行过程中可以增加或减少菜单项 B) 如果把一个菜单项的 Enabled 属性设置 为 False，则可删除该菜单项 C）弹出式菜单在菜单编辑器中设计 D）利用控件数组可以实现菜单项的增加或减少 (13) (13) 在窗体上画三个单选按钮，组成一个名为 chkOption 的控件数组。 用于标识各个控件数组元素的参数是 A) Tag B) Index C) ListIndex D) Name (14) (14) 在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程 Option Base 0 Private Sub Command1_Click() Dim city As Variant City=Array(北京 ， 上海 ， 天津 ， 重庆 ) Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A）空白 B) 错误提示 C) 北京 D) 上海 (15) (15) 假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String,Str2 As String Str1=InputBox(请输入一个字符串 ) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“ abcdefg”，则单击“确定”按钮后在窗体上输出结果为 A） abcdefg B） ABCDEFG C） gfedcba D） GEFDCBA (16) (16) 设有语句 Openc:\For Output As1 则以下错误的叙述是 A）该语句打开 C 盘根目录下一个已存在的文件 B）该语句在 C 盘根目录下建立一个名为 的文件 C）该语句建立的文件的文件号为 1 D）执行该语句后，就可以通过 Print语句向文件 中写入信息 (17) (17) 以下叙述中错误的是 A）用 Shell 函数可以调用能够在 Windows 下运行的应用程序 B）用 Shell 函数可以调用可执行文件，也可以调用 Visual Basic 的内部函 数 C）调用 Shell 函数的格式应为： 变量名 =Shell(„„ ) D）用 Shell 函数不能执行 DOS 命令 (18) (18) 以下关于过程及过程参数的描述中，错误的是 A) 过程的参数可以是控件名称 B) 用数组作为过程的参数时，使用的是“传地址”方式 C) 只有函数过程能够将过程中处理的信息传回到调用的程序中 D) 窗体可以作为过程的参数 (19) (19) 在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyascii as integer) „„ End Sub 若焦点位于文本框中，则能够触发 KeyPress 事件的操作是 A) 单击鼠标 B) 双击文本框 C) 鼠标滑过文本框 D) 按下键盘上的某个键 (20) (20) 目录列表框的 Path 属性的作用是 A）显示当前驱动器或指定驱动器上的路径 B）显示当前驱动器或指定驱动器上的某目录下的文件名 C）显示根目录下的文件名 D）只显示当前路径下的文件 (21) (21) 假设有如下事件过程 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是 A) 该过程的功能是弹出一个菜单 B) popForm 是在菜单编辑器中定义的弹出式菜单的名称 C) 参数 X、 Y 指明鼠标的当前位置 D) Button=2 表示按下的是鼠标左键 (22) (22) 以下能够正确计算 n!的程序是 A) Private Sub Command1_Click() n=5:x=1 Do x=x*i i=i+1 Loop While in Print x End Sub B) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While in Print x End Sub C) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i=n Print x End Sub D) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While in Print x End Sub (23) (23) 在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 LabelLabel2 的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X=5:Y=3 Call Proc(X,Y) = X =Y End Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是 A） 5 和 3 B） 25 和 3 C） 25 和 6 D） 5 和 6 (24) (24) 有窗体上画一个名称为 Command1 的命令按钮，一个名称为 Label1 的标签，然后编写如下事件过程 : Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i1 If x Mod 3=0 Then s=s+1 Next i =s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是 A) 1 B) 5 C) 27 D) 45 (25) (25) 在窗体上画一个名称为 Command1 的命令按钮和三个名称分别为 LabelLabel Label3 的标签，然后编写如下代码 Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z =x =y =z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是 A) 10 10 10 B) 30 30 30 C) 30 30 10 D) 10 30 30 (26) (26) 设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程 Private Sub Command1_Click() Static b As Variant b=Array(1,3,5,7,9) „„ End Sub 此过程的功能是把数组 b 中的 5 个数逆序存放（即排列为 9,7,5,3,1）。 为实现此 功能，省略号处的程序段应该是 A) For i=0 to 51\2 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next B) For i=0 to 5 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next C) For i=0 to 5\2 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next D) For i=0 to 5\2 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next (27) (27) 在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框，一个名称为 File1 的文件列表框，两个名称分别为 Label Label2，标题分别为空白和“共有文件”的标签。 编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Label１中显示当前文件夹中文件的数量。 如图所示 能够正确实现上述功能的程序是 A) Private Sub Dir1_Change() = End Sub Private Sub Drive1_Change() = = End Sub B) Private Sub Dir1_Change() = End Sub Private Sub Drive1_Change() = = End Sub C) Private Sub Dir1_Change() = = End Sub Private Sub Drive1_Change() = = End Sub D) Private Sub Dir1。