计算机二级VB考试题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩!1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容 121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS 或.BAS】(注意不要写点)。
7.在菜单器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Thenpopupmenu mnuEditEnd IfEnd Sub8.在菜单器中建立一个菜单，其主菜单项的名称为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】 mnuEditEnd If9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
11.与数学表达式ln(a+b)/(3x)+5 对应的Visual Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】12.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】13.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)Select Case 【Index】Case 0a = "宋体"Case 1a = "黑体"Case 2a = "楷体_GB2312"End Selecttext1.fontname=aEnd Sub14.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)Select Case indexCase 0a = "宋体"Case 1a = "黑体"Case 2a = "楷体_GB2312"End Selecttext1.【fontname】=aEnd Sub15.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。
程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click( )Call ShowItem(Combo2, Label2)End SubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)【tmplabel】.Caption =tmpCombo.TextEnd Sub16.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click( )Call ShowItem(Combo2, Label2)End SubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)tmpLabel.Caption =【tmpbo】.TextEnd Sub17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )n = 5f = 1s = 0For c = 1 To nf = f*【7】s = s + fNext cPrint sEnd Sub该事件过程的功能是计算1!+2!+3!+…+n!的值。
18.在窗体上画一个名称为Command1的'命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerFor I = 1 To 10a(I) = INext ICall【swap】a( )For I = 1 To 10Print a(I);NextEnd SubSub swap(b( ) As Integer) n = ubound(b)For I = 1 To n / 2t = b(I)b(I) = b(n)b(n) = tn=n-1Next IEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
19.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( ) Dim a(10) As IntegerFor I = 1 To 10a(I) = INext ICall swap(a( ))For I = 1 To 10Print a(I);NextEnd SubSub swap(b( ) As Integer)n =【ubound(b)】For I = 1 To n / 2t = b(I)b(I) = b(n)b(n) = tn=n-1Next IEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
20.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerFor I = 1 To 10a(I) = INext ICall swap(a( ))For I = 1 To 10Print a(I);Next IEnd SubSub swap(b( ) As Integer) n = ubound(b)For I = 1 To n / 2t = b(I)b(I) = b(n)b(n) = tn=【n-1】Next IEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。