国家二级VB机试（数据类型及运算）模拟试卷30
选择题
1.产生100以内(不含100)2位随机整数的Visual Basic表达式是(B)
A. Int(Rnd(1)*91)+10
B. Int(Rnd(1)*90)+10
C. Int(Rnd(1)*91)+11
D. Int(Rnd(1)*90)+11
解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：
Int((upperbound—lowerbound+1)*Rnd+lowerbound)，其中upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。
2.在窗体上画两个文本框，其名称分别为Textl和Text2，然后编写如下程序：
Private Sub Form_Load()
Textl．Text=\\(C)
A. ChinaBeijing
B. China
C. Beijing
D. ChinaB
解析：Mid(string，start[，lengthl)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，如果start参数超过了string参数中字符的数目，将返回空字符串，如果省略或length参数超过文本的字符数(包括stan处的字符)，将返回字符串中从stan到字符串结束的所有字符。本题程序运行后，当在文本框Text1中输入字符数达到或超过6时，在文本框Text2中将随即显示输入字符中从第6个字符开始的所有字符，全部字符输入后，文本框Text2中的内容为“Beijing”。
3.设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String．strL As Integer tStr=\\(C)
A. ABCDEF
B. abcdef
C. AFBECD
D. DEFABC
解析：本题通用过程的功能是：从字符串变量xStr值的左右两端同时开始，由外向里每次取出两个字符(左右各一个)，组成一个新的字符串。
本题程序运行后，当调用通用过程函数Fun后，返回值应为“afbecd”，转换为大写后在文本框中的显示结果为“AFBECD”。
4.假定有以下函数过程：
Function Fun(S As String)As String
Dim sl As String
For i=l To Len(S)
sl=LCase(Mid(S，i，1))+sl
Next i
Fun=sl
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim Strl As String.Str2 As String
Strl=InputBox(”请输入一个字符串”)：Str2=Fun(Strl)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为(D)
A. ABCDEFG
B. abcdefg
C. GFEDCBA
D. gfedcba
解析：本题考查的考点是有关取子串函数的。本题也比较简单，循环次数就是字符串的长度，每次都在第i位取一个字母转换成小写，最后倒序连接起来，注意每次都把新取得的字符连接到s1的前面，所以为倒序连接。
5.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Cornmandl_Click()
c=1234
c1=Trim(Str(c))
For i=1 To 4
Print______
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示内容：1 12 123 1234则在横线处应填入的内容为(B)
A. Right(c1，i)
B. Left(cl，i)
C. Mid(cl，i，1)
D. Mid(cl，i，i)
解析：本题考查的考点是有关取子串函数的。在VB中有3种取子串函数：LeR函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。本题中显示出来的结果可以看出，第一行是字符串的第一个字符，第二行是字符串的前两个字符……所以每行输出的应该是字符串的前i位。
6.设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String，strL As Integer
tStr=\\(C)
A. ABCDEF
B. abcdef
C. defdef
D. defabc
解析：本题考查的考点是有关字符串处理的。本题中过程中的循环变量i的初值是字符串长度的一半，终值是字符串长度，结合循环中的取子串函数，整个循环的功能是取得字符串的后一半放入tstr中，然后连接上自身的值返回到调用程序。
7.窗体上有一个名称为Textl的文本框，一个名称为Commandl的命令按钮。窗体文件的程序如下：
Private Type x
aAs Integer：b As Integer
End Type
Private Sub Commandl_Click()
Dim y As x
y．a=InputBox(\\(D)
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数，y．b的值为该偶数的平方
D. Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回
解析：本题考查的考点是有关自定义类型和Fix函数的。用户可以通过聊e语句自定义类型，并可用自定义的类型声明变量。注意Fix函数是向下取整，Round函数是四舍五入。
8.窗体上有两个名称分别为Text1、Text2的文本框。Textl的KeyUp事件过程如下：
Private Sub Textl_KeyUp(KeyCode As IntegeL Shift As Integer)
Dim cAs String
c=UCase(Chr(KeyCode))：Text2．Text=Chr(Asc(c)+2)
End Sub
当向文本框Textl中输入小写字母a时，文本框Text2中显示的是(C)
A. A
B. a
C. C
D. c
本文档预览：3600字符，共12559字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
