VB程序设计三角形.docx
《VB程序设计三角形.docx》由会员分享，可在线阅读，更多相关《VB程序设计三角形.docx（6页珍藏版）》请在冰豆网上搜索。
VB程序设计三角形
VB程序设计-三角形
VB程序设计－三角形
（作者：
草原飞狼2014年5月22日）
布局窗口
Rem下一条语句作用：
控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Form1.Picture1.PrintTab（（j-i）*2+17）;
Form1.Picture1.Printexpss;
Nextj
Form1.Picture1.Print
Nexti
EndSub
PrivateSubCommand2_Click（）
Rem三角形算法二：
倒直角三角形
Dimi,jAsInteger
Fori=9To1Step-1
Forj=1Toi
expss="*"
Form1.Picture1.PrintTab（（j-1）*2+1）;'控制每个输出表达式的输出位置
Form1.Picture1.Printexpss;
Nextj
Form1.Picture1.Print
Nexti
EndSub
PrivateSubCommand3_Click（）
Rem清空
Form1.Picture1.Cls
EndSub
PrivateSubCommand4_Click（）
Rem退出
Dimint_msgAsInteger
int_msg=MsgBox（"单击“是”退出程序,单击“否”返回程序！
",vbYesNo+vbQuestion+vbDefaultButton1,"退出提示"）
Ifint_msg=vbYesThen
UnloadMe
EndIf
EndSub
PrivateSubCommand5_Click（）
Rem平形四边形算法一：
双重循环，输出位置的控制
Dimi,jAsInteger
Fori=1To9
Forj=1To9
expss="*"
Rem下一条语句作用：
控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Form1.Picture1.PrintTab（（j-i）*2+17）;
Form1.Picture1.Printexpss;
Nextj
Form1.Picture1.Print
Nexti
EndSub
PrivateSubCommand6_Click（）
Rem三角形算法三：
直角三角形
Dimi,jAsInteger
Fori=1To9
Forj=1Toi
expss="*"
Rem下一条语句作用：
控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Form1.Picture1.PrintTab（（j-i）*2+17）;
Form1.Picture1.Print;expss;
Nextj
Form1.Picture1.Print
Nexti
EndSub
PrivateSubCommand7_Click（）
Rem三角形算法四
Dimi,jAsInteger
Fori=1To9
Forj=1To2*i-1'这一句很关键
expss="*"
Rem下一条语句作用：
控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Form1.Picture1.PrintTab（（j-i）*2+17）;
Form1.Picture1.Printexpss;
Nextj
Form1.Picture1.Print
Nexti
EndSub
PrivateSubCommand8_Click（）
Rem三角形算法五
Dimi,jAsInteger
Fori=9To1Step-1
Forj=1To2*i-1
expss="*"
Rem下一条语句作用：
控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Form1.Picture1.PrintTab（（j-i）*2+17）;
Form1.Picture1.Printexpss;
Nextj
Form1.Picture1.Print
Nexti
EndSub
PrivateSubCommand9_Click（）
Rem菱形输出，主要有两个三角形组成：
第一个是倒三角形，第二个是正三角形
Rem以下是正三角形的输出
Dimi,jAsInteger
Fori=1To9
Forj=1To2*i-1
expss="*"
Rem下一条语句作用：
控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Form1.Picture1.PrintTab（（j-i）*2+17）;
Form1.Picture1.Printexpss;
Nextj
Form1.Picture1.Print
Nexti
Rem以下是倒三角形的输出
Fori=8To1Step-1
Forj=1To2*i-1
expss="*"
'Form1.Picture1.PrintTab（18-2*i+（j-1）*2+1）;'控制每个输出表达式的输出位置
Form1.Picture1.PrintTab（17+2*（j-i））;
Form1.Picture1.Printexpss;
Nextj
Form1.Picture1.Print
Nexti
EndSub
PrivateSubForm_Load（）
Rem初始化
WithPicture1
.FontName="宋体"
.FontSize=12
.FontBold=True
.ForeColor=&H80FF&
EndWith
EndSub
升级会员 