2010年计算机等级二级VB笔试考前模拟试题(6)-中大网校.doc

2010年计算机等级二级VB笔试考前模拟试题(6) 总分：100分 及格：60分 考试时间：90分 一、单项选择题(每小题2分，共70分) (1)在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command 1_Click()Dim A(4)As Integer，B(4)As IntegerFor k=0 T0 2A(k+1)=InputBox(“请输入一个整数”)B(3-k)=A(k+1)Next kPrint B(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为（　　） A. 0 B. 2 C. 3 D. 4 (2)假定有如下的窗体事件过程：Private Sub Form_Click()aS=“Microsoft ViSUal Basic”b$=Right(a$，5)c$=Mid(a$，1，9)MsgBox aS，34，b$，c$，5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（　　） A. Microsoft Visual B. Microsoft C. Basic D. 5 (3)为了能单击一次控件图标即可在窗体上画出多个相同类型的控件，必须用到的按键是 （　　） A. Alt B. Space C. Ctrl D. Shift (4)用来指定文件对话框中所选择的文件名(不包括路径)的属性是（　　） A. FileName B. FileTitle C. Flags D. HelpFile (5)在设计多窗体程序时，按照系统默认的名称分别建立4个窗体Form1、Form2、Form3和Form4，则程序运行后，最先出现的窗体是（　　） A. Form1 B. Form2 C. Form3 D. Form4 (6)窗体上有1个名称为List1的列表框，其中已经输入了若干个项目(如图所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序Private Sub Command 1 Click()Dim str As String，S As String，k As Integers=Text1str=“”For k=List1.ListCount-1 To 0 Step-1If InStr(List1.List(k)，s)gt;0 Thenstr=stramp;List1.List(k)amp;“ ”End IfNext kIf str=“”ThenText2=“没有匹配的项目”ElseText 2=strEnd IfEnd Sub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（　　） A. 京 B. 北京南京 C. 南京北京 D. 没有匹配的项目 (7)若要将一个窗体从内存中清除出去，应该使用的方法是（　　）。 A. Show B. UnLoad C. Load D. Hide (8)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer)As IntegerIf Xlt;20ThenY=XElseY=20+X End IfFunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)SW=TrueEnd SubPrivate Sub Command l Click()Dim intNurn As IntegerIntNtim=InputBox(…f)If SW ThenPrint func(intNum)End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为（　　） A. 输出0 B. 输出25 C. 输出45 D. 无任何输出 (9)下列程序运行时，两次单击窗体后，显示的结果是（　　）。 A. b＝2 c＝2 B. b＝4 c＝4 C. b＝2 c＝4 D. b＝4 c＝2 (10)设在窗体有一个名称为Command 1的命令按钮，并有以下事件过程：Private Sub Command l_Click0Static b As Variantb=Array(1，3，5，7，9)……End Sub