VB实验.doc

1、甘肃政法学院本科学生实验报告（一）姓名 学院 计算机科学学院 专业 计算机科学与技术 班级 12级专升本班 实验课程名称 visual basic.NET 试验时间 2013 年 11 月 13 日 指导教师及职称 实验成绩 开课时间 20132014 学年 第一 学期 甘肃政法学院实验管理中心印制实验题目 .NET 环境和基本控股结构程序设计 小组合作 否姓 名 班 级 学 号一、实验目的：1、了解 VB.NET 系统对计算机软、硬件的要求；2、掌握启动与退出 VB.NET 的方法；3、掌握建立、编辑和运行一个简单的 VB.NET 应用程序的全过程。二、实验环境：1、操作系统：Windows

2、 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, By

3、Val e As System.EventArgs) Handles Button1.ClickTextBox1.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.ClickDim avg!avg = (Va

4、l(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) / 3Label4.Text = “三个数的平均值为：“ & Format(avg, “0.00“)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox1.Text = “TextBox2.Text = “TextBox3.Text = “Label4.Text = “三个数的平均值为：“E

5、nd SubEnd Class运行结果如下：3、利用计算机解决古代数学问题“鸡兔同笼” ，即已知在同一个笼子里有总数为M 只鸡兔，鸡和兔的总脚数为 N,求鸡和兔各有多少只？设计界面为：部分核心代码为：Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedDim x, y, m, n As Integerm = Val(TextBox1.Text)If m 0 ThenMsgBox(“必须是偶数，请重新输入：“

6、, 48 + 0)TextBox2.Text = “TextBox2.Focus()ElsePrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x, y, m, n As Integery = (n - 2 * m) / 2x = m - yTextBox3.Text = 2 * Val(TextBox1.Text) - Val(TextBox2.Text) / 2TextBox4.Text = Val(TextBox2.Te

7、xt) / 2 - Val(TextBox1.Text)If 2 * Val(TextBox1.Text) - Val(TextBox2.Text) / 2 = 90 ThenMsgBox(“必须是数字“, 48 + 0)TextBox2.Text = “TextBox2.Focus()End IfEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox3.Text = “TextBox3.Text = Tex

8、tBox3.Text & “简历“ & vbCrLfTextBox3.Text = TextBox3.Text & Label2.Text + “:“ & s1 & vbCrLfTextBox3.Text = TextBox3.Text & Label3.Text + “:“ & s2 & vbCrLfIf RadioButton1.Checked ThenTextBox3.Text = TextBox3.Text & GroupBox1.Text & “：“ & RadioButton1.Text & vbCrLfElseIf RadioButton2.Checked ThenTextBox

9、3.Text = TextBox3.Text & GroupBox1.Text & “：“ & RadioButton2.Text & vbCrLfElseMsgBox(“未选择性别，请选择“)End IfIf RadioButton3.Checked ThenTextBox3.Text = TextBox3.Text & GroupBox2.Text & “：“ & RadioButton3.Text & vbCrLfElseIf RadioButton4.Checked ThenTextBox3.Text = TextBox3.Text & GroupBox2.Text & “：“ & R

10、adioButton4.Text & vbCrLfElseIf RadioButton5.Checked ThenTextBox3.Text = TextBox3.Text & GroupBox2.Text & “：“ & RadioButton5.Text & vbCrLfElse : MsgBox(“未选择学历，请选择“)End IfIf RadioButton6.Checked ThenTextBox3.Text = TextBox3.Text & GroupBox3.Text & “：“ & RadioButton6.Text & vbCrLfElseIf RadioButton7.C

11、hecked ThenTextBox3.Text = TextBox3.Text & GroupBox3.Text & “：“ & RadioButton7.Text & vbCrLfElseIf RadioButton8.Checked ThenTextBox3.Text = TextBox3.Text & GroupBox3.Text & “：“ & RadioButton8.Text & vbCrLfElse : MsgBox(“未选择职位，请选择“)End IfTextBox3.Text = TextBox3.Text & GroupBox4.Text & “：“If CheckBox

12、1.Checked ThenTextBox3.Text = TextBox3.Text & “ “ & CheckBox1.TextEnd IfIf CheckBox2.Checked ThenTextBox3.Text = TextBox3.Text & “ “ & CheckBox2.TextEnd IfIf CheckBox3.Checked ThenTextBox3.Text = TextBox3.Text & “ “ & CheckBox3.TextEnd IfIf CheckBox4.Checked ThenTextBox3.Text = TextBox3.Text & “ “ &

13、 CheckBox4.TextEnd IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTextBox1.Text = “TextBox2.Text = “TextBox3.Text = “RadioButton1.Checked = FalseRadioButton2.Checked = FalseRadioButton3.Checked = FalseRadioButton4.Checked = FalseRa

14、dioButton5.Checked = FalseRadioButton6.Checked = FalseRadioButton7.Checked = FalseRadioButton8.Checked = FalseCheckBox1.Checked = FalseCheckBox2.Checked = FalseCheckBox3.Checked = FalseCheckBox4.Checked = FalseEnd SubEnd Class运行结果为：点击重置按钮后为：5、用单循环显示有规律图形：界面设计如下：Button 事件核心代码为：Private Sub Button1_Cli

15、ck(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s = “, i, n As Integern = InputBox(“输入行数“)For i = 1 To 2 * n Step 2Label1.Text &= Space(2 * n - i) & StrDup(i, s) & vbCrLfNext iEnd Sub运行结果为：6、利用 textbox、progressbar、timer 控件设计一个带有进度条的倒计时程序，要求倒计时时间是以分钟为单位输入，以秒为单位

16、显示，进度条指示的是倒数读秒剩余时间，即填充块的数目是随时间减少的。设计界面为：部分核心代码为：Public Class Form1Dim t%Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickt = Val(InputBox(“输入控制空间“) * 60ProgressBar1.Minimum = 0ProgressBar1.Maximum = tProgressBar1.Value = tTimer1.Interval = 20

17、0Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickTextBox1.Text = t 60 & “:“ & t Mod 60ProgressBar1.Value = tt = t - 1If t 0 ThenTimer1.Enabled = FalseEnd IfPrivate Sub Button2_Click(ByVal sender As System.Object, ByVa

18、l e As System.EventArgs) Handles Button2.ClickTimer1.Enabled = FalseEnd Sub运行结果如下图：四、实验总结：通过以上实验我对.NET 环境和基本控股结构程序设计有了一定的了解，我认为.NET 环境更加人性化，掌握了表达式、赋值语句和逻辑表达式的正确书写方式。并对 inputbox、MsgBox、单选框、复选框、框架选择、For 语句、Do 语句的使用有了进一步的了解。对情况语句的使用及多分支条件语句进行了区别，以及对滚动条、进度条和定时器控件的使用更加熟练。虽然程序上的好多代码，自己不知道怎么去编写，但是通过老师的讲解，每个实验都有对应的前面讲的例题，通过这些例题上面有很多相似的代码，代码稍微改动下就可以运用到实验当中来。 每个框体都有每个框体的作用，它不是单另独立出来的，所有框体上的东西都是有联系和关系的。我遇到了很多问题和困难，发现在之前的学习中，所学的东西不能完全掌握。这次实验报告的完成，是我在学习上的一次考验，让我深深体会到了实验操作的重要性。它使我了解自己的短处，让我知道要从什么方面对自己进行补充，这对我今后的学习有很大的帮助。五、指导教师评语及成绩：教师签名 成绩 批阅日期