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