VBNET实验报告二.doc

xx大学本科生实验报告（二）姓名:xxx学院:计算机科学学院专业:信息管理与信息系统班级:2011级信管一班实验课程名称:VB.NET程序设计实验日期:2013年4月9日指导教师及职称:xxx实验成绩:开课时间：2012-2013学年 第二学期实验管理中心印制实验题目基本控制结构小组合作姓名xxx班级信管班学 号一、实验目的1、掌握表达式、赋值语句的正确书写规则。2、掌握常用函数的使用。3、掌握InputBox与MsgBox的使用。4、掌握逻辑表达式的正确书写形式。5、掌握单分支与双分支条件语句的使用。6、掌握多分支条件语句的使用。7、掌握情况语句的使用及与多分支条件语句的区别。8、掌握单选框、复选框、框架选择控件的使用。9、掌握For语句和Do语句的使用。10、掌握如何控制循环条件，防止死循环或不循环。11、掌握滚动条、进度条和定时器控件的使用。二实验环境装有Microsoft Visual Studio 2008编程环境计算机一台三、实验内容与步骤1.分别随机生成3个正整数，其中1个1位数、1个2位数、1个3位数，计算它们的平均值，保留2位小数。实验步骤： （1）进入应用程序的后，根据题目要求设计好窗体；（2）编辑代码，进行代码的调试，主要代码如下所示： Public Class sy2_1 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Int(Rnd() * 9 + 1) TextBox2.Text = Int(Rnd() * 90 + 10) TextBox3.Text = Int(Rnd() * 900 + 100) TextBox4.Text = End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox4.Text = (Int(TextBox1.Text) + Int(TextBox2.Text) + Int(TextBox3.Text) / 3 TextBox4.Text = Format(Int(TextBox1.Text) + Int(TextBox2.Text) + Int(TextBox3.Text) / 3, 0.00) End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd Class（3）实验结果如下图所示： 2.实验内容：窗体上有2个命令按钮，第一个按钮显示“VB.NET”，第二个按钮显示“画图”，要求单击命令按钮，利用Shell函数执行对应的应用程序。实验步骤：（1）在设计面板上，按要求对窗体进行设计(2)编辑代码，进行代码的调试，主要代码如下所示：Public Class sy2_7 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Shell(C:Program FilesMicrosoft Visual Studio 9.0Common7IDEdevenv.exe) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Shell(C:WINDOWSsystem32mspaint.exe) End Sub Private Sub sy2_7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd Class(3)实验结果如下图所示：图23.实验内容：利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M只鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只。实验步骤：（1）在设计面板上，按要求对窗体进行设计（2）编辑代码，进行代码的调试，主要代码如下所示：Public Class sy3_5 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label2.Text = Label3.Text = If (Val(TextBox1.Text) 0) Then MsgBox(请输入正整数) TextBox1.Text = TextBox1.Focus() End If If (Val(TextBox2.Text) Mod 2 0) Then MsgBox(请输入偶数) TextBox2.Text = TextBox2.Focus() End If Dim x As Integer Dim y As Integer x = Val(TextBox1.Text) - y y = Val(TextBox2.Text) / 2 - Val(TextBox1.Text) If x 0 Or y 0 Or (x - Fix(x) 0) Or (y - Fix(y) 0) Then MsgBox(荒唐解，请重新输入) End If Label2.Text = Str(x) Label3.Text = Str(y) End SubPrivate Sub sy3_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd Class（3）实验结果如下图所示： 4.实验内容：编写一个“个人简历表”程序。该程序运行后，用户在文本框中输入“姓名”和“年龄”，选择“性别”、“职业”、“学历”和“爱好”等个人信息。单击“递交”按钮运行后右边显示个人信息；单击“重置”按钮清除输入的信息和所做的选择。实验步骤；（1）在设计面板上，按要求对窗体进行设计（2）编辑代码，进行代码的调试，主要代码如下所示：Public Class sy3_11 Dim xb As String Dim xl As String Dim zy As String Dim ah1, ah2, ah3, ah4 As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton1.Checked Then xb = RadioButton1.Text Else xb = RadioButton2.Text End If If RadioButton3.Checked Then xl = RadioButton3.Text ElseIf RadioButton4.Checked Then xl = RadioButton4.Text Else : xl = RadioButton5.Text End If If RadioButton6.Checked Then zy = RadioButton6.Text ElseIf RadioButton7.Checked Then zy = RadioButton7.Text Else : zy = RadioButton8.TextEnd IfIf CheckBox1.Checked Then ah1 = CheckBox1.Text End If If CheckBox2.Checked Then ah2 = CheckBox2.Text End If If CheckBox3.Checked Then ah3 = CheckBox3.Text End IfIf CheckBox4.Checked Then ah4 = CheckBox4.TextEnd If Label3.Text = 简历 & vbCrLf & 姓名： + TextBox1.Text & vbCrLf + 年龄： + TextBox2.Text & vbCrLf + 性别： + xb & vbCrLf + 学历： + xl & vbCrLf + 职业： + zy & vbCrLf + 爱好： + ah1 + + ah2 + + ah3 + + ah4 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label3.Text = TextBox1.Text = TextBox2.Text = If CheckBox1.CheckState = CheckState.Checked Then CheckBox1.CheckState = CheckState.Unchecked End If If CheckBox2.CheckState = CheckState.Checked Then CheckBox2.CheckState = CheckState.Unchecked End If If CheckBox3.CheckState = CheckState.Checked Then CheckBox3.CheckState = CheckState.Unchecked End If If CheckBox4.CheckState = CheckState.Checked Then CheckBox4.CheckState = CheckState.Unchecked End If End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChangedEnd SubPrivate Sub sy3_11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class(3)实验结果如下图所示：5.实验内容：用单循环显示有规律图形。实验步骤：（1）在设计面板上，按要求对窗体进行设计（2）编辑代码，进行代码的调试，主要代码如下所示：Public Class sy4_1 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer For n = 1 To 25 Step 2 Label1.Text += vbCrLf + Space(26 - n) + StrDup(n, ) NextEnd SubPrivate Sub sy4_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class(3)实验结果如下图所示：6.实验内容：利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序。要求倒计时时间是以分钟为单位输入，以秒为单位显示，进度条指示的是倒数读秒剩余时间，即填充块的数目是随时间减少的。当在文本框中输入分钟数按回车键时，开始进入倒计时，进度条也随之减少。实验步骤：（1）在设计面板上，按要求对窗体进行设计（2）编辑代码，进行代码的调试，主要代码如下所示：Public Class sy4_10Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim n, n1, n2 As Integer If ProgressBar1.Value = 0 Then Timer1.Enabled = False MsgBox(计时结束, 16, 提示) Else Dim s As String s = TextBox1.Text n = InStr(s, :) n1 = Val(Mid(s, 1, n - 1) n2 = Val(Mid(s, n + 1) If n2 = 0 Then If n1 0 Then n1 = n1 - 1 n2 = 60 End If Else n2 = n2 - 1 End If TextBox1.Text = Str(n1) + : + Str(n2) ProgressBar1.Value = ProgressBar1.Value - 1 End IfEnd SubPrivate Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Chr(13) Then ProgressBar1.Maximum = Val(TextBox1.Text) * 60 ProgressBar1.Mi