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行，在不需要时都可以不写。
当你收到"vb点虐 提示已卸载"的错误消息时，这通常表示你的应用程序依赖于某个已安装的.NETFramework版本，而该版本已被卸载。为解决此问题，你需要重新安装该.NETFramework版本或升级到更高版本。如果使用的是VisualStudio，则可以尝试在“程序和功能”中修复或重新安装VisualStudio，以解决该问题。此外，在编写代码时，请确保正确引用了所需的组件和类库，以避免类似的错误出现。
初始化一个ArrayList对象，调用它的方法和属性，以及增加等操作。
Dim myAL As New ArrayList()
'Add方法用来增加元素。
myAL.Add("Hello")
myAL.Add("World")
myAL.Add("!")
'Count属性表示元素个数。
Console.WriteLine(myAL.Count.ToString())
建议你用下面两个泛型集合类替代ArrayList：
System.Collections.Generic.List
System.Collections.ObjectModel.Collection
这是典型对点虐 构架不理解造成的！
只要是点虐 编程，一定使用的是点虐 类库，必须是同运行版本的点虐 支持方可运行。而所谓的vb点虐 只是说编程的语言层使用的是vb语言而已。该语言在点虐 构架下被编译成为IL语言(MSIL,严格说来是IL的一个子集）。而上层的语言只是产生软件时所使用的一个不同语言规则而已，与IL已经没有任何相关性了。上层语言无论是C#还是VB，甚至是Java(J#)均只适应编程人员的一个策略，与整个构造没有多大的相关性。
点虐 的最终目的就是让不同的语言编程人员能协同工作，那么语言在其中的区别没有多大了，所有的运行核心都是由点虐 完成的，没有必须依赖于点虐 。这是没有任何疑问的。
vb点虐 就是点虐 ，只是表示用VB语言人的称呼，用C#的则称其为C#点虐 ，但不管是哪种，它是无法脱离点虐 的。