关闭广告
晋江论坛→网友交流区→电脑扫盲班
主题：我又来了，可以帮忙看一下程序吗？我做的与答案不一样~~ [6]
收藏该贴
已收藏
只看楼主
Private Sub Command1_Click()
Dim i
For i = 1 To 13 Step 2
i = i + 1
Print i;
Next i
End Sub
 
 
答案是  2 5 8 11 14（我怎么做成2 4 6 8 。。。）？
 
这是怎么来的？谢谢
№0 ☆☆☆救命 于2003-09-14 10:16:20留言☆☆☆　 加书签 不再看TA
汗，没人理
厚皮再贴一个，最后一个，鞠躬
 
Private Sub Command1_Click()
Cls
Print
For n = 1 To 8
Print Tab(2 * n + 2)
For m = 1 To 8
Print Spc(1); "&";
Next
Print
Next
End Sub
 
 
 
Print Tab(2 * n + 2)
表示什么啊？
№1 ☆☆☆救命于2003-09-14 10:42:47留言☆☆☆　
加书签 引用 不再看TA
i=1 i+1=2   print=2
next i=4   i+1=5
№2 ☆☆☆lily于2003-09-14 11:35:46留言☆☆☆　
加书签 引用 不再看TA
For i = 1 To 13 Step 2
i = i + 1
Print i;
Next i
 
这个等价于:
 
For i = 1 To 13 Step 3
Print i;
Next i
Print i+1;
 
----------------------
 
Print Tab(2 * n + 2):
 
在显示或打印列表中的下一个表达式之前从输出行最左端(列 1)移动 (2 * n + 2) 列. 如果当前行上的打印位置大于 (2 * n + 2), 则 Tab 将打印位置移动到下一个输出行的第 (2 * n + 2) 列上. 如果 (2 * n + 2) 小于 1, 则 Tab 将打印位置移动到列 1. 如果 (2 * n + 2) 大于输出行的宽度, 则 Tab 函数使用 (2 * n + 2) Mod 行宽 计算下一个打印位置.
№3 ☆☆☆Frenzy Shi于2003-09-14 13:08:46留言☆☆☆　
加书签 引用 不再看TA
打错一个, 更正: Print i;
№4 ☆☆☆Frenzy Shi于2003-09-14 13:11:27留言☆☆☆　
加书签 引用 不再看TA
对，把步进值改成3就行了~~~~
№5 ☆☆☆--乱弹琵巴--于2003-09-14 15:50:47留言☆☆☆　
加书签 引用 不再看TA
谢谢各位
№6 ☆☆☆救命于2003-09-14 19:34:52留言☆☆☆　
加书签 引用 不再看TA

回复此贴子

名字：
选择图案：
内容：
（注意：一次最多可提交3000字，且一次最多可提交三张尺寸在1024*1024范围内的图片，超出部分请分次提交！）
图片链接：
(贴图规则)


返回上层 管理 返回本版块首页←返回交流区首页←返回主页

 

只看楼主