高校问答浦东展览馆电话:vb编程基础问题，送分啦
来源：百度文库 编辑：高校问答 时间：2024/05/01 22:22:25
Dim i_prime(1 To 500), i, j, k As Integer
Dim b_is_prime As Boolean
Text1.Text = ""
i_prime(1) = 2
i_prime(2) = 3
k = 2
For i = 4 To 1000
b_is_prime = True
For j = 1 To Int(Sqr(i))
If i Mod i_prime(j) = 0 Then
b_is_prime = False
Exit For
End If
Next j
If b_is_prime Then
k = k + 1
i_prime(k) = i
End If
Next i
For i = 1 To k
Text1.Text = Text1.Text + Str(i_prime(i)) + Chr(9)
If i Mod 7 = 0 Then
Text1.Text = Text1.Text + Chr(13) + Chr(10)
End If
Next
这样的一个语句，怎么让命名为pb的进度条，显示计算进度
Dim b_is_prime As Boolean
Text1.Text = ""
i_prime(1) = 2
i_prime(2) = 3
k = 2
For i = 4 To 1000
b_is_prime = True
For j = 1 To Int(Sqr(i))
If i Mod i_prime(j) = 0 Then
b_is_prime = False
Exit For
End If
Next j
If b_is_prime Then
k = k + 1
i_prime(k) = i
End If
Next i
For i = 1 To k
Text1.Text = Text1.Text + Str(i_prime(i)) + Chr(9)
If i Mod 7 = 0 Then
Text1.Text = Text1.Text + Chr(13) + Chr(10)
End If
Next
这样的一个语句，怎么让命名为pb的进度条，显示计算进度
先把pb.min=4,pb.max=1000
在最外层的循环内加一句
pb.value=i
就行了。
不好意思,谢谢XnnYygn,之前的确写错了.
楼上的，你的东西会出错，假使PB.VALUE=501，此时i又是502，你说会怎么样？
应该改称PB.VALUE=I