??则在下划线处应填入的内容为
??A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i)
??(26) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：东方教育网提供 Http://www.eastedu.com.cn ??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
??该事件过程的功能是
??A) 输出n以内的奇数 B) 输出n以内的偶数
??C) 输出n以内的素数 D) 输出n以内能被j整除的数
??(27) 在以下描述中正确的是
??A) 标准模块中的任何过程都可以在整个工程范围内被调用
??B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程 ??C) 如果工程中包含Sub Main过程，则程序将首先执行该过程
??D) 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体 ??(28) 在窗体上画一个名称为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
??程序运行后，单击命令按钮，在窗体上显示的是
??A) 11 B) 10 C) 9 D) 8
??(29) 在窗体上画一个名称为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
??程序运行后，单击命令按钮，在文本框中显示的值是 ??A) 15 B) 14 C) 13 D) 12
??(30) 在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程： ??Private Sub Command1_Click() ?? For Each TextBox In Text1 ?? Text1(i) = Text1(i).Index ?? i = i + 1
?? Next ??End Sub
??程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ??A) 0 1 2 3 B) 1 2 3 4 ??C) 0 1 3 2 D) 出错信息
??二、填空题(每空2分，共30分)
??请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。 ??(1) Visual Basic应用程序中标准模块文件的扩展名是【1】 。
??(2) 在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
??Private Sub Form 【2】 (Button As Integer, Shift As Integer, X As Single, Y As Single) ??If Button=2 Then ?? 【3】 mnuEdit ??End If
??End Sub
??(3) 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】属性设置为【5】 。
??(4) 与数学表达式 对应的Visual Basic表达式是【6】 。
??(5) 将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【7】 。 ??(6) 在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。 ??
??Private Sub Option1_Click(Index As Integer) ?? Select Case 【8】 ?? Case 0
?? a = \宋体\
?? Case 1 ?? a = \黑体\?? Case 2
?? a = \楷体＿GB2312\?? End Select
?? text1. 【9】 =a
??End Sub
?? (7) 在窗体上画两个组合框，其名称分别为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)
?? 【10】.Caption =【11】.Text ??End Sub
??（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： ??Private Sub Command1_Click() ?? n = 5 ?? f = 1 ?? s = 0
?? For i = 1 To n ?? f = f【12】 ?? s = s + f ?? Next ?? Print s ??End Sub
??该事件过程的功能是计算的值。请填空。
??（9）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： ??Option Base 1
??Private Sub Command1_Click() ?? Dim a(10) As Integer ?? For i = 1 To 10 ?? a(i) = i
?? Next
?? Call swap（ 【13】 ） ?? For i = 1 To 10
?? Print a(i);
?? Next ??End Sub
??Sub swap(b() As Integer) ?? n = 【14】 ?? For i = 1 To n / 2 ?? t = b(i) ?? b(i) = b(n) ?? b(n) = t ?? 【15】 ?? Next ??End Sub
??上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，??，a(5)与a(6)的值互换。请填空。 ??
2004年4月全国计算机等级考试二级VB语言笔试试题答案 ??
??参考答案 ??
??一、选择题（(1)—(20)每小题2分，(21)—(30)每小题2分，共70分） ??(1) B (2) D (3) A (4) A (5) C ??(6) D (7) C (8) D (9) B (10) C
??(11) A (12) B (13) C (14) D (15) A (16) B (17) D (18) C (19) C (20) A ??(21) B (22) A (23) C (24) A (25) B ??(26) C (27) A (28) C (29) D (30) A ??二、填空题(每空2分，共30分) ??(1) 〖1〗 .bas
??(2) 〖2〗 mousedown ?? 〖3〗 popupmenu ??(3) 〖4〗 interval ?? 〖5〗 500
??(4) 〖6〗 (cos(a+b))^2/(3*x)+5
??(5) 〖7〗 Picture1.picture=loadpicture(“c:\\moon.jpg”) ??(6) 〖8〗 index ?? 〖9〗 font ??(7) 〖10〗 tmplabel ?? 〖11〗 tmpCombo ??(8) 〖12〗 *(1/i ) ??(9) 〖13〗a()
?? 〖14〗ubound(b) ?? 〖15〗 n=n-1
2004年9月全国计算机等级考试二级VB语言笔试试题及答案
一、选择题 （(1)～(20)每小题2分，(21)～(30)每小题3分，共70分下列各题 A)、 B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
(1)设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是 A．Text1.MaxLength=0 B．Text1.Enabled=Flase C．Text1.Visible=Flase
D．Text1.Width=0
(2)以下能在窗体Form1的标题栏中显示“VisualBasic窗体\的语句是 A．Form1.Name=\窗体\ B．Form1.Title=\窗体\
C．Form1.Caption=\窗体\ D．Form1.Text=\窗体”
(3)在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。
以下能实现上述操作的程序段是 A．Private Sub Hscroll1_Change() Text1.Text=HScroll1.Value End Sub
B．Private Sub Hscroll1_Click() Text1.Text=HScroll1.Value End Sub
C．Private Sub Hscroll1_Change() Text1.Text=Hscroll1.Caption End Sub
D．Private Sub Hscroll1_Click() Text1.Text=Hscroll1.Caption End Sub
(4)设菜单中有一个菜单项为\。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行\命令，则在菜单编辑器中设置“Open\命令的方式是 A．把Caption属性设置为&Open B．把Caption属性设置为O&pen C．把Name属性设置为&Open
D．把Name属性设置为O&pen
(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(\ Select Case x