注册 登录
编程论坛 VB6论坛

求助,小白,请教大虾,command事件多次计算结果,如何存入数组,方便引用导出

qniiki 发布于 2016-03-08 13:42, 2093 次点击
求助,小白,请教大虾,command事件多次计算结果,如何存入数组,方便引用导出



Private Sub Command1_Click()
  k = k + 1
  Text1.Text = k
  ReDim sz(k)
  sz(k) = k
  Open "my.txt" For Output As #1
  Print #1, sz(k)
  Close #1
  End Sub
这段程序结果是text文本只显示单击后的结果

理想结果是,在text文本中显示单击一次,数组sz(1)=1显示1;单击第二次sz(1)=1,sz(2)=2显示1,2
3 回复
#2
Artless2016-03-09 23:50
你的意思是text1永远为1,如果是就是k没定义
#3
wds12016-03-10 19:09
public k as integer

Private Sub Command1_Click()
  k = k + 1
  Text1.Text = 1
  ReDim Preserve sz(k)'保留原始数组内容
  sz(k) = k
  Open "my.txt" For Output As #1
  Print #1, sz(k)
  Close #1
  End Sub
#4
yangfrancis2016-03-13 12:16
Dim arr(1 To 20) As Integer
Text1.Text=""
Dim k As Integer:k=0
Private Sub Command1_Click()
k=k+1
arr(k)=k
If Text1.Text="" Then
   Text1.Text=Str(arr(k))
Else
   Text1.Text=Text1.Text+","+Str(arr(k))
End if
End Sub
1