VB基本控制结构实验报告(2)

五、 Public Class 实验4_1 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer For n = 1 To 25 Step 2 Label1.Text += vbCrLf + Space(26 - n) + StrDup(n, \★\) Next End Sub End Class 六、 Public Class 实验4_10 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim n, n1, n2 As Integer If ProgressBar1.Value = 0 Then Timer1.Enabled = False MsgBox(\计时结束\, 16, \提示\) Else Dim s As String s = TextBox1.Text n = InStr(s, \) n1 = Val(Mid(s, 1, n - 1)) n2 = Val(Mid(s, n + 1)) If n2 = 0 Then If n1 > 0 Then n1 = n1 - 1 n2 = 60 End If Else n2 = n2 - 1 End If TextBox1.Text = Str(n1) + \ + Str(n2) ProgressBar1.Value = ProgressBar1.Value - 1 End If End Sub Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Chr(13) Then ProgressBar1.Maximum = Val(TextBox1.Text) * 60 ProgressBar1.Minimum = 0 ProgressBar1.Value = ProgressBar1.Maximum TextBox1.Text = Str(Val(TextBox1.Text) - 1) + \ + \ Timer1.Enabled = True End If End Sub End Class 五、实验总结 通过本次实验使我对顺序结构程序、选择结构程序、循环结构程序有了一定的了解，对以后的学习垫定了基础。