求写VB6一个程序

yuma 发布于 2020-06-30 16:03， 2261 次点击

已知：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编辑过]

3 回复

yuma2020-06-30 16:57

写好，求优化我的代码：

程序代码：

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编辑过]

yuma2020-06-30 18:49

请问，第七行代码为什么是-1，而不是0？

风吹过b2020-07-01 09:02

因为Y需要从 0 开始，而在循环起始命令里
For Y = 0 To 3
隐藏了 Y=Y+1 的命令，为了让第一次引用Y值为0，那就Y就要先赋值 -1 。