VB实验

甘肃政法学院本科学生实验报告（一）姓名学院计算机科学学院专业计算机科学与技术班级12级专升本班实验课程名称visualbasic.NET试验时间2013年11月13日指导教师及职称实验成绩开课时间2013—2014学年第一学期甘肃政法学院实验管理中心印制实验题目.NET环境和基本控股结构程序设计小组合作否姓名班级学号一、实验目的：1、了解VB.NET系统对计算机软、硬件的要求；2、掌握启动与退出VB.NET的方法；3、掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。二、实验环境：1、操作系统：WindowsXP2、VB.NET应用软件三、实验内容与步骤：1、启动VB.NET,创建一个“windows应用程序”类型的应用程序，要求：在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签中显示输入的姓名。设计界面如下：Button事件核心代码：Label3.Text=TextBox1.Text运行结果如下：2、分别随机生成3个正整数，其中一个一位数，一个两位数，一个三位数，计算它们的平均值，保留两位小数。界面设计如下：部分Button核心代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=Int(Rnd()*20+0)TextBox2.Text=Int(Rnd()*80+10)TextBox3.Text=Int(Rnd()*(999-100+1)+100)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimavg!avg=(Val(TextBox1.Text)+Val(TextBox2.Text)+Val(TextBox3.Text))/3Label4.Text=三个数的平均值为：&Format(avg,0.00)EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox1.Text=TextBox2.Text=TextBox3.Text=Label4.Text=三个数的平均值为：EndSubEndClass运行结果如下：3、利用计算机解决古代数学问题“鸡兔同笼”，即已知在同一个笼子里有总数为M只鸡兔，鸡和兔的总脚数为N,求鸡和兔各有多少只？设计界面为：部分核心代码为：PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChangedDimx,y,m,nAsIntegerm=Val(TextBox1.Text)Ifm0ThenMsgBox(头数必须大于0，请从新输入：,48+0)TextBox1.Text=TextBox1.Focus()ElsePrivateSubTextBox2_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChangedDimx,y,m,nAsIntegern=Val(TextBox2.Text)IfnMod20ThenMsgBox(必须是偶数，请重新输入：,48+0)TextBox2.Text=TextBox2.Focus()ElsePrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx,y,m,nAsIntegery=(n-2*m)/2x=m-yTextBox3.Text=2*Val(TextBox1.Text)-Val(TextBox2.Text)/2TextBox4.Text=Val(TextBox2.Text)/2-Val(TextBox1.Text)If2*Val(TextBox1.Text)-Val(TextBox2.Text)/20OrVal(TextBox2.Text)/2-Val(TextBox1.Text)0ThenMessageBox.Show(荒唐解，请重新输入：)TextBox1.Text=TextBox1.Focus()TextBox2.Text=TextBox2.Focus()'TextBox3.Text='TextBox3.Focus()'TextBox4.Text='TextBox4.Focus()Else运行结果：当输入42、8时，提醒荒唐解当输入42、88时，计算正确4、编写一个“个人简历表”程序，该程序运行后，用户在文本框中输入“姓名”和“年龄”，选择“性别”、“职业”、“学历”和“爱好”等个人信息，单击“递交”按钮运行后右边显示个人信息；单击“重置”按钮后清除输入的信息和所做的选择。界面设计如下：部分核心代码为：PublicClassForm1Dims1AsStringDims2AsIntegerPrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChangeds1=TextBox1.TextEndSubPrivateSubTextBox2_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChangeds2=Val(TextBox2.Text)IfNotIsNumeric(TextBox2.Text)OrVal(TextBox2.Text)=1OrVal(TextBox2.Text)=90ThenMsgBox(必须是数字,48+0)TextBox2.Text=TextBox2.Focus()EndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox3.Text=TextBox3.Text=TextBox3.Text&简历&vbCrLfTextBox3.Text=TextBox3.Text&Label2.Text+:&s1&vbCrLfTextBox3.Text=TextBox3.Text&Label3.Text+:&s2&vbCrLfIfRadioButton1.CheckedThenTextBox3.Text=TextBox3.Text&GroupBox1.Text&：&RadioButton1.Text&vbCrLfElseIfRadioButton2.CheckedThenTextBox3.Text=TextBox3.Text&GroupBox1.Text&：&RadioButton2.Text&vbCrLfElseMsgBox(未选择性别，请选择)EndIfIfRadioButton3.CheckedThenTextBox3.Text=TextBox3.Text&GroupBox2.Text&：&RadioButton3.Text&vbCrLfElseIfRadioButton4.CheckedThenTextBox3.Text=TextBox3.Text&GroupBox2.Text&：&RadioButton4.Text&vbCrLfElseIfRadioButton5.CheckedThenTextBox3.Text=TextBox3.Text&GroupBox2.Text&：&RadioButton5.Text&vbCrLfElse:MsgBox(未选择学历，请选择)EndIfIfRadioButton6.CheckedThenTextBox3.Text=TextBox3.Text&GroupBox3.Text&：&RadioButton6.Text&vbCrLfElseIfRadioButton7.CheckedThenTextBox3.Text=TextBox3.Text&GroupBox3.Text&：&RadioButton7.Text&vbCrLfElseIfRadioButton8.CheckedThenTextBox3.Text=TextBox3.Text&GroupBox3.Text&：&RadioButton8.Text&vbCrLfElse:MsgBox(未选择职位，请选择)EndIfTextBox3.Text=TextBox3.Text&GroupBox4.Text&：IfCheckBox1.CheckedThenTextBox3.Text=TextBox3.Text&&CheckBox1.TextEndIfIfCheckBox2.CheckedThenTextBox3.Text=TextBox3.Text&&CheckBox2.TextEndIfIfCheckBox3.CheckedThenTextBox3.Text=TextBox3.Text&&CheckBox3.TextEndIfIfCheckBox4.CheckedThenTextBox3.Text=TextBox3.Text&&CheckBox4.TextEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=TextBox2.Text=TextBox3.Text=RadioButton1.Checked=FalseRadioButton2.Checked=FalseRadioButton3.Checked=FalseRadioButton4.Checked=FalseRadioButton5.Checked=FalseRadioButton6.Checked=FalseRadioButton7.Checked=FalseRadioButton8.Checked=FalseCheckBox1.Checked=FalseCheckBox2.Checked=FalseCheckBox3.Checked=FalseCheckBox4.Checked=FalseEndSubEndClass运行结果为：点击重置按钮后为：5、用单循环显示有规律图形：界面设计如下：Button事件核心代码为：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDims=★,i,nAsIntegern=InputBox(输入行数)Fori=1To2*nStep2Label1.Text&=Space(2*n-i)&StrDup(i,s)&vbCrLfNextiEndSub运行结果为：6、利用textbox、progressbar、timer控件设计一个带有进度条的倒计时程序，要求倒计时时间是以分钟为单位输入，以秒为单位显示，进度条指示的是倒数读秒剩余时间，即填充块的数目是随时间减少的。设计界面为：部分核心代码为：PublicClassForm1Dimt%PrivateSubButton1_Cl