VB程序设计三角形.docx
《VB程序设计三角形.docx》由会员分享,可在线阅读,更多相关《VB程序设计三角形.docx(6页珍藏版)》请在冰点文库上搜索。
![VB程序设计三角形.docx](https://file1.bingdoc.com/fileroot1/2023-5/11/74149b99-5b6b-49fc-b3dc-ac7a0eb6ff36/74149b99-5b6b-49fc-b3dc-ac7a0eb6ff361.gif)
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