vb中提示else 没有 if

来源：百度知道 编辑：UC知道 时间：2024/05/08 17:37:35
command1代码如下：

Private Sub Command1_Click()
Dim m, n, x As Integer
x = Text1.Text
Dim a(1 To 100, 1 To 100), b(1 To 100, 1 To 100) As Integer
For m = 1 To x
For n = 1 To x
If n < (x - m) Then Picture1.Print Spc(x - m);
ElseIf n = (x - m + 1) Then a(m, n) = 1 & a(m - 1, x) = 0
Picture1.Print a(m, n) & " ";
Else a(m, n) = a(m - 1, n) + a(m - 1, n + 1)
End If
Next n
Next m
End Sub

注意，这里无论是一个“end if”还是两个“end if”运行的时候都是提示else 没有 if，请高手指教

else 后面分行就可以啦

Private Sub Command1_Click()
Dim m, n, x As Integer
x = Text1.Text
Dim a(1 To 100, 1 To 100), b(1 To 100, 1 To 100) As Integer
For m = 1 To x
For n = 1 To x
If n < (x - m) Then Picture1.Print Spc(x - m);
ElseIf
n = (x - m + 1) Then a(m, n) = 1 & a(m - 1, x) = 0
Picture1.Print a(m, n) & " ";
Else
a(m, n) = a(m - 1, n) + a(m - 1, n + 1)
End If
Next n
Next m
End Sub

Private Sub Command1_Click()
Dim m, n, x As Integer
x = Text1.Text
Dim a(1 To 100, 1 To 100), b(1 To 100, 1 To 100) As Integer
For m = 1 To x
For n = 1 To x

If n < (x - m) Then
Picture1.Print Spc(x - m);
ElseIf n = (x - m + 1) Then a(m, n) = 1 & a(m - 1, x) = 0
Picture1.Print a(m, n) & " ";
Else
a(m, n) = a(m - 1, n) + a(m - 1, n + 1)
End If
Next n
Next m
End Sub

这样应该没错了