有什么办法可以缩短这段代码吗？

Question

这是我想shortenning的代码，它使用一个进度条和标签倒计时吧：我用VB语言

If ProgressBar1.Value = 33 And Label2.Text = "Now: Hold down power button (3 seconds)" Then 
      Label2.Text = "Now: Hold down power button (2 seconds)" 
     End If 

     If ProgressBar1.Value = 66 And Label2.Text = "Now: Hold down power button (2 seconds)" Then 
      Label2.Text = "Now: Hold down power button (1 seconds)" 
     End If 

     If ProgressBar1.Value = 99 And Label2.Text = "Now: Hold down power button (1 seconds)" Then 
      Label2.Text = "Now: Hold down power button (0 seconds)" 
     End If 

     If ProgressBar1.Value = 100 And Label2.Text = "Now: Hold down power button (0 seconds)" Then 
      Label2.Text = "Now: Also hold down the home button (10 seconds)" 
      Label2.Location = New Point(30, Label2.Location.Y) 
      Label3.Text = "Next: Release the power button only (15 seconds)" 
      ProgressBar1.Value = 0 
     End If 

Answer 1

是的，有：

Const BASE_MESSAGE As String = "Now: Hold down power button ({0} seconds)" 

    Select Case ProgressBar1.Value 
     Case 33 
      Label2.Text = String.Format(BASE_MESSAGE, 2) 
     Case 66 
      Label2.Text = String.Format(BASE_MESSAGE, 1) 
     Case 99 
      Label2.Text = String.Format(BASE_MESSAGE, 0) 

     Case 100 
      Label2.Text = "Now: Also hold down the home button (10 seconds)" 
      Label2.Location = New Point(30, Label2.Location.Y) 
      Label3.Text = "Next: Release the power button only (15 seconds)" 
      ProgressBar1.Value = 0 

    End Select