问题描述:
十万火急!急求VB高手帮我做一下这倒程序改错题,每个FOUND的下一行都有错误,请改正!
'【程序改错】
'------------------------------------------------
'题目:以下程序段用于输出100-300的所有素数
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim n As Integer, k As Integer, i As Integer, swit As Integer
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
'
i = i - 1
End If
Wend
If swit = 0 Then
Print n;
End If
Next n
End Sub
'【程序改错】
'------------------------------------------------
'题目:以下程序段用于输出100-300的所有素数
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim n As Integer, k As Integer, i As Integer, swit As Integer
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
'
i = i - 1
End If
Wend
If swit = 0 Then
Print n;
End If
Next n
End Sub
问题解答:
我来补答展开全文阅读