公选课二级考试指导(文科)试卷.doc

2013-2014年第一学期期末考试试卷答题纸公共选修课计算机二级考试指导（文科）所在学院： 姓名： 学号： 班级： 专业： 注意：如果是文理学院学生，请在学院前加“文理”二字。原则上文科学生选，理科学生选，可根据自己所学情况进行选择。一、 选择题130题每题2分，共60分题号123456789101112131415答案题号161718192021222324252627282930答案二、填空题(每空2分，共40分)空号12345答案空号678910答案空号1112131415答案空号1617181920答案2013-2014年第一学期期末考试试卷答题纸公共选修课计算机二级考试指导（文科）一、选择题130题每题2分，共60分1、下列可以打开立即窗口的操作是（ ）。 A）Ctrl+D B）Ctrl+E C）Ctrl+F D）Ctrl+G2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。A) 工程资源管理器窗口 B) 工具箱窗口C) 代码窗口 D) 属性窗口3、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框4、设有如下变量声明 Dim TestDate As Date为变量TestDate正确赋值的表达方式是（）。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、以下不能在工程资源管理器窗口中列出的文件类型是（）。A)bas B)res C)frm D)ocx6、函数String(n，str)的功能是（）。A)把数值型数据转换为字符串B)返回由n个字符组成的字符串C)从字符串中取出n个字符sD)从字符串中第n个字符的位置开始取子字符串7、为了清除窗体上的一个控件，下列正确的操作是（）。A）按回车键 B）按Esc键C）选择（单击）要清除的控件，然后按Del键 D）选择（单击）要清除的控件，然后按回车键8、设a=2, b=3, c=4, d=5, 下列表达式的值是（）。Not a=c Or 4*c=b2 And ba+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$, 1End 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 程序运行后，单击命令按钮，标签中显示的内容是 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 = “李明” = “李明”12、设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 _ 。 X=IIf(ab)And(cd),10,20) A) 10 B) 20 C) True D) False13、执行以下程序段后，变量 c$ 的值为 _ 。 a$= “ Visual Bassic Programming ” b$= “ Quick ” c$=b$&UCase(Mid$(a$,7,6)&Right$(a$,12) A) Visual Basic Programming B) Quick basic programming C) Quick BASIC Programming D) Quick Basic Programming14、在窗体上画一个文本框（其名称为 Textl)和一个标签（其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是 _ 。 A) ) Private Sub Textl_Click() B) Private Sub Text1_Change() Labell.Caption=Textl.Text Labell.Caption=Textl.Text End Sub End Sub C) ) Private Sub Labell_Ctrange() D) Private Sub Labell_Click() Labell. Caption=Textl.Text Labell.Caption=Textl.Text End Sub End Sub15、在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Private Sub Form_Load() List1.AddItem Item 1 List1.AddItem Item 2 List1.AddItem Item 3End SubPrivate Sub Command1_Click() List1.List(List1.ListCount) = AAAAEnd Sub程序运行后，单击命令按钮，其结果为（）。A）把字符串“AAAA”添加到列表框中，但位置不能确定B）把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面）C）把列表框中原有的最后一项改为“AAAA”D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）16、假定有如下事件过程：Private Sub Form_Click()Dim x As Integer, n As Integer x = 1 n = 0 Do While x 28 x = x * 3 n = n + 1 Loop Print x, nEnd Sub程序运行后，单击窗体，输出结果是（）。A）81 4 B）56 3 C）28 1 D）243 517、有如下程序：Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为（）。A）15 0 B）20 -1 C）10 True D）10 False18、有如下程序：Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sumEnd Sub程序运行后，单击窗体，输出结果为（）。A）12 B）30 C）24 D）1819、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（）。A）12 B）13 C）14 D）1520、有如下程序：Option Base 1Private 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 SumEnd Sub程序运行后，单击窗体，输出结果为（）。A）25 B）26 C）27 D）2821、设有如下通用过程： Public Function Fun(xStr As String) Dim tStr As String, srtL As Integer tStr =” strL=Len(xStr) i=1 Do While iy,x,y)End FunctionPrivate Sub command1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,b)End Sub 程序运行后，单击命令按钮，输出结果为【7】。8、设有程序：Option Base 1Private Sub Command1_Click() Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)Max = arr1(1) For i = 1 To 8 If arr1(i) Max Then 【8】 Next i Print 最大值是: ; MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。9、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()S$ = InputBox(请输入一个字符串)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) Then 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，通过属性窗口把列表框中的项目设置为：第一个项目、第二个项目、第三个项目、第四个项目。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择第三个项目的情况)。下面是实现上述功能的程序，请填空。Private Sub Command1_Click() If List1.ListIndex = 【11】 Then List1.RemoveItem 【12】 Label1.Caption = 【13】 Else MsgBox 请选择要删除的项目 End IfEnd Sub 第一个项目 第二个项目 COMMAND1 第三个项目 312、以下程序的功能是：把当前目录下的顺序文件smtext1.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，标题分别为 城市名称和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2中给出提示已成功添加新输入页，如图所示。如果输入的项目已存在，则在 Label2 中给出提示输入项已在组合框中。