VB程序设计三角形Word格式文档下载.docx

VB程序设计三角形Word格式文档下载.docx

《VB程序设计三角形Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB程序设计三角形Word格式文档下载.docx（6页珍藏版）》请在冰豆网上搜索。

控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第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）;

'

控制每个输出表达式的输出位置

PrivateSubCommand3_Click（）

Rem清空

Form1.Picture1.Cls

PrivateSubCommand4_Click（）

Rem退出

Dimint_msgAsInteger

int_msg=MsgBox（"

单击“是”退出程序,单击“否”返回程序！

"

vbYesNo+vbQuestion+vbDefaultButton1,"

退出提示"

）

Ifint_msg=vbYesThen

UnloadMe

EndIf

PrivateSubCommand5_Click（）

Rem平形四边形算法一：

双重循环，输出位置的控制

Fori=1To9

Forj=1To9

PrivateSubCommand6_Click（）

Rem三角形算法三：

直角三角形

Form1.Picture1.Print;

expss;

PrivateSubCommand7_Click（）

Rem三角形算法四

Forj=1To2*i-1'

这一句很关键

PrivateSubCommand8_Click（）

Rem三角形算法五

Forj=1To2*i-1

PrivateSubCommand9_Click（）

Rem菱形输出，主要有两个三角形组成：

第一个是倒三角形，第二个是正三角形

Rem以下是正三角形的输出

Rem以下是倒三角形的输出

Fori=8To1Step-1

Form1.Picture1.PrintTab（18-2*i+（j-1）*2+1）;

Form1.Picture1.PrintTab（17+2*（j-i））;

PrivateSubForm_Load（）

Rem初始化

WithPicture1

.FontName="

宋体"

.FontSize=12

.FontBold=True

.ForeColor=&

H80FF&

EndWith