UC知道VB中if和for嵌套时能不能省略end if
来源：百度知道 编辑：UC知道 时间：2024/06/06 00:11:45
Private Sub Command1_Click()
Dim n%, n1%, n2%
Picture1.Cls
n = Val(Text1)
For n1 = 3 To n \ 2 Step 2
n2 = n - n1
If prime(n1) And prime(n2) Then Picture1.Print n; "="; n1; "+"; n2
Next n1
End Sub
Private Function prime(ByVal m As Integer) As Boolean
result = True
For i = 2 To Sqr(m)
If m Mod i = 0 Then result = False: Exit For
Next i
prime = result
End Function
知道的说下 ，谢谢先！！
我刚注册的号，没多少分， 不好意思啊
Dim n%, n1%, n2%
Picture1.Cls
n = Val(Text1)
For n1 = 3 To n \ 2 Step 2
n2 = n - n1
If prime(n1) And prime(n2) Then Picture1.Print n; "="; n1; "+"; n2
Next n1
End Sub
Private Function prime(ByVal m As Integer) As Boolean
result = True
For i = 2 To Sqr(m)
If m Mod i = 0 Then result = False: Exit For
Next i
prime = result
End Function
知道的说下 ，谢谢先！！
我刚注册的号，没多少分， 不好意思啊
VB中if和for嵌套时不能省略end if
但是if 用一个用法
就是 if 判断1 then 程序1 else 程序2
即if 后面的程序在同一行时，end if就不能用
if 和end if对应，任何时候都不能省略
我只能说 ..你上面的这段程序没报错...