VB程序设计三角形.docx
- 文档编号:28716371
- 上传时间:2023-07-19
- 格式:DOCX
- 页数:7
- 大小:88.73KB
VB程序设计三角形.docx
《VB程序设计三角形.docx》由会员分享,可在线阅读,更多相关《VB程序设计三角形.docx(7页珍藏版)》请在冰豆网上搜索。
VB程序设计三角形
VB程序设计-三角形
VB程序设计-三角形
(作者:
草原飞狼2014年5月22日)
布局窗口
运行界面
(1)
源代码如下:
PrivateSubCommand1_Click()
Rem三角形算法一:
正直角三角形
Dimi,jAsInteger
Fori=1To9
Forj=1Toi
expss="*"
Form1.Picture1.PrintTab((j-1)*2+1);'控制每个输出表达式的输出位置
Form1.Picture1.Printexpss;
Nextj
Form1.Picture1.Print
Nexti
EndSub
PrivateSubCommand10_Click()
Rem平形四边形算法二:
双重循环,输出位置的控制
Dimi,jAsInteger
Fori=9To1Step-1
Forj=1To9
expss="*"
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 三角形