国家二级（VB）机试模拟试卷398
选择题
1.执行下列语句：
strInput＝InputBox(\\(C)
A. 请输入字符串
B. 字符串对话框
C. 字符串
D. 空字符串
解析：InputBox函数的格式：
变量名＝InputBox(\\
2.表达式Str(Len(“123”))+Str(77．7)的值是( )。(B)
A. 3+77．7
B. 377．7
C. 80．7
D. 12377．7
解析：本题考查字符串处理函数。Str的功能是把数字转化为字符，Len函数的功能是求字符串中字符的个数。题中“+”为字符串连接运算符。
3.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是( )。(B)
A. 它的Y1、Y2属性的值相等
B. 它的X1、X2属性的值相等
C. 它的X1、Y1属性的值分别与X2、Y2属性的值相等
D. 它的X1、X2属性的值分别与Y1、Y2属性的值相等
解析：Line控件有四个属性分别为X1、Y1，X2、Y2，分别代表两个端点的横坐标和纵坐标，如果显示为一条纵线，则意味着两个端点的横坐标一致，即X1=X2。
4.已知数组Dim a(1To10)As Integer，则下面正确调用GetValue函数的是( )。
Private Function GetValue(a()As Integer)
As Integer
For i=1To10
GetValue=GetValue+a(i)
Next i
End End Function(B)
A. S=GetValue(a(1To10))
B. S=GetValue(a)
C. S=GetValue(a(10))
D. S=GetValue a
解析：本题考查数组作为函数参数的调用。数组作为函数参数只能进行地址传递。需要注意的是在形参数组中可以忽略维数的定义，但是不能省略圆括号，实参数组名后面可以不跟圆括号。
5.要清除已经在图片框Picture1中打印的字符串而不清除图片框中的图像，应使用语句( )。(A)
A. Picture1．Cls
B. Picture1．Picture=LoadPicture(\\
C. Picture1．Pint\\
D. Picture1．Picture\\
解析：本题考查常用的方法。Cls方法的使用形式为：[对象]．Cls，作用是清除运行时在窗体或图形框中显示的文本或图形，而不能清除图像。要不清除在设计时的文本，同时也不能清除图形，应用LoadPicture可以清除或者装入图片。
6.以下能从字符串“VisualBasic”中直接取出子字符串 “Basic”的函数是( )。(B)
A. Left
B. Mid
C. String
D. Instr
解析：本题考查字符串函数。函数Left表示从字符串的左边取连续个字符构成子串。Mid可以从字符串的任意位置取出子串。String则返回字符串的第一个字符构成的，含有相同个数字符的子串。Instr为字符串匹配函数。
7.设窗体文件中有下面的事件过程：
Private Sub Command1_Click()
Dim s
a%＝100
Print a
End Sub
其中变量a和s的数据类型分别是( )。(C)
A. 整型，整型
B. 变体型，变体型
C. 整型，变体型
D. 变体型，整型
解析：变量s定义时没有指明数据类型，默认为Variant变体型。变量a是用整型的类型符号%声明，并同时赋值100，所以变量a的数据类型为整型。故C选项正确。
8.在窗体上有一个文本框Text1和一个标签Label1，要求运行程序时，在文本框中输入的内容立即显示在标签中(如图所示)，则空白处应填入的内容是( )。
(C)
A. GetFOCUS
B. Click
C. Change
D. LostFocus
解析：本题考查文本框的事件。文本框的GetFocus事件为文本框获得焦点时触发一次，而单击文本框时触发一次Click事件，Change事件是每次文本框中的文本发生改变时触发的事件，而LostFocus事件是文本框失去焦点时触发的事件。
9.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c=1234
c1=Trim(Str(c))
For i=1 To 4
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在横线处应填入的内容为( )。(B)
A. Right(c1，i)
B. Left(c1，i)
C. Mid(c1，i，1)
D. Mid(c1，i，i)
解析：程序中使用Str(C)将数值1234转换成为一个字符串“1234”，又使用Trim函数去除了字符串首尾可能存在的空格，保证了字符串中只有1、2、3、4这4个字符。在For循环中从左边递次输出这些字符就需要使用Left()函数，Left是左部截取函数，可以截取字符串左边指定个数的字符串，以Left(cl，i)的形式即可每次循环取出期望的字符串。因此答案为B。
10.设在工程中有一个标准模块，并定义了如下类型：
Type Stutype
ino As Integer
stmame As String*20
strsex As String*2
smarkAs Single
End Type
在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl Click时，在C盘根目录下的随机文件Student．dat中写入一条记录。下列能够完成该操作的是( )。(B)
A. Sub Commandl_Click( )
Dim student As Studtype
Dim record_no As Integer
record_no=1
With student
．ino=12：．stmame=“smitll”：
．strsex=“男”：．smark=89
End With
Open”c：＼Student．dat”ForInputAs#1 Len=
Len(Student)
Put#1，record_no，Student
Close#1
EndSub
B. Sub Commandl_click( )
本文档预览：3600字符，共18638字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
