实验五VBNET程序设计基础和常用控件Word下载.docx
《实验五VBNET程序设计基础和常用控件Word下载.docx》由会员分享，可在线阅读，更多相关《实验五VBNET程序设计基础和常用控件Word下载.docx（23页珍藏版）》请在冰豆网上搜索。
2）
vb代码：
PrivateSubButton1_Click（ByValsenderAst,ByValeAsArgs）Handles
="
我喜欢VB.NET，因为它简单易学，使用方便。
"
olor=
EndSub
3）
PrivateSubButton2_Click（ByValsenderAst,ByValeAsArgs）Handles
olor=w
4）
PrivateSubButton3_Click（ByValsenderAst,ByValeAsArgs）Handles
End
2．试编一程序，将华氏温度转换为摄氏温度。
程序运行时，单击窗体上【开始】按钮，提示输入华氏温度（用InputBox函数），然后将华氏温度转化为摄氏温度，并在窗体上显示华氏温度和摄氏温度。
转换公式为：
C=5/9*（F-32），其中，F是华氏温度，C是摄氏温度。
程序界面如图所示。
PrivateSubButton1_Click（ByValsenderAst,ByValeAsArgs）Handles
DimF,CAsDouble
=InputBox（"
输入华氏温度"
,,,）
F=Val（）
C=5/9*（F-32）
=C
EndSub
3.设计一程序，窗体界面如图所示。
要求在程序运行时，根据选择可以改变文本框内文本的字体、字形等。
PrivateSubRadioButton1_CheckedChanged（ByValsenderAst,ByValeAsArgs）HandlesedChanged
olor=
PrivateSubRadioButton2_CheckedChanged（ByValsenderAst,ByValeAsArgs）HandlesedChanged
PrivateSubRadioButton3_CheckedChanged（ByValsenderAst,ByValeAsArgs）HandlesedChanged
5）
PrivateSubCheckBox1_CheckedChanged（ByValsenderAst,ByValeAsArgs）HandlesedChanged
DimnewFontStyleAsng.FontStyle'
定义新字体字形
newFontStyle=ar
IfedThen'
选中下划线时加下划线
newFontStyle+=line
EndIf
选中粗体时加粗
newFontStyle+=
选中斜体时变斜
newFontStyle+=c
=NewFont（.Name,.Size,newFontStyle）
EndSub
6）
PrivateSubCheckBox2_CheckedChanged（ByValsenderAst,ByValeAsArgs）HandlesedChanged
DimnewFontStyleAsng.FontStyle'
newFontStyle+=
newFontStyle+=line
newFontStyle+=c
7）
PrivateSubCheckBox3_CheckedChanged（ByValsenderAst,ByValeAsArgs）HandlesedChanged
8）
4.设计一程序，其界面如图所示，程序运行时，单击“添加”按钮，可将文本框的内容添加到列表框中；
单击“删除”按钮，可删除选中的内容；
单击“清除”按钮，清除列表框中的所有内容；
双击列表框中某一项，该项内容可在文本框中显示。
DimsNameAsString'
定义添加的姓名，为TextBox1的文字
sName=
IfLen（Trim（sName））=0Then'
TextBox1为空时提示输入姓名
MsgBox（"
请输入歌手的姓名！
）
Return
DimiAsInteger'
定义列表中姓名的标号
Fori=0To.Count-1
IfsName=（i）Then'
姓名已存在时提示
MsgBox（sName&
"
已存在！
Next
.Add（sName）'
将姓名添加进列表
DimiAsInteger=tedIndex'
定义选中姓名的标号
Ifi<
0Then'
未选中时提示
请选中一项，再使用本功能！
.RemoveAt（i）'
删除选中的姓名
.Clear（）
PrivateSubListBox1_DoubleClick（ByValsenderAsObject,ByValeAsArgs）HandleseClick
Ifi>
=0Then'
选中时在TextBox1中显示选中的姓名
=（i）
5.设计一个具有3个窗体的应用程序。
其中“算术运算”窗口具有主菜单，菜单内容如图所示；
“加、减运算”和“乘、除运算”窗口具有弹出式菜单，如图所示。
应用程序运行时，可从“算术运算”窗口的主菜单中选择“计算加、减”或“计算乘、除”菜单命令，进入“加、减运算”窗口或“乘、除运算”窗口，然后从键盘上输入两个数到文本框中，利用窗体上的弹出式菜单命令求出它们的和、差或乘、除，并显示运算结果。
PrivateSubToolStripMenuItem2_Click（ByValsenderAst,ByValeAsArgs）Handles
（）
EndSub
PrivateSubForm2_Load（ByValsenderAst,ByValeAsArgs）Handles
Me.ContextMenuStrip=ContextMenuStrip1
PrivateSubToolStripMenuItem1_Click（ByValsenderAst,ByValeAsArgs）Handles
Dima,bAsInteger'
定义第一个数a、第二个数b
a=
b=
=a+b'
计算结果为（a+b）
=a-b'
计算结果为（a-b）
PrivateSubToolStripMenuItem3_Click（ByValsenderAst,ByValeAsArgs）Handles
PrivateSubToolStripMenuItem4_Click（ByValsenderAst,ByValeAsArgs）Handles
Me.Close（）
（）
9）
PrivateSubForm3_Load（ByValsenderAst,ByValeAsArgs）Handles
10）
=a*b'
计算结果为（a*b）
11）
=a/b'
计算结果为（a/b）
12）
13）
14）
PrivateSubToolStripMenuItem5_Click（ByValsenderAst,ByValeAsArgs）Handles
四、问题及解决
1.问题描述：
运行出错。
错误信息如下图所示：
问题原因：
Underline为只读，不能赋值
解决办法：
定义新字体字形newFontStyle，当选中下划线时，newFontStyle+=line。
所得结果如下图所示：
2.问题描述：
在中使用了xtMenuStrip
将xtMenuStrip改为Me.ContextMenuStrip。
五、经验及教训
通过本次实验，我了解了VB.NET的集成开发环境、语言基础、基本控制结构、过程、常用控件和界面设计等基本语言元素,学会了一些主要的面向对象的设计方法。
实验中出现了一些问题，我觉得在遇到问题时要学会根据错误信息进行修改，并进行适当的调试。
要认真听从老师的讲解，尽量减少错误的发生。
升级会员 