VB实验.doc

甘肃政法学院本科学生实验报告（一）姓名 学院 计算机科学学院 专业 计算机科学与技术 班级 12级专升本班 实验课程名称 visual basic.NET 试验时间 2013 年 11 月 13 日 指导教师及职称 实验成绩 开课时间 20132014 学年 第一 学期 甘肃政法学院实验管理中心印制实验题目.NET环境和基本控股结构程序设计小组合作否姓 名班 级学 号一、实验目的：1、了解VB.NET系统对计算机软、硬件的要求；2、掌握启动与退出VB.NET的方法；3、掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。二、实验环境：1、操作系统：Windows XP2、VB.NET应用软件三、实验内容与步骤：1、启动VB.NET,创建一个“windows 应用程序”类型的应用程序，要求：在屏幕上显示“欢迎学习VB.NET ”，在文本框中输入你的姓名，在标签中显示输入的姓名。设计界面如下：Button事件核心代码： Label3.Text = TextBox1.Text运行结果如下：2、分别随机生成3个正整数，其中一个一位数，一个两位数，一个三位数，计算它们的平均值，保留两位小数。界面设计如下：部分Button核心代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Int(Rnd() * 20 + 0) TextBox2.Text = Int(Rnd() * 80 + 10) TextBox3.Text = Int(Rnd() * (999 - 100 + 1) + 100)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim avg! avg = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) / 3 Label4.Text = 三个数的平均值为： & Format(avg, 0.00)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = Label4.Text = 三个数的平均值为： End SubEnd Class运行结果如下：3、利用计算机解决古代数学问题“鸡兔同笼”，即已知在同一个笼子里有总数为M只鸡兔，鸡和兔的总脚数为N,求鸡和兔各有多少只？设计界面为：部分核心代码为：Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim x, y, m, n As Integer m = Val(TextBox1.Text) If m 0 Then MsgBox(头数必须大于0，请从新输入：, 48 + 0) TextBox1.Text = TextBox1.Focus() ElsePrivate Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged Dim x, y, m, n As Integer n = Val(TextBox2.Text) If n Mod 2 0 Then MsgBox(必须是偶数，请重新输入：, 48 + 0) TextBox2.Text = TextBox2.Focus() ElsePrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y, m, n As Integer y = (n - 2 * m) / 2 x = m - y TextBox3.Text = 2 * Val(TextBox1.Text) - Val(TextBox2.Text) / 2 TextBox4.Text = Val(TextBox2.Text) / 2 - Val(TextBox1.Text) If 2 * Val(TextBox1.Text) - Val(TextBox2.Text) / 2 0 Or Val(TextBox2.Text) / 2 - Val(TextBox1.Text) 0 Then MessageBox.Show(荒唐解，请重新输入：) TextBox1.Text = TextBox1.Focus() TextBox2.Text = TextBox2.Focus() TextBox3.Text= TextBox3.Focus() TextBox4.Text= TextBox4.Focus() Else运行结果：当输入42、8时，提醒荒唐解当输入42、88时，计算正确4、编写一个“个人简历表”程序，该程序运行后，用户在文本框中输入“姓名”和“年龄”，选择“性别”、“职业”、“学历”和“爱好”等个人信息，单击“递交”按钮运行后右边显示个人信息；单击“重置”按钮后清除输入的信息和所做的选择。界面设计如下：部分核心代码为：Public Class Form1 Dim s1 As StringDim s2 As Integer Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged s1 = TextBox1.Text End SubPrivate Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged s2 = Val(TextBox2.Text) If Not IsNumeric(TextBox2.Text) Or Val(TextBox2.Text) = 90 Then MsgBox(必须是数字, 48 + 0) TextBox2.Text = TextBox2.Focus() End IfEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text = TextBox3.Text = TextBox3.Text & 简历 & vbCrLf TextBox3.Text = TextBox3.Text & Label2.Text + : & s1 & vbCrLf TextBox3.Text = TextBox3.Text & Label3.Text + : & s2 & vbCrLf If RadioButton1.Checked Then TextBox3.Text = TextBox3.Text & GroupBox1.Text & ： & RadioButton1.Text & vbCrLf ElseIf RadioButton2.Checked Then TextBox3.Text = TextBox3.Text & GroupBox1.Text & ： & RadioButton2.Text & vbCrLf Else MsgBox(未选择性别，请选择) End If If RadioButton3.Checked Then TextBox3.Text = TextBox3.Text & GroupBox2.Text & ： & RadioButton3.Text & vbCrLf ElseIf RadioButton4.Checked Then TextBox3.Text = TextBox3.Text & GroupBox2.Text & ： & RadioButton4.Text & vbCrLf ElseIf RadioButton5.Checked Then TextBox3.Text = TextBox3.Text & GroupBox2.Text & ： & RadioButton5.Text & vbCrLf Else : MsgBox(未选择学历，请选择) End If If RadioButton6.Checked Then TextBox3.Text = TextBox3.Text & GroupBox3.Text & ： & RadioButton6.Text & vbCrLf ElseIf RadioButton7.Checked Then TextBox3.Text = TextBox3.Text & GroupBox3.Text & ： & RadioButton7.Text & vbCrLf ElseIf RadioButton8.Checked Then TextBox3.Text = TextBox3.Text & GroupBox3.Text & ： & RadioButton8.Text & vbCrLf Else : MsgBox(未选择职位，请选择) End If TextBox3.Text = TextBox3.Text & GroupBox4.Text & ： If CheckBox1.Checked Then TextBox3.Text = TextBox3.Text & & CheckBox1.Text End If If CheckBox2.Checked Then TextBox3.Text = TextBox3.Text & & CheckBox2.Text End If If CheckBox3.Checked Then TextBox3.Text = TextBox3.Text & & CheckBox3.Text End If If CheckBox4.Checked Then TextBox3.Text = TextBox3.Text & & CheckBox4.Text End IfEnd SubPrivate 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 SubEnd Class运行结果为：点击重置按钮后为：5、用单循环显示有规律图形：界面设计如下： Button事件核心代码为：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s = , i, n As Integer n = InputBox(输入行数) For i = 1 To 2 * n Step 2 Label1.Text &= Space(2 * n - i) & StrDup(i, s) & vbCrLf Next i End Sub运行结果为：6、利用textbox、progressbar、timer控件设计一个带有进度条的倒计时程序，要求倒计时时间是以分钟为单位输入，以秒为单位显示，进度条指示的是倒数读秒剩余时间，即填充块的数目是随时间减少的。设计界面为：部分核心代码为：Public Class Form1Dim t%Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click t = Val(InputBox(输入控制空间) * 60 ProgressBar1.Minimum = 0 ProgressBar1.Maximum = t ProgressBar1.Value = t Timer1.Interval = 200 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TextBox1.Text = t 60 & : & t Mod 60