国家二级VB机试（数据类型及运算）模拟试卷15
(总分：64.00，做题时间：90分钟)
一、 选择题(总题数：32，分数：64.00)
1.以下表达式与Int(3．5)的值相同的是
（分数：2.00）
 A.Int(3．5)
 B.Val(3．5)
 C.Fix(3．5) √
 D.Abs(3．5)
解析：解析：Int函数的作用是去返回不大于参数的最大整数，例如Int(4．6)=4，Int(-4．6)=-5；Fix函数的作用是去掉参数的小数部分只保留整数部分，在参数为正数的时候，Int函数
和Fix函数的返回值是相同的。
2.以下能对正实数d的第3位小数四舍五入的表达式是
（分数：2.00）
 A.0．01*Int(d+0．005)
 B.0．01*In(000*(d+0．005)) √
 C.0．01*Int(100*(d+0．05))
 D.0．01*Int(d+0．05)
解析：解析：Int函数会返回不大于参数的最大整数，要对第3位小数进行四舍五入，需要先将d自加0．005，这样如果第三位小数大于5就将进位：接下来乘以100，这样第3位小数就变成了第一位小数，对其做Int函数留下整数部分，最终再乘以0．01得到结果。
3.语句：Print Asc(Chr$(Mid$("98765432"，4，2)))的输出是
（分数：2.00）
 A.65 √
 B.A
 C.8765
 D.W
解析：解析：Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾，本题中是从第4位取长度为2的子串即“65”。Chr函数可以将ASCII码转成对应的字符，ASC函数将字符转换成对应的ASCII码。
4.语句：PrintInt(Rnd*5+20)的输出不可能是
（分数：2.00）
 A.20
 B.22
 C.24
 D.25 √
解析：解析：随机数函数Rnd用于产生一个小于1但大于或等于0的随机数值，Int函数会返回不大于参数的最大整数值。由于Rnd函数酌值不能到达1，所以整个表达式也不可能到达25。
5.产生100以内(不含100)2位随机整数的Visual Basic表达式是
（分数：2.00）
 A.Int(Rnd(11*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是随机整数范围的下限。
6.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form Load() Text1．Text=""：Text2．Text=""：Text1．SetFocus End Sub Private Sub Text1_Change() Text2．Text：Mid(Text1．Text，6) End Sub 程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是
（分数：2.00）
 A.ChinaBeijing
 B.China
 C.Beijing √
 D.ChinaB
解析：解析：Mid(string，start[，length])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，如果stan参数超过了string参数中字符的数目，将返回空字符串，如果省略或length参数超过文本的字符数(包括stan处的字符)，将返回字符串中从stan到字符串结束的所有字符。本题程序运行后，当在文本框Text1中输入字符数达到或超过6时，在文本框Text2中将随即显示输入字符中从第6个字符开始的所有字符，全部字符输入后，文本框Texf2中的内容为“Beijing”。
7.设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStrAs String．strLAs Integer tStr="" strL=Len(xStr)i=1 Do While i＜=strL／2 tStr=tStr＆Mid(xStr，i，1)＆Mid(xStr，strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef"：Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是
（分数：2.00）
 A.ABCDEF
vb 字符串转数组
 B.abcdef
 C.AFBECD √
 D.DEFABC
解析：解析：本题通用过程的功能是：从字符串变量xStr值的左右两端同时开始，由外向里每次取出两个字符(左右各一个)，组成一个新的字符串。 本题程序运行后，当调用通用过程函数Fun后，返回值应为“afbecd”，转换为大写后在文本框中的显示结果为“AFBECD”。
8.假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S，i，1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Strl As String．Str2 As String Strl=InputBox("请输入一个字符串")：Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为
（分数：2.00）
 A.ABCDEFG
 B.abedefg
 C.GFEDCBA
 D.gfedeba √
解析：解析：本题考查的考点是有关取子串函数的。本题也比较简单，循环次数就是字符串的长度，每次都在第i位取一个字母转换成小写，最后倒序连接起来，注意每次都把新取得的字符连接到s1的前面，所以为倒序连接。
9.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示内容：112 123 1234则在横线处应填入的内容为
（分数：2.00）
 A.Right(c1，i)
 B.Left(c1，i) √
 C.Mid(c1，i，1)
 D.Mid(c1，i，i)
解析：解析：本题考查的考点是有关取子串函数的。在VB中有3种取子串函数：Left函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。本题中显示出来的结果可以看出，第一行是字符串的第一个字符，第二行是字符串的前两个字符……所以每行输出的应该是字符串的前i位。
10.设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr=""：strL=Len(xStr) i=strL／2 Do While i＜=strL tStr=tStr＆Mid(xStr，i+1，1) i=i+1 Loop Fun=tStr＆tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Clic
k() Dim S1 As String S1="ABCDEF"：Text1．Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是
（分数：2.00）
 A.ABCDEF
 B.abcdef
 C.defdef √
 D.defabc
解析：解析：本题考查的考点是有关字符串处理的。本题中过程中的循环变量i的初值是字符串长度的一半，终值是字符串长度，结合循环中的取子串函数，整个循环的功能是取得字符串的后一半放入tstr中，然后连接上自身的值返回到调用程序。
11.窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x Private Sub Command1_Click() a As Integer：b As Integer Dim Y
As x End Type 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 对以上程序，下列叙述中错误的是
（分数：2.00）
 A.x是用户定义的类型
 B.InputBox函数弹出的对话框中没有提示信息
 C.若输入的是偶数，y．b的值为该偶数的平方
 D.Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回 √
解析：解析：本题考查的考点是有关自定义类型和Fix函数的。用户可以通过Type语句自定义类型，并可用自定义的类型声明变量。注意Fix函数是向下取整，Round函数是四舍五入。
12.窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUP事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Dim e As String c=UCase(Chr(KeyCode))：Text2．Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小
写字母a时，文本框Text2中显示的是

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。