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
或
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 是不存在的
需要一行内用到的话，必须还要跟个End If，也就是
If...Then...Else...End If
当然最好还是分行写，自己以后修改也容易看
If 条件1 Then
' 代码
ElseIf 条件2 Then
' 代码
ElseIf 条件2 Then
' 代码
Else
' 代码
End If
其中ElseIf行与Else行，在不需要时都可以不写。
1、语言之间具有互通性（这是一个前提基调）；
2、比如在java或者c/c++中，在循环中进行一个判断，如果判断成功或者不成功，那么就可以设置一个关键字break来跳出这个循环哦；
3、这个break的作用的就是当你判断实现或者未实现这个判断语句时，你像不需要再进行循环或者判断，那么可以用这个break关键字来发挥作用哦。
while为条件循环，for为计数循环。一般情况下，WHILE可替代FOR，反之则不然。
