UC知道vb高手快进L1
来源：百度知道 编辑：UC知道 时间：2024/06/20 10:11:37
你看看这里面的L1有什么作用？谢谢咯！
Private Sub Command1_Click()
Dim n%
n = InputBox("请输入一个大于1的整数")
t = -1
s = 1
For i = 1 To n
s = s + fun(i) * t
L1: t = -t
Next i
Print "s="; s
Next i
End Sub
Function fun(n)
f = 1
For i = 2 To n
f = f * i
Next i
fact = f
End Function
此程序计算s=1!-2!+3!-4!+5!......
Private Sub Command1_Click()
Dim n%
n = InputBox("请输入一个大于1的整数")
t = -1
s = 1
For i = 1 To n
s = s + fun(i) * t
L1: t = -t
Next i
Print "s="; s
Next i
End Sub
Function fun(n)
f = 1
For i = 2 To n
f = f * i
Next i
fact = f
End Function
此程序计算s=1!-2!+3!-4!+5!......
L1:这三个字符在这段代码中没有任何作用。除非在代码的某处有goto L1才会有作用的。
程序已经成功跳转到了L1标签处，结果执行完L1行的语句后，程序又顺序执行下去了，你可以这样改
Private Sub Comkmand1_Click()
Dim a as Boolean
a = True
If a Then GoTo L1 Else GoTo L2
L1:Print "VB"
GoTo End
L2:Print "VC"
End:
End Sub