国家二级（VB）机试模拟试卷227
选择题
1.以下选项中，不合法的Visual Basic的变量名是( )。(B)
A. a5b
B. _xyz
C. a_b
D. andif
解析：VB中变量的命名规则为：①必须以字母或汉字开头②由字母、汉字、数字或下划线组成③不能使用VB已经占用的关键字。本题选项B中变量名以下划线开头，不合法。故B选项错误。
2.已知文本框的ScrollBars属性设置为3，却看不到任何效果，原因是( )。(C)
A. 文本框中没有内容
B. 文本框的Locked属性值为True
C. 文本框的MultiLine属性值为False
D. 文本框的MultiLine属性值为True
解析：考查文本框的常见属性。文本框的ScrollBars属性是当MultiLine属性为True时才有效，它表示了文本框中出现的滚动条形式：0-None、1-Horizontal、2-Vertical、3-Both，而MultLine属性的作用是设置是否多行显示，默认一行属性值为False，允许多行显示时属性值为True；Locked属性为True表示锁定文本框而不允许编辑。
3.表达式Int(8*Sqr(36)*10＾(-2)*10+0．5)／10的值是( )。(C)
A. 0．48
B. 0．048
C. 0．5
D. 0．05
解析：本题考查运算符的优先级。首先计算函数调用，算术运算符优先级从高到低为：()，＾-、*／、+-，因此首先计算sqr(36)，然后计算()括号内部的负号和平方运算符，接着计算*和+，然后计算Int取整，最后计算／运算符。
4.窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。
Private Sub Command1_Click()
Picture 1．Picture=LoadPicture(“c：＼picture．jpg”)
Picturel．Cls
Picture 1．Print“picture”
End Sub(A)
A. 窗体无显示，图片框显示图片和文字picture
B. 窗体上出现picture文本，图片框无显示
C. 窗体上出现picture文本，图片框显示图片picture．jpg
D. 窗体无显示，图片框只显示picture文字
解析：本题考查图片框属性。单击命令按钮时，图片框首先装入图片，然后图片框清空(注意，该方法只能清空在图片框中输出的文本信息和绘图信息，而不能清除有LoadPicture函数装载的图片)，最后图片框显示图片和“picture”文字。全部操作都是在图片框中进行的，窗体上没有任何显示。
5.设已经在窗体上添加了一个通用对话框控件CommonDialogl，以下语句正确的是( )。(D)
A. CommonDialogl．Filter=ALLL Files |*．*|=|Pictures(*．Bmp)|*．Bmp
B. CommonDialogl．Filter=\\
C. CommonDialogl．Filter={ALLL Files{|*．*|Pictures(*．Bmp)|*．Bmp}
D. CommonDialogl．Filter=|ALLL Files |*．*|Pictures(*．Bmp)|*．Bmp\\
解析：本题考查通用对话框的常见属性。通用对话框的Filter属性用于设置显示文件的类型。使用格式为：CommonDialogl．Filter=\\
6.设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“XSLNCER”，所有菜单项都可见：否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
(D)
A. 把2个Form2．input．Visible中的“Form2”删去
B. 把Form1中Text1文本框及相关程序放到Form2窗体中
C. 把If KeyAsii=13Then改为IfKeyAscii=\\
D. 把Form1．Hide、Form2．Show两行移动到2个End If之问
解析：根据题干的描述，刚刚输入口令的第一个字符时就隐藏了Form1显示Form2，与预期的键入回车时才隐藏Form1显示Form2不符，可以判断是在进行KeyAscii条件判断时出了问题。观察代码可以看到，Form1．Hide和Form2．Show语句处于KeyAscii=13的If判断之外，这样无论键入的第一个字符是否是回车都将执行这两条语句，造成了题干描述的错误现象。解决方案也很简单，只要把这两条语句移到两个End If之间，令其受到KeyAscii=13的If判断即可。
7.下列关于通用对话框CommonDialogl的叙述中，错误的是( )。(A)
A. 只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开
B. 使用CommonDialogl．ShowColor方法，可以显示“颜色”对话框
C. CancelError。属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告
D. 在显示“字体”对话框前，必须先设置CommonDialogl的Flags属性，否则会出错
解析：“打开”对话框主要用来获取用户指定的文件信息并供程序使刚，对话框本身并不提供打开文件功能，这些功能需另外编写代码才能实现，所以在“打开”对话框中可选中某文件，但不能打开。故A选项错误。
8.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click( )
For i=1 To 4
X=4
For j=1 To 3
X=3
For k=1 to 2
X=X+6
Next k
Next j
Next i
Print x
End Sub
运行程序后，单击命令按钮，输出结果是( )。(B)
A. 7
B. 15
C. 157
D. 538
解析：题目中是3个For语句嵌套循环，在第二个循环中每次都给X赋值为3，因此前面两个外循环可以忽略不及，只考虑最里层的循环即可，一次循环后的结果就是最后答案。即运行两次循环，当k=1时，X=X+6=3+6=9；当K=2时，X=X+6=9+6=15。
9.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1＝\\(C)
A. ABCDEF
B. abcdef
C. defdef
D. defabc
解析：程序中过程Fun的Do循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串，然后这个字符串再重复一次由函数返回。函数Len用于返回字符串的长度，过程中字符串的长度
本文档预览：3600字符，共17796字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
