查人人中国名人网妖精的尾巴509:这个简单的if then endif 程序运行时也报错了
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 04:10:00
我在学VB6，看了一本书上介绍的程序，就照着敲了进去，源程序如下：
Private Sub Form_Click()
Dim i As Integer
Const pi = 3.14159265758
For i = 0 To 50 Step 2
If i > 25 Then i = pi
End If
Print "现在是第" & i / 2; "次执行本语句！" & "i值为" & i
Next i
End Sub
但是运行时出现“编译错误，end if没有块if”的提示，请问是怎么回事？
Private Sub Form_Click()
Dim i As Integer
Const pi = 3.14159265758
For i = 0 To 50 Step 2
If i > 25 Then i = pi
End If
Print "现在是第" & i / 2; "次执行本语句！" & "i值为" & i
Next i
End Sub
但是运行时出现“编译错误，end if没有块if”的提示，请问是怎么回事？
当然啦！
f i > 25 Then
i = pi
End If
就对了，VB是分行的，不像C，Delphi那样用“；”
来分句。
For i = 0 To 50 Step 2
If i > 25 Then
i = pi
End If
Print "现在是第" & i / 2; "次执行本语句！" & "i值为" & i
Next i
或者
For i = 0 To 50 Step 2
If i > 25 Then i = pi
Print "现在是第" & i / 2; "次执行本语句！" & "i值为" & i
Next i
好象写成一排也行啊,不要end if