VBnet实验报告.docx
- 文档编号:8997275
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:11
- 大小:281.36KB
VBnet实验报告.docx
《VBnet实验报告.docx》由会员分享,可在线阅读,更多相关《VBnet实验报告.docx(11页珍藏版)》请在冰豆网上搜索。
VBnet实验报告
北京电子科技学院(BESTI)
实验报告
课程:
可视化程序设计
班级:
0921
姓名:
马畅
学号:
20092109
成绩:
指导教师:
徐日
实验日期:
2011.4.20
实验密级:
/
预习程度:
实验时间:
15:
30~18:
00
仪器组次:
A03
必修/选修:
选修
实验序号:
(二)
实验名称:
可视化基础编程
实验目的与要求:
1.熟悉VB.NET基本窗体编程和基本控件应用;
2.培养运用VB.NET编程解决问题的能力,提高计算机编程能力;
3.引导和培养具有严谨的实验态度和勇于实践的学习精神。
实验仪器:
名称
型号
数量
微机
联想M800
1
一.
实验内容
1.平均值生成器
从窗口输入若干个数(每次输入一个数),求出输入数据的个数及它们的平均值。
要求:
不允许窗口最大化、不允许调整窗口大小。
用户单击【开始】后,可以通过单击【确定】按钮或敲【Enter】键完成每个数的
输入。
当用户单击【取消】按钮或按【Esc】键时停止输入,停止输入时要显示已输入的
数据,并计算显示出他们的平均值。
用户输入数据较多时,为能显示所有数据及计算平均值的结果,在必要时要开启滚动条以方便用户浏览。
2.字符分离器
从程序窗口输入任意字符,程序自动将字母、数字、汉字等分离开,并在程序窗
口中显示分离结果。
要求:
不允许窗口最大化、不允许调整窗口大小。
用户输入后,单击【确定】按钮或敲【Enter】键都能完成字符分离。
输入过程中窗体要随着键盘敲击而改变颜色。
3.电子钟
编程实现一个电子钟,以显示当前日期、星期、时间。
要求:
不允许窗口最大化、不允许调整窗口大小。
打开后电子钟能持续、实时的显示当前时间。
要求界面美观,鼠标单击电子钟界面时会更换显示颜色的前、背景色。
二.实验步骤
1.平均值生成器
各控件属性:
确定
代码:
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimnAsInteger
Dimnums()AsInteger
DimiAsInteger
DimSumAsInteger
DimAvgAsInteger
Sum=0
n=Val(InputBox("输入总的个数"))
TextBox1.Text=TextBox1.Text&"参与平均数的总的个数"&n&vbCrLf
ReDimnums(n-1)
TextBox1.Text=TextBox1.Text&"输入的数"&vbCrLf
Fori=0Ton-1
nums(i)=Val(InputBox("请输入第"&Str(i)+1&"个参加求平均的数数"))
TextBox1.Text=TextBox1.Text&nums(i)&""
Nexti
TextBox1.Text=TextBox1.Text&vbCrLf
Fori=0Ton-1
Sum=Sum+nums(i)
Nexti
Avg=Sum/n
TextBox1.Text=TextBox1.Text&"求的平均数"&vbCrLf
'Fori=0Ton-1
TextBox1.Text=TextBox1.Text&Avg&""
'Nexti
EndSub
EndClass
界面截图:
2.、字符分离器:
代码:
PublicClassForm1
PrivateSubForm1_KeyPress(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPress
Dima,b,cAsInteger
a=Int(Rnd()*255)
b=Int(Rnd()*255)
c=Int(Rnd()*255)
Me.BackColor=Color.FromArgb(a,b,c)
EndSub
PrivateSuby_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimInputStrAsString
'DimiAsInteger
DimCaseStrAsChar
InputStr=TextBox1.Text
ForEachCaseStrInInputStr
'CaseStr=Mid(InputStr,i,1)
If(AscW(CaseStr)>64AndAscW(CaseStr)<90)Or(AscW(CaseStr)>96AndAscW(CaseStr)<123)Then
TextBox3.Text=TextBox3.Text&CaseStr
ElseIfAscW(CaseStr)<58AndAscW(CaseStr)>47Then
TextBox4.Text=TextBox4.Text&CaseStr
Else
TextBox2.Text=TextBox2.Text&CaseStr
EndIf
Next
EndSub
EndClass
控件属性:
结果截图:
3、实验体会:
在上次实验中,我初步体会到了VB的与众不同。
本次试验第一次实现背景转换,感到收获很大。
在今后的实验设计中还要多加努力,是设计的更加完美。
而且在本次实验中,开始有很多的错误,比如求平均数的时候,for循环从1开始取,导致结果不对。
后来在设计字符分离器的时候,开始是字符串形式,发现分离不开。
后来使用char模式,也分离不开。
最后查询的ASC码形式才将实验完整实现。
此次实验也让我意识到了交流的重要性,有事后代码不是那么容易调通的,更多的交流才能让代码更快更好的实现。
以后实验还要注意代码的健壮性等其他属性。
总之,我的VB还是有待提高,思维还需要完善。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBnet 实验 报告