Question

十万火急！vb高手请进

请看如下程序段：
Sub Command1_Click()
Dim counter As Integer
Dim workarea(250) As String
ProgressBar1.Min = LBound(workarea)
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Visible = True
ProgressBar1.Value = ProgressBar1.Min
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 Form_Load()

End Sub

请问其中"initial value" & counter 里的initial 是什么意思，这条语句怎么理解？
还有就是我点command1后进度条过的飞快，怎样使其减慢？
还有一道程序题不太会：
使用progreebar timer animation command 控件设计一个带动画的进度条，当用户单击“开始计算”时进行，过30s后progressbar被填满，动画结束。
请大虾的回答越详细越好，视答案可追加悬赏分。

Answer 1

你看前面有这么一句：
Dim workarea(250) As String
这句话定义了一个叫workarea，大小是250的字符串数组。

知道了上面一句话的意思，下面这个应该不难理解：
workarea(counter) = "initial value" & counter
这一句的意思是workarea的第counter个元素的值是initial value加上counter的值（其实这一句没有什么用）

要减慢它，可以加大那个数组的元素个数（把250改成300或更大），当然这个不是最好的办法。。。最好还是用timer写：

'以下是设计题代码
'在form中放一个timer和一个progressbar、一个按钮。
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
ProgressBar1.Max = 300 'progressbar最大值应调成30的倍数
Timer1.Enabled = False
Command1.Caption = "开始计算"
End Sub

Private Sub Timer1_Timer()
If ProgressBar1.Value < ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + ProgressBar1.Max / 30
End Sub

Answer 2

(1).initial是初始的意思,这句的意思是初始值等于(即带入)counter的值
(2).Dim workarea(250) As String 将括号里数值改大就慢了

那个设计我不会,这能帮你到这了

Answer 3

靠,楼上的好阴险,那个网址有毒的,我一点,卡巴就警告我然后自动屏蔽了,还好装了防毒软件.大家小心点,不要乱点啊,特别是没装杀毒软件的.
最后BS一下楼上的为人...