实验习题vb.docx
- 文档编号:3264927
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:46
- 大小:481.98KB
实验习题vb.docx
《实验习题vb.docx》由会员分享,可在线阅读,更多相关《实验习题vb.docx(46页珍藏版)》请在冰点文库上搜索。
实验习题vb
1、请编一程序(程序界面如图3-1),用于根据输入的学生成绩查询对应的奖励情况,条件如下:
三门总分不低于270分(含270),特等奖;三门总分240分(含240分)~270分(不含270分),优秀奖;总分低于240分,但某一单科成绩不低于95分,特别奖。
(a)
(b)
图3-1
2、对任意输入的三个数按从小到大的顺序显示出来,运行结果参考图3-2。
要求:
程序中不得使用循环结构和转向语句;掌握两个数交换的方法。
图3-2
3、简单计算器的实现(界面参考图3-3a)。
要求:
使用SelectCase语句和If语句;能进行+、-、*、/、\和Mod六种运算;有基本的数据合法性和运算符合法性检验报错能力(如图3-3b和图3-3c)。
(a)
(b)
(c)
图3-3
4、利用VB创建一个标准exe程序,编程计算1-2+3-4+5-6+…+n的值,其中n由输入框输入。
运行结果可参考如下图。
要求:
掌握FOR语句的正确使用。
(本题要求在窗体单击事件下编写代码,采用循环语句来完成).保存窗体以sjt4-1.frm,工程为sjt4-1.vbp在D:
\VB文件夹下。
图4-1
5、用(PI)2/6=1/12+1/22+1/32+……+1/N2近似公式求PI的值。
见图4-2.当1/N2〈10-5时不再累加。
要求:
在窗体单击事件下编写代码,掌握DO语句的各种形式的正确使用。
保存窗体以sjt4-2.frm,工程为sjt4-2.vbp在D:
\VB文件夹下。
图4-2
6、创建如图4-3(同实验二)所示的应用程序,要求单击窗体时会显示如下图所示的图形。
以4-3.frm和4-3.vbp为文件名保存在D:
\VB程序。
(本题要求采用循环语句来完成)
图4-3
7利用VB创建一个标准exe程序,生成10个1-10的随机整数,并求解它们的最大值,最小值和平均值.程序界而如图4-4所示,有四个label控件,3个文本框控件和2个按钮控件。
要求:
程序运行时,点击”确定”按钮,就在label1控件上显示出10个随机生成的整数,并对这10个整数求最大值,最小值和平均值,分别显示在text1,text2和text3这三个框中.按退出按钮退出程序.并以4-4.frm和4-4.vbp为名分别将窗体文件和工程文件保存在d:
\vb\4的目录下(本题要求采用循环语句来完成)。
图4-4
(选做)8.、用牛顿迭代法求方程2x3-4x2+3x-6=0的准确解x,程序界面包括两个文本框,两个按扭,两个标签控件。
在文本框text1内输入方程的初始点,在文本框text2内输出解。
用户界面如图4-5所示,并以4-5.frm和4-5.vbp为名分别将窗体文件和工程文件保存在d:
\vb\4的目录下(要求采用循环语句来完成)。
图4-5
图1
9设计如图1所示的窗体Form1,要求程序运行后,单击“确定”命令按纽,通过输入对话框输入5个整数并存在数组a(1To5)中,然后将输入的5个整数按逆序输出。
注意:
以窗体文件名为lxoutput.frm,工程文件名为lxoutput.vbp保存在D:
\VB程序。
图2
10设计如图2所示的窗体Form1,要求程序运行后,单击“排序”命令按纽,自动生成10个整数将产生1~100之间的随机数存放在数组a[1to10]中,
然后将这10个整数按从小到大的顺序输出。
注意:
以窗体文件名为sort.frm,工程文件名为sort.vbp保存在D:
\VB程序。
图3
11设计如图3所示的窗体Form1,要求程序运行后,单击“确定”命令按纽,自动生成10个整数将产生10~99之间的随机数存放在数组a[1to10]中,
然后求出这10个整数的最大值和最小值,并在文本框Text1和Text2中显示出来。
注意:
以窗体文件名为maxandmin.frm,工程文件名为maxandmin.vbp保存在D:
\VB程序。
图4
12、、设计如图4所示的窗体Form1,要求程序运行后,在文本框text1一个自然数N(大于0小于30),要求单击“S=”命令按纽则求出Fibonacci数列:
l,1,2,3,5,8,……的前N项保存于数组Fib(),并求出前N项的和显示在文本框text2中。
注意:
以窗体文件名为fibsum.frm,工程文件名为fibsum.vbp保存在D:
\VB程序。
13编程计算1+X+X2+…+Xn的子过程和函数过程,并分别调用。
要求:
其中x和n的值由用户给定。
若x=2,n=6,那么,程序运行后结果如下图所示:
14编写函数S(masinteger,nasinteger)aslong,此函数返回m+mm+mmm+…+mm…m(n个m)的值。
比如S(2,5)的返回值2+22+222+2222+22222的值,程序运行后的结果如下图:
15编写递归函数求1+2+3+…+n的值,并显示结果。
见下图。
其中n的值由用户给定。
16、启动VisualBasic,在窗体上画一个标签和一个命令按钮,然后在属性窗体设置相应的属性,编写适当的事件过程,使得运行时单击命令按钮,结果如图所示。
以Sy7-1.frm和Sy7-1.vbp文件名保存在D:
\VB程序。
17、设计一个界面如下图所示的程序,要求程序能实现界面所示的编辑操作和字体设计功能。
以Sy7-2.frm和Sy7-2.vbp文件名保存在D:
\VB程序。
18设置如下图界面所示的程序,要求程序运行时选中组合框中的某一项,将弹出如下对话框加以说明。
以Sy7-3.frm和Sy7-3.vbp文件名保存在D:
\VB程序。
19在窗体上画一个名称为HS1的水平滚动条和三个名称分别为C1,C2,C3,标题分别为“左端”,“居中”,“右端”的命令按钮。
编程是的程序运行后,单击C1,则滚动框位于滚动条的最左端;单击C2,则滚动框位于滚动条的中间处;单击C3,则滚动框位于滚动条的最右端(如下图所示)。
以Sy7-4.frm和Sy7-4.vbp文件名保存在D:
\VB程序
20请在标题为“形状”的窗体上设一个如图所示的高、宽均为1500,与窗体的左边距离为1000的形状控件。
注:
在属性窗口中完成所有设计。
以Sy8-1.frm和Sy8-1.vbp文件名保存在D:
\VB程序。
21请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框(Picture1)以及“显示”和“清空”两个按钮(Command1、Command2)。
运行时,单击“显示”,在图片框中显示自选图片;单击“清空”则清空图片框。
注:
程序中无需使用任何变量。
以Sy8-2.frm和Sy8-2.vbp文件名保存在D:
\VB程序。
22、设计如图所示的模拟秒表,在窗体体上画三个标签、三个命令按钮、一个计时器、一个列表框、一个文本框。
请编写适当的事件过程,使得程序运行时,单击标题为“开始”的命令按钮,计时器开始计时,并在文本框中显示动态的时间变化;单击标题为“记录”的命令按钮,将当前文本框显示的时间添加到列表框,文本框显示的时间还在变化;单击标题为“停止”的命令按钮,将停止计时,文本框的记录内容不再变化。
以Sy8-3.frm和Sy8-3.vbp文件名保存在D:
\VB程序。
23、设计如图所示的简易画板,在窗体上画一个图片框、一个命令按钮和一组单选按钮。
请编写适当的事件过程,使程序运行时,选择相应单选按钮,在图片框上可以实现相应的功能。
如选择“画直线”单选按钮,可在图片框上画一条直线;如选择“画矩形”单选按钮,可在图片框上画一矩形;如选择“画圆”单选按钮,可在图片框上画一圆;如选择“画椭圆”单选按钮,可在图片框上画一椭圆;单击标题为“Cls”的命令按钮,则清除图片框的内容。
注:
程序中无需使用任何变量以。
以Sy8-4frm和Sy8-4.vbp文件名保存在D:
\VB程序。
24、请按下图设计程序,在窗体上画一个图像框,并在设计时装好图片。
请编写适当的事件过程,使程序运行时,可以用鼠标将图像框拖动到窗体内任意的,准确的位置。
以Sy8-5.frm和Sy8-5.vbp文件名保存在D:
\VB程序。
25、制作一个文本编辑器,包含一个下拉菜单、一个多行文本框。
功能有:
新建、打开、保存文本文件、退出文本编辑器。
图9-1操作内容1
26、制作一个名为“颜色”的下拉菜单,并在窗体上画一个圆。
单击下拉菜单颜色名称,圆就会填充相应颜色。
图9-2操作内容2
27、建立如图9-3所示用户界面。
要求:
点击“图片”下拉菜单中“显示”,在图片框中显示当前文件夹中的指定图片(D:
\VBSy\Fish.jpg);点击“清空”,则清除图片框中的图片。
图9-3操作内容3
28、建立一个设置文本框字号的弹出式菜单,界面如图9-4所示。
图9-4操作内容4
29、设计一个简易图像、图形处理器。
1)设计一个父窗体,在窗体上建立文件下拉菜单。
各属性、功能如下:
控件名称
属性或功能
MDIForm
Caption=”多文档界面”
文件
顶级菜单
….新建
打开一个空白子窗体
….打开
在在子窗体打开一幅图像
….-
分隔条
….退出
退出应用程序
2)设计一个子窗体,画一个图片控件,建立一个下拉菜。
各属性、功能如下:
控件名称
属性或功能
Form1
Caption=”文档1”
文件
顶级菜单
….新建
清除图片框中图像
….打开
在图片框中打开一幅图像
….-
分隔条
….退出
退出应用程序
绘图
顶级菜单
….直线
在图片控件中绘直线
….手绘
在图片控件中绘曲线
….清除
清除图片框中绘制的图形
30、设计如图10-1所示的窗体Form1,编写适当的事件代码,要求运行后,单击“打开”按钮,读入D:
\VB\10文件夹下“in.txt”文件中数据,并在文本框Text1显示;单击“保存”按钮,将文本框Text1中的内容转换为大写字母显示在文本框中(如图10-2所示),并保存到“out.txt”文件中。
以10-1frm和10-1.vbp文件名保存在D:
\VB\10下。
图10-1图10-2
31、设计如图10-3所示的窗体“文件选择器”,编写适当的事件代码,要求运行后,驱动器、目录和文件列表框同步显示。
双击文件列表框中的文件时,在底部文本框中显示选中文件带路径的完整文件名(如图10-3所示)。
以10-2frm和10-2.vbp文件名保存在D:
\VB\10下。
图10-3图10-4
32、改进上一个实验内容,要求文件列表框中显示相应路径下的文本文件,双击文件名时,在文本框中显示该文件的内容。
33、设计一个简易记事本,要求能够实现文件的新建、打开、编辑和保存等功能。
界面如图10-5所示。
程序运行后,单击“新建”菜单命令,则清空文本框;用户可以在文本框中输入内容;单击“保存”菜单命令,则将当前文本框中的内容保存到D:
\VB\10下的myfile.txt文件中;单击“打开”菜单命令,则将D:
\VB\10下的myfile.txt文件中的内容显示到文本框。
以10-4frm和10-4.vbp文件名保存在D:
\VB\10下。
图10-5
答案
1,创建一个EXE标准程序,构造3个label,3个文本框和一个命令按钮如图:
调出代码窗口,输入代码:
PrivateSubCommand1_Click()
DimaAsString
DimbAsInteger
c=CInt(Text1.Text)
d=CInt(Text2.Text)
e=CInt(Text3.Text)
total=c+d+e
Label3.Caption=total
a=Label3.Caption
Ifa>=270Then
a=MsgBox("您获得特等奖",vbOKOnly)
EndIf
Ifa>=240Anda<=270Then
a=MsgBox("您获得优秀奖",vbOKOnly)
EndIf
Ifa<=240Andc>=95Ord>=95Ore>=95Then
a=MsgBox("您获得特别奖",vbOKOnly)
EndIf
EndSub
运行程序.
2,另建EXE程序,构建1个命令按钮,6个文本框和5个label,如图:
调出代码框,输入代码:
PrivateSubCommand1_Click()
PrivateSubCommand1_Click()
a=CInt(Text1.Text)
b=CInt(Text2.Text)
c=CInt(Text3.Text)
Text4.Text=a
Text5.Text=b
Text6.Text=c
Ifa>bThent=a:
a=b:
b=t
Ifb>cThent=b:
b=c:
c=t
Ifa>bThent=a:
a=b:
b=t
Text4.Text=a
Text5.Text=b
Text6.Text=c
EndSub
运行程序.
3,再建一个EXE程序,构建2个命令按钮,5个label和4个文本框,如图:
调出代码窗口,输入代码:
PrivateSubCommand1_Click()
a=CInt(Text1.Text)
ope=Text2.Text
b=CInt(Text3.Text)
Ifope="/"Andb=0ThenMsgBox"分母为零,请重新输入。
"
SelectCaseope
Case"+":
c=a+b
Case"-":
c=a-b
Case"*":
c=a*b
Case"/":
c=a/b
Case"\":
c=a\b
Case"mod":
c=aModb
CaseElse:
MsgBox"无法识别的运算符,请重新输入。
"
EndSelect
Text4.Text=c
EndSub
运行程序
4,建立一个标准EXE程序,调出代码窗口,输入:
PrivateSubForm_Click()
n=InputBox(请输入数字)
Fori=1Ton
Printi;
IfiMod2=0Then
s=s-i
Ifi Print"-"; EndIf EndIf IfiMod2<>0Then s=s+i Ifi Print"+"; EndIf EndIf Nexti Print"=";s EndSub 运行程序,以sy4-1.Frm和sy4-1.Vbp保存. 5,另建一个标准EXE程序,调出代码窗口,输入代码: PrivateSubForm_Click() Dima,b,cAsSingle Print"PI";"="; n=1 DoWhile(1/n^2>10^(-5)) a=1/n^2 b=b+a n=n+1 Loop c=(b*6)^(1/2) Printc; 运行程序,以sy4-2.Frm和sy4-2.Vbp保存. 6建一个标准EXE程序,调出代码窗口,输入代码: Print"*" Fori=1To7 Print"*";Spc(i-1);"*" Next Print"*********" EndSub 运行程序,以sy4-3.Frm和sy4-3.Vbp保存. 7,建一个标准EXE程序,构造四个label控件,3个文本框控件和2个按钮控件,如图: 调出代码窗口输入代码: PrivateSubCommand1_Click() DimiAsInteger Dima(1To10)AsInteger DimmaxAsInteger,minAsInteger Randomize Fori=1To10 a(i)=Int(Rnd*10+1) Sum=Sum+a(i) Next max=a (1) min=a (1) Fori=2To10 max=IIf(max min=IIf(min>a(i),a(i),min) Next Label5.Caption=a (1) Fort=1To9 Label5.Caption=Label5.Caption&""&a(t+1) Next Text1.Text=max Text2.Text=min Text3.Text=Sum/10 EndSub 运行程序,以sy4-4.frm和sy4-4.vbp保存. 8,建立一个标准EXE,调出代码窗口,输入代码: PrivateSubForm_Click() Dima(1To5)AsInteger Print"输入数据是" Fori=1To5 a(i)=CInt(InputBox("请输入数字")) Printa(i); Nexti Print"" Print"逆序输出为" Fori=5To1Step-1 Printa(i); Next EndSub 运行程序. 9,建立一个标准EXE,构建1个command,调出代码窗口,输入代码: PrivateSubCommand1_Click() DimiAsInteger Dima(1To10)AsInteger Randomize Print"生成的10个整数为" Fori=1To10 a(i)=Int(Rnd*100+1) Printa(i); Nexti Print"" Fori=1To9 m=i Forj=i+1To10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 习题 vb