1、国家二级 VB机试（数据类型及运算）模拟试卷 30及答案与解析 一、选择题 1 产生 100以内 (不含 100)2位随机整数的 Visual Basic表达式是 （ A） Int(Rnd(1)*91)+10 （ B） Int(Rnd(1)*90)+10 （ C） Int(Rnd(1)*91)+11 （ D） Int(Rnd(1)*90)+11 2 在窗体上画两个文本框，其名称分别为 Textl和 Text2，然后编写如下程序： Private Sub Form_Load() Textl Text=“： Text2 Text=“： TeXt1 SetFocus End Sub Private
2、Sub Textl_Change() Text2 Text=Mid(Text1 Text， 6) End Sub 程序运行后，如果在文本框 Text1中输入 ChinaBeijing，则在文本框 Text2中显示的内容是 （ A） ChinaBeijing （ B） China （ C） Beijing （ D） ChinaB 3 设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String strL As Integer tStr=“ strL=Len(xStr)i=1 Do While i0 Then P
3、rint Mid(num， P+1) Else Print”END” End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则 （ A）用字符方式输出该实数 （ B）输出该实数的整数部 分 （ C）输出该实数的小数部分 （ D）去掉实数中小数点，保留所有数码输出 12 在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Textl Text=”： Text1 SetFocus End Sub Private Sub Form_Click() Dim a As String S As
4、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 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容 （ A）与原字符串相同 （ B）与原字符串中字符顺序相同，但所有字母均转换为大写 （ C）为原字符串的逆序字符串，且所有字母转换为大写 （ D）为原字符串的逆序字符串 13 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() a$=InputBox(”请输入一个二进制数 ”)： n=L
5、en(a$) For i=1 To n Dec=Dec*2+_(a$， i， 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击 “确定 ”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是 （ A） Left （ B） Right （ C） Val （ D） Mid 14 以下程序的功能是随机产生 10个两位的整数： Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer,i As Integer
6、Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1： Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是 （ A） a(i)=Int(Rnd*100) （ B） a(i)=Int(Rnd*90)+10 （ C） a(i)=Int(Rnd*100)+10 （ D） a(i)=Int(Rnd*101) 15 窗体上有一个名称为 Commandl的命令按钮，单击该按钮时所实现的功能是产生 10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置若没有找到，给出
7、相应的提示。该命令按钮的单击事件过程如下： Private Sub Commandl_Click() Dim a(10)As Integer， X As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next x=InputBox(”输入 100以内的整数： ”):p=0 For i=1 To 10 If a(i)=x Then P=i： Exit For End If Next Ifp=0 Then Print”没有找到与输入数据相同的数 !” Else Print Str(x)+”在数组中的位置是 ”+Str(p) End If End Sub 对于上述事
8、件过程，以下叙述中正确的是 （ A）本程序实际产生的随机数是 0 99 （ B）若产生的随机数中有相同数，则 P是其中最后一个数的位置 （ C）程序有错， P的初值设置不对 （ D）程序有错， InputBox函数产生的数据与 x的类型不匹配 16 表达式 5 Mod 3+3 5*2的值是 （ A） 0 （ B） 2 （ C） 4 )6 17 设有如下程序段： x=2 For i=1 To Step 2 x=x+i Next i 运行以上程序后， X的值是 （ A） 26 （ B） 27 （ C） 38 （ D） 57 18 设 a=“MicrosoflVisualbasic”，则以下使变量
9、b的值为 “Visualbasic”的语句是 （ A） b=Left(a， 10) （ B） b=Mid(a， lO) （ C） b=Right(a， 10) （ D） b=Mid(a， 11， lO) 19 设 a=”a”， b=”b”， c=“c“， d=“d“，执行语句 x=IIf(ad)， ”A”， ”B”) 后， x的值为 （ A） ”a” （ B） ”b” （ C） ”A” （ D） ”B” 20 设有如下语句： Dim a,b As Integer c=”VisualBasic” d=#7 20 2005# 以下关于这段代码的叙述中，错误的是 （ A） a被定义为 Integer
10、类型变量 （ B） b被定义为 Integer类型变量 （ C） C中的数据是字符串 （ D） d中的数据是日期类型 21 设 x=4， y=6，则以下不能在窗体上显 示出 “A=10”的语句是 （ A） Print A=x+y （ B） Print”A=”； x+y （ C） Print”A=”=Str(x+y) （ D） Print”A=”x+y 22 下列表达式中不能判断 x的是否为偶数的是 （ A） x 2=Int(x 2) （ B） x Mod 2=0 （ C） Fix(x 2)=x 2 （ D） x 2=O 23 如设置了文本框的属性 PasswordChar=”$”，则运行程序时
11、向文本框中输入 8个任意与后，文本框中显示的是 （ A） 8个 “$” （ B） 1个 “$” （ C） 8个 “*” （ D）无任何内容 24 为了计算 1+3+5+99 的值，某人编程如下： k=1： s=0 while k99 （ C）循环前的赋值语句 k=1错误，应改为 k=0 （ D）循环中两条赋值语句的顺序错误，应改为 s=s+k： k=k+2 25 如果执行一个语句后弹出如图所示的窗口，则这个语句是（ A） InputBox(”输入框 ”， ”请输入 VB数据 ”) （ B） x=InputBox(”输入框 ”， ”请输入 VB数据 ”) （ C） InputBox(”请输入 V
12、B数据 ”， ”输入框 ”) （ D） x=InputBox(”请输入 VB数据 ”， ”输入框 ”) 26 下列可以打开随机文件的语句是 （ A） Open”filel dat”For Input As#1 （ B） Open”filel dat”For Append As#1 （ C） Open”filel dat”For Output As #1 （ D） Open”filel dat”For Random As #1 len=20 27 下面可以产生 20 30(含 20和 30)的随机整数的表达式是 （ A） Int(Rnd*10+20) （ B） Int(Rnd*11+20) （
13、C） Int(Rnd*20+30) （ D） Int(Rnd*30+20) 28 假定用下面的语句打开文件： Open”File1 txt”For Input As#1 则不能正确读文件的语句是 （ A） Input#1， ch$ （ B） Line Input#1 ch$ （ C） ch$=lnput$(5， #1) （ D） Read#1， ch$ 29 设 x是小于 10的非负数。对此陈述，以下正确的 VB表达式是 （ A） 00 and x0 or x99循环一次也不执行；选项 C)变量 k表示数列元素，初值为 1表示数列第一项，是正确的；选项 D)正确，如果 k=k+2放在前面，那么
14、计算的数列第一项是 3，而不是 1。 【知识模块】 数据类型及运算 25 【正确答案】 D 【试题解析】 本题考查 InputBox的使用，语法是： InputBox(prompt， title，default,xpos,ypos) 其中的 prompt为窗口的提示， title为输入窗口的标题，default为输入窗口的默认内容， xpos， ypos为窗口距离屏幕左边，上边的距离。在本题中，第一个参数 prompt为 “请输入 VB数据 ”，标题为 “输入框 ”。 【知识模块】 数据类型及运算 26 【正确答案】 D 【试题解析】 本题考查文件操作， VB中打开随机文件的语法为： Open
15、For Random As#Len=1 其中： For Random表示打开随机文件， Len用来指定记录的长度，记录长度的缺省值为 128个字节。 【知识模块】 数据类型及运算 27 【正确答案】 B 【试题解析】 本题考查常用函数。如果产生一个 m到 n之间的随机数 (nm，包含 n和 m)表达式可为： r=Int(Rnd*(n m+1)+m) 【知识模块】 数据类型及运算 28 【正确答案】 D 【试题解析】 本题考查文件操作，读文件使用 Line Input、 Input#， (以上为文本方式 )和 Get(以上为二进制方式 )。 Open“Filel txt”For Input As#1是以输入方式打开 File1 txt文本文件，因此可以使用 Line Input和 Input方法读文件，选项 D)错误。 【知识模块】 数据类型及运算 29 【正确答案】 C 【试题解析】 本题考查 VB表达式。 x是一个小于 10的非负数， x0和 x10两者是与的关系。 【知识模块】 数据类型及运算 30 【正确答案】 D 【试题解析】 本题考查的考点是有关自定义类型和 Fix函数的。用户可以通过Type语句 自定义类型，并可用自定义的类型声明变量。注意 Fix函数是向下取整， Round函数是四舍五入。 【知识模块】 数据类型及运算
