vb的操作题有答案.docx

vb的操作题有答案.docx

《vb的操作题有答案.docx》由会员分享，可在线阅读，更多相关《vb的操作题有答案.docx（60页珍藏版）》请在冰豆网上搜索。

vb的操作题有答案

vb的操作题（有答案）

1.

（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。

程序刚运行时，会生成一个有10个元素的整型数组。

若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。

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

改为正确的内容。

注意：

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

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

件名存盘。

PrivateSubCommand1_Click（）

x=a

（1）

y=a

（1）

Fori=2To10

IfOption1.Value=TrueThen

Ifa（i）>xThen

x=a（i）

EndIf

PrivateSubCommand1_Click（）

DimiAsInteger

Fori=0To3

Text1.Text=List1

Nexti

EndSub

6在考生文件夹下有一个工程文件sj31.vbp，相应的窗体文件为sj31.frm，此

外还有一个名为datain.txt的文本文件，其内容如下：

324376582812985731425364758697132435465768

79805937

程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat

中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线

上的数据，如图所示。

在窗体的代码窗口中，已给出了部分程序，这个程序

不完整，请把它补充完整，并能正确运行。

要求：

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

改为正确的内容，使其实现上述功

能，但不能修改程序中的其他部分。

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

解题方法：

打开sjt5.vbp中的Form1窗体，打开代码窗口，修改后的代码如下：

OptionBase1

PrivateSubForm_Click（）

ConstN=5

ConstM=5

DimMat（M,N）

Dimi,j

OpenApp.Path&"\"&"datain.txt"ForInputAs#1

Fori=1ToN

Forj=1ToM

Input#1,Mat（i,j）

Nextj

Nexti

Close#1

Print

Print"初始矩阵为：

"

Print

Fori=1ToN

Forj=1ToM

PrintTab（5*j）;Mat（i,j）;

Nextj

Print

Nexti

Print

Print"左上-右下对角线上的数为：

"

Fori=1ToN

Forj=1ToM

Ifi=jThenPrintTab（5*j）;Mat（i,j）;

Nextj

Nexti

EndSub

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

（1）在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”）。

然后编写命令按钮的Click事件过程。

程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图所示。

要求程序中不得使用任何变量。

*注意：

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

PrivateSubCommand1_Click（）

PrintText1.text+”,现年”+text2.text+“岁”

EndSub

8.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个水平滚动条（名称为HScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为p02.jpg，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意（如图1所示）。

编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：

Min100

Max1500

LargeChange100

SmallChange10

之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。

运行后的窗体如图2所示。

要求程序中不得使用任何变量。

*注意：

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

图1图2

PrivateSubCommand1_Click（）

HScroll1.Max=1500

HScroll1.Min=100

HScroll1.SmallChange=10

HScroll1.LargeChange=100

EndSub

PrivateSubHScroll1_Change（）

Picture1.width=HScroll1.value

EndSub

9.在考生文件夹下有工程文件wy54.vbp及窗体文件wy54.frm，该程序是不完整的，请在有？

号的地方填入正确内容，然后删除？

及所有注释符（即'号），但不能修改其它部分。

存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。

本题描述如下：

在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件stud1.dat，存放考生的考号、姓名、成绩。

1）自定义一个数据类型stu，字符型数据定长为10。

2）按"开始"按钮后，能从考生文件夹下的stud1.dat中读出所有数据并写入考生文件夹下的stud.dat文件中；

3）执行完毕，"开始"按钮变成"完成"，且无效（变灰）；

PrivateTypestu

numAsLong

'namAsString*10

scoreAsSingle

'Endtype

PrivateSubCommand1_Click（）

DimrecAsstu

DimiAsInteger

myfile1=App.Path&"\"&"student.dat"

myfile2=App.Path&"\"&"student1.dat"

Openmyfile1ForInputAs#1

Openmyfile2ForInputAs#2

Fori=1To8

Input#1,rec.num,rec.nam,rec.score

Write#2,rec.num,rec.nam,rec.score

NextI

Close

Command1.Caption="完成"

Command1.Enabled=False

EndSub

10.在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。

程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。

程序的运行情况如图所示。

不准使用任何变量。

*注意：

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

PrivateSubL1_DblClick（）

Lab1.Caption=L1.ListCount

EndSub

11.在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm，该程序是不完整的，请在有？

号的地方填入正确内容，然后删除？

及所有注释符（即'号），但不能修改其它部分。

存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。

本题描述如下：

在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件worker.dat，存放工人的编号、姓名、性别和体重。

1）按"开始"按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中；

2）执行完毕，"开始"按钮变成"完成"，且无效。

PrivateSubCOMEXIT_Click（）

End

EndSub

PrivateSubCOMSTART_Click（）

DimiAsInteger

DimtotalAsInteger

DimaverAsSingle

Dimnum（10）,namstring（10）,sexstring（10）,wages（10）

'MyFile1=App.Path&"\"&“worker.dat”

'MyFile2=App.Path&"\"&“worker1.dat”

OpenMyFile1ForInputAs#1

OpenMyFile2ForOutputAs#2

Fori=1To10

'Input#1,num（i）,namstring（i）,sexstring（i）,wages（i）

total=total+wages（i）

Nexti

'aver=total/10

Fori=1To10

'Ifaver

Nexti

'COMSTART.Caption=“完成”

'COMSTART.Enabled=fault

EndSub

PrivateSubLabel2_Click（）

EndSub

12．在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm，该程序是不完整的，请在有？

号的地方填入正确内容，然后删除？

及所有注释符（即'号），但不能修改其它部分。

存盘时不得改变文件夹和文件名。

本题描述如下：

窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为"爱心社"和"学通社"。

要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示"报名参加爱心社"；如果只选中Ch2，然后单击窗体，则在文本框中显示"报名参加学通社"；如果同时选中Ch1和Ch2，单击窗体，则在文本框中显示"报名参加爱心社和学通社"；如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。

OptionExplicit

PrivateSubForm_Click（）

Text1.Text=""

IfCh1.Value=1Then

Text1.Text=Text1.Text+"爱心社"

EndIf

IfCh2.ValueThen

IfText1.Text<>""ThenText1.Text="爱心社"+"和"

Text1.Text=Text1.Text+"学通社"

EndIf

IfText1.Text<>""Then

Text1.Text="报名参加"+Text1.Text

EndIf

EndSub

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

（1）在名称为Form1的窗体上建立一个水平滚动条，请在属性窗口中把它的名称设置为HS1，Max属性设置为100，Min属性设置为0，Value属性设置为100。

程序运行后，滚动框位于滚动条最右端（如图所示），如果单击滚动条之外的窗体部分，则滚动框跳到最左端。

*注意：

1）只能直接为相应的属性赋值，不得使用变量。

2）保存时必须存放在考生文件夹下，窗体文件名为wy14.frm，工程文件名为wy14.vbp。

答案：

PrivateSubForm_click（）

HScroll1.Left=0

EndSub

14.）按下述要求在属性窗口中设置属性：

在名称为Form1的窗体中建立一个标签，名称为L1，在标签上显示"选课"，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为"操作系统"、"数据库原理"、"概率论"，字体大小均为14，其中"概率论"被禁用。

*注意：

保存时必须存放在考生文件夹下，窗体文件名为wy15.frm，工程文件名为wy15.vbp。

答案：

PrivateSubForm_Load（）

Check3.Enabled=False

EndSub

15.在考生文件夹下有一个工程文件sj113.vbp，其窗体上画有2个名称分别为

Text1、Text2的文本框，其中Text1可多行显示。

请画2个名称为Command1、

Command2，标题为"产生数组"、"查找"的命令按钮。

如图所示。

程序功

能如下：

1）单击"产生数组"按钮，则用随机函数生成10个0～100之间（不含0和

100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个

数值显示在Text1文本框内；

2）单击"查找"按钮将弹出输入对话框，接收用户输入的任意一个数，并

在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数"

不存在于数组中"；否则给出该数在数组中的位置。

要求：

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

改为正确的内容，使其实现上述

功能，但不能修改窗体文件中已经存在的控件和程序。

最后把修改后的

文件按原文件名存盘。

PrivateSubCommand1_Click（）

Text1.Text="":

Text2.Text=""

Fori=1To10

a（i）=Fix（Rnd*99+1）

Forj=1Toi-1

Ifa（i）=a（j）Then

i=i-1

ExitFor

EndIf

Nextj

Nexti

Fori=1To10

Text1.Text=Text1.Text+Str（a（i））+Space

（2）

Nexti

EndSub

PrivateSubCommand2_Click（）

DimnumAsInteger,iAsInteger

num=InputBox（"请输入待查找的数"）

Fori=1To10

Ifa（i）=numThen

Text2.Text=Str（num）+"是数组中的第"+Str（i）+"个值"

ExitFor

EndIf

Nexti

Ifi>10Then

Text2.Text=Str（num）+"不存在于数组中"

EndIf

EndSub

16.在考生文件夹下有一个工程文件sj127.vbp（相应的窗体文件名为sjt4.frm

），其功能是通过调用过程FindMax求数组的最大值，请装入该文件。

程

序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求

出数组的最大值，并在窗体上显示出来（如图所示）。

这个程序不完整，

请把它补充完整，并能正确运行。

要求：

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

改为正确的内容，使其实现上述功

能，但不能修改程序中的其他部分。

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

盘。

OptionBase1

PrivateFunctionFindMax（a（）AsInteger）

DimStartAsInteger

DimFinishAsInteger,iAsInteger

Start=LBound（a）

Finish=UBound（a）

Max=a（Start）

Fori=StartToFinish

Ifa（i）>MaxThenMax=a（i）

Nexti

FindMax=Max

EndFunction

PrivateSubCommand1_Click（）

Dimarr1

Dimarr2（4）AsInteger

arr1=Array（Val（Text1.Text）,Val（Text2.Text）,Val（Text3.Text）,Val（Text4.Text））

Fori=1To4

arr2（i）=CInt（arr1（i））

Nexti

M=FindMax（arr2）

Print"最大值是:

";M

EndSub

17.15

（1）在考生文件夹下有一个工程文件sj10.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。

程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。

要求：

1）依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示”。

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

改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。

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

PrivateSubC1_Click（）

Fori=0To2

IfOp1（i）.value=TrueThen

Print"我的出生地是"+Op1（i）.caption

EndIf

Next

EndSub

18.在名称为Form1的窗体上画一个文本框（名称为Text1，Text属性为“国”，FontName属性为“黑体”）和一个水平滚动条（名称为HScroll1），如图1所示。

在属性窗口中对滚动条设置如下属性：

Min10

Max100

LargeChange5

SmallChange2

编写适当的事件过程。

程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框中的“国”字。

运行后的窗体如图2所示。

要求程序中得使用任何变量。

*注意存盘时必须存放在考生文件夹下，工程文件名为sj20.vbp，窗体文件名为sj20.frm。

解析

PrivateSubHScroll1_Change（）

Text1.fontsize=hscroll1.value

endSub

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

（1）在Form1的窗体上建立一个主菜单，标题为"操作"，名称为Op，该菜单有两个子菜单，其标题分别为"显示"和"清除"，其名称分别为Dis和Clea，编写适当的事件过程。

程序运行后，如果单击"操作"菜单中的"显示"命令，则在窗体上显示"等级考试"；如果单击"清除"命令，则清除窗体上显示的内容。

程序的运行情况如图所示。

*注意：

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

PrivateSubClea_Click（）

Cls

EndSub

PrivateSubDis_Click（）

Print"等级考试"

EndSub

20.在考生文件夹下有一个工程文件sj43.vbp，请在窗体上画两个单选按钮（

名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目”

），一个列表框（名称为List1）和一个文本框（名称为Text1），如图1

所示。

编写窗体的Click事件过程。

程序运行后，如果选择“添加项目”

单选按钮，然后单击窗体，则从键盘上输入要添加的项目（内容任意，不

少于三个），并添加到列表框中；如果选择“删除项目”单选按钮，然后

单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。

程序的

运行情况如图2所示。

在考生文件夹下的工程文件sj43.vbp（相应的窗体文件名为sj43.frm），

可以实现上述功能。

但这个程序不完整，请把它补充完整。

要求：

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

改为适当的内容，使其正确运行，

但不能修改程序中的其他部分。

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

图1图2

PrivateSubForm_Click（）

IfOption1.Value=TrueThen

Text1.Text=InputBox（"请输入要添加的项目"）

List1.AddItemText1.Text

EndIf

IfOption2.Value=TrueThen

Text1.Text=InputBox（"请输入要删除的项目"）

Fori=0ToList1.ListCount-1

IfList1.List（i）=Text1.TextThen

List1.RemoveItemi

EndIf

Nexti

EndIf

EndSub

21.在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm

），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。

程序

运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令

按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。

这个程序不完整，请把它补充完整，并能正确运行。

要求：

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

改为正确的内容，使其实现上述功

能，但不能修改程序中的其他部分。

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

盘。

图1

PrivateSubSort（a（）AsInteger）

DimStartAsInteger,FinishAsInteger

DimiAsInteger,jAsInteger,tAsInteger

Start=LBound（a）

Finish=UBound（a）

Fori=FinishTo2Step-1

Forj=1ToFinish-1

Ifa（j）

t=a（j+1）

a（j+1）=a（j）

a（j）=t

EndIf

Nextj

Nexti

EndSub

22.其功能是产生30个0～999的随机