猜水果名

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.         If TextBox1.Text = "草莓" Then
   
3.             Label4.Text = "O"
   
4.             Label4.ForeColor = Color.Green
   
5.         Else
   
6.             Label4.Text = "X"
   
7.             Label4.ForeColor = Color.Red
   
8.         End If
   
9. 
   
10.         If TextBox2.Text = "楊桃" Then
    
11.             Label5.Text = "O"
    
12.             Label5.ForeColor = Color.Green
    
13.         Else
    
14.             Label5.Text = "X"
    
15.             Label5.ForeColor = Color.Red
    
16.         End If
    
17.     End Sub
    
18. 
    
19.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
20.         If TextBox1.Text <> "草莓" Then
    
21.             TextBox1.Text = "草？"
    
22.         End If
    
23.         If TextBox2.Text <> "楊桃" Then
    
24.             TextBox2.Text = "？桃"

複製代碼

幫你包代碼

...

瀏覽完整內容，請先 註冊 或 登入會員