| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2094 人关注过本帖
标题:求写VB6一个程序
取消只看楼主 加入收藏
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册: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: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册: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: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:0 
请问,第七行代码为什么是-1,而不是0?

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2020-06-30 18:49
快速回复:求写VB6一个程序
数据加载中...
 
   



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

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