国家二级VB机试（简单应用题）模拟试卷1（共90题）

家二级VB机试（简单应用题）模拟试

卷1（共9套）

（共90题）

国家二级VB机试（简单应用题）模拟试

卷第1套

一、简单应用题（本题共70题，每题分，共70

分。）

1、（1）在考生文件夹下有一个工程文件尔3.vbp,窗体上已经有一个标签Label1,

请添加一个单选按钮数组，名称为Opl,含三个单选按钮，它们的Index属性分别

为0、1、2,标题依次为“飞机”、“火车”、“汽车火再添加一个名称为Textl的文

本框。窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中

的注释符，把程序中的。改为正确的内容，使得在程序运行时单击“飞机”或“火车”

单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮

时，在Textl中显示“我开汽车去”，如图所示。注意：不能修改程序中的其他部

分。最后将修改后的文件按原文件名存盘。

0Form：*MMEk如一

6M

大事

卜支■帚

⑵在考生文件夹下有一个工程文

件sjl4.vbp,Forml窗体中有一个文本框，名称为Textl；请先在窗体上添加两个

框架控件,名称分别为Fl、F2,标题分别为“性别”、“身份”;然后在F1中添加两

个单选按钮控件Opl、0p2,标题分别为“男”、“女”；其次在F2中添加两个单选按

钮控件0p3、0p4,标题分别为“学生”、“教师”；最后再添加一个命令按钮，名称

为C1,标题为“确定”，如图所示。请编写适当的事件过程，使得运行时，在F1、

F2中各选一个单选按钮，然后单击“确定”按钮，就可以按照下表把结果显示在文

性别身份在文本根中显示的内容

男学生我是男学生

男教师我是男教师

女学生我是女学生

女教婶我是女教师

本框中。最后把修改后

的文件以原来的文件名存盘。注意：考生不得修改窗体文件中已经存在的程序和

Textl的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。

必须用窗体右上角的关闭按钮结束程序，否则无成绩。

标准答案：（1）【操作步骤】步骤1:打开本题工程文件，按照题目要求建立单选

按钮数组，如图3.9所示。re3.9步骤2：按照题

目要求建立其他控件并设置其属性，见表3.4。

表3.4

设置值|

i若件属性

Caption飞机

单选按钮1

Index0

Caption火车

单选按钮2

Index1

Caption汽车

单选按钮3

Index2

文本框NameTextl

步骤3：打开代码编

辑窗口，去掉程序中的注释符将问号改为正确的内容。参考答案PrivateSub

Opl_Click(IndexAsInteger)DimaAsString,bAsString,cAsStringa="我坐"b=

“我开"SelectCaseIndex'通过Index值决定响应哪一个控件数组Case0Textl.Text

=a-bMc.Opl(O).Capiion+"去"Case1Textl.Tcxi=a+Mc.opl(l).Caption+M

去”'当Index值为1时，选择“我坐“Case2Text].Text=b+Me.0pl(2).Caption

+“去"EndSelectEndSub步骤4：调试并运行程序，关闭程序后按题目要求存

盘。(2)【操作步骤】步骤1：打开本题工程文件，按照题目要求建立框架控件并

设置其属性，如图3.10所示。

0I

三,

.

u«uu工

，—

1.1

图3.10步骤2：按照步骤1

建立其他控件并设置相关属性，程序中用到的控件及属性见表3.5和表3.6。

*3.5

控件属性设置值

NameFl

框架1

(laption性别

NumeF2

框架2

Caption身份

NameCl

命令按钮

(uiption确定

表3.6

控件属性设置假

1____________________

NameOpl

单选按钮1

Caption男

Name0p2

单选按钮2

Caption女

Name0p3

单选按钮3

Caplion学生

Name0p4

单选按钮3

(jiption教师

步骤3：打开代码

编辑窗口，在指定位置编写如下代码。参考答案PrivaleSubcl_click（）Texll.Text

=“我是"'首先确定不论选什么情况Textl的内容一定以“我是“异头IfOpl.Value

ThenTextl.Text=Textl.Text&Op1.CaptionElseTextl.Text=

Textl.Text&Op2.CaptionEndIf'通过单选按钮的Value值（选择为true,否则为

false）确认性别，最后把其Caption值接至Textl后If0p3.ValueThenTextl.Text

=Textl.Text&Op3.CaptionElseTextl.Text=Textl.Text&Op4.CaptionEnd

If'确认身份，思路同上EndSub步骤4：调试并运行程序，关闭程序后按题目要求

存盘。

知识点解析：暂无解析

2、（1）在考生文件夹中有工程文件sjl3.vbp,程序界面如图3—3所示。当在文本

框中输入正整数N,单击“计算”命令按钮，进行计算。若N是奇数，计算1+3!+

5!+……+N!,若N是偶数，计算1+3!+!+……+N!）!。在给出的窗体文件中已

经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正

确的内容。图3・3注意：考生不得修改窗体文件中已经存

在的程序。最后程序按原文件名存盘。(2)在考生文件夹下有一个工程文件

sjt4.vbp,该程序的功能是显示月历。运行程序后，在Textl、Text2中分别输入

年份和月份，并在左.边的框架中选择该年的1月1日是星期几，然后单击”显示

月历''按钮，即可在下面的图片框内显示该年该月的月历。如图3—4所示的是

2008年2月份的月历。请将事件过程中的注释符去掉，把"?”改为正确的内容，以

实现上述程序功能。图3T注意：不能

修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

标准答案：第1小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件

sjt3.vbp,在代码编辑窗口中，去掉程序中的注释符“巾，将问号"?”改为正确I：勺内

容。参考代码：m=n-|-1m=nFori=1TomStep2sum=sum+f(i)Fori=1Tox

步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打

开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口中，去掉程序中的注

释符将问号“?”改为正确的内容。参考代码：皿0僦1^&丫5出=

Hf(le叩_year(year),29,28)Fork=1Tomonth_1n=0PrivaFunction

leap_year(yearAsInteger)AsBoolean步骤2：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

3、(1)在考生文件夹下有一个工程文件sjt3.vbpo程序的功能是通过键盘向文本框

中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将

大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框Listl中，如

图3—80所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去

掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能

修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考

生文件夹下有一个工程文件sjt4.vbpo程序运行后，单击“开始”按钮，图片自上

而下移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片顶端移动到

距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图3—81

所示。在窗体文件中已经给出了全部控件，但程序不完整。

图图3.81要求：请去掉程序

中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程

序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

标准答案：第1小题步骤1：打开考生文件下的本题工程文件sjl3.vbp,在代码

编辑窗口，去掉程序中的注释符将问号"?”改为正确的内容。参考代码：If

Option1.Item(i)=TrueTheny=val(Optionl(i).Caption)DoWhilei<=5

ListI.Addhemx步骤2：按要求将文件保存至考生文件夹中。第2小题步骤1：

打开考生文件夹下的工程文件sjt4.vbpo步骤2：进入代码编转窗口，去掉程序中

的注释符“巾，将问号"?”改为正确的内容。参考代码：Timer1.Interval=500

VScrolll.Value:Picture].TopPicture1.Top=0步骤3：按要求将文件保存至考生

文件夹中。

知识点解析：第1小题：判断整数A能被整数B整除的条件表达式为：AMod

B=0o本题源程序在“计算数据”的单击事件过程中，通过For循环逐一判断单选按

钮数组中的每个元素是否选中，用变量y记录选中单选按钮所标识的数字，并调用

过程“calc”计算满足条件的正整数。在过程“calc”中，通过D。循环依次判断大干文

本框中数的正整数是否能被变量y整除，将能被整除的前5个数添加到列表框

Listl中。第2小题：本题源程序利用计时器的Timer事件来控制图片的移动，因

此单击“开始”按钮启动计时器，而单击“停止”按钮就是要停止计时器。在计时器的

Timer事件过程中，通过每次使图片框的Top属性值增量200实现移动，并让垂直

滚动条滑块的位置随图片框的Top属性值变化。当图片顶端移动到距窗体的下边

界的距离少于200时(即VScrolll.Value+200>=Forml.Height.200)时，则重新

从窗体顶端开始移动，即Piclurel.Top=0o由于题目要求不能在设计阶段修改控

件属性，要想在单击“开始”按钮时能启动计时器，就需在窗体加载事件过程中设置

计时器的Interval属性，即Timerl.Interval=500(>

4、(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分

程序，如图3—119所示。要求：①利用属性窗口设置适当的属性，使Textl、

Text2中数据右对齐；②请编写适当的程序完成以下功能：在Tcxtl中输入40(度

数），选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相

应的正弦、余弦值（保留3位小数，第4位截去，兀取3.14159）,并显示在Texl2

中。图3/19注意：考生不得修改窗体文件中已

经存在的程序，在结束程序运行之前，必须进行一种计算，在Texll中输入的必须

是40,必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件

名存盘。（2）在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经给出所有控

件。程序运行时，单击“开始”按钮，则汽车图标向右运动；单击“停止”按钮则汽车

停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度（滚动框向右移动，

速度减慢）。如图3—120所示。图3・12°

要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。提示：窗体上有一

个计时器，计时器的事件过程每执行一次，汽车向右移动10,程序通过改变计时

器控件的：Interval属性来改变汽车的运动速度。注意：不得修改控件的属性°最

后按原文件名存盘。

标准答案：(1)【操作步骤】步骤1:打开考生文件夹中的本题工程文件

sjt3.vbp,程序界面如图4—4所示。图4Y

步骤2：依次选中窗体口的两个文本框，将其Alignment属性值设置为1-Right

Justifyo步骤3：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其

单击事件过程。参考代码：PrivateSubCommandl_Click()IfOption1.Item(0)=

TrueThenText2.Text=Format(Sin(Vai_(Textl.Text)*3.14159/_180),"0.00

0")EndIfIfOptionI.Item(l)=TrueThenText2.Text=Format(Cos(Vai(_

Textl.Text)*3.14159/180),J,0.000")EndIfEndSub步骤4：按键运行程

序，在左侧文本框中输入“40”,连择不同选项，单击“计算”按钮，结果图4—S所

示。步骤5：单击窗体右上角的关闭按

钮以结束程序。步骤6：按要求将文件保存至考生文件夹中。(2)【操作步骤】步

骤1：打开考生文件夹口的本题工程文件sjt5.vbp,在代码编辑窗口，去掉程序中

的注释符将问号改为正确的内容。参考代码：Timer1.Enabled=True

Timerl.Interval=HSCroll1.ValuePicture1.Left=Picture1.Left+10步骤2：按

要求将文件保存至考生文件夹中。

知识点解析：暂无解析

5、(1)考生文件夹下有工程文件sjt3.vbp,窗体上有两个标题分别为“分解”和“退

出”的命令按钮。请再画一个名称为Textl,初始值为空的文本框。程序功能如

下：①单击“分解”按钮，程序提示输入一个大于2的整数，并将该数分解为因数

的乘积，最后将分解结果显示在Textl文本框内(如图1—146所示)。②单击

“退出”按钮，则结束程序运行。请将事件过程中的

注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗

体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)考生文件夹

下有_E程文件sjt4.vbp,窗体上有一个名称为Cmdl的命令按钮，请对其属性进行

设置，使其左边界与窗体左边框的距离为300,标题为“产生可变正方形图案”。程

序功能为：单击“产生可变正方形图案”按钮，则弹出输入框，要求输入可变数；在

输入可变数后，将根据可变数在窗体上显示可变正方形图案：图案的最外圈为第1

层，且每层上显示的数字与其所处的层数相同。图1—147(a)为输入可变数6时

的可变正方形图案。图1—147(b)为输入可变数7时的可变正方形图案。

OFormlUForml।■...O

1111111

2222222

2223332

2223432

23332

22222

11111

产生可竟正方形图案；产生可变正方形S3系i

(a)(b)

图M47

Cmdl

按钮的Click事件过程已经给出，但不完整，请将事件过程中的注释符去掉，把？

改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已存在

的程序，最后将程序按原文件名存盘。

标准答案：第1小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件

sjt3.vbp,在其中画出一个名为Textl,初始内容为空的文本框。步骤2：打开代码

编辑窗口，去掉程序中的注释符“巾，将问号"?”改为正确的内容。参考代码：

LoopUntiln>2DoWhilenModFactor=0Factor=Factor+1步骤3：按要求将文

件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹下的本

题工程文件sjt4.vbp,在代码编辑窗口，去掉程序中的注释符“巾，将问号"?”改为正

确的内容。参考代码:Forj=kTon-k+1a(i,j)=kPrintTab(j*3);a(i,j);Print步

骤2：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

6、在考生文件夹下有一个工程文件sjl3.vbpo程序的功能是通过键盘向文本框中

输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大

于文本框中的正整数且能够被所选除数整除的5个数添加到列表框Listl中，如图

舒卜已经给出了全部控件，但程序不完整。

I-,E

图3-23

要求：请去掉程序中的注释符，把程序中的？改为正确的

内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后

的文件按原文件名存盘。

标准答案：审题分析判断整数A能被整数B整除的条件表达式为：AModB=0o

本题源程序在“计算数据”的单击事件过程中，通过For循环逐一判断单选按钮数组

中的每个元素是否选中，用变量y记录选中单选按钮所标识的数字，并调用过程

“calc”计算满足条件的正整数。在过程“calc”中，通过Do循环依次判断大于文本框

中数的正整数是否能被变量y整除，将能被整除的前5个数添加到列表框Listl

中。操作步骤步骤1：打开考生文件下的本题工程文件sjt3.vbp,在代码编辑窗

口，去掉程序中的注释符“7将问号"?”改为正确的内容。参考代码：If

Option1.Item（i）=TrueTheny=Val（Optionl（i）.Caption）DoWhilei<=5

Listl.Additemx步骤2：按要求将文件保存至考生文件夹中。考点链接Do循环

和While循环、控件数组

知识点解析：暂无解析

7、在考生文件夹下有一个工程文件sjl4.vbp。窗体中已经给出了所有控件，如图

2-65所示。运行时，单击“发射"按钮，航天飞机图标将向上运动，速度逐渐加快，

全部进入云中后则停止，并把飞行距离（用坐标值表示）、所用时间（单位为秒）分别

显示在标签Labell和Labe12中；单击“保存”按钮，则把飞行距离、所用时间存入

考生文件夹下的。ut4.3文件中。文件中己经给出了程序，但不完整，请去掉程

序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和

控件属性。最后把修改后的文件按原文件名存盘。

标准答案：步骤1：打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口，

去掉程序中的注释符将问号改为正确的内容。参考代码：

Timerl.Enabled=TrueTimerl.Enabled=Falsed=d-Imagel.Topl=l+1步骤2：按

要求将文件保存至考生文件夹中。步骤3：按VF5>键运行程序，先单击“发射”按

钮，计算完毕后单击''存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。

知识点解析：暂无解析

8、在考生目录下有一个工程文件sjt3.vbp,窗体上有一个圆和一条直线（直线的

名称为Lincl）构成一个钟表的图案；有两个命令按钮，名称分别为Commands

Command?,标题分别为“开始”、“停止”；还有一个名为Timerl的计时器。程序运

行时，钟表指针不动，单击“开始”按钮，则钟表上的指针（即Linel）开始顺时针旋转

(每秒转6。，一分钟转一圈)；单击“停止”按钮，则指针停止旋转。运行时的窗体如

图3-80所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一

次，并编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，

不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写

一条语句。最后把修改后的文件按原文件名存盘。图3-80

标准答案：审题分析本题通过计时器的Timer事件来控制直线控件的位置，从而

实现钟表上的指针旋转的功能。为使计时器的Timer事件每秒激活一次需将计时器

的Interval属性值设置为1000；为使程序刚运行时钟表指针不动需将Enabled属性

值设置为False。在“开始”按钮的单击事件过程中，通过设置计时器的Enabled属性

值为True来启动计时器。在“停止”按钮的单击事件过程中，通过设置计时器的

Enabled属性值为False来停止计时器。操作步骤步骤1：打开考生文件夹中的本

题工程文件sjt3.vbp,在属性设置窗口,设置计时器的Interval属性值为1000,

Enabled属性值为False。步骤2：在代码编辑窗口，编写“开始''和“停止”按钮的单

击事件过程。参考代码：PrivateSubCommandl_Click()Timer1.gnablcd=True

EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub步骤3：按

要求将文件保存至考生文件夹市。考点链接计时器。

知识点解析：暂无解析

9、在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经给出所有控件。程序运

行时，单击''开始”按钮，则汽车图标向右运动；单击“停止”按钮则汽车停止运动；

移动滚动条上的滚动框，可以改变汽车的运动速度(滚动框向右移动，速度减慢)。

如图2-119所示。要求如下：去掉程序中的注释符，把程序中的?改为正确的内

容。提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动

10,程序通过改变计时器控件的Intorval属性来改变汽车的运动速度。注意：不得

m一小

修改控件的属性。最后项原文件名存盘。船2川9

标准答案：步骤1：打开考生文件中的本题工程文件sjl5.vbp,在代码编辑窗口,

去掉程序中的注释符”，“，将问号”?”改为正确的内容。参考代码：

Timer1.Enabled=TrueTimer1.Interval=HScrolll.Value

Picture!.Left二Picture1.Left+IO步骤2：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

10、在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个单选按钮数组，含

三个单选按钮；还有一个标题为''显示"的命令按钮（如图2-158所示）。程序的功能

是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的

信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。要求：去掉程序中

的注释符，把程序中的。改为正确的内容，使其实现上述功能，但不能修改程序中

改控件的属性。最后把修改后的文件以原来的文件名存盘。

rWE

rwnn

S2-1S8

标准答案：步骤1：打开考生文件夹下的本题工程文件sjl3.vbp0步骤2：打开代

码编辑窗口，在代码编辑窗口，去掉程序中的注释符将问号"?”改为正确的内

容。参考代码：Fori=0To2IfOpl（i）.Value=TrucThenPrint”我

是“+OpKi）.CaplionEndlfNext步骤3：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

国家二级VB机试（简单应用题）模拟试

卷第2套

一、简单应用题（本题共70题，每题分，共70

分。）

1、（1）在考生文件夹下有一个工程文件sjt3.vbp,窗体上有1个标题为“计算”的命

令按钮，1个标题为“1!-2!+…+10!=”的标签。请画1个名称为Tex”,初始内容为

空的文本框。效果如图3—34所示。程序功能：单击“计算”命令按钮，则计算

“1!+2!+…+10!”的值，并将结果显示在Textl文本框中。请将“计算”命令按钮的

Click事件过程中的注释符去掉，把"?”改为正确的内容，以实现上述程序功能。注

意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存

盘。图3角（2）在考生文件夹下有一个工程文件sjt4.vbp,窗体

上有1个名称为标题为“运行''的命令按钮。请画2个名称分别为Textl和Text2,

初始内容都为空的文本框，再画2个名称分别为Labell、Label2,标题分别是“最

大数''和"最大数位力”的标签。效果如图3—35所示。

图3.35程序功能：单击“运行”按钮,则产生50个不重复的

介于0和100之间(含0和100)的随机数，且以每行10个数的形式显示在窗体上；

最后将这些随机数中的最大数和最大数所处的位置显示在Textl和Text2中。如图

3-35所示为某一次的运行效果。请将“运行”命令按钮的Click事件过程中的注释

符去掉，把"?''改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文

件中已经存在的控件和程序，最后，程序按原文件名存盘。

标准答案：第1小题步骤1：打开考生文件夹中的本题工程文件sjt3.vbp,在窗

体上添加一个文本框，按照如下表4-22设置属性。

«4-22

对象属性值

NameTextl

文本框

Text

---------------步骤2：在代码编辑窗口中,

去掉程序中的注释符将问号“?”改为正确的内容。参考代码：Whilei<10

i=i+lt=lFori=lTonjc=t步骤3：按要求将文件保存至考生文件夹中。第2小题

步骤1：打开考生文件夹中的本题工程文件尔4.vbp,在窗体上加入两个文本框和

表4-23

对欧及性值

Namelextl

文木框1

Text

NameText：

一本文2

Text

NameLabel1

标签1

Caption外大数

NameUbclZ

标签2

CapiKMi第大数伊置

两个标签，按照表4—23设置相关属性。

步骤2：在代码编辑窗口中，去掉程序中的注释符“巾，将问号"?”改为正确的内

容。参考代码：j=lj=j+larr(j)=xp。s=i-l步骤3：按要求将文件保存至考生文件夹

中。

知识点解析：第1小题：题目要求计算一个数列和，数列的每一项是一个阶乘。分

析代码可知，函数ic返回一个整数的阶乘值。在命令按钮的Click事件代码里面，

通过While循环来计算累加和。第一个“?”处补充循环的结束条件，根据题目要

求，计算10个元素的累加和，因此驯化执行10次：第二个“?”处是补充循环变量i

的变化条件，在循环中i每次增加1,每次需要计算i的阶乘；第三个“?”处是初始

化变量t为1：第四个处是补充循环结束条件，计算阶乘的时候需要做n次连

乘，循环执行n次；最后一个“?”处是补充函数返回值，I变量保存的阶乘值，因此

函数返回t。第2小题：题目要求生成50个不重复的随机数，并在这50个随机数

里面找出最大值。分析程序可知，通过嵌套的循环来实现不重复随机数生产和最大

值查找。第一个“?”处是设置循环变量i恶道初始值，根据“DoWhilejVi”可知，循

环变量从是最前面开始到i结束，因此j的初始值应为1;第二个"'处是补充循环

变量j的变化条件，搜索判断是否重复需要逐个搜索，因此i每次增加1；第三个

处是把生成的没有重复的随机数x添加数组arr当中；最后一个“?”是计算最大

值的位置，循环变量i在前面经过“i=i+l”之后是当前位置加1,因此pox的值应为

i-lo

2、(1)在名称为Foi*ml的窗体上画一个名称为L1的标签，标题为“口令”；画两个

文本框，名称分别为Tcxtl、Tcxt2,都没有初始内容；再画三个命令按钮，名称分

别为Cl、C2、C3,标题分别为“显示口令”、“隐藏口令”、“复制口令”，在开始运

行时，向Textl中输入的所有字符，都显示“东”，单击“显示口令”按钮后，在Textl

中显示所有字符，再单击“隐臧口令”后，Textl中的字符不变，但显示的都是“?”，

单击“复制口令”后，把Textl中的实际内容复制到Text2中,如图3—85所示。

图3-85要求：①在属性窗口中，把窗体的标题改为

“口令窗口”。②建立适当的事件过程，完成上述功能。每个过程中只允许写一条

语句，且不能使用变量。存盘时，工程文件名为sjt3.vbp,窗体文件名为

sij3.frmo(2)在名称为Forml的窗体上画一个名称为Pl的图片框，并利用属性窗

口把考生目录中的图标文件Open,ico放到图片框中；再画一个通用对话框控件，

名称为CD1,利用属性窗口设置相应属性，即打开对话框时：标题为“打开文

件”，文件类型为“Word文档”，初始目录为C盘根目录。再编写适当的事件过程，

使得在运行时，单击P1图片框，可以打开上述对话框。运行后的窗体如图3—86

所示。图3・86注意:

存盘时必须存放在考生文件夹下，工程文件名为sji4.vbp,窗体文件名为

sjt4.trnio程序中不得使用任何变量。

标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表4一

53在窗体中画出控件并设置其相关属性。

*4-53

对象属性值

腐体Caption口令窗口

NameLI

标笈

Caption口令

NameTcxtl

文本框1

Text

NameText2

文本框2

Text

NameCl

命令按钮1

Caption显示口令

NameC2

命令按妞2

Caption匿藏口令

NameC3

命令按钮3

Caption制部1口令

----------......步骤2：在代码编辑窗口，分

别编写三个按钮的单击事件过程。参考代码：PrivateSubCl_Click()

Textl.PasSwordChar=""EndSubPrivateSubC2_Click()Textl.PaSswordChar=

"?"EndSubPrivateSubC3_Click()C3.Parent.Text2.Text=Textl.TextEndSub

PrivateSubForm_Load()Textl.PasswordChar="*“EndSUb步骤3：按要求将文

件保存至考生文心夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工

程，如表4—54在窗体中画出控件并设置其相关属性。

表4・54

对象属性值

NamePI

图片框

PictureOpen.ico

NameCD!

DialogTitic打开文件

通用对话框FilterWord文档|・.doc

Filtcrlndcx1

InitDirC:\

步骤2：打开代码编辑窗口,

编写如下事件过程。参考代码：PrivateSubPl_CliCk()CD1.ShowOpenEndSub

步骤3：按要求将文件保存至考生文件夹中。注意：打开“打开文件”对话框还可使

用语句：cdlOpcn.Action=I。

知识点解析：暂无解析

3、(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容为空、且带有垂直滚

动条的文本框，其名称为Textl；两个标题分别为“读数据”和“查找”的命令按钮，

其名称分别为Cmdl、Cmd2o请画一个标题为“查找结果”的标签Label1,再画一

个名称为Text2,其初始内容为空的文本框，如图3—104所示。程序功能如下：

①单击"读数据''按钮，则将考生文件夹下in3.dal文件中已按升序排列的30个整

数读入一维数组a中，并同时显示在Textl文本框内；②单击“查找”按钮，将弹

出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如

果接收的偶数超出一维数组a的数值范围，则无须进行相应查找工作，直接在

Text2内给出结果；否则，在一维数组a中查找该数，并根据查找结果在Text2文

本框内显示相应信息。命令按钮的Click事件过程已给出，但“查找”按钮的Click

事件过不完整，请将其中的注释符去掉，把"?”改为正确的内容，以实现上述程序

功能。图3/04注意：考生不得修改窗体文件中已经存在的

控件和程序，最后程序按原文件名存盘。(2)考生文件夹下的工程文件sjt4.vbp中

有一个初始内容为空的文本框Textl,一个包含三人元素的文本框控件数组

Text2,两个标题分别是，读数据”和“统计”的命令按钮，两个分别含有三个元素的

标签控件数组Labell和Label2,如图3—105所示。程序功能如下：①考生文件

夹下in4.dat文件中存有20个考生的考号及数学和语文单科考试成绩。单击“读数

据“按钮，可以将in4.dat文件内容读入到20行3列的二维数组a中，并同时显示

在Texll文本框内；②单击“统计”按钮，则对考生数学和语文的平均分在“优

秀”、“通过”和“不通过”三个分数段的人数进行统计，并将人数统计结果显示在控

件数组Text2中相应位置。其中，平均分在85分以上(含85分)为“优秀”，平均分

在60〜85分之间(含60分)为“通过”，平均分在60分以下为“不通过”。

命令按钮的Click事件过程已经给出，但“统计”按

钮的Click事件过程不完整，请将其中的注释符去掉，把"?”改为正确的内容，以实

现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后

程序按原文件名存盘。

标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的工程文件

sjt3.vbp,打开代码编辑窗口，去掉程序中的注释符将问号”?”改为正确的内

容。参考代码：Ifnum/2<>Fix(num/2)ThenIfnum<a(l)Ornum>a(30)Then

Ifa(n)=numThenIfn>30Then步骤2：按要求将又件保存至考生文件夹中。第2

小题【操作步骤】步骤I：打开考生文件夹中的本题工程文件sjt4.vbp,打开代

码编辑窗口，去掉程序中的注释符将问号”?”改为正确的内容。参考代码：

Avg=a(i,2)+a(i,3))/2CaseIs>=85Case60To84EndSelectTcxt2(n-1)=

x(n)步骤2：按要求将文件保存至考生文件夹中。

知识点解析：暂无解析

4、(1)在考生文件夹下有一个工程文件sjt3.vbpo程序的功能是通过键盘向文本框

中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、

小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图

N程序不完整。

图3-167

要求：去掉程序中的注

释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属

性。最后把修改后的文件按原文件名存盘。(2)考生文件夹下的工程文件sjt4.vbp

中有两个名称分别为Listl、List2的列表框控件，两个名称分别为Command1、

Command?,标题分别为“>>”、“VV”的命令按钮。请在Listl中添加“文本框”、

图3-168

程序的功能是：单击“>>”按钮.将

Listl中的表项添加到Lst2中,同时将Listl清空;单击“VV”按钮,将List2中的

表项添加到Lisll中，同时将Lisl2清空。程序已给出，但是不完整。请将程序中

的注释符去掉，把"?”改为正确的内容，实现上述功能。注意：不能修改程序的其

他部分和控件属性。最后把修改后的文件按原文件名存盘。

标准答案：(1)【操作步骤】步骤1：打开考生文件夹中的本题工程文件

sjt3.vbp,在代码编辑窗口，去掉程序中的注释符〃"，将问号“?”改为正确的内

容。参务代码:n=Len(Textl.Text)b=Asc(Mid(s,i,1))SelectCasebFori=0

To2x(i)=a⑴步骤2：按要求将文件保存至考生文件夹中。(2)【操作步骤】步骤

1：打开考生文件夹中的本题工程文件sjt4.vbp,通过Listl列表框的List属性添

加四个项目：文本框、标签、命令按钮、单选按钮。步骤2：在代码编辑窗口，去

掉程序中的注释符“巾，将问号"?”改为正确的内容。参考代码：Fori=0To

La.ListCount—1Lb.AdditemLa.List(i)NextLa.Clear步骤3：按要求将文件保

存至考生文件夹中。

知识点解析：暂无解析

5、在考生文件夹下有一个工程文件sjl3.vbpo程序的功能是通过键盘输入正整数

到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，

将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框Listl

中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去

掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修

•———・・••・・»•・一・・・・4—g，~f，_B•f,»|•、..，♦k•|，_、ff.-.4.

标准答案：［操作步骤］步骤1：打开本题工程文件。步骤2：打开代码编辑窗口

中，去掉程序中的注释符将问号改为正确的内容。参考代码(画下划线部分是

需填入的内容)PrivateSubCommand1_Click()DimyAsIntegerFori=0To2'循环三

个单选按钮IfOptionl(i).Value=TrueThen'当某个按钮被选

y=Val(Optionl(i).Captiion)'提取按钮名并转换为数值EndIfNextCall.calc(yV调用

子函数EndSubPrivateSubcalc(yAsInteger)ClearList'执行子函数i=l

X=Val(Textl.Text)+1DoWhilei<=£'只需要显示5个数IfxMody=0Then'判断x

是否能被y整除Listl.Addltcm太添笳满足条件的数至表i=i+l'统计EndIf

x=Xx+l咱加，判断卜次循环LoopEndSubPri