2024年全国计算机等级考试二级vb题库

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单) A.空 B.abcdef C.abc D.def

52086.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x = -5

If x ＞0 Then y = x ^ 2 Else y = x End If Print y End Sub

程序运行后，单击命令按钮，窗体上显示的是(A)(单) A.-5 B.25 C.1 D.-1

52087.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单) A.变量X、Y的作用域相同 B.Y的作用域是Model1 C.在Form1的任何地方中可以直接使用Y D.在Form2中可以直接使用X和Y

52088.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单) A.Drive1_Change B.Drive1_Click C.Dir1_Click D.Dir1_KeyPress

52089.在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码： Option Base 1

Private Sub Command1_Click( ) Dim a s = 0

a = Array(1, 2, 3, 4) For I = 4 To 1 Step -1 s = s + a(I) Next I Print s End Sub

运行上面的程序，单击命令按钮，其输出结果是(D)(单) A.4321 B.1234 C.34 D.10

52090.在窗体上画一个名称为Text1的文本框，编写以下代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii ＜ 65 Or KeyAscii＞ 90 Then msgBox \请输入大写字母\KeyAscii = 0 End If End Sub

以下能说明该事件过程正确是(A)(单) A.要求文本框只能接收大写字母的输入 B.要求文本框只能接收小写字母的输入 C.要求文本框只能接收数字的输入

D.要求文本框只能接收65到90之间的数值的输入

36

52091.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n\\2 = n/2 Then f = f1(n) Else

f = f2(n) End If Print f; n End Sub

Public Function f1(ByRef x) x=x*x f1=x+x

End Function

Public Function f2(ByVal x) x=x*x f2=x+x+x End Function

程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单) A.72 36 B.108 36 C.72 6 D.27 3

52092.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = \For i = 1 To 4 c1 = Trim(Str( )) Print c1 Next i End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234

则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)

52093.在窗体上画一个名称为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

该事件过程的功能是(C)(单)

A.输出n以内的奇数 B.输出n以内的偶数

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

36

52094.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If

End Function

Private Sub Command1_Click( ) Dim i As Integer s = 0

For i = 1 To 5 s = s + f(i) Next Print s End Sub

程序运行后，单击命令按钮，在窗体上显示的是(C)(单) A.11 B.10 C.9 D.8

52095.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4

array1(i, j) = i + j Next j Next i

Text1.Text = array1(2, 3) + array1(3, 4) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是(D)(单) A.15 B.14 C.13 D.12

52096.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

52097.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。

Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then popupmenu mnuEdit End If End Sub

52098.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。

Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then

【popupmenu】 mnuEdit End If

52099.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。

36

52100.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。 52101.与数学表达式ln(a+b)/(3x)+5 对应的Visual Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】

*52102.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】

52103.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。 Private Sub Option1_Click(Index As Integer) Select Case 【Index】 Case 0 a = \宋体\Case 1 a = \黑体\Case 2

a = \楷体＿GB2312\End Select

text1.fontname=a End Sub

52104.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。 Private Sub Option1_Click(Index As Integer) Select Case index Case 0 a = \宋体\Case 1 a = \黑体\Case 2

a = \楷体＿GB2312\End Select

text1.【fontname】=a End Sub

52105.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。 Private Sub Combo1_Click( ) Call ShowItem(Combo1, Label1) End Sub

Private Sub Combo2_Click( ) Call ShowItem(Combo2, Label2) End Sub

Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) 【tmplabel】.Caption =tmpCombo.Text End Sub

52106.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。 Private Sub Combo1_Click( ) Call ShowItem(Combo1, Label1) End Sub

Private Sub Combo2_Click( ) Call ShowItem(Combo2, Label2) End Sub

36

Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) tmpLabel.Caption =【tmpcombo】.Text End Sub

52107.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) n = 5 f = 1 s = 0

For c = 1 To n f = f*【7】 s = s + f Next c Print s End Sub

该事件过程的功能是计算1!+2!+3!+…+n!的值。

52108.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1

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

Call【swap】a( ) For I = 1 To 10 Print a(I); Next End Sub

Sub swap(b( ) As Integer) n = ubound(b)

For I = 1 To n / 2 t = b(I) b(I) = b(n) b(n) = t n=n-1 Next I End Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。

52109.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1

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

Call swap（a( )） For I = 1 To 10 Print a(I); Next End Sub

36