《环境和基本控制结构程序.doc》由会员分享，可在线阅读，更多相关《环境和基本控制结构程序.doc（9页珍藏版）》请在金锄头文库上搜索。
1、实验题目.NET环境和基本控制结构程序设计小组合作否姓 名班 级学 号实验目的：1.掌握表达式、赋值语句的正确书写规则、常用函数的使用、inputbox、MsgBox的使用。2.掌握逻辑表达式的正确书写方式、单分支与双分支条件语句的使用、情况语句的使用及与多分支条件语句的区别、单选框、复选框、框架选择控件的使用。3.掌握For语句的使用、Do语句各种形式的使用、如何控制循环结构、防止死循环或不循环、滚动条、进度条和定时器控件的使用。实验要求：1、 认真阅读和掌握本实验相关的知识点。2、 上机实现软件的基本操作。3、 得到实验结果，并加以分析生成实验报告。实验环境：装有Visual Studio
2、 2008软件的计算机。实验内容与步骤：【实验步骤】（1）建立用户界面需要的控件对象；（2）设置对象属性；（3）编写对象事件过程；（4）保存文件（窗体文件和工程文件及其它）；（5）调试运行程序。【实验内容】1. 在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签中显示输入的姓名。运行结果：相关代码如下： Label3.Text = TextBox1.Text2. 分别随机生成3个正整数，其中一个1位数，一个2位数，一个3位数，计算它们的平均值，保留2位小数。运行结果：相关代码如下：Public Class Form5 Private Sub Button1_Click(ByV
3、al sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Int(Rnd() * (10 + 0) TextBox2.Text = Int(Rnd() * (90 + 10) TextBox4.Text = Int(Rnd() * (900 + 100) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butt
4、on2.Click Label5.Text = Format(Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox4.Text) / 3, 0.00) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Close() End Sub Private Sub 实验2_1_Load(ByVal sender As System.Object, ByVal e As
5、System.EventArgs) Handles MyBase.Load Me.Show() TextBox1.Focus()End SubEnd Class3. 利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只？运行结果：相关代码如下：Public Class 实验3_5 Dim M%, N%, x%, y% Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clic
6、k M = Val(TextBox8.Text) N = Val(TextBox6.Text) TextBox4.Text = 2 * M - N / 2 TextBox7.Text = N / 2 - M End Sub Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged M = Val(TextBox8.Text) End Sub Private Sub TextBox6_ChangeUICues(B
7、yVal sender As Object, ByVal e As System.Windows.Forms.UICuesEventArgs) Handles TextBox6.ChangeUICues End Sub Private Sub TextBox6_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox6.LostFocus If Val(TextBox6.Text) Mod 2 0 Then TextBox6.Text = TextBox6.Focus() MessageBox.
8、Show(输入数据不合法) End IfEnd SubPrivate Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged N = Val(TextBox6.Text) End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChange
9、d If Val(TextBox4.Text) 0 Then TextBox4.Text = TextBox4.Focus() MessageBox.Show(荒唐解，请重新输入) End If End Sub Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged If Val(TextBox7.Text) 0 Then TextBox7.Text = TextBox7.Focus() MessageBox
10、.Show(荒唐解，请重新输入) End If End Sub Private Sub 实验3_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() TextBox8.Focus() End SubEnd Class4. 编写一个“个人简历表”程序。该程序运行后，用户在文本框中输入“姓名”和“年龄”，选择“性别”、“学历”和“爱好”等个人信息。单击“递交”按钮运行后右边显示个人信息；单击“重置”按钮清除输入的信息和所做的选择。运行结果：相关代码如下：Pub
11、lic Class 实验3_11 Dim xm, xb, xl, zy, ah As String, nl As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click xm = TextBox1.Text If Not IsNumeric(TextBox2.Text) Or Val(TextBox2.Text) = 75 Then TextBox2.Text = TextBox2.Focus() MessageBox.
12、Show(年龄输入错误, 提示) Else nl = Val(TextBox2.Text) End If If RadioButton7.Checked = True Then xb = RadioButton7.Text ElseIf RadioButton8.Checked = True Then xb = RadioButton8.Text Else MessageBox.Show(性别未选, 提示) End If If RadioButton1.Checked = True Then xl = RadioButton1.Text ElseIf RadioButton3.Checked
13、= True Then xl = RadioButton3.Text ElseIf RadioButton5.Checked = True Then xl = RadioButton5.Text Else MessageBox.Show(学历未选, 提示) End If If RadioButton2.Checked = True Then zy = RadioButton2.Text ElseIf RadioButton4.Checked = True Then zy = RadioButton4.Text ElseIf RadioButton6.Checked = True Then zy = RadioButton6.Text Else MessageBox.Show(职业未选, 提示) End If If CheckBox1.Checked = True Then ah
