VB程序设计-三角形

VB程序-三角形PAGE\*MERGEFORMAT5VB程序设计－三角形（作者：草原飞狼2014年5月22日）布局窗口运行界面（1）源代码如下：PrivateSubCommand1_Click()Rem三角形算法一：正直角三角形Dimi,jAsIntegerFori=1To9Forj=1Toiexpss="*"Form1.Picture1.PrintTab((j-1)*2+1);'控制每个输出表达式的输出位置Form1.Picture1.Printexpss;NextjForm1.Picture1.PrintNextiEndSubPrivateSubCommand10_Click()Rem平形四边形算法二：双重循环，输出位置的控制Dimi,jAsIntegerFori=9To1Step-1Forj=1To9expss="*"Rem下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出Form1.Picture1.PrintTab((j-i)*2+17);Form1.Picture1.Printexpss;NextjForm1.Picture1.PrintNextiEndSubPrivateSubCommand2_Click()Rem三角形算法二：倒直角三角形Dimi,jAsIntegerFori=9To1Step-1Forj=1Toiexpss="*"Form1.Picture1.PrintTab((j-1)*2+1);'控制每个输出表达式的输出位置Form1.Picture1.Printexpss;NextjForm1.Picture1.PrintNextiEndSubPrivateSubCommand3_Click()Rem清空Form1.Picture1.ClsEndSubPrivateSubCommand4_Click()Rem退出Dimint_msgAsIntegerint_msg=MsgBox("单击“是”退出程序,单击“否”返回程序！",vbYesNo+vbQuestion+vbDefaultButton1,"退出提示")Ifint_msg=vbYesThenUnloadMeEndIfEndSubPrivateSubCommand5_Click()Rem平形四边形算法一：双重循环，输出位置的控制Dimi,jAsIntegerFori=1To9Forj=1To9expss="*"Rem下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出Form1.Picture1.PrintTab((j-i)*2+17);Form1.Picture1.Printexpss;NextjForm1.Picture1.PrintNextiEndSubPrivateSubCommand6_Click()Rem三角形算法三：直角三角形Dimi,jAsIntegerFori=1To9Forj=1Toiexpss="*"Rem下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出Form1.Picture1.PrintTab((j-i)*2+17);Form1.Picture1.Print;expss;NextjForm1.Picture1.PrintNextiEndSubPrivateSubCommand7_Click()Rem三角形算法四Dimi,jAsIntegerFori=1To9Forj=1To2*i-1'这一句很关键expss="*"Rem下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出Form1.Picture1.PrintTab((j-i)*2+17);Form1.Picture1.Printexpss;NextjForm1.Picture1.PrintNextiEndSubPrivateSubCommand8_Click()Rem三角形算法五Dimi,jAsIntegerFori=9To1Step-1Forj=1To2*i-1expss="*"Rem下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出Form1.Picture1.PrintTab((j-i)*2+17);Form1.Picture1.Printexpss;NextjForm1.Picture1.PrintNextiEndSubPrivateSubCommand9_Click()Rem菱形输出，主要有两个三角形组成：第一个是倒三角形，第二个是正三角形Rem以下是正三角形的输出Dimi,jAsIntegerFori=1To9Forj=1To2*i-1expss="*"Rem下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出Form1.Picture1.PrintTab((j-i)*2+17);Form1.Picture1.Printexpss;NextjForm1.Picture1.PrintNextiRem以下是倒三角形的输出Fori=8To1Step-1Forj=1To2*i-1expss="*"'Form1.Picture1.PrintTab(18-2*i+(j-1)*2+1);'控制每个输出表达式的输出位置Form1.Picture1.PrintTab(17+2*(j-i));Form1.Picture1.Printexpss;NextjForm1.Picture1.PrintNextiEndSubPrivateSubForm_Load()Rem初始化WithPicture1.FontName="宋体".FontSize=12.FontBold=True.ForeColor=&H80FF&EndWithEndSub