vb实用案例50例.docx
- 文档编号:1841666
- 上传时间:2022-10-24
- 格式:DOCX
- 页数:30
- 大小:679.80KB
vb实用案例50例.docx
《vb实用案例50例.docx》由会员分享,可在线阅读,更多相关《vb实用案例50例.docx(30页珍藏版)》请在冰豆网上搜索。
vb实用案例50例
实验报告11
实验报告2:
实验题目1:
设计窗体。
参考界面如下:
运行前运行后
要求:
1)在窗体上添加一个标签,通过属性窗口设置标签格式:
Caption:
字体格式Alignment:
2—Center(居中)
BorderStyle:
1—FixedSingle(有边框)Backstyle:
0—Tansparent(背景透明)
2)运行时,单击“字号”,将标签内容的字号设置为30;单击“加粗”,将标签内容加粗;单击“下划线”,则在标签内容下加下划线。
提示:
字号FontSize、加粗FontBold、下划线FontUnderline
实验题目1源程序代码:
PrivateSubCommand1_Click()
Label1.FontSize=30
EndSub
PrivateSubCommand2_Click()
Label1.FontBold=true
EndSub
PrivateSubCommand3_Click()
Label1.FontUnderline=True
EndSub
实验题目2:
设计一个计算器。
参考界面如下:
要求:
1)实现算术运算(+、-、*、/)的功能;
2)实现清除和结束的功能;
3)实现清除后,将焦点移到第一个文本框中。
实验题目2源程序代码:
PrivateSubCommand1_Click()
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
EndSub
PrivateSubCommand2_Click()
Text3.Text=Val(Text1.Text)-Val(Text2.Text)
EndSub
PrivateSubCommand3_Click()
Text3.Text=Val(Text1.Text)*Val(Text2.Text)
EndSub
PrivateSubCommand4_Click()
Text3.Text=Val(Textl.Text)/Val(Text2.Text)
EndSub
参考界面如下:
实验题目3:
设计一个能够统计某学生三门课程成绩总分和平均分的程序。
计算出总分后,计算均分的命令按
要求:
没有计算出总分前,计算均分的命令按钮不可用,钮才可用。
说明:
设计时先将计算均分的命令按钮的Enabled属性设置为false。
实验题目3源程序代码:
PrivateSubCommand1_Click()
Text4.Text=Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text)
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click()
Text5.Text=Val(Text4.Text)/3
EndSub
PrivateSubCommand3_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
EndSub
实验题目4:
设计界面,编写程序计算圆的周长和面积。
参考界面如下:
1设置窗体的标题为“计算圆的周长和面积”。
2“计算”命令按钮的功能:
定义变量和符号常量,计算出圆的周长和面积。
3“清除”命令按钮的功能:
将三个文本框的内容清除,并将焦点移到第一个文本框中。
4“退出”命令按钮的功能:
程序运行结束。
实验题目4源程序代码:
PrivateSubCommand1_Click()
DimrAsDouble,sAsDouble
Constpi=3.1415926
r=Val(Text1.Text)
s=pi*r*r
c=2*pi*r
Text2.Text=Str(c)
Text3.Text=Str(s)
EndSub
PrivateSubCommand2_Click()
Textl.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
EndSub
实验题目5:
设计界面,编写程序验证算术运算符的功能。
参考界面如下:
要求:
1设置窗体的标题为“验证算术运算符”。
2“计算”命令按钮的功能:
计算两个数的除、整除和取余。
3“清除”命令按钮的功能:
将五个文本框的内容清除,并将焦点移到第一个文本框中。
4“退出”命令按钮的功能:
程序运行结束。
实验题目5源程序代码:
PrivateSubCommand1_Click()
Text3.Text=Val(Text1.Text)/Val(Text2.Text)
Text4.Text=Val(Text1.Text)\Val(Text2.Text)
Text5.Text=Val(Text1.Text)ModVal(Text2.Text)
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
实验题目6:
设计界面,编写程序分离出一个三位数的个位、十位、百位上的数字。
参考界面如下:
要求:
1设置窗体的标题为“分离三位数”
2“分离”命令按钮的功能:
分离出一个三位数的个位、十位、百位上的数字。
3“清除”命令按钮的功能:
将四个文本框的内容清除,并将焦点移到第一个文本框中。
4“退出”命令按钮的功能:
程序运行结束。
实验题目6源程序代码:
PrivateSubCommand1_Click()
DimaAsInteger
a=Val(Text1.Text)
Text4.Text=Str(a\100)
Text3.Text=Str((aMod100)\10)
Text2.Text=Str(aMod10)
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text1.SetFocus
EndSub
PrivateSubCommand3_Click()
End
EndSub
实验题目7:
输入一个三位数,将它按逆序输出。
参考界面如下:
牺Fool
逆苣后的戏
'ii'g1蓿榇结車
…°|
要求此题用两种解法第一种解法:
将文本框中的数据按字符型数据进行处理,用函数实现;
mod、
第二种解法:
将文本框中的数据按数值型数据进行处理,用算术表达式实现(利用
*、+等运算符)。
实验题目7源程序代码:
第一种解法:
PrivateSubCommand1_Click()
DimaAsString,bAsString,cAsString,dAsStringa=Trim(Text1.Text)
b=Left(a,1)
c=Mid(a,2,1)
d=Right(a,1)
Text2.Text=d&c&b
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
EndSub
第二种解法:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger,dAsIntegera=Val(Text1.Text)
b=a\100
c=(aMod100)\10
d=aMod10
Text2.Text=Str(d*100+c*10+b)
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
EndSub
实验题目8:
输入两个数,将这两个数交换。
要求:
不允许使用第三个文本框,可以借助一个中间变量。
实验题目8源程序代码:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsIntegera=Val(Text1.Text)
b=Val(Text2.Text)
c=a
a=b
Text1.Text=Str(a)
Text2.Text=Str(b)
要求:
文本框可以多行输入。
说明:
设计时先将文本框的multiline属性设置为true。
实验题目9源程序代码:
PrivateSubCommand1_Click()
Text2.Text=Textl.SelText
EndSub
PrivateSubCommand2_Click()
Text2.Text=Text1.SelText
Text1.SelText=""
EndSub
PrivateSubCommand3_Click()
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubCommand4_Click()
End
EndSub
实验报告3:
实验题目1:
编写程序计算某个学生三门课程的平均成绩。
要求:
(1)单击“计算”命令按钮,输入学生的成绩并在文本框中显示该学生的平均分。
(调用三次inputbox函数输入三门课程的成绩,并用三个内存变量保存成绩)
提示:
如a表示一门课程的成绩,则调用inputbox函数输入为:
a=val(inputbox("请输入
第一门课的成绩"))
(2)单击“结束”命令按钮结束程序运行。
界面如下:
实验题目1源程序代码:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger,dAsIntegera=Val(InputBox("请输入第一门成绩"))b=Val(InputBox("请输入第二门成绩"))c=Val(InputBox("请输入第三门成绩"))
d=(a+b+c)/3
Text1.Text=d
EndSub
实验题目2:
编写程序计算长方体的体积。
要求:
inputbox函数输入,
(调用MsgBox函数,
(1)单击“计算”命令按钮,输入长方体的长、宽和高(调用三次并用三个内存变量保存),计算出长方体的体积后通过输出对话框输出输出框的标题为“计算长方体的面积”。
)输出对话框参考界面如下:
实验题目2源程序代码:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实用 案例 50