国二级VB上机题4655含答案10套.docx

国二级VB上机题4655含答案10套.docx

《国二级VB上机题4655含答案10套.docx》由会员分享，可在线阅读，更多相关《国二级VB上机题4655含答案10套.docx（90页珍藏版）》请在冰豆网上搜索。

国二级VB上机题4655含答案10套

第46套

1.大体操作（2小题，每题15分，共计30分）

注意：

下面显现的“考生文件夹”均为%USER%

**********************************************************************

请依照以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画一个名称为Label一、题目为“设置速度”的

标签，通过属性窗口把标签的大小设置为自动调整。

画一个名称为

HScroll1的水平转动条，通过属性窗口设置适当属性使转动条的最大值

为80，最小值为1，单击转动条两头的箭头时，转动框移动2，转动框

的初始值为30。

程序运行后的窗体如下图。

注意：

存盘时必需寄存在考生文件夹下，工程文件名为，窗体文件

名为。

**********************************************************************

（2）在名称为Form1的窗体上画一个名称为Shape1的形状控件，画两个名称分

别为Command一、Command2，题目别离为“圆形”、“红色边框”的命令

按钮。

将窗体的题目设置为“图形控件”，如图1所示。

请编写适当的事

件进程使得在运行时，单击“圆形”按钮将形状控件设为圆形。

单击“

红色边框”按钮，将形状控件的边框颜色设为红色（&HFF&），如图2所

示。

注意：

要求程序中不得利用变量，每一个事件进程中只能写一条语句。

存盘时必需寄存在考生文件夹下，工程文件名为，窗体文件

名为。

2.简单应用（2小题，每题20分，计40分）

注意：

下面显现的“考生文件夹”均为%USER%

***********************************************************************

（1）在考生文件夹下有一个工程文件，含出名称别离为Form一、Form2

的两个窗体。

其中Form1上有两个控件（图像框和计时器）和一个菜单项

“操作”，含有三个菜单命令（如图1所示）。

Form2上有一个名称为

Command一、题目为“返回”的命令按钮（如图2所示）。

要求当单击“窗

体2”菜单命令时，隐藏Form1，显示Form2。

单击“动画”菜单命令时，

使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左侧界从头

移动。

单击“退出”菜单命令时，终止程序运行。

请去掉程序中的注释符

，把程序中的？

改成正确的内容。

注意：

考生不得修改窗体文件中已经存在的程序。

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

**********************************************************************

（2）在考生文件夹下有一个工程文件。

其窗体上已有部份控件，请按

照如图1所示添加框架和单项选择按钮。

要求：

画二个框架，名称别离为

Frame一、Frame2，在Frame1中添加一个名为Option1的单项选择按钮数组，含

二个单项选择钮，题目别离为“古典音乐”、“流行音乐”，在名称为Frame2

中添加二个单项选择按钮，名称别离为Option二、Option3，题目别离为“篮球

”、“羽毛球”。

刚运行程序时，“古典音乐”和“篮球”单项选择钮为选中

状态。

单击“选择”按钮，将把选中的单项选择钮的题目显示在标签Label2

中，如图2所示。

若是“音乐”或“体育”未被选中，相应的单项选择钮不可

选。

要求：

依照题目要求添加控件，去掉程序中的注释符，把程序中的？

改成正

确的内容。

注意：

不能修改程序的其他部份和控件属性。

最后把修改后的文件按原文件名

存盘。

3.综合应用（1小题，计30分）

注意：

下面显现的“考生文件夹”均为%USER%

在考生文件夹中有一个工程文件，其功能是：

找出矩阵元素的最大

值，并求出矩阵对角线元素之和，窗体外观如下图。

程序运行时，矩阵数

据被放入二维数组a中。

当单击“找矩阵元素最大值”命令按钮时，找出矩

阵中最大的数，并显示在标签Label3中。

当单击“对角线元素之和”命令按

钮时，计算矩阵主对角线元素之和，并显示在标签Label4中。

文件中已给出

部份程序，请编写“找矩阵元素最大值”及“对角线元素之和”两个命令按

钮的事件进程中的部份程序代码。

注意：

不得修改程序的其他部份和控件属性。

最后把修改后的文件按原文件名存

盘。

程序调试通事后，两个命令按钮的事件进程必需至少各执行一次。

第46套答案

一、大体操作题

第1小题

启动VisualBasic系统，创建一个Form1窗体。

在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，题目（Caption属性）设为“设置速度”，AutoSize属性设为True。

画一个水平转动条控件，通过其属性窗口将名称设为HScroll1，最大值（Max属性）设为80，最小值（Min属性）设为1，最小移动（SmallChange属性）设为2，初始值（Value属性）设为30。

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

第2小题

启动VisualBasic系统，创建一个Form1窗体。

在该窗体上画一个形状控件，通过其属性窗口将名称设为Shape1。

画一个目录列表框控件，通过其属性窗口将名称设为Dir1。

画二个命令按钮控件，通过其属性窗口将名称别离设为Command1和Command2，题目（Caption属性）别离设为“圆形”和“红色边框”。

单击“圆形”按钮（即运行Click事件进程），在该PrivateSubCommand1_Click（）事件进程中加入语句：

PrivateSubCommand1_Click（）

=3

EndSub

单击“红色边框”按钮（即运行Click事件进程），在该PrivateSubCommand2_Click（）事件进程中加入语句：

PrivateSubCommand2_Click（）

=&HFF&

EndSub

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

二、简单应用题

第1小题

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件，相应的窗体文件名为和。

由于所提供的窗体程序不完整，单击子菜单命令，即运行PrivateSubmnuOper_Click（IndexAsInteger）事件进程，在该事件进程中，有二处地址需要修改。

1）将语句

'SelectCase?

改成

SelectCaseIndex

2）将语句

'=?

改成

=True

在计时器的PrivateSubTimer1_Timer（）事件进程中，有二处地址需要修改。

1）将语句

'If+>=?

Then

改成

If+>=WidthThen

2）将语句

'=?

改成

=0

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

第2小题

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件，相应的窗体文件名为。

由于所提供的窗体控件不完整，需画二个框架控件，通过其属性窗口将名称别离设为Frame1和Frame2。

在Frame1中画一个单项选择按钮数组控件，含有二个单项选择钮，通过其属性窗口将名称设为Option1，题目（Caption属性）别离设为“古典音乐”和“流行音乐”。

在Frame1中画二个单项选择按钮控件，通过其属性窗口将名称别离设为Option2和Option3，题目（Caption属性）别离设为“篮球”和“羽毛球”。

由于所提供的窗体程序不完整，在PrivateSubCommand1_Click（）事件进程中，有三处地址需要修改。

1）将语句

'If?

=TrueThen

改成

IfOption1（0）.Value=TrueThen

2）将语句

'If?

=TrueThen

改成

If=TrueThen

3）将语句

'=?

改成

=s

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

三、综合应用题

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件，相应的窗体文件名为。

由于所提供的窗体程序不完整，需在“找矩阵元素最大值”命令按钮的Click事件进程中加入语句：

PrivateSubCommand1_Click（）

'====考生编写程序开始====

Max=a（1,1）

Fori=1To4

Forj=1To4

Ifa（i,j）>MaxThen

Max=a（i,j）

EndIf

Nextj

Nexti

=Max

'====考生编写程序终止====

'不得修改以下部份

saveLabel3

EndSub

在“对角线元素之和”命令按钮的Click事件进程中加入语句：

PrivateSubCommand2_Click（）

'====考生编写程序开始====

Sum=0

Fori=1To4

Sum=Sum+a（i,i）

Nexti

=Sum

'====考生编写程序终止====

'不得修改以下部份

saveLabel4

EndSub

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

第47套

1.大体操作（2小题，每题15分，共计30分）

注意：

下面显现的“考生文件夹”均为%USER%

**********************************************************************

请依照以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。

（1）在题目为“文本框”、名称为Form1的窗体上画一个名称为Text1的文本

框，无初始内容，其高、宽别离为2000、1800，可显示多行，有水平转动

条，并通过属性窗口把文本框的字体样式设置为“斜体”（如下图）。

注意：

存盘时必需寄存在考生文件夹下，工程文件名为，窗体文件名

为。

**********************************************************************

（2）在名称为Form1的窗体上画一个名称为List1的列表框，通过属性窗口输入

4个列表项：

“数学”、“物理”、“化学”、“语文”，如下图。

请编写适当的事件进程使得在装入窗体时，把最后一个列表项自动改成“

英语”；单击窗体时，那么删除最后一个列表项。

注意：

要求程序中不得利用变量，每一个事件进程中只能写一条语句。

存盘时必需寄存在考生文件夹下，工程文件名为，窗体文件名

为。

2.简单应用（2小题，每题20分，计40分）

注意：

下面显现的“考生文件夹”均为%USER%

***********************************************************************

（1）在名称为Form1的窗体上画一个名称为Text1的文本框；画二个题目别离为

“对齐方式”、“字体”，名称别离为Frame一、Frame2的框架；在Frame1

框架中画三个单项选择按钮，题目别离为“左对齐”、“居中”、“右对齐”

，名称别离为Option一、Option二、Option3；在Frame2框架中画二个单项选择按

钮，题目别离为“宋体”、“黑体”，名称别离为Option4、Option5。

要求：

编写五个单项选择按钮的Click事件进程，使程序运行时，单击这些单项选择按

钮，能够对文本框中的文字实现相应的操作（如下图）。

注意：

要求程序中不得利用变量，每一个事件进程中只能写一条语句。

存盘时必需寄存在考生文件夹下，工程文件名为，窗体文件名

为。

**********************************************************************

（2）在考生文件夹下有一个工程文件。

其窗体上有一个圆，相当于

一个时钟，当程序运行时通过窗体的Activate事件进程在圆上产生12个

刻度点，并完成其他初始化工作；还有长、短2条（红色、蓝色）直线，

名称别离为Line1和Line2，表示两个指针。

程序运行时，单击“开始”

按钮，那么每隔秒Line1（长指针）顺时针转动一个刻度，Line2（短指

针）顺时针转动1/12个刻度（即长指针转动一圈，短指针转动一个刻度）

，单击“停止”按钮，两个指针停止转动，如下图。

在窗体文件中已经给出了全数控件，但程序不完整，要求去掉程序中的注

释符，把程序中的？

改成正确的内容。

提示：

程序中的符号常量x0、y0是圆心到窗体左上角的距离，radius是圆的半

径。

注意：

不能修改程序中的其他部份和控件的属性。

最后把修改后的文件按原文

件名存盘。

3.综合应用（1小题，计30分）

注意：

下面显现的“考生文件夹”均为%USER%

在考生目录下有一个工程文件，其窗体如下图。

考生目录下有

一个文件，文件中有5个运动员的姓名、7个裁判的打分和动作的难

度系数。

每人的数据占一行，顺序是：

姓名、7个分数、难度系数。

程序运

行时，单击“输入”按钮，可把文件中的5个姓名读入数组athlete

中，把5组得分（每组7个）和难度系数读入二维数组a中（每行的最后一个

元素是难度系数），并把这些数据显示在Text1文本框中；单击“选出冠军

”按钮，那么把冠军的姓名和成绩别离显示在文本框Text二、Text3中。

成绩

的计算方式是：

去掉一个最高分和一个最低分，求剩下得分的平均分，再

乘以3，再乘以难度系数；单击“存盘”按钮，那么把冠军姓名和成绩存入考

生目录下的文件中。

要求：

去掉程序中的注释符，把程序中的？

改成正确的内容（程序中getmark

函数的功能是计算并返回第n个运动员的最后得分），并编写“选出冠军

”按钮的Click事件进程。

注意：

不得修改已经存在的程序和控件的属性，在终止程序运行前，必需用“存

盘”按钮存储计算结果，不然无成绩。

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

第47套答案

一、大体操作题

第1小题

启动VisualBasic系统，创建一个Form1窗体。

在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，多行文本（MultiLine属性）设为True，文本框转动条（ScrollBars属性）设为1，文本内容（Text属性）设为空，高（Height属性）设为2000，宽（Width属性）设为1800，点击Font属性在弹出的字体对话框中将字体设为“斜体”。

激活Form1窗体，通过其属性窗口将题目（Caption属性）设为“文本框”。

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

第2小题

启动VisualBasic系统，创建一个Form1窗体。

在该窗体上画一个列表框控件，通过其属性窗口将名称设为List1，向列表框中添加项目（List属性），添加的项目别离为“数学”、“物理”、“化学”、“语文”，每一个项目为一行。

启动窗体（即运行Load事件进程），在该Load事件进程中加入语句：

PrivateSubForm_Load（）

-1）="英语"

EndSub

单击窗体（即运行Click事件进程），在该Click事件进程中加入语句：

PrivateSubForm_Click（）

-1

EndSub

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

二、简单应用题

第1小题

启动VisualBasic系统，创建一个Form1窗体。

在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。

画二个框架控件，通过其属性窗口将名称别离设为Frame一、Frame2，题目（Caption属性）别离设为“对齐方式”、“字体”。

在Frame1框架中画三个单项选择按钮控件，通过其属性窗口将名称别离设为Option一、Option二、Option3，题目（Caption属性）别离设为“左对齐”、“居中”、“右对齐”。

在Frame2框架中画二个单项选择按钮控件，通过其属性窗口将名称别离设为Option4、Option5，题目（Caption属性）别离设为“宋体”、“黑体”。

单击“左对齐”单项选择按钮（即运行Click事件进程），在该Click事件进程中加入语句：

PrivateSubOption1_Click（）

=0

EndSub

单击“居中”单项选择按钮（即运行Click事件进程），在该Click事件进程中加入语句：

PrivateSubOption2_Click（）

=2

EndSub

单击“右对齐”单项选择按钮（即运行Click事件进程），在该Click事件进程中加入语句：

PrivateSubOption3_Click（）

=1

EndSub

单击“宋体”单项选择按钮（即运行Click事件进程），在该Click事件进程中加入语句：

PrivateSubOption4_Click（）

="宋体"

EndSub

单击“黑体”单项选择按钮（即运行Click事件进程），在该Click事件进程中加入语句：

PrivateSubOption5_Click（）

="黑体"

EndSub

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

第2小题

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件，相应的窗体文件名为。

由于所提供的窗体程序不完整，在“停止”按钮的PrivateSubCommand2_Click（）事件进程中，有一处地址需要修改。

1）将语句

'?

改成

=False

在窗体的PrivateSubForm_Activate（）事件进程中，有二处地址需要修改。

1）将语句

'Fork=0To359Step?

改成

Fork=0To359Step360/12

2）将语句

'x=radius*Cos（k*/180）+?

改成

x=radius*Cos（k*/180）+x0

在计时器的PrivateSubTimer1_Timer（）事件进程中，有二处地址需要修改。

1）将语句

'Line1.?

=y0-len1*Sin（a*/180）

改成

=y0-len1*Sin（a*/180）

2）将语句

'b=?

-30/12

改成

b=b-30/12

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

三、综合应用题

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件，相应的窗体文件名为。

由于所提供的窗体程序不完整，需添加事件进程。

单击“选出冠军”按钮（即运行Click事件进程），在该Click事件进程中加入语句：

PrivateSubCommand2_Click（）

DimkAsInteger

maxmark=getmark

（1）

m=1

Fork=2To5

Ifmaxmark

maxmark=getmark（k）

m=k

EndIf

Nextk

Text2=athlete（m）

Text3=maxmark

EndSub

在函数的PrivateFunctiongetmark（nAsInteger）AsSingle事件进程中，有三处地址需要修改。

1）将语句

's=?

改成

s=a（n,1）

2）将语句

'Fork=2To?

改成

Fork=2To7

3）将语句

'getmark=s*3*?

改成

getmark=s*3*a（n,8）

　　参考文件：

c:

\wexam\\hlpsys\参考答案\、、、

　　请把这些文件复制到c:

\wexam\中，然后打开文件并运行。

第48套

1.大体操作（2小题，每题15分，共计30分）

注意：

下面显现的“考生文件夹”均为%USER%

**********************************************************************

请依照以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画一个名称为Picture1的图片框（PictureBox），

高、宽均为1000。

在图片框内再画一个有边框的名称为Image1的图像框（

Image）。

并通过属性窗口把考生目录下的图标文件Point11（香蕉图标）

装入图像框Image1中，如下图。

注意：

存盘时必需寄存在考生文件夹下，工程文件名为，窗体文件

名为。

**********************************************************************

（2）在名称为Form1的窗体上画一个名称为Command一、题目为“保留文件”的

命令按钮，再画一个名称为CommonDialog1的通用对话框。

要求：

1）通过属性窗口设置适当的属性，使得运行时对话框的题目为“保留文

件”，且默许文件名为out2；

2）运行时单击“保留文件”命令按钮，那么以“保留对话框”方式打开该

通用对话框。

如下图。

注意：

要求程序中不能利用变量，每一个事件进程中只能写一条语句。

保留时必需寄存在考