国家二级VB机试（数据类型及运算）模拟试卷26
选择题
1.设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是(A)
A. Print A=x+y
B. Print”A=”；x+y
C. Print”A=”=Str(x+y)
D. Print”A=”x+y
解析：本题考查Print函数和表达式。题目要求输出“A=10”，因此需要首先输出字符串“A=”，选项A错误。
2.下列表达式中不能判断x的是否为偶数的是(D)
A. x／2=Int(x／2)
B. x Mod 2=0
C. Fix(x／2)=x／2
D. x＼2=0
解析：本题考查运算符和表达式。选项A)是比较x／2和Int(x／2)足否相等，如果x为偶数，两者相抵，否则不相等；选项B)，使用Mod求余，并判断余数是否为0；选项C)使用判断x／2和Fix(x／2)是否相等，如果x是偶数，两者相等，否则不相等；选项D)使用“＼”整除运算，并判断结果是否为0，x为1时x＼2结果为0，显然这种方法判断偶数不可行。
3.如设置了文本框的属性PasswordChar=”$”，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是(A)
A. 8个“$”
B. 1个“$”
C. 8个“*”
D. 无任何内容
解析：本题考查文本框的属性设置。设置了文本框的PasswordChar属性不为””时，文本框的字符显示都用设置字符替代。
4.为了计算1+3+5…+99的值，某人编程如下：
k=1：s=0
while k<=99
k=k+2：s=s+k
wend
print s
在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是(D)
A. While…Wend循环语句错误，应改为For k=1 To 99…Net k
B. 循环天剑错误，应改为While k>99
C. 循环前的赋值语句k=1错误，应改为k=0
D. 循环中两条赋值语句的顺序错误，应改为s=s+k：k=k+2
解析：本题考查循环。选项A)While Wend循环同样可以完成累加计算；选项B)错误，改成Whilc k>99循环一次也不执行；选项C)，叟量k表示数列元素，初值为1表示数列第一项，是正确的；选项D)正确，如果k=k+2放在前面，那么计算的数列第一项是3，而不是1。
5.如果执行一个语句后弹出如图所示的窗口，则这个语句是
(D)
A. InputBox(”输入框”，”请输入VB数据”)
B. x=InputBox(”输入框”，”请输入VB数据”)
C. InputBox(”请输入VB数据”，”输入框”)
D. x=InputBox(”请输入VB数据”，”输入框”)
解析：本题考查InputBox的使用，语法是：InputBox(prompt[，title][，default][，xpos,ypos]) 其中的prompt为窗口的提示，title为输入窗口的标题，default为输入窗口的默认内容，xpos，ypos为窗口距离屏幕左边，上边的距离。在本题中，第一个参数prompt为“请输入VB数据”，标题为“输入框”。
6.下列可以打开随机文件的语句是(D)
A. Open”file1．dat”For Input As#1
B. Open”file1．dat”For Append As#1
C. Open”file1．dat”For Output As#1
D. Open”file1．dat”For Random As#1 len=20
解析：本题考查文件操作，VB中打开随机文件的语法为：
OpenFor Random As[#][Len=]
其中For Random表示打开随机文件，Len用来指定记录的长度，记录长度的缺省值为128个字节。
7.下面可以产生20～30(含20和30)的随机整数的表达式是(B)
A. Int(Rnd*10+20)
B. Int(Rnd*11+20)
C. Int(Rnd*20+30)
D. Int(Rnd*30+20)
解析：本题考查常用函数。如果产生一个m到n之间的随机数(n>m，包含n和m)表达式可为：r=Int(Rnd*(n—m+1)+m)
8.假定用下面的语句打开文件：
Open”File1．txt”For Input As@1
则不能正确读文件的语句是(D)
A. Input #1，ch$
B. Line Input#1．ch$
C. ch$=Input$(5，#1)
D. Read#1，ch$
解析：本题考查文件操作，读文件使用Line Input、Input#，(以上为文本方式)和Get(以上为二进制方式)。Open“Filel．txt”For Input As#1是以输入方式打开File1．txt文本文件，因此可以使用Line Input和Input方法读文件，选项D)错误。
9.设x是小于10的非负数。对此陈述，以下正确的VB表达式是(C)
A. 0<=x<10
B. 0<=x<10
C. x>0 and x<10
D. x>0 or x<=10
解析：本题考查VB表达式。x是一个小于10的非负数，x>0和x<10两者是与的关系。
10.窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：
Private Type x
a As Integer：b As Integer
End Type
Private Sub Command1_Click()
Dim Y As x
y．a：=InputBox(“”)
Ify．a＼2=y．a／2 Then
y．b=y．a*y．a
Else
y．b=Fix(y．a／2)
End If
Text1．Text=y．b
End Sub
对以上程序，下列叙述中错误的是(D)
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数，y．b的值为该偶数的平方
D. Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回
解析：本题考查的考点是有关自定义类型和Fix函数的。用户可以通过Type语句自定义类型，并可用自定义的类型声明变量。注意Fix函数是向下取整，Round函数是四舍五入。
11.窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer,Shift
本文档预览：3600字符，共12142字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
