选择题(2009-5,选自实验教材5套模拟题)讲述.doc

一．单项选择题 1．下列叙述中，错误的是（ ）。 A) 事件可以由用户触发，也可以由系统触发 B) VB应用程序只能以解释方式执行 C) 保存VB程序时，应分别保存窗体及工程文件 D) 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 2．下列（ ）是合法的变量名。 A) a_1 B) 4A C) a-b D) string 3．表示x大于0且小于10的表达式是（ ）。 A）0x10 B）x0 And x10 C）x0 Or x10 D）x0 : x10 4. 下列语句错误的是（ ）。 A) Cls B) Image1.Cls C) Form1.Cls D) Picture1.Cls 5. 执行语句MsgBox 除数不能为0！，48，数据出错，在弹出的对话框中显示的是（ ）。 A) 感叹号图标 B) 停止图标 C) 问号图标 D) 消息图标 6．设Picture1.Scaleleft=-200, Picture1.ScaleTop=250, Picture1.Width=500, Picture1.Height=-400, 则Picture1右下角的坐标为（ ）。 A) （300，－150） B) （500，－450） C) （－200，250） D) （700，650） 7．在窗体上画一文本框Text1，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是（ ）。 A）Private Sub Text1_Keypress(KeyAscii As Integer) If KeyAscii65 Or KeyAscii90 Then MsgBox 请输入大写字母 KeyAscii＝0 End If End Sub B）Private Sub Text1_Change() If Asc(Text1.Text)64 And Asc(Text1.Text) 91 Then MsgBox 请输入大写字母 KeyCode＝0 End If End Sub C）Private Sub Text1_MouseDown(Buttom As Integer, Shift As Integer _ X As Single,Y As Single) If Asc(Text1.Text)65 Or Asc(Text1.Text)90 Then MsgBox 请输入大写字母 End If End Sub D）Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer ) If KeyCode65 Or KeyCode 90 Then MsgBox 请输入大写字母 KeyCode＝0 End If End Sub 8. 如果列表框List1中只有一个项目被选中，则语句Debug.Print List1.Selected (List1.ListIndex)执行的结果是（ ）。 A) 在立即窗口中输出被选定的项目的索引值 B) 在立即窗口中输出True C) 在立即窗口中输出False D) 在立即窗口中输出被选定的项目的文本内容 9．假设时钟控件的Interval属性为500，Enabled属性为True，并且有下面的事件过程，程序运行10秒后变量x的值为（ ）。 Dim x As Integer Private Sub Timer1.Timer() x=x+10 End Sub A) 10000 B) 200 C) 5000 D) 以上都不对 10．单击Cmd1命令按钮，由Text1文本框获得x的值，根据以下条件计算y的值：当x0时，y的值为x的自然对数；当x=0时，y的值为x的绝对值。并将y的值显示在Label1中。以下能正确计算y值的程序是（ ）。 A) x=Val(Text1.Text) B) x=Val(Te