VB实验二.doc

甘肃政法学院本科生实验报告（二）姓名: xxx学院:计算机科学学院专业:计算机科学与技术 班级: 级计本班实验课程名称:程序设计实验日期: 2012年 9月 27日指导教师及职称:xxx实验成绩:开课时间：2012-2013学年第一学期甘肃政法学院实验管理中心印制实验题目顺序结构、选择结构、循环结构程序设计小组合作否姓名xxx班级计本班学 号 一、实验目的一、顺序结构程序设计1.掌握表达式、赋值语句的正确书写规则。2.掌握常用函数的使用。3.掌握inputbox、MsgBox的使用。二、选择结构程序设计1.掌握逻辑表达式的正确书写方式。2.掌握单分支与双分支条件语句的使用。3.掌握情况语句的使用及与多分支条件语句的区别。4.掌握单选框、复选框、框架选择控件的使用。三、循环结构程序设计1.掌握For语句的使用。2、掌握Do语句各种形式的使用。3、掌握如何控制循环结构、防止死循环或不循环。4、掌握滚动条、进度条和定时器控件的使用。二实验环境装有Visual Studio 2008软件的计算机三、实验内容与步骤1、实验步骤如下：（1） 建立用户界面需要的控件对象；（2） 设置对象属性；（3） 编写对象事件过程；（4） 保存文件（窗体文件和工程文件及其它）；（5） 调试运行程序。 3、实验内容顺序结构程序设计：（1）分别随机生成3个正整数，其中一个1位数，一个2位数，一个3位数，计算它们的平均值，保留2位小数。（2）窗体上有2个命令按钮，第一个按钮显示“VB.NET”，第二个按钮显示“画图”，要求单击命令按钮，利用shell函数执行对应的应用程序。选择结构程序设计(1) 利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只？(2) 编写一个“个人简历表”程序。该程序运行后，用户在文本框中输入“姓名”和“年龄”，选择“性别”、“学历”和“爱好”等个人信息。单击“递交”按钮运行后右边显示个人信息；单击“重置”按钮清除输入的信息和所做的选择。循环结构程序设计（1）用单循环显示有规律图形。(2)利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序，要求倒计时时间以分钟为单位输入，以秒为单位显示，进度条指示是倒数读秒剩余的时间。四、实验过程与分析1、 启动，建立一个Windows应窗体。根据题目要求建立用户界面需要的控件对象。2、具体实例（1）分别随机生成3个正整数，其中一个1位数，一个2位数，一个3位数，计算它们的平均值，保留2位小数。界面如图1所示：图1根据属性表设置所有的控件。要求“欢迎学习VB.NET”要在两行显示。编写对象事件过程的所有代码如下：Public Class Form5 Private Sub Button1_Click(ByVal 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 Button2.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 System.EventArgs) Handles MyBase.Load Me.Show() TextBox1.Focus()End SubEnd Class保存文件并调试运行此程序，运行结果如下图2所示; 图2（2）窗体上有2个命令按钮，第一个按钮显示“VB.NET”，第二个按钮显示“画图”，要求单击命令按钮，利用shell函数执行对应的应用程序。界面如图3所示：图3根据属性表设置所有的控件.编写对象事件过程的所有代码如下：保存文件并调试运行此程序，运行结果如下图4所示;图4选择结构程序设计(1)利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只？界面如图5所示： 图5根据属性表设置所有的控件.编写对象事件过程的所有代码如下： 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.Click 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(ByVal 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.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.TextChanged 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.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 Class保存文件并调试运行此程序，运行结果如下图6所示; 图6（2）编写一个“个人简历表”程序。该程序运行后，用户在文本框中输入“姓名”和“年龄”，选择“性别”、“学历”和“爱好”等个人信息。单击“递交”按钮运行后右边显示个人信息；单击“重置”按钮清除输入的信息和所做的选择。界面如图7所示： 图7根据属性表设置所有的控件.编写对象事件过程的所有代码如下： Public 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.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 = 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 = RadioButton2.Text ElseIf RadioButton6.Checked = True Then zy = RadioButton6.Text Else MessageBox.Show(职业未选, 提示) End If If CheckBox1.Checked = True Then ah = CheckBox1.Text Else ah = End If If CheckBox2.Checked = True Then ah = CheckBox2.Text + + ah Else ah = ah + End If If CheckBox3.Checked = True Then ah = CheckBox3.Text + + ah Else ah = ah + End If If CheckBox4.Checked = True Then ah = CheckBox4.Text + + ah Else ah = ah + End If TextBox3.Text = 简历 & vbCrLf & 姓名： & xm & vbCrLf & 年龄： & nl & vbCrLf & 性别： & xb & vbCrLf & 学历： & xl & vbCrLf & 职业： & zy & vbCrLf & 爱好： & ah End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = RadioButton1.Checked = False RadioButton2.Checked = False RadioButton3.Checked = False RadioButton4.Checked = False RadioButton5.Checked = False RadioButton6.Checked = False RadioButton7.Checked = False RadioButton8.Checked = False CheckBox1.Checked = False CheckBox2.Checked = False CheckBox3.Checked = False CheckBox4.Checked = False End Sub Private Sub 实验3_11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() TextBox1.Focus() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End SubEnd Class保存文件并调试运行此程序，运行结果如下图8所示; 图8循环结构程序设计（1）用单循环显示有规律图形。界面如图9所示： 图9根据属性表设置所有的控件.编写对象事件过程的所有代码如下：Public Class Form9 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s = , i As Integer For i = 1 To 19 Step 2 Label1.Text &= Space(20 - i) & StrDup(i, s) & Space(20 - i) & vbCrLf Next i End SubEnd Class保存文件并调试运行此程序，运行结果如下图10所示; 图10(3) 利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序，要求倒计时时间以分钟为单位输入，以秒为单位显示，进度条指示是倒数读秒剩余的时间。(4) 界面如图11所示： 图11根据属性表设置所有的控件.编写对象事件过程的所有代码如下：Public Class Form13 Dim t% Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu