Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
鳳縣網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,鳳縣網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為鳳縣上千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢,請找那個售后服務(wù)好的鳳縣做網(wǎng)站的公司定做!
If TextBox1.Focus Then : TextBox1.Text = Val(TextBox1.Text) * 10 + 1 : Else : TextBox3.Text = Val(TextBox3.Text) * 10 + 1 : End If
End Sub
或
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Focus Then
TextBox1.Text = Val(TextBox1.Text) * 10 + 1
Else
TextBox3.Text = Val(TextBox3.Text) * 10 + 1
End If
End Sub
樓主只是單純的格式錯誤而已。
If...Then... 是可以
If...Then...Else 是不存在的
需要一行內(nèi)用到的話,必須還要跟個End If,也就是
If...Then...Else...End If
當然最好還是分行寫,自己以后修改也容易看
If 條件1 Then
' 代碼
ElseIf 條件2 Then
' 代碼
ElseIf 條件2 Then
' 代碼
Else
' 代碼
End If
其中ElseIf行與Else行,在不需要時都可以不寫。
1、語言之間具有互通性(這是一個前提基調(diào));
2、比如在java或者c/c++中,在循環(huán)中進行一個判斷,如果判斷成功或者不成功,那么就可以設(shè)置一個關(guān)鍵字break來跳出這個循環(huán)哦;
3、這個break的作用的就是當你判斷實現(xiàn)或者未實現(xiàn)這個判斷語句時,你像不需要再進行循環(huán)或者判斷,那么可以用這個break關(guān)鍵字來發(fā)揮作用哦。
while為條件循環(huán),for為計數(shù)循環(huán)。一般情況下,WHILE可替代FOR,反之則不然。