VB基本控制结构实验报告

实验题目 姓名 基本控制结构 班级 小组合作 否 学 号 一、实验目的 1、掌握表达式、赋值语句的正确书写规则。 2、掌握InputBox与MsgBox的使用。 3、掌握逻辑表达式的正确书写形式。 4、掌握For语句的各种形式的使用。 5、掌握Do语句各种形式的使用。 二．实验环境 VB.NET和相关硬件 三、实验内容与步骤 1、 分别随机生成3个正整数，其中1个1位数、1个2位数、1个3位数，计算它们的平均值，保留2位小数。 2、 窗体上2个命令按钮，第一个按钮显示“VB.NET”和图标、第二个按钮显示“画图”。 3、 利用计算机解决古代数学问题“鸡兔同笼问题”。 4、 编写一个“个人简历表”程序。 5、 用单循环显示有规律图形。 利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序。 四、实验过程与分析 一、 Public Class 二-1 Dim a As Double Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() TextBox1.Text = Int(Rnd() * 9 + 1) TextBox2.Text = Int(Rnd() * 90 + 10) TextBox3.Text = Int(Rnd() * 900 + 100) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click a = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3 TextBox4.Text = Format(a, \) End Sub End Class 二、 Public Class 二_7 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Shell(\) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Shell(\) End Sub End Class 三、 Public Class 实验3_5 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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) < 1 And x - Fix(x) > 0) Or (y - Fix(y) < 1 And y - Fix(y) > 0) Then MsgBox(\荒唐解，请重新输入\) End If Label2.Text = Str(x) & Str(y) End Sub End Class 四、 Public Class 实验3_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.Text End If If 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 If If CheckBox4.Checked Then ah4 = CheckBox4.Text End 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 End Class