求教如何把下面代码执行后取得的数据写入一个(vvv as string)vvv变量里,谢谢!!!

ahbc123 2003-05-20 06:09:25
求教如何把下面代码执行后取得的数据写入一个(vvv as string)vvv变量里,谢谢!!!(最好写入模块,再调用)
Dim aa As Integer
Dim bb As Integer
Dim i, ii As Integer
Dim aaa As String
Dim sss As String
aa = Text1
bb = Text2
aaa = "qqq"
sss = "ffff"
Print wwwwwwwwwwwwwwwwwwwwwwww
For i = 0 To aa - 1
Print aaa
For ii = 0 To bb - 1
Print sss
Next
Print aaa
Next
End Sub

如text1=2,text2=2得到的为:
wwwwwwwwwwwwwwwwwwwwwwww
qqq
ffff
ffff
qqq
qqq
ffff
ffff
qqq

我想把这一结果赋予一个变量vvv。




...全文
91 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
victorycyz 2003-05-20
Print wwwwwwwwwwwwwwwwwwwwwwww
For i = 0 To aa - 1
Print aaa
vvv=vvv & aaa
For ii = 0 To bb - 1
Print sss
vvv=vvv & sss
Next
Print aaa
vvv=vvv & aaa
Next
End Sub

如text1=2,text2=2得到的为:
wwwwwwwwwwwwwwwwwwwwwwww
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7492

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-20 06:09
社区公告
暂无公告