1、2012-2013 年第一学期期末考试试卷答题纸公共选修课计算机二级考试指导 （文科）所在学院： 姓名： 学号： 班级： 专业： 注意：如果是文理学院学生，请在学院前加“文理”二字。一、选择题 130 题每题 2 分，共 60 分题号 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15答案题号 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30答案二、填空题(每空 2 分，共 40 分)空号 1 2 3 4 5答案空号 6 7 8 9 10答案空号 11 12 13 14 15答案空号 16 17 18 19 20答案2012-2013
2、 年第一学期期末考试试卷答题纸公共选修课计算机二级考试指导 （文科）一、选择题 130 题每题 2 分，共 60 分1、下列可以打开立即窗口的操作是（c ） 。 A）Ctrl+D B ）Ctrl+E C）Ctrl+F D ）Ctrl+G2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ c） 。A) 工程资源管理器窗口 B) 工具箱窗口C) 代码窗口 D) 属性窗口3、刚建立一个新的标准 EXE 工程后，不在工具箱中出现的控件是（c ） 。A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框4、设有如下变量声明 Dim TestDate As Date为变量 TestDate
3、正确赋值的表达方式是（ ） 。A) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”)5、以下不能在“工程资源管理器 “窗口中列出的文件类型是（ d） 。A) bas B) res C)frm D)ocx6、函数 String(n，“str“)的功能是（b ） 。A)把数值型数据转换为字符串B)返回由 n 个字符组成的字符串C)从字符串中取出 n 个字符D)从字符串中第 n 个字符的位置开始取子字符串7、为了清除窗体上的一
4、个控件，下列正确的操作是（ ） 。A）按回车键 B）按 Esc 键C）选择（单击）要清除的控件，然后按 Del 键 D）选择（单击）要清除的控件，然后按回车键8、设 a=2, b=3, c=4, d=5, 下列表达式的值是（ ） 。Not aa+cA）-1 B）1 C）True D ）False9、在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()a$ = “software and hardware“b$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1E
5、nd Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是（ ） 。A）software and hardware B）software C）hardware D）110、在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell,然后编写如下事件过程：Private Sub Commandl_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，
6、标签中显示的内容是 A) 11 B) 12 C) 16 D) 2011、设有如下的用户定义类型： Type Student number As String name As String age AS Integer End Type 则以下正确引用该类型成员的代码是 _ 。 A) ) Student. name= “李明” B) Dim s As Student C) ) Dim s As Type Student D) Dim s As Type s.name= “李明” s.name= “李明”12、设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 _ 。 X=IIf(
7、ab)And(cd),10,20) A) 10 B) 20 C) True D) False13、执行以下程序段后，变量 c$ 的值为 _ 。 a$= “ Visual Bassic Programming ” b$= “ Quick ” c$=b$ MaxEnd Sub以上程序的功能是：用 Array 函数建立一个含有 8 个元素的数组，然后查找并输出该数组中元素的最大值。请填空。9、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程：Private Sub Command1_Click()S$ = Input
8、Box(“请输入一个字符串 “)Text1.Text = S$End SubPrivate Sub Text1_Change()Label1.Caption = UCase(Mid(Text1.Text, 7)End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 “VisualBasic“，则在标签中显示的内容是 【9】 。10、设有如下程序 Private sub search(a()As variant，ByVal key As Variant，index%) Dim I For ILBound(a)To UBound(a) If keya(I) The
9、n indexI Exit Sub End If Next I Index-1 End Sub Private Sub Form_Load() Show Dtm b() As Variant Dim n As Integer bArray(1，3，5，7，9，11，13，15) Call search(b，11，n) Print n End Sub 程序运行后，输出结果是【10】 。11、在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为 List1、Command1 和 Label1，通过属性窗口把列表框中的项目设置为：“第一个项目“ 、“第二个项目“、“ 第三个项目“、“第四个项目
10、“ 。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择“ 第三个项目 “的情况)。下面是实现上述功能的程序，请填空。Private Sub Command1_Click() If List1.ListIndex = 【11】 Then List1.RemoveItem 【12】 Label1.Caption = 【13】 Else MsgBox “请选择要删除的项目 “ End IfEnd Sub 第一个项目 第二个项目 COMMAND1 第三个项目 312、以下程序的功能是：把当前目录下的顺序文件 smte
11、xt1.txt 的内容读入内存，并在文本框 Text1 中显示出来。请填空。Private Sub Command1_Click() Dim inData As String Text1.Text = “ Open “.smtext1.txt“ 14 As #1 Do While 15 Input #1, inData Text1.Text = Text1.Text & inData Loop Close #1End Sub13、在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1、Label2，标题分别为 “城市名称“和空白的标签。程序运行后，在组合框中输入一个新
12、项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示“ 已成功添加新输入页“，如图所示。如果输入的项目已存在，则在 Label2 中给出提示“输入项已在组合框中“。请填空。 Private Sub Combol_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1.ListCount-1 If Combo1.Text= 【 16 】 Then Label2.Caption=“ 输入项已在组合框中。 “ Exit Sub End If Next i L
13、abel2.Caption=“ 已成功添加新输入项。 “ 【 17 】 Combo1.Text End If End Sub14、以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分） ，如图所示。请填空。Private Sub Command1_Click( )Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min = 【18】 For k = 【19 】 To 6If max Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (【20】 ) / 5End Sub
