环境和基本控制结构程序.docx

实验题目.NET环境和基本控制结构程序设计小组合作否姓名班级学号实验目的：
1.掌握表达式、赋值语句的正确书写规则、常用函数的使用、inputbox、MsgBox的使用。
2.掌握逻辑表达式的正确书写方式、单分支与双分支条件语句的使用、情况语句的使用及与多分支条件语句的区别、单选框、复选框、框架选择控件的使用。
3.掌握For语句的使用、Do语句各种形式的使用、如何控制循环结构、防止死循环或不循环、滚动条、进度条和定时器控件的使用。实验要求：
认真阅读和掌握本实验相关的知识点。
上机实现软件的基本操作。
得到实验结果，并加以分析生成实验报告。
实验环境：
装有VisualStudio2008软件的计算机。实验内容与步骤：
【实验步骤】
（1） 建立用户界面需要的控件对象；
（2） 设置对象属性；
（3） 编写对象事件过程；
（4） 保存文件（窗体文件和工程文件及其它）；
（5） 调试运行程序。
【实验内容】
1.在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签中显示输入的姓名。
运行结果：

相关代码如下：
Label3.Text=TextBox1.Text
2.分别随机生成3个正整数，其中一个1位数，一个2位数，一个3位数，计算它们的平均值，保留2位小数。
运行结果：

相关代码如下：
PublicClassForm5
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox1.Text=Int(Rnd()*(10+0))
TextBox2.Text=Int(Rnd()*(90+10))
TextBox4.Text=Int(Rnd()*(900+100))
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Label5.Text=Format((Val(TextBox1.Text)+Val(TextBox2.Text)+Val(TextBox4.Text))/3,"0.00")
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
Close()
EndSub
PrivateSub实验2_1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Me.Show()
TextBox1.Focus()
EndSub
EndClass

3.利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只？
运行结果：

相关代码如下：
PublicClass实验3_5
DimM%,N%,x%,y%
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
M=Val(TextBox8.Text)
N=Val(TextBox6.Text)
TextBox4.Text=2*M-N/2
TextBox7.Text=N/2-M
EndSub
PrivateSubTextBox8_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox8.TextChanged
M=Val(TextBox8.Text)
EndSub
PrivateSubTextBox6_ChangeUICues(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.UICuesEventArgs)HandlesTextBox6.ChangeUICues
EndSub
PrivateSubTextBox6_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTextBox6.LostFocus
IfVal(TextBox6.Text)Mod2<>0Then
TextBox6.Text=""
TextBox6.Focus()
MessageBox.Show("输入数据不合法")
EndIf
EndS