有哪些信誉好的足球投注网站- 1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
21FOR语句打印图形详解
FOR语句打印图形详解
以下内容必须熟记，预防操作题里的填空
显示图形 行数i和每行符号数j 及 每行前空格数的关系 程序 1、
******
******
******
******
******
****** i j 空格
1 6
2 6
3 6
4 6
5 6
6 6 Dim i, j As Integer
For i = 1 To 6
?For j = 1 To 6
??? Print *;
?Next j
Print
Next i 2、
*
**
***
****
*****
****** i j 空格
1 1
2 2
3 3
4 4
5 5
6 6 Dim i, j As Integer
For i = 1 To 6
?For j = 1 To i
??? Print *;
?Next j
Print
Next i
? 3.
******
*****
****
***
**
*
? i j 空格
1 6
2 5
3 4
4 3
5 2
6 1
? Dim i, j As Integer
For i = 1 To 6
?For j = 1 To 7-i
??? Print *;
?Next j
Print
Next i
? 4.
???? *
??? **
?? ***
?****
?*****
****** i j 空格
1 1 6
2 2 5
3 3 4
4 4 3
5 5 2
6 6 1
? 4.
Dim i, j As Integer
For i = 1 To 6
Print Tab(7 - i);
?For j = 1 To i
?? ?Print *;
?Next j
Print
Next i 5.
******
?*****
?****
?? ***
??? **
???? * i j 空格
1 6 1
2 5 2
3 4 3
4 3 4
5 2 5
6 1 6 5.
Dim i, j As Integer
For i = 1 To 6
Print Tab(i);
?For j = 1 To 7 - i
??? Print *;
?Next j
Print
Next i 6.
???? *
??? ***
?? *****
?*******
?*********
*********** i j 空格
1 1?6
2 3?5
3 5?4
4 7?3
5 9?2
6 11 1 6.
Dim i, j As Integer
For i = 1 To 6
Print Tab(7 - i);
?For j = 1 To 2 * i - 1
??? Print *;
?Next j
Print
Next i 7.
***********
?*********
?*******
?? *****
??? ***
???? * i?j 空格
1 11 1
2 9?2
3 7?3
4 5?4
5 3?5
6 1?6 Dim i, j As Integer
For i = 1 To 6
Print Tab(i);
?For j = 1 To 2 * (7 - i) - 1
??? Print *;
?Next j
Print
Next i
? 8.
???? *
??? ***
?? *****
?*******
?*********
***********
?*********
?*******
?? *****
??? ***
???? * i j?空格
-5 1?5
-4 3?5
-3 5?4
-2 7?3
-1 9?2
0?11 1
1?9?2
2?7?3
3?5?4
4?3?5
5?1?6 Dim i, j As Integer
For i = -5 To 5
Print Tab(1 + Abs(i));
?For j = 1 To 2 * (6 - Abs(i)) - 1
??? Print *;
?Next j
Print
Next i
? 9.
***********
?*********
?*******
?? *****
??? ***
???? *
??? ***
?? *****
?*******
?*********
*********** i?j 空格
-5 11 1
-4 9?2
-3 7?3
-2 5?4
-1 3?5
0 ?1?6
1?3?5
2?5?4
3?7?3
4?9?2
5?11 1 Dim i, j As Integer
For i = -5 To 5
Print Tab(6 - Abs(i));
?For j = 1 To 2 * Abs(i) + 1
??? Print *;
?Next j
Print
Next i 另外还需记忆 99乘法表
文档评论（0）