国家二级VB机试(数据类型及运算)模拟试卷15

国家二级VB机试（数据类型及运算）模拟试卷15

(总分：64.00，做题时间：90分钟)

一、 选择题(总题数：32，分数：64.00)

1.以下表达式与Int(3．5)的值相同的是

（分数：2.00）

(3．5)

(3．5)

(3．5) √

(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）

(Rnd(11*91)+10

(Rnd(1)*90)+10 √

(Rnd(1)*91)+11

(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）

eijing

g √

解析：解析：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）

√

解析：解析：本题通用过程的功能是：从字符串变量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）

G

g

A

a √

解析：解析：本题考查的考点是有关取子串函数的。本题也比较简单，循环次数就是字符串的长度，每次

都在第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）

(c1，i)

(c1，i) √

(c1，i，1)

(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_Click() Dim S1 As String S1="ABCDEF"：

Text1．Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是

（分数：2.00）

√

解析：解析：本题考查的考点是有关字符串处理的。本题中过程中的循环变量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是用户定义的类型

ox函数弹出的对话框中没有提示信息

C.若输入的是偶数，y．b的值为该偶数的平方

(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中显示的是

（分数：2.00）

A.A

B.a

C.C √

D.c

解析：解析：本题考查的考点是有关字符转换函数的。UCase函数的功能为强制转成大写字母：Chr函数的

功能是把整数按照ASCII码转换成字母；Asc函数的功能是把字母转换成对应的ASCII码。本题中变量c

的值是大写字母“A”，最终结果是大写字母“C”。

13.窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输

入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click()

Text2．Text=UCase(Mid(Text1．Text，5，4)) End Sub 在Text2中显示的是

（分数：2.00）

√

解析：解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数

字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。

14.窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() m=-3．6

IfSgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显

示的内容为

（分数：2.00）

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。

15.设有如下程序： Private Sub Form_Click() num=InputBox("请输入一个实数")：p=InStr(num，"．")

Ifp>0 Then Print Mid(num，p+1) Else Print"END" End If End Sub 运行程序单击窗体，根据提示输入

一个数值。如果不是输入实数，则输出“END”；否则

（分数：2.00）

A.用字符方式输出该实数

B.输出该实数的整数部分

C.输出该实数的小数部分 √

D.去掉实数中小数点，保留所有数码输出

解析：解析：字符串匹配函数lnstr用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返

回0：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的

字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找

到小数点的位置，然后输出小数点后面的部分，即小数部分。

16.在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form Load() Private Sub

Form Click() Text1．Text=""：Text1．SetFocus Dim a As String，S As String End Sub a=Text1．Text：

s="" For k=l To Len(a) s=UCase(Mid(a，k，1))+s Next k Text1．Text=s End Sub 程序运行后，在文

本框中输入一个字符串，然后单击窗体，则文本框中的内容

（分数：2.00）

A.与原字符串相同

B.与原字符串中字符顺序相同，但所有字母均转换为大写

C.为原字符串的逆序字符串，且所有字母转换为大写 √

D.为原字符串的逆序字符串

解析：解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数

字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。

本题中在循环内每次取出第k位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串的逆序

字符串。

17.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=InputBox("

请输入一个二进制数")：n=Len(a$) For i=1 To n Dec=Dec*2+_______(a$，i，1) Next i Print Dec End

Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单

击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是

（分数：2.00）

√

解析：解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数

字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。