vb的奇怪问题

来源：百度知道编辑：UC知道时间：2024/05/29 10:07:00

Dim counter As Integer
Dim workarea(250) As String
pubilc sub init_set()
ProgressBar1.Min = LBound(workarea)
ProgressBar1.Min = UBound(workarea)
ProgressBar1.Visible = True
ProgressBar1.Value = ProgressBar1.Min
End Sub

Private Sub Command1_Click()
init_set
For counter = LBound(workarea) To UBound(workarea)
workarea(counter) = "initial value" & counter
ProgressBar1.Value = counter
Next counter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min
End Sub

Private Sub Command2_Click()
int_set
For counter = LBound(workarea) To UBound(workarea)
If counter Mod 10 = 0 Then Print
Print workarea(counter);
ProgressBar1.Value = counter
Next counter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min

End Sub

Private Sub Form_Load()

ProgressBar1.Align = 2
Progr

pubilc sub init_set() '错误
public sub init_set() '正确
比较一下，就差一点，呵呵。
另外还有两个错误：
ProgressBar1.Min = LBound(workarea)
ProgressBar1.Min = UBound(workarea) '应该是max
ProgressBar1.Visible = True

Private Sub Command2_Click()
int_set '应该是init_set
For counter = LBound(workarea) To UBound(workarea)

一个VB奇怪的问题？请问VB高手！很奇怪的问题 vb.net一个奇怪的问题 vb 奇怪问题 VB的奇怪现象 vb调用 dll 奇怪问题 VB数据库编程上的一个最奇怪的问题关于VB编写FTP下载程序的奇怪问题 vb编程遇到的一个很奇怪很棘手的问题！帮忙！！ vb的几道奇怪题