神马作文网十万火急!急求VB高手帮我做一下这倒程序改错题,每个FOUND的下一行都有错误,请改正!
来源：学生作业帮 编辑：神马作文网作业帮 分类：数学作业 时间：2024/11/10 08:48:02
十万火急!急求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
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
再问： 你估计自己这三个空能答对几个？我就要考试了，很着急，需要正确答案。
再答： 肯定全部正确，经过测试的。
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
再问： 你估计自己这三个空能答对几个？我就要考试了，很着急，需要正确答案。
再答： 肯定全部正确，经过测试的。
十万火急!急求VB高手帮我做一下这倒程序改错题,每个FOUND的下一行都有错误,请改正!
急求VB程序改错题高手,每个FOUND下一行有错误,请改正!十万火急!
十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!
请VB高手帮我看下这个题.答的好我一定重赏.急用.每个found的下一行有错误,请改正.
求高手帮我做个简单的VB程序
请高手看一下我这几题到底做的对不对如果有错误的请及时改正请告诉我,
请高手帮我找下这个Lingo程序的错误!下面是Lingo程序
高手帮我改正下错误,并告诉我一下到底是怎么错的,
急用,每个FOUND后面一行都有错误,请指出怎么改.
求c高手帮忙,帮我分析一下下面的程序段,最好是每一行的含义都解释一下,先给20分,回答得好再加!
有没有高手能帮我找下matlab程序的错误啊?
C语言：关于用辗转相除法递归求最大公约数,下面的程序有错误,请帮我改一下,