VS2008--VB编程实例(4)

Label2.Enabled = True Label2.Visible = True Label2.Text = \密码错误\ End If End Sub End Class

上面代码描述了简单密码登录过程，程序要求输入数据（两个文本框）。如果两边文本框的数值相等并且大于10成功登录网站，如果两边文本框的数值不相等或是其中有一个文本框的值为0将显示“密码错误”信息。

图14、登录界面 图15、显示[密码错误]信息

图16、成功登录网站

第三章 算法和程序控制结构

1.算法：是解决某个问题或处理某件事的方法和步骤。

Public Class Form1

Public xueli(0 To 4) As String Public addfen As Integer Public fenst(0 To 4) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = \人才招聘\ Label1.Text = \姓名\ Label2.Text = \年龄\ Label3.Text = \身高\ Label4.Text = \学历\ Button1.Text = \提交\ GroupBox1.Text = \个人信息\ GroupBox2.Text = \性别\ GroupBox3.Text = \政治面貌\ RadioButton1.Text = \男\ RadioButton2.Text = \女\ RadioButton3.Text = \党员\ RadioButton4.Text = \群众\ GroupBox4.Text = \信息反馈\ TextBox5.Multiline = True TextBox5.Height = 80 addfen = 100 xueli(0) = \研究生\ xueli(1) = \本科\ xueli(2) = \大专\ xueli(3) = \中专\ xueli(4) = \高中\ fenst(0) = 10 fenst(1) = 5 fenst(2) = 3 fenst(3) = 1 fenst(4) = 1

GroupBox4.Visible = False End Sub Sub 处理信息() Dim i As Integer

If RadioButton1.ContainsFocus = True Then addfen = addfen + 1 End If

If RadioButton3.ContainsFocus = True Then addfen = addfen + 1

End If

If Val(TextBox2.Text) > 35 Then addfen = addfen - 1 End If

If Val(TextBox2.Text) < 35 Then addfen = addfen + 1 End If

If Val(TextBox3.Text) >= 170 Then addfen = addfen + 1 End If

If Val(TextBox3.Text) < 160 Then addfen = addfen - 1 End If

For i = 0 To 4

If TextBox4.Text = xueli(i) Then addfen = addfen + fenst(i) End If Next i End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 处理信息()

GroupBox4.Visible = True If addfen > 110 Then

TextBox5.Text = TextBox1.Text & \同志：你好，你的个人条件很符合我们公司目前发展的需求。在此诚恳的邀请你到我们公司来工作！希望你看到信息后3天内到我们公司人事部报到。\ End If

If addfen >= 105 And addfen < 110 Then

TextBox5.Text = TextBox1.Text & \同志：你好，你的个人条件符合我们公司目前发展的需求。在此诚恳的邀请你到我们公司来工作！希望你看到信息后3天内到我们公司人事部报到。\ End If

If addfen >= 100 And addfen < 105 Then

TextBox5.Text = TextBox1.Text & \同志：你好，你的个人条件基本符合我们公司目前发展的需求。希望你看到信息后3天内到我们公司人事部报到面试和协商工作事宜。\ End If

If addfen < 100 Then

TextBox5.Text = TextBox1.Text & \同志：你好，你的个人条件不符合我们公司目前发展的需求。非常抱谦！希望你尽快找到适合的工作。\ End If End Sub End Class

上面代码模仿了一个简单的人才招聘过程，其中有一个加减分的算法和反馈信息算法。

图17、窗体设计页面和控件添加 注：生成窗体设计页面和控件添加的步骤： 1.打开VS2008选择“文件”、“新建”、“项目”

2.建立窗体项目

3.打开主窗口上的“工具箱”按钮，向窗体上添加控件。

4.点击添加的控件，打开主窗口上的

“属性”按钮窗口，为控件添加它的属性。