VB编程题分析.docx
《VB编程题分析.docx》由会员分享,可在线阅读,更多相关《VB编程题分析.docx(23页珍藏版)》请在冰豆网上搜索。
VB编程题分析
3-1
一、VB环境的基本使用(本题两道小题共10分)
所有文件存储在考生文件夹C:
\Sower\CbtesExam\VB\下。
(1)新建立一个工程文件,并按照下列要求进行操作:
在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“缩小”,如图所示,编写适当的事件过程。
程序运行后,每单击Command1命令按钮一次,文本框中文本的字体扩大1.2倍;每单击Command2命令按钮一次,文本框中文字的字体缩小1.2倍。
注意:
存盘时工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
PrivateSubCommand1_Click()
Text1.FontSize=Text1.FontSize*1.2
EndSub
PrivateSubCommand2_Click()
Text1.FontSize=Text1.FontSize/1.2
EndSub
(2)新建立一个工程文件,并按照下列要求进行操作:
在名称为Form1的窗体上画一个列表框,其名称为List1,通过属性窗口向列表框中输入9个项目,分别为:
10、20、30、40、50、60、70、80、90;画一个文本框,其名称为Text1,初始内容为空白;再画一个水平滚动条,其名称为Hscroll1,Min属性和Max属性分别为0和100,如图所示,编写适当的事件过程。
程序运行后,如果单击列表框中的某个项目,则在文本框中显示该项目内容,并把滚动条的滚动框移动到相应的位置,如图所示。
要求:
不得使用任何变量
注意:
存盘时工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
程序代码如下所示:
PrivateSubList1_Click()
Text1.Text=List1.Text
HScroll1.Value=List1.Text
EndSub
二、VB简单程序设计(本题两道小题共14分)
所有文件存储在考生文件夹C:
\sower\CbtesExam\VB\下
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。
在窗体上有一个命令按钮(名称为Command1,标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2),如图所示。
程序运行后,单击命令按钮,即可计算出数组Arr中正数之和pos和负数之和neg,并分别在两个文本框中显示出来。
该程序不完整,请把它补充完整。
要求:
去掉程序中的注释符,把程序中的?
改为正确的内容,使其能正确运行,但不能修改程序中其他部分,也不能修改控件的属性。
最后用原来的文件名保存工程文件和窗体文件。
OptionBase1
PrivateSubCommand1_Click()
DimArr
Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos=0
neg=0
Fork=1To10
IfArr(k)>0Then
pos=pos+Arr(k)
Else
neg=neg+Arr(k)
EndIf
Nextk
Text1.Text="正数之和为:
"&Str(pos)
Text2.Text="负数之和为:
"&Str(neg)
EndSub
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。
在窗体上有两个命令按钮,其名称分别为Command1、Command2;一个标签,其名称为Label1;一个计时器,其名称为Timer1,如图所示。
程序运行后,如果单击“开始”命令按钮,则该按钮变为禁用,而标题变为“继续”,同时标签中的字体每隔100毫秒增大0.1倍(即为原来的1.1倍),如图所示,字体大小超过100后,自动缩小为8;如果单击“停止”命令按钮,则该按钮变为禁用,“继续”命令按钮变为有效,同时标签中的字体停止变化;再次单击“继续”命令按钮后,标签中的字体继续变化。
这个程序不完整,请仔细阅读已有内容,并把它补充完整,使之能正确运行。
要求:
去掉程序中的注释符,把程序中的?
改正为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,最后把修改后的文件按原文件名存盘。
PrivateSubForm_Load()
Command1.Caption="开始"
Command2.Caption="停止"
Timer1.Interval=100
Timer1.Enabled=False
Label1.Caption="国"
Label1.AutoSize=True
Label1.FontBold=True
EndSub
PrivateSubCommand1_Click()
Command1.Caption="继续"
Timer1.Enabled=True
Command1.Enabled=False
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
Command2.Enabled=False
Command1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
IfLabel1.FontSize<=100Then
Label1.FontSize=Label1.FontSize*1.1
Else
Label1.FontSize=8
EndIf
EndSub
5-1
一、VB环境的基本使用(本题两道小题共10分)
所有文件存储在考生文件夹C:
\Sower\CbtesExam\VB\下。
(1)新建立一个工程文件,并按照下列要求进行操作:
在名称为Form1的窗体上画两个标签,(名称分别为Label1和label2,标题分别为“书名”和“作者”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“显示”)。
然后编写命令按钮的Click事件过程。
程序运行后,在两个文本框中分别输入书名和作者,然后单击命令按钮,则在窗体的标题栏上显示两个文本框的内容,如图2所示。
要求程序中不得使用任何变量。
注意:
存盘时工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
图1图2
代码如下所示:
PrivateSubCommand1_Click()
Form1.Caption=Text1.Text&","&Label2.Caption&""&Text2.Text
EndSub
(2)新建立一个工程文件,并按照下列要求进行操作:
在名称为Form1的窗体上画一个垂直滚动条(名称为Vscroll1)和一个水平滚动条(名称为Hscroll1),如图1所示。
在属性窗口中对两个滚动条设置如下属性:
Min1500
Max6000
LargeChange200
SmallChange50
编写适当的事件过程。
程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小窗体。
运行后的窗体如图2所示。
要求程序中不得使用任何变量。
注意:
存盘时工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
代码如下所示:
PrivateSubHScroll1_Change()
Form1.Width=HScroll1.Value
EndSub
PrivateSubVScroll1_Change()
Form1.Height=VScroll1.Value
EndSub
二、VB简单程序设计(本题两道小题共14分)
所有文件存储在考生文件夹C:
\sower\CbtesExam\VB\下
(1)打开考生文件夹下工程文件sjt3.vbp,在窗体(名称为Form1,KeyPreview属性为True)上画一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。
编写窗体的KeyDown事件过程。
程序运行后,如果用“A”键,则从键盘上输入要添加到列表框框中的项目(内容任意,不少于三个);如果按“D”键,则从键盘上输入要删除的项目,将其从列表框中删除。
程序的运行情况如图2所示。
在考生文件夹下有一个工程文件sjt2.vbp(相应的窗体文件名为sjt2.frm),可以实现上述功能。
但这个程序不完整,请把它补充完整。
要求:
去掉程序中的注释,把程序中的?
改为适当的内容,使其正确运行,但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
图1图2
程序代码如下所示:
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfChr(KeyCode)="A"Then
Text1.Text=InputBox("请输入要添加的项目")
List1.AddItemText1.Text
EndIf
IfChr(KeyCode)="D"Then
Text1.Text=InputBox("请输入要删除的项目")
Fori=0ToList1.ListIndex-1
IfList1.List(i)=Text1.TextThen
List1.RemoveItemi
EndIf
Nexti
EndIf
EndSub
(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过通用过程Average求数组的平均值。
请装入该文件。
程序运行后,在四个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的平均值,并在窗体上显示出来(如图所示)。
这个程序不完整,请把它补充完整,并能正确运行。
注意:
去掉程序中的注释符,把程序中的?
改为适当的内容,使其实现上述功能,但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
程序代码如下所示:
OptionBase1
PrivateFunctionAverage(a()AsInteger)AsSingle
DimStartAsInteger,FinishAsInteger
DimiAsInteger
DimSumAsInteger
Start=LBound(a)
Finish=UBound(a)
Sum=0
Fori=StartToFinish
Sum=Sum+a(i)
Nexti
Average=Sum/Finish
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
Aver=Average(arr2())
Print"平均值是:
";Aver
EndSub
三、VB综合程序设计(本题16分)
所有文件存储在考生文件夹C:
\Sower\CbtesExam\VB\下
打开考生目录下工程文件sjt5.vbp,在窗体上建立三个菜单(名称分别为Read、Calc、Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图所示)。
程序运行后,如果执行“读入数据”命令,则读入datain1.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”菜单,则把该数组中可以被3整除的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”菜单,则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp,考生可以装入该文件。
窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
注意:
考生不得修改窗体文件中已经存在的程序。
存盘时,工程文件名仍为sjt5.vbp,窗体文件名仍为sjt5.frm。
程序代码如下所示:
OptionBase1
DimArr(100)AsInteger
DimsumAsInteger
SubReadData()
OpenApp.Path&"\"&"datain1.txt"ForInputAs#1
Fori=1To100
Input#1,Arr(i)
Nexti
Close#1
EndSub
SubWriteData(FilenameAsString,NumAsInteger)
OpenApp.Path&"\"&FilenameForOutputAs#1
Print#1,Num
Close#1
EndSub
PrivateSubcalc_Click()
DimiAsInteger
sum=0
Text1.Text=""
Fori=1To100
IfArr(i)Mod3=0Then
sum=sum+Arr(i)
Text1.Text=Arr(i)&vbCrLf&Text1.Text
EndIf
Nexti
Printsum
EndSub
PrivateSubread_Click()
CallReadData
EndSub
PrivateSubsave_Click()
CallWriteData("outdata.txt",sum)
EndSub
7-1
一、VB环境的基本使用(本题两道小题共10分)
所有文件存储在考生文件夹C:
\Sower\CbtesExam\VB\下。
(1)新建立一个工程文件,并按照下列要求进行操作:
在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性满足以下要求:
1)Text2可以显示多行文本,且有垂直和水平两个滚动条;
2)运行时在Text1中输入的字符都显示为“*”。
运行后的窗体如图所示。
注意:
存盘时工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
操作步骤:
1.画第一个文本框,其height和width属性值分别为300和2400,其PassWordChar属性值为“*”;
2.画第二个文本框,其height和width属性值分别为1200和2400,其MultiLine属性为True、ScrollBars属性值为3-Both即可。
(2)新建立一个工程文件,并按照下列要求进行操作:
在名称为Form1的窗体上画一个图像框,名称为Image1,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件pic1.bmp装入图像框;再画两个命令按钮,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。
要求:
1)请编写适当的事件过程,程序运行后,如果单击“放大”按钮,则把图像框的高度、宽度均增加100;单击“缩小”按钮,则把图像框的高度、宽度均减少100。
要求程序中不得使用任何变量。
2)通过属性窗口设置图像框的适当属性,使得在放大、缩小图像框时,其中的图像也自动放大、缩小。
注意:
存盘时工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
程序的代码如下所示:
PrivateSubCommand1_Click()
Image1.Height=Image1.Height+100
Image1.Width=Image1.Width+100
EndSub
PrivateSubCommand2_Click()
Image1.Height=Image1.Height-100
Image1.Width=Image1.Width-100
EndSub
设置图像框的stretch属性为true时,图像将随框的变化而变化。
图1初始状态图图2运行结果图
二、VB简单程序设计(本题两道小题共14分)
所有文件存储在考生文件夹C:
\Sower\CbtesExam\VB\下。
(1)在考生文件夹下有一个工程文件sjt3.vbp,它包含两个名称分别为Form1和Form2的窗体,Form1和Form2窗体上建立了标题分别为“C1”和“C2”的按钮。
请先把Form1上按钮的标题改为“结束”,把Form2按钮的标题改为“显示”,并将Form2设为启动窗体,将Form1设为不显示。
该程序实现的功能是:
在程序运行时显示Form2窗体,单击Form2上的“显示”按钮,则显示Form1窗体,若单击Form1上的“结束”按钮,则关闭Form1和Form2,并结束程序运行。
请去掉程序中的注释符,把程序中的?
改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,最后把修改后的文件按原文件名存盘。
正确程序运行后的界面如图所示。
程序代码:
Form2窗体中的命令按钮的单击事件过程:
PrivateSubC2_Click()
LoadForm1
Form1.Visible=True
EndSub
Form1窗体中的命令按钮的单击事件过程:
PrivateSubC1_Click()
End
EndSub
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上有一个名为P1的图片框;一个单选按钮数组,含三个单选按钮,标题分别为“正方形”、“椭圆形”、“圆形”;还有一个标题为“显示”的命令按钮。
程序的功能是在运行时,如果选中一个单选按钮后,单击“显示”按钮,则根据单选按钮的选中情况,在图片框中显示“选择了正方形”、“选择了椭圆形”或“选择了圆形”,如图所示。
要求:
1)原题中的单选按钮和命令按钮没有标题,请利用属性窗口依次添加单选按钮标题分别为“正方形”、“椭圆形”、“圆形”,添加命令按钮标题为“显示”。
2)去掉程序中的注释符,把程序中的?
改为正确的内容,使其实现上述功能。
注意:
不能修改程序中的其他部分,也不能修改控件的其他属性。
最后把修改后的程序以原文件名存盘。
8-1
一、VB环境的基本使用(本题两道小题共10分)
所有文件存储在考生文件夹C:
\Sower\CbtesExam\VB\下。
(1)新建立一个工程文件,并按照下列要求进行操作:
在名称为Form1的窗体上画
。
注意:
存盘时工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)新建立一个工程文件,并按照下列要求进行操作:
在名称为Form1的窗体上画一个
编写适当的事件过程。
程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小窗体。
运行后的窗体如图2所示。
要求程序中不得使用任何变量。
注意:
存盘时工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
二、VB简单程序设计(本题两道小题共14分)
所有文件存储在考生文件夹C:
\sower\CbtesExam\VB\下
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。
在窗体上有一个命令按钮(名称为Command1,标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2),如图所示。
程序运行后,单击命令按钮,即可计算出数组Arr中正数之和pos和负数之和neg,并分别在两个文本框中显示出来。
该程序不完整,请把它补充完整。
要求:
去掉程序中的注释符,把程序中的?
改为正确的内容,使其能正确运行,但不能修改程序中其他部分,也不能修改控件的属性。
最后用原来的文件名保存工程文件和窗体文件
2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。
在窗体上有两个命令按钮,其名称分别为Command1、Command2;一个标签,其名称为Label1;一个计时器,其名称为Timer1,如图所示。
程序运行后,如果单击“开始”命令按钮,则该按钮变为禁用,而标题变为“继续”,同时标签中的字体每隔100毫秒增大0.1倍(即为原来的1.1倍),如图所示,字体大小超过100后,自动缩小为8;如果单击“停止”命令按钮,则该按钮变为禁用,“继续”命令按钮变为有效,同时标签中的字体停止变化;再次单击“继续”命令按钮后,标签中的字体继续变化。
这个程序不完整,请仔细阅读已有内容,并把它补充完整,使之能正确运行。
要求:
去掉程序中的注释符,把程序中的?
改正为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,最后把修改后的文件按原文件名存盘。
三、VB综合程序设计(本题16分)
所有文件存储在考生文件夹C:
\Sower\CbtesExam\VB\下
打开考生目录下工程文件sjt5.vbp,在窗体上建立三个菜单(名称分别为Read、Calc、Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图所示)。
程序运行后,如果执行“读入数据”命令,则读入datain1.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”菜单,则把该数组中可以被3整除的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”菜单,则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp,考生可以装入该文件。
窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
注意:
考生不得修改窗体文件中已经存在的程序。
存盘时,工程文件名仍为sjt5.vbp,窗体文件名仍为sjt5.frm。
16-1
一、VB环境的基本使用(本题两道小题共10分)
所有文件存储在考生文件夹C:
\Sower\CbtesExam\VB\下
(1)