| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1980 人关注过本帖
标题:求助,小白,请教大虾,command事件多次计算结果,如何存入数组,方便引用导 ...
只看楼主 加入收藏
qniiki
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2016-3-8
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
求助,小白,请教大虾,command事件多次计算结果,如何存入数组,方便引用导出
求助,小白,请教大虾,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
搜索更多相关主题的帖子: command 如何 
2016-03-08 13:42
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:7 
你的意思是text1永远为1,如果是就是k没定义

无知
2016-03-09 23:50
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:7 
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
2016-03-10 19:09
yangfrancis
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:贵宾
威 望:141
帖 子:1510
专家分:7661
注 册:2014-5-19
收藏
得分:7 
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
2016-03-13 12:16
快速回复:求助,小白,请教大虾,command事件多次计算结果,如何存入数组,方便 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030738 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved