专题五选择结构程序设计.pptVIP

专题五 选择结构程序设计 5.1 选择结构程序设计的概念 5.2 条件表达式 5.2 条件表达式 5.2 条件表达式 5.3 单条件选择结构 5.3 单条件选择结构 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If i 5 Then i = i + 1 Label1.Text = 当前显示的是第 i.ToString 图片 strpicturepath = c:\鞭炮 i.ToString .jpg PictureBox1.Image = New Bitmap(strpicturepath) Else i = 1 Label1.Text = 当前显示的是第 i.ToString 图片 strpicturepath = c:\鞭炮 i.ToString .jpg PictureBox1.Image = New Bitmap(strpicturepath) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If i 1 Then i = i - 1 Label1.Text = 当前显示的是第 i.ToString 图片 strpicturepath = c:\鞭炮 i.ToString .jpg PictureBox1.Image = New Bitmap(strpicturepath) Else i = 5 Label1.Text = 当前显示的是第 i.ToString 图片 strpicturepath = c:\鞭炮 i.ToString .jpg PictureBox1.Image = New Bitmap(strpicturepath) End If End Sub Dim a As Integer = 1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = 登录站点 TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox3.PasswordChar = * End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Dim openstring As String If TextBox2.Text = gaodan And TextBox3.Text = gaodan Then openstring = http:// TextBox1.Text System.Diagnostics.Process.Start(openstring) Else : If a = 3 Then TextBox2.Clear() TextBox3.Clear() MsgBox(请重新输入用户名和密码) a = a + 1 Else : MsgBox(登陆失败！) E