UC知道VB 帮忙啊 急
来源：百度知道 编辑：UC知道 时间：2024/06/03 08:46:10
Function fs(ByVal x As Integer) As Boolean '注：[单击此处键入相应注释]
Dim i As Integer, f As Boolean
i = 2
f = True
Do While i <= Int(Sqr(x)) And f
If x Mod i = 0 Then
[单击此处键入相应代码]
End If
i = i + 1
Loop
[单击此处键入相应代码]
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 100 To 500 Step 2
For j = 2 To i / 2
If [单击此处键入相应代码] Then
List1.AddItem i & "=" & j & "+" & i – j ‘注在列表框中输出算式
End If
Next j
Next i
End Sub
那些空格填什么？？？？？
Dim i As Integer, f As Boolean
i = 2
f = True
Do While i <= Int(Sqr(x)) And f
If x Mod i = 0 Then
[单击此处键入相应代码]
End If
i = i + 1
Loop
[单击此处键入相应代码]
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 100 To 500 Step 2
For j = 2 To i / 2
If [单击此处键入相应代码] Then
List1.AddItem i & "=" & j & "+" & i – j ‘注在列表框中输出算式
End If
Next j
Next i
End Sub
那些空格填什么？？？？？
给你一部分吧，实在想不出点击按钮到底是想干什么
Function fs(ByVal x As Integer) As Boolean '注：判断x是否是质数的函数
Dim i As Integer, f As Boolean
i = 2
f = True
Do While i <= Int(Sqr(x)) And f
If x Mod i = 0 Then
f = False
End If
i = i + 1
Loop
fs = f
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 100 To 500 Step 2
For j = 2 To i / 2
If [单击此处键入相应代码] Then
List1.AddItem i & "=" & j & "+" & i – j '注在列表框中输出算式
End If
Next j
Next i
End Sub
DO WHINE
WEND
好象是找质数的一段程序
1 fs = false : exit function
2 fs = true
3 这个不知道什么意思