《9月计算机二级考试VB备考题及答案》由会员分享，可在线阅读，更多相关《9月计算机二级考试VB备考题及答案（18页珍藏版）》请在金锄头文库上搜索。
1、XX年9月计算机二级考试VB备考题及答案 xx年马上就要开始了，你报考了哪个科目呢?下面是为大家带来的计算机二级考试VB备考题，欢迎阅读。 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1Click( ) n = Val(Text1.Text) If n2 = 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 P
2、ublic 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 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1Click( ) c = 1234 For i = 1 To 4 c1 = Trim(Str( ) Printc1 Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 那么在下划
3、线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i) 3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1Click( ) 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)(单)
4、A.输出n以内的奇数 B.输出n以内的偶数 C.输出n以内的素数 D.输出n以内能被j整除的数 4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1Click( ) Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，
5、在窗体上显示的是(C)(单) A.11 B.10 C.9 D.8 5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1Click( ) 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 程序运行后，单击命令
6、按钮，在文本框中显示的值是(D)(单) A.15 B.14 C.13 D.12 6.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 Then popupmenu mnuEdi
7、t End If End Sub 8.在菜单器中建立一个菜单，其主菜单项的名称为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 9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【I
8、nterval】属性设置为500。 10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。 1.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单项选择按钮：第一个名称为option1用来设置文本框的字体为宋体， 第二个名称为option2用来设置文本框的字体为黑体，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。 程序如下：(程序运行刚开始时，四个单项选择按钮都没有选中) Private Sub Comman
9、d1Click( ) Text1.FontName = Iif(Option1.Value, 宋体, 黑体) Text1.FontSize = Iif(Option3.Value, 8, 12) End Sub 当程序运行时，先单击单项选择按钮option2，然后单击命令按钮mand1，那么文本框text1的变化效果是(B) (单) A.字体设置为宋体 B.字体设置为黑体 C.字体大小设置为8号 D.字体大小设置为12号 2.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单项选择按钮：第一个名称为option1用来设置文本框的字体为宋体， 第二个名称为
10、option2用来设置文本框的字体为黑体，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。 程序如下：(程序运行刚开始时，四个单项选择按钮都没有选中) Private Sub Command1Click( ) Text1.FontName = Iif(Option1.Value, 宋体, 黑体) Text1.FontSize = Iif(Option3.Value, 8, 12) End Sub 当程序运行时，先单击单项选择按钮option3，然后单击命令按钮mand1，那么文本框text1的变化效果是(C) (单) A.字
11、体设置为宋体 B.字体设置为黑体 C.字体大小设置为8号 D.字体大小设置为12号 3.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单项选择按钮：第一个名称为option1用来设置文本框的字体为宋体， 第二个名称为option2用来设置文本框的字体为黑体，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。 程序如下：(程序运行刚开始时，四个单项选择按钮都没有选中) Private Sub Command1Click( ) Text1.FontName = Iif(Option1.Va
12、lue, 宋体, 黑体) Text1.FontSize = Iif(Option3.Value, 8, 12) End Sub 当程序运行时，先单击单项选择按钮option1，然后单击命令按钮mand1，那么文本框text1的变化效果是(A) (单) A.字体设置为宋体 B.字体设置为黑体 C.字体大小设置为8号 D.字体大小设置为12号 4.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单项选择按钮：第一个名称为option1用来设置文本框的字体为宋体， 第二个名称为option2用来设置文本框的字体为黑体，第三个名称为option3用来设置文本框的
13、字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。 程序如下：(程序运行刚开始时，四个单项选择按钮都没有选中) Private Sub Command1Click( ) Text1.FontName = Iif(Option1.Value, 宋体, 黑体) Text1.FontSize = Iif(Option3.Value, 8, 12) End Sub 当程序运行时，先单击单项选择按钮option4，然后单击命令按钮mand1，那么文本框text1的变化效果是(D) (单) A.字体设置为宋体 B.字体设置为黑体 C.字体大小设置为8号 D.字体大小设置为12号
14、5.在窗体中建立了一个名称为lstBooks的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModifyOk的命令按钮。 如下程序： Sub FormLoad( ) lstBooks.AddItem 计算机文化根底 lstBooks.AddItem VB程序设计教程 lstBooks.AddItem End Sub Sub cmdAddClick( ) lstBooks.AddItem txtItem txtItem = End Sub 对该程序说法不正确的选项是(D) (单) A.窗体启动时，在列表框中有三个列表工程，依次为：计算机文化根底、VB程序设计教程、操作系统 B.单击cmdAdd命令按钮后，把文本框中的信息添加到列表框中 C.在列表框中添加列表工程
