杭州交通信息网将读音是什么意思:vb编程基础问题，送分啦
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 16:11:02
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的进度条，显示计算进度
...找质数...
在窗体中添加ProgressBar,命名为pb
Private Sub Find_Click()
'按下"寻找"按钮
Dim i_prime(1 To 500), i, j, k As Integer
Dim b_is_prime As Boolean
Dim i As Integer
Text1.Text = ""
i_prime(1) = 2
i_prime(2) = 3
k = 2
pb.Visible = True
pb.Max = 1000
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
pb.Value = i
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
End Sub