国家二级VB机试（数据类型及运算）模拟试卷31
选择题
1.窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Textl_KeyUp(KeyCode As Integer,Shift As Integer)
Dim C As String
c=UCase(Chr(KeyCode))：Text2．Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是(C)
A. A
B. a
C. C
D. C
解析：本题考查的考点是有关字符转换函数的。UCase函数的功能为强制转成大写字母；Chr函数的功能是把整数按照ASCII码转换成字母；Asc函数的功能是把字母转换成对应的ASCII码。本题中变量c的值是大写字母“A”，最终结果是大写字母“C”。
2.窗体上有名称分别为Text1、Text2的文本框，名称为Commandl的命令按钮。运行程序，在Textl中输入“FormList”，然后单击命令按钮，执行如下程序：
Private Sub Commandl_Click()
Text2．Text=UCase(Mid(Text1．Text，5，4))
End Sub
在Text2中显示的是(D)
A. form
B. list
C. FORM
D. LIST
解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。
3.窗体上有1个名称为Commandl的命令按钮，事件过程如下：
Private Sub Commandl_Click()
m=-3．6
If Sgn(m)Then
n=Int(m)
Else
n=Abs(m)
End If
Print n
End Sub
运行程序，并单击命令按钮，窗体上显示的内容为(A)
A. -4
B. -3
C. 3
D. 3．6
解析：Int函数的作用是去返回不大于参数的最大整数，例如Int(4．6)=4，Int(一4．6)=一5；VB中的逻辑值True和False和整型值之间会自动进行类型转换，其中一1转换为True,0转换为False。本题中由于m为负数，所以Sgn(m)的值为一1，即条件为真，会返回不大于m的最大整数值即一4。
4.设有如下程序：
Private Sub Form_Click0
num=InputBox(”请输入一个实数”)：P=InStr(num，”．”)
Ifp>0 Then
Print Mid(num，P+1)
Else
Print”END”
End If
End Sub
运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出“END”：否则(C)
A. 用字符方式输出该实数
B. 输出该实数的整数部分
C. 输出该实数的小数部分
D. 去掉实数中的小数点，保留所有数码输出
解析：字符串匹配函数Instr用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回0；Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。
5.在窗体上画一个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
Text1．Text=””：Textl．SetFocus
End Sub
Private Sub Form_Click()
Dim a As String，s As String
a=Text1．Text：s=””
For k=1 To Len(a)
s=UCase(Mid(a，k，1))+s
Next k
Text1．Text=s
End Sub
程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容(C)
A. 与原字符串相同
B. 与原字符串中字符顺序相同，但所有字母均转换为大写
C. 为原字符串的逆序字符串，且所有字母转换为大写
D. 为原字符串的逆序字符串
解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCasef)函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第k位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串的逆序字符串。
6.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
aS=InputBox(”请输入一个二进制数”)
n=Len(a$)
For i=1 To n
Dec=Dec*2+____(a$，i，1)
Next i
Print Dec
End Sub
程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是(D)
A. Left
B. Right
C. Val
D. Mid
解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。
7.以下程序的功能是随机产生10个两位的整数：
Option Base 1
Private Sub Commandl_Click()
Dim a(10)As Integer，i As Integer
Randomize
For i=1 To 10
a(i)=Int(Rnd*100)+1
Print a(i)
Next i
End Sub
运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是(B)
A. a(i)=Int(Rnd*100)
B. a(i)=Int(Rnd*90)+10
C. a(i)=Int(Rnd*100)+10
D. a(i)=
本文档预览：3600字符，共10695字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
