(输入时,不在第一列,输入完成后,会自动调整到第一列) Sub GotoStatementDemo() Dim Number, MyString Number = 1 '设置变量初始值。 If Number = 2 Then GoTo 1 Else GoTo 2 '判断 Number 的值以决定要完成那一个程序区段 1: MyString = "Numb...
GoTo tjlifend 分两行就行 If Sheets("sheet1").Cells(tjl, 2) = tjx(tjn) ThenSheets("sheet1").Cells(5, tjm) = tjx(tjn)GoTo tjlifendend if如果执行到goto 的话就执行goto 语句
必要的line参数可以是任意的行标签或行号。 说明 GoTo 只能跳到它所在过程中的行。 注意 太多的 GoTo 语句,会使程序代码不容易阅读及调试。尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else、Select Case)。 GoTo 语句示例 本示例使用 GoTo 语句在一个过程内的不同程序段间作流程控制,不...
单独的GoTo语句不直接处理错误,而是跳转到指定的标签位置。 条件跳转:根据条件判断结果跳转到不同的代码段。 Sub ConditionalJumpExample() Dim num As Integer num = 10 If num > 5 Then GoTo GreaterThanFive MsgBox "Number is 5 or less." GoTo EndSub ' 避免落入未定义区域 GreaterThanFive: MsgBox "...
6、 GoTo、On…GoTo语句 7、 On Error错误控制语句 8、其他常用语句 1、If…Then…Else…End If语句 根据条件的值,可使用If…Then…Else…End If语句运行指定的语句或一个语句块。语句可根据需要嵌套多级,然而,为了程序可读性有时使用Select Case语句。
1. If 选择语句 If 条件表达式 Then 条件表达式返回True时要执行的操作和计算 Else 条件表达式返回False时要执行的操作和计算 End If 每个If 语句都应有一个 End If 与之配对,且不能写错位置。但是如果语句不写成块的形式,则不需要 End If,例如:
此示例使用 GoTo 语句转到过程内的行标签。VB 复制 Sub GotoStatementDemo() Dim Number, MyString Number = 1 ' Initialize variable. ' Evaluate Number and branch to appropriate label. If Number = 1 Then GoTo Line1 Else GoTo Line2 Line1: MyString = "Number equals 1" GoTo LastLine ' Go...
If num>0then Gosub Routine1 :Debug.print num:Exit sub Routine1: Num=num/5Return End sub (4)while…wend语句,只要条件为TRUE,循环就执行,这是以前VB老语法保留下来的,如下 例: whilecondition ‘whileI<50[statements] ‘I=I+1wend ‘Wend
goto-跳转到指定地方 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Sub test() Dim st 100: st = Aplication.InputBox("请输入数字", "输入提示") If len(st) = 0 Then GoTo 100 End Sub gosub-return-跳过去,返回来 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Sub test() Range("...
If 条件1 Then 语句1 ElseIf 条件2 Then 语句2…… [Else 条件为假时语句 ] End If Select Case语句 Select Case 表达式 [表达式值1 [语句1]]... [Case Else [其他表达式]] End Select Case 示例 Case 1,2,3,4 Case 2 To 6 Case Is<9 ...