VB中可以FOR循环语句中嵌套for语句嘛?如果不行为什么系统不报错！系统环境（vb。net win7）谢谢！！！

显示全部楼层 · 2011-3-21 07:37:21

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim a, b, c As Integer

For a = 100 To 200

For b = 2 To a - 1

If c Mod b = 0 Then

Else

TextBox1.Text defds123= Str(a)

TextBox1.Text defds123= Str(a) \"是素数！！\" TextBox1.Text Chr(13) Chr(10)

End If

Next

Next

千问 · 2011-3-21 07:37:21

<pre id=\"best-answer-content\" class=\"reply-text mb10\">肯定可以嵌套，是你的判断语句出错了。
If c Mod b = 0 Then
哪来的c？既然没有赋值，那么c=0，这句始终成立，所以没有输出。

应该是：
If a Mod b = 0 Then
而且你的判定是素数的条件也不对，程序应该是这样的：

Dim a, b, c As Integer

For a = 100 To 200

For b = 2 To a - 1

If a Mod b = 0 Then Exit For

Next

If b = a Then
Text1.Text = Str(a) \"是素数！！\" Chr(13) Chr(10) Text1.Text

Next