本文分享了一段使用VBA编写的示例代码，通过一个简单的条件判断和循环流程展示了如何在不同条件下执行特定操作。代码中包含了变量声明、条件语句及子过程的调用等基本编程元素。
Sub CodeShare(Source As Button)
Dim sType As String
Dim i As Integer
sType = "N"
If sType = "N" Then
For j=0 To 3
Msgbox "N"
Gosub lala
j = j + 1
Next
Else
Msgbox "1"
Goto lala
End If
Exit Sub
lala:
Msgbox "executing"
Return
End Sub
Dim sType As String
Dim i As Integer
sType = "N"
If sType = "N" Then
For j=0 To 3
Msgbox "N"
Gosub lala
j = j + 1
Next
Else
Msgbox "1"
Goto lala
End If
Exit Sub
lala:
Msgbox "executing"
Return
End Sub
扫一扫
930
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
