VB二级考试习题及答案2

vb二级考试题

练习3

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

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

(A) 主机、键盘、和显示器 (B)硬件系统和软件系统 (C) 主机和其他外部设备 (D) 系统软件和应用软件 打印机属于计算机部件中的___(2)___。

(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 缓冲设备 下列表示存储容量的数据中，____(3)____是最大的。

(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte 在计算机内部能够直接执行的程序语言是___(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=6 To 2 Step -2 x=Mid(a,i,i): y=Left(a,i)

vb二级考试题

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 (D) If y > x Then Max = y

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

vb二级考试题

(A) 5 10 (B) 5 5 (C) 10 10 (D) 0 0 在系统默认的情况下，Dim a(3, 4, 2 To 5) 定义的数组共有___(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 S1 As Integer) 执行了下面程序后，组合框中数据项的值是___(21)___ 。

Private Sub Form_Click()

For i=1 to 6 Combo1.AddItem i Next i For i= 1 to 3 Combo1.RemoveItem i Next i End Sub

(A)1 5 6 (B)1 3 5 (C)4 5 6 (D)2 4 6

设窗体上有一个列表框控件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 = 2 To n For j = 2 To sqr(i)

If i Mod j = 0 Then 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)-

vb二级考试题

以下关于文件的叙述中正确的是__(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+1 Print “Sub:”; p; m; n End Sub

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

(A) Sub: 2 6 4 (B) Sub: 2 6 4 (C) Sub: 2 6 4 (D) Sub: 2 6 4

Main: 2 6 4 Main: 1 6 4 Main: 1 2 3 Main: 2 2 3

以下语句用于打开一个顺序文件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()

Private Sub Timer1_Timer() If Label1.Left<Width Then Label1.Left = Label1.Left + 20 Else

Label1.Left=0 End If End Sub

vb二级考试题

Timer1.Enabled=True End Sub

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

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

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

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

Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0: n = 0 For i = 1 To 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]__窗体模块。 将数学式

y3

3

|ab|

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

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

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

执行下列语句序列，显示的结果是___[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 = 2 To 3 For j = 2 To 4

vb二级考试题

a(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中的内容交换。

C1

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 = 2 To m - 1 If m Mod i = 0 Then

If ___[13]_k=m___ Then

Picture1.Print m & "是完数" Picture1.Print m; "="; For i = 1 To UBound(a) - 1 Picture1.Print a(i); "+"; Next i Picture1.Print ___[14]a(ubound(a))___

vb二级考试题

k = k + i ' 因数和 j = j + 1 ' 因数个数 ReDim ___[11]_preserve__ a(j) a(j) = ___[12]i____ End If Next I(转右)

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

___[15]option___ Explicit Private Sub Form_Click() Dim i%, j%

Print " + 1 2 3 4 5 6 7 8 9" For i = 1 To ___[16]_9___ Print i;

For j = 1 To ___[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 = 1 To 10 a(i) = i Next

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

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

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

vb二级考试题

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

Private Sub Command1_Click()

Open "t1.txt" ____[24]for append____ As #1 Open "t2.txt" For Input As #2 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=0 Then Else End If

End Function

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

Option Base 1

Private Sub command1_click() Dim zimu$, a(1 To 26) As Integer l = Len(Text1.Text) For i = 1 To l

zimu = LCase(Mid(Text1.Text, i, 1)) If zimu >= "a" And zimu <= "z" Then

vb二级考试题

j = Asc(zimu) - 97 + 1 a(j) = a(j) + 1 End If Next i Max = 1 For i = 2 To 26 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

本文来源：https://www.bwwdw.com/article/oba1.html