2个回答
展开全部
VB中对IF语句镶嵌的层数没有限制。但层数太多VB会提示“过程太大”。你可以作下面实验:
在窗体上添加一个按钮,在代码窗口写下如下代码:
Private Sub Form_Load()
Open App.Path & "\a.txt" For Output As #1
Print #1, "Private Sub Command1_Click()"
Print #1, "a=10000"
For I = 0 To 3500
Print #1, "If a > " & I & " Then"
Next I
Print #1, "Print A"
For I = 0 To 3500
Print #1, "End If"
Next I
Print #1, "End Sub"
Close #1
End Sub将工程保存到一个临时文件夹中,运行后会在这个文件夹中生成一个“a.txt”文件,打开,将其内容复制到代码窗口,再运行,点击按钮,程序会正常运行。
但在Excel单元格里写公式的时候是有限制的,最多只能有7层。
在窗体上添加一个按钮,在代码窗口写下如下代码:
Private Sub Form_Load()
Open App.Path & "\a.txt" For Output As #1
Print #1, "Private Sub Command1_Click()"
Print #1, "a=10000"
For I = 0 To 3500
Print #1, "If a > " & I & " Then"
Next I
Print #1, "Print A"
For I = 0 To 3500
Print #1, "End If"
Next I
Print #1, "End Sub"
Close #1
End Sub将工程保存到一个临时文件夹中,运行后会在这个文件夹中生成一个“a.txt”文件,打开,将其内容复制到代码窗口,再运行,点击按钮,程序会正常运行。
但在Excel单元格里写公式的时候是有限制的,最多只能有7层。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询