vb编程基础问题

来源：百度知道 编辑：UC知道 时间：2024/05/06 02:20:39
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的进度条，显示计算进度
找质数的
有追加

你是从4到1000之间找质数，那你只要在最后一个NEXT前面加上pb.value=i
在设计界面时设计PB的MIN=4，MAX=1000，就可以了，最好在加一句DOEVENTS，防止机器死机。