VB程序设计-三角形.docxVIP

VB程序设计-三角形

PAGE5

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个位置开始输出