标题:求写VB6一个程序
取消只看楼主
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:33
帖 子:1883
专家分:2904
注 册:2009-12-22
结帖率:89.13%
已结贴  问题点数:20 回复次数:2 
求写VB6一个程序
已知:X=5 Y=3

使用Open "C:\Users\Administrator\Desktop\1.txt" For Append As #1语句,写出如下规律的数字

格式为:X,Y
0,0
0,1
0,2
0,3
1,0
1,1
1,2
1,3
2,0
2,1
2,2
2,3
……

[此贴子已经被作者于2020-6-30 16:16编辑过]

搜索更多相关主题的帖子: VB6 语句 格式 Append 数字 
2020-06-30 16:03
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:33
帖 子:1883
专家分:2904
注 册:2009-12-22
得分:0 
写好,求优化我的代码:
程序代码:
Private Sub Form_Load()
Dim X As Integer
Dim Y As Integer
X = 0: Y = 0
For Y = 0 To 3
Open "C:\Users\Administrator\Desktop\1.txt" For Append As #1
Print #1, X & "," & Y
If Y = 3 Then
Y = -1
X = X + 1
If X > 5 Then Exit For
End If
Close #1
Next
End Sub


结果:
0,0
0,1
0,2
0,3
1,0
1,1
1,2
1,3
2,0
2,1
2,2
2,3
3,0
3,1
3,2
3,3
4,0
4,1
4,2
4,3
5,0
5,1
5,2
5,3

[此贴子已经被作者于2020-6-30 17:00编辑过]


心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2020-06-30 16:57
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:33
帖 子:1883
专家分:2904
注 册:2009-12-22
得分:0 
请问,第七行代码为什么是-1,而不是0?

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2020-06-30 18:49



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-502345-1-1.html




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

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