杭州交通信息网颜家辣酱鸭好吃吗:请vb先辈帮忙
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 01:44:03
Private Sub Form_Load()
Dim a() As Integer
Show
ReDim a(800)
k = 0
For x = 100 To 600 Step 7
If x Mod 8 = 0 Then
k = k + 1
a(k) = x
End If
Next x
ReDim Preserve a(k)
For j = 1 To k
Print a(j)
Next j
End Sub
这段代码的show是什么意思 在这里起什么作用 谢谢
dim a() as integer 数组a为什么没上下界
Dim a() As Integer
Show
ReDim a(800)
k = 0
For x = 100 To 600 Step 7
If x Mod 8 = 0 Then
k = k + 1
a(k) = x
End If
Next x
ReDim Preserve a(k)
For j = 1 To k
Print a(j)
Next j
End Sub
这段代码的show是什么意思 在这里起什么作用 谢谢
dim a() as integer 数组a为什么没上下界
show是窗口的显示语句，也就是说强制让窗口先显示出来
dim a() As Integer是定义了一个可变数组，在实际使用是要用redim重新定义a的维度和上下限
ReDim Preserve a(k)是表示保留a中的数据，然后把a的上限定义为k，而如果ReDim a(k)的话，整个数组中的数据就会全部丢失
show是为了让结果在form框里输出,dim a() As Integer只是定义一个类型，不需要设上下界！