VB二级考试习题及答案2

练习3

一、单选题（30分，每小题1分）

◆一个完整计算机系统应包括___(1)____。

(A)主机、键盘、和显示器(B)硬件系统和软件系统

(C)主机和其他外部设备(D)系统软件和应用软件

◆打印机属于计算机部件中的___(2)___。

(A)输出设备(B)输入设备(C)存储设备(D)缓冲设备

◆下列表示存储容量的数据中，____(3)____是最大的。

(A)20480KB(B)1.44MB(C)1GB(D)4865723Byte

◆在计算机内部能够直接执行的程序语言是___(4)____。

(A)数据库语言(B)高级语言(C)机器语言(D)汇编语言

◆下列叙述正确的是___(5)____。

(A)程序设计就是编制程序(B)程序的测试必须由程序员自己去

完成

(C)程序经调试改错后还应进行再测试(D)程序经调试改错后不必进行再测试

◆以下叙述中错误的是___(6)___。

(A)Visual Basic是事件驱动型可视化编程工具

(B)Visual Basic应用程序不具有明显的开始和结束语句

(C)Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性

(D)Visual Basic中控件的某些属性只能在运行时设置

◆以下不属于VB工作模式的是___(7)___模式。

(A)编译(B)设计(C)运行(D)中断

◆以下语句的输出结果是___(8)___。

Print Format$(32548.5,“000,000.00”)

(A)32548.5(B)32,548.5(C)032,548.50(D)32,548.50

◆若要使某可见控件获得焦点，则可使用___(9)_____方法来实现。

(A)Refresh(B)SetFocus(C)Value(D)GotFocus

◆在下列说法中，正确的是___(10)___。

(A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上

(B)在列表框中不能进行多项选择

(C)VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列

(D)复选框的Value属性值为布尔型

◆执行以下程序段,输出的结果为___(11)___。

a$="abbacddcba"

For i=6To2Step-2

x=Mid(a,i,i):y=Left(a,i)

z=Right(a,i):z=UCase(X&Y&z)

Next i

Print z

(A)ABA(B)BBABBA(C)ABBABA(D)AABAAB

◆控件在窗体上的位置是由___(12)___属性确定的。

(A)Width和Height(B)Top和Left(C)Width和Left(D)Top和Width

◆关于Name属性，以下叙述中___(13)___是正确的。

(A)窗体的Name属性指定窗体的名称，用于标识一个窗体。

(B)窗体的Name属性用于设置显示在窗体标题栏的文本。

(C)可以通过代码在程序运行中改变某个对象的Name属性值。

(D)对象的Name属性值可以设置为空。

◆下列名称中___(14)___可以作为VB的变量名。

(A)mod(B)m-d(C)tempVal(D)left

◆要求出变量x和y中较大的一个并保存在变量Max中，下面的程序段中___(15)___

是不正确的。

(A)Max=IIf(x>y,x,y)(B)If x>y Then Max=x Else Max=y

(C)Max=x

If y>=x Then Max=y (D)If y>x Then Max=y

Max=x

◆执行以下语句后，a的值为___(16)___

Dim a As Integer

a=1

Do Until a=100

a=a+2

Loop

(A)102(B)100(C)溢出(D)101

◆对于语句If a=b Then c=d的语法分析，___(17)___是正确的。

(A)a=b和c=d都是赋值语句(B)a=b是关系表达式，c=d是赋值语句

(C)a=b和c=d都是关系表达式(D)a=b是赋值语句，c=d是关系表达式

◆运行下列程序段，单击两次命令按钮，则第二次单击时窗体中显示的结果是__(18)__。

Private Sub Command1_Click()

Dim a As Integer

Static b As Integer

a=a+5:b=b+5

Print a,b

End Sub

(A)510(B)55(C)1010(D)00

◆在系统默认的情况下，Dim a(3,4,2To5)定义的数组共有___(19)___个元素。

(A)36(B)48(C)60(D)80

◆下面的子过程定义语句中没有语法和逻辑错误的是___(20)___。

(A)Sub S1(ByVal n%())(B)Sub S1(n As Integer)As Integer

(C)Function S1(ByVal n As Integer)(D)Function S1%(ByVal S1As Integer)

◆执行了下面程序后，组合框中数据项的值是___(21)___。

Private Sub Form_Click()

For i=1to6

Combo1.AddItem i

Next i

For i=1to3

Combo1.RemoveItem i

Next i

End Sub

(A)156(B)135(C)456(D)246

◆设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选

中的列表项内容的是__(22)___.

(A)List1.List B）List1.ListIndex(C)List1.Index(D)List1.Text

◆在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编

写如下事件过程：

Private Sub Command1_Click()

n=Val(Text1.Text)

For i=2To n

For j=2To sqr(i)

If i Mod j=0Then Exit For

Next j

If j>Sqr(i)Then Print i

Next i

End Sub

该事件过程的功能是__(23)__

(A)输出n以内的奇数(B)输出n以内的偶数

(C)输出n以内的素数(D)输出n以内能被j整除的数

◆如果要在菜单中添加一个分隔线，则应将其标题属性设置为___(24)_____。

(A)=(B)*(C)&(D)-

◆以下关于文件的叙述中正确的是__(25)__。

(A)一个记录中所包含的各元素的数据类型都是相同的(B)随机文件中每个记录的长度是固定的(C)Open 命令的作用是打开一个已经存在的文件(D)使用Input #语句可以从随时机文件中读取数据

◆以下定义数组或给数组元素赋值的语句中，正确的是__(26)__。

(A)Dim a As Variant

(B)Dim a(10)As Integer

a=Array(1,2,3,4,5)a=Array(1,2,3,4,5)(C)Dim a%(10)

(D)Dim a(3),b(3)As Integer

a(1)="ABCDE"a(0)=0:a(1)=1:a(2)=2:b=a ◆窗体中有一个命令按钮，编写如下程序，程序运行后，输出结果为___(27)___。

Private Sub test(p,m,n)p=p+1:m=m+1:n=n+1Print “Sub:”;p;m;n End Sub

Private Sub Command1_Click()a1=1:b1=2:c1=3Call test(a1,b1+3,(c1))Print “Main:”;a1;b1;c1End Sub

(A)Sub:264Main:264(B)Sub:264Main:164(C)Sub:264Main:123(D)Sub:264

Main:223

◆以下语句用于打开一个顺序文件Open"C:\MyFile.txt"For OutPut,但是该语句的一

个重要错误是没有___(28)_____。

(A)指定打开方式(B)指定文件号(C)指定打开文件名(D)指定文件类型◆在窗体上画一个名称为Label1、标题为“VisualBasic 考试”的标签，两个名称分别

为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval 属性设置为500。编写如下程序：Private Sub Form_Load()Timer1.Enabled=False End Sub

Private Sub Command1_Click()Timer1.Enabled=True End Sub

程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是___(29)___

Private Sub Timer1_Timer()If Label1.Left

Label1.Left=0End If End Sub

(A)标签的移动方向为自右向左

(B)单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动(C)当标签全部移出窗体后，将从窗体的另一端出现并重新移动(D)标签按指定的时间时隔移动

◆设有如下程序，通过For 循环计算一个表达式的值，这个表达式是___(30)____：

Private Sub Command1_Click()Dim sum As Double,x As Double sum =0:n =0

For i =1To 5

x =n /i:n =n +1:sum =sum +x

Next End Sub

(A)1+1/2+2/3+3/4+4/5(B)1+1/2+2/3+3/4(C)1/2+2/3+3/4+4/5

(D)1+1/2+1/3+1/4+1/5

二、填空题（50分，每空2分）

◆Visual Basic 中有三种类型的模块文件，即类模块、标准模块和___[1]__窗体模块。◆将数学式|

|33ab y 写成VB 表达式，应该是___[2]sqr(y^3+3/abs(a*b))____。

◆赋值语句：a=123+MID("123456",3,2)执行后，a 变量中的值__[3]157____。◆Visual Basic 提供的对数据文件的三种访问方式为顺序访问方式、___[4]_随机访问

方式___和二进制访问方式。

◆执行下列语句序列，显示的结果是___[5]false___。

a =2:

b =3:

c =4:

d =5

Print 3>2*b Or a =c And b <>c Or c >d

◆运行下列程序，单击命令按钮，则Text1中显示___[6]5___，窗体中显示___[7]0___。

Private Sub Command1_Click()

Dim i As Integer,j As Integer,a(5,4)As Integer For i =2To 3For j =2To 4a(i,j)=i +j Next j Next i

Text1.Text =a(3,2)Print a(3,1)

End Sub

◆如下图，窗体上有两个命令按扭C1,C2及一个文本框Text1，当按下C1时，将C2

的标题与Text1

中的内容交换。

Private Sub C1_Click()

Dim a As String

Form1.Caption="交换后"

a=___[8]text1.text____

Text1.Text=___[9]c2.caption____

C2.Caption=a

End Sub

◆请完善以下判断完数的程序。一个数如果恰好等于它的因

子之和，这个数就被称为“完数”。一个数的因子是指除

了该数本身以外能够被其整除的数。例如6是一个完数，

因为6=1+2+3。

Private Sub CmdJudge_Click()

Dim a()

m=Val(Text1.Text)

ReDim a(1)

a(1)=1

k=___[10]_1__

j=1

For i=2To m-1

If m Mod i=0Then

k=k+i'因数和

j=j+1'因数个数

ReDim___[11]_preserve__a(j)

a(j)=___[12]i____

End If

C1

C2

If___[13]_k=m___Then

Picture1.Print m&"是完数"

Picture1.Print m;"=";

For i=1To UBound(a)-1

Picture1.Print a(i);"+";

Next i

Picture1.Print

___[14]a(ubound(a))___

Else

Picture1.Print m&"不是完数"

End If

End Sub

Next I(转右)

◆编写程序。在窗体上显示如下图所示的“九九加法表”。

___[15]option___Explicit Private Sub Form_Click()Dim i%,j%Print "+

1

2

3

4

5

6

7

8

9"

For i =1To ___[16]_9___

Print i;

For j =1To ___[17]i____If i +j <10___[18]then__Print "";

Print _[19]i+j__;

Next j

___[20]print____Next i End Sub

◆在窗体上画一个名称为Command1的命令按钮，然后编写如下程序,通过调用过程

Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空Option Base 1

Private Sub Command1_Click()Dim a(10)As Integer For i =1To 10a(i)=i Next

Call Swap(___[21]a()___)For i =1To 10Print a(i);Next End Sub

◆设当前文件夹已有文件t1.txt 和t2.txt，其中各有若干文字。现要将t2.txt 的内

容合并到t1.txt 中。例如t1.txt 原来内容为"ABCD",t2.txt 原来内容为"1234"，合并后t1.txt 的内容将成为“ABCD1234”

Private Sub Command1_Click()

Open "t1.txt"____[24]for append____As #1Open "t2.txt"For Input As #2

Sub Swap(b()As Integer)n =___[22]ubound(b)___For i =1To n /2t =b(i)b(i)=b(n)b(n)=t ___[23]_n=n+1__Next End

Sub

Do While Not EOF(2)

Line Input#2,s

____[25]print#1,s____

Loop

Close

End Sub

三、编程题（20分，每题10分）

1．编写一个自定义函数Gcd(m,n),实现求m和n两个正整数的最大公约数。Function gcd(n%,m%)

p=n Mod m

If p=0Then

gcd=p

Else

gcd=gcd(m,p)

End If

End Function

2．在文本框Text1中输入一串字符，用标签Label1显示其中出现频率最高的字母（不区分大小写）及其出现次数。例如：输入“This is a beautiful world.”则输出“使用频率最高的是i，共出现3次。”

Option Base1

Private Sub command1_click()

Dim zimu$,a(1To26)As Integer

l=Len(Text1.Text)

For i=1To l

zimu=LCase(Mid(Text1.Text,i,1))

If zimu>="a"And zimu<="z"Then

j=Asc(zimu)-97+1

a(j)=a(j)+1

End If

Next i

Max=1

For i=2To26

If a(i)>a(Max)Then

t=i:i=Max:Max=t

End If

Next i

de=Chr(Max-1+97)

Label1.Caption="使用频率最高的是"&de&",共出现"&a(Max)&"次." End Sub