全国计算机等级考试二级VB语言笔试试题及答案Word下载.docx

1、 End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为 A） 15 16 B） 15 6 C） 15 15 D） 5 6 （7） 设a=3,b=5，则以下表达式值为真的是 A） a%26gt;=b And b%26gt;10 B） （a%26gt;b）Or（b%26gt;0） C） （a%26lt;0）Eqv（b%26gt;0） D） （-3+5%26gt;a）And（b%26gt; （8） 设有语句 x=InputBox（“输入数值”，“0”，“示例”） 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是 A） 变量X的值是数值10 B） 在I

2、nputBox对话框标题栏中显示的是“示例” C） 0是默认值 D） 变量X的值是字符串“10” （9） 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是 A） Left B） Mid C） String D） Instr （10） 设a=“Visual Basic”，下面使b=“Basic”的语句是 A） b=Left（a,8,12） B） b=Mid（a,8,5） C） b=Rigth（a,5,5） D） b=Left（a,8,5） （11） 以下能够触发文本框Change事件的操作是 A） 文本框失去焦点 B） 文本框获得焦点

3、C） 设置文本框的焦点 D） 改变文本框的内容 （12） 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ （） TxtTime.text=Time 在下划线上应填入的内容是 A） Enabled B） Visible C） Interval D） Timer （13） 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体

4、”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中（窗体外观如下图） ，则能够实现上述要求的语句序列是A） Option1.value=True B） Option1.Value=True Check1.Value=False Check1.Value=True C） Option2.Value=False D） Option1.Value=True Check1.Value=True Check1.Value=1 （14） 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 A） Value B） Default C） Ca

5、ncel D） Enabled （15） 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： For I=1 To 4 For J=0 To 1 Print Chr$（65+I）; Next J Print Next I 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A） BB B） A C） B D） AA CC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD （16） 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是 A） Autosize B） Stretch C） AutoRedraw

6、D） Appearance （17） 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Dim x As Integer,n As Integer x=1 n=0 Do While x10 Then xit for Next Text1.Text=Str（n） 程序运行后，单击命令按钮，在文本框中显示的值是 A） 2 B） 3 D） 4 D） 5 （19） 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Dim array1（10,10） As Integer Dim i

7、,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） A） 12 B） 13 C） 14 D） 15 （20） 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim i As Integer,j As Integer Dim a（10,10）As Integer For j=1 To 3 a（i,j）=（i-1）*3+j Print a（i,j）; Print 程序运行后，单击命令按钮，窗体上显示的是 A） 123 B

8、） 234 C） 147 D） 123 246 345 258 456 369 456 369 789 （21） 设有如下程序： Option Base 0 Private Sub Form_Click（） Dim a Dim i As Integer a=Array（1,2,3,4,5,6,7,8,9） For i=0 To 3 Print a（5-i）; End Sub 程序运行后，单击窗体，则在窗体上显示的是 A） 4 3 2 1 B） 5 4 3 2 C） 6 5 4 3 D） 7 6 5 4 （22） 下列叙述中正确的是 A） 在窗体的Form_Load事件过程中定义的变量是全局变量

9、 B） 局部变量的作用域可以超出所定义的过程 C） 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程 D） 在调用过程时，所有局部变量被系统初始化为0或空字符串 （23） 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是 A） Private Sub Command1_Click（） x=InputBox（“请输入整数”） a=F1

10、（Val（x） Print a Function F1（ByRef b As Integer） If b Mod 2=0 Then Return 0 Else Return 1 End If End Function B） Private Sub Command1_Click（） F1=0 F1=1 C） Private Sub Command1_Click（） F1（Val（x） D） Private Sub Command1_Click（） （24） 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Dim x,y,z As Integer

11、x=5 y=7 z=0 Text1.text=“” Call P1（x,y,z） Sub P1（ByVal a As Integer,ByVal b As Integer,c As Integer） c=a+b 程序运行后，如果单击命令按钮，则在文本框中显示的内容是 A） 0 B） 12 C） Str（z） D） 没有显示 （25） 以下叙述中错误的是 A） 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B） Sub过程中不能嵌套定义Sub过程 C） Sub过程中可以嵌套调用Sub过程 D） 事件过程可以像通用过程一样由用户定义过程名 （26） 以下叙述中错误的是

12、 A） 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母（即具有相同的KeyCode） B） 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字（具有不同的KeyCode） C） KeyPress事件中不能识别键盘上某个键的按下与释放 D） KeyPress事件中可以识别键盘上某个键的按下与释放 （27） 以下叙述中错误的是 A） 在同一窗体的菜单项中，不允许出现标题相同的菜单项 B） 在菜单的标题栏中，“%26”所引导的字母指明了访问该菜单项的访问键 C） 程序运行过程中，可以重新设置菜单的Visible属性 D） 弹出式菜

13、单也在菜单编辑器中定义 （28） 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是 A） menu1.Enabled=True B） Munu1.Enabled=False C） Menu1.Visible=True D） Menu1.Visible=False （29） 以下叙述中错误的是 A） 在程序运行时，通用对话框控件是不可见的 B） 在同一个程序中，用不同的方法（如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用 C） 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 D） 调用通用对话框控

14、件的ShowColor方法，可以打开颜色对话框 （30） 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是 A） “text （.txt）|（*.txt）” B）“文本文件（ .txt） | （.txt）” C） “text（.txt）|（*.txt）” D）“text（.txt）（*.txt）” （31） 以下叙述中错误的是 A） 一个工程中只能有一个Sub Main过程 B） 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 C） 窗体的Hide方法和Unload方法的作用完全相同 D）

15、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 （32） 以下叙述中错误的是 A） 一个工程中可以包含多个窗体文件 B） 在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C） 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D） 全局变量必须在标准模块中定义 （33） 设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String *10 TelNum As String *20 End Type 在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文

16、件Person.txt中写入一条记录。下列能够完成该操作的事件过程是 Dim B As Books Open “c:Person.txt”For Output As #1 B.Name=InputBox（“输入姓名”） B.TelNum=InputBox（“输入电话号码”） Write #1,B.Name,B.TelNum Close #1Person.txt”For Input As #1 Print #1,B.Name,B.TelNum Write #1,B Name=InputBox（“输入姓名”） TelNum=InputBox（“输入电话号码”） Print #1,Name,TelN

17、um （34） 以下叙述中正确的是 A） 一个记录中所包含的各个元素的数据类型必须相同 B） 随机文件中每个记录的长度是固定的 C） Open命令的作用是打开一个已经存在的文件 D） 使用Input #语句可以从随机文件中读取数据 （35） 目录列表框的Path属性的作用是 A） 显示当前驱动器或指定驱动器上的目录结构 B） 显示当前驱动器或指定驱动器上的某目录下的文件名 C） 显示根目录下的文件名 D） 显示该路径下的文件 二、填空题（ 每空2分，共40分） 请将每空的正确答案写在答题卡（ 1）至（ 15） 的横线上，答在试卷上不得分。 （1） 在窗体上画两个标签，其名称分别为Label1和

18、Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在 1 和 2 处填入适当的内容，将程序补充完整。 Private Sub HScroll1_ 1 （） Labl2.Caption=HScroll1. 2 （2） 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作

19、数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在 3 、 4 和 5 处填入适当的内容，将程序补充完整。 If 3 =True then opt=Option1（i）.Caption Select Case 4 Case”+” Result=Val（Text1.Text）+Val（Text2.Text） Case”-” Result=Val（Text1.Te

20、xt）-Val（Text2.Text） Case”*” Result=Val（Text.Text）*Val（Text2.Text） Case”/” Result=Val（Text1.Text）/Val（Text2.Text） End Select 5 =Result End Sub （3） 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色） 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 6 处填入适当的内容，将程序补充完整。 Private Sub Form_Load（） Command1.Enable

21、d=False Private Sub Text1_ 6 （ ） Command1.Enabled=True （4） 在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 Form1. 7 Pmenu （5） 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 8 和 9 处填入适当的内容，将程序补充完整。 Dim x As Single,amax As Single,amin As Single x=InputBox（“Enter a score”） amax=x amin=x Do Wh

22、ile 8 If xamax Then Amax=x If 9Then Amin=x Print”Max=”;amax,”Min=”;amin （6） 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Text1.Text=”计算机” Private Sub Text1_Change（） Picture1.Print“等级考试” 程序运行后，在文本框中显示的内容是 10 ，而在图片框中显示的内容是 11 。 （7） 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer,y As Integer）As Integer M=IIf（xy,x,y） Private Sub command1_Click（） Dim a As Integer,b As Integer a=100 b=200 Print M（a,b） 程序运行后，单击命令按钮，输出结果为 12 。 （8） 为了改变计时器控件的时间间隔，应该修改该控件的 13 属性。 （9） 在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双