2017年全国计算机二级考试试卷历年考试真题演练

由天下分享时间：2024/5/19 18:02:30 加入收藏我要投稿点赞

项，即可把该项与最上面的一项交换。例如：单击图1中的“重庆”，则与“北京”交换，得到图2的结果。下面是可实现此功能的程序，请填空。 Private Sub Combo1_Click() Dim temp

temp = Combo1.Text [6] = Combo1.List(0) Combo1.List(0) = temp End Sub

（7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。 Dim [7] As Integer

Private Sub Form_Load() pos=HScroIII.value End Sub

Private Sub HScroIII_Change() Print [8] -pos

pos=HScroIII.value End Sub

（8）设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click()

CD1.Filter =\文本文件1*.txt(Word 文档)*.doc\CD1.Filterinder = 1 CD1.ShowOpen

If CD1.FileName<>\Open [9] For Input As #1 Line Input #1,ch$ Close #1

Text1.Text = [10] End If End Sub

（9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。 Private Sub Command1_Click() Dim x As Integer

x=InputBox(“请输入一个正整数”) While x>__[11]___ Print x Mod 10; x=x\\10 Wend

Print__[12]__

End Sub

（10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框（见图）。

合法编号的组成是：前2个字符是大写英文字母，第3个字符是“-”，后面是数字字符（至少1个）。下面程序可实现此功能，请填空。

Private Sub Text1_Lostfocus() Dim k%,n% n=Len( [13] )

For k=1 to if (n>3,n,4) c=Mid(Text1. Text,k,1) Select Case k Case 1,2

If c<\

MsgBox(\第\个字符必须是大写字母！\SetPosition k Exit For End If Case 3

If c<>\

MsgBox(\第\个字符必须是字符\SetPosition k Exit For End If Case Else

If c<\

MsgBox(\第\个字符必须是数字！\SetPosition k Exit For End If End Select Next k End Sub

Private Sub SetPosition(pos As Integer) Text1.SelStart=pos-1 Text.SelLength= [14] Text1. [15] End Sub

2007年9月全国计算机等级考试二级VB参考答案

一、选择题 1-5 DBCAA 6-10 CCABA 11-15 BDCCA 16-20 BAACA 21-25 DBABC 26-30 BDCDB 31-35 DCDBA 二、填空题 1、无歧义性 2、白盒测试 3、顺序

4、ACBDFEHGP 5、实体集

6、Combol1.List(Combol1.ListIndex) 7、pos

8、HScroll1.value 9、CD1.FileName 10、ch 11、10 12、x

13、Text1.Text 14、1

15、SetFocus

2004年9月全国计算机等级考试二级VB语言笔试试题及答案计算机二级考试免费试听课程收藏本页 2004/12/15 保存本文

一、选择题（(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 Case 1,3

Print \分支 1\ Case Is >4 Print \分支 2\ Case Else

Print \分支 \ End Select End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是 A．分支1 B．分支2 C．Else分支 D．程序出错

(6)以下关于MsgBox的叙述中，错误的是 A．MsgBox函数返回一个整数

B．通过MsgBox函数可以设置信息框中图标和按钮的类型 C．MsgBox语句没有返回值

D．MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量

(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 A．Timer1.Interval=0.5 B．Timer1.Interval=5 C．Timer.Interval=50 D．Timer1.Interval=500

(8)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls

For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是 A．4 2 B．12 18 C．12 30 D．4 6

(9)以下关于多重窗体程序的叙述中，错误的是