VB程序设计-三角形.docx

VB程序设计三角形（作者：草原飞狼 2014年5月22日）布局窗口运行界面（1）源代码如下：Private Sub Command1_Click()Rem 三角形算法一：正直角三角形Dim i, j As IntegerFor i = 1 To 9 For j = 1 To i expss = * Form1.Picture1.Print Tab(j - 1) * 2 + 1); 控制每个输出表达式的输出位置 Form1.Picture1.Print expss; Next j Form1.Picture1.PrintNext iEnd SubPrivate Sub Command10_Click()Rem 平形四边形算法二：双重循环，输出位置的控制Dim i, j As IntegerFor i = 9 To 1 Step -1 For j = 1 To 9 expss = * Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出 Form1.Picture1.Print Tab(j - i) * 2 + 17); Form1.Picture1.Print expss; Next j Form1.Picture1.PrintNext iEnd SubPrivate Sub Command2_Click()Rem 三角形算法二：倒直角三角形Dim i, j As IntegerFor i = 9 To 1 Step -1 For j = 1 To i expss = * Form1.Picture1.Print Tab(j - 1) * 2 + 1); 控制每个输出表达式的输出位置 Form1.Picture1.Print expss; Next j Form1.Picture1.PrintNext iEnd SubPrivate Sub Command3_Click()Rem 清空Form1.Picture1.ClsEnd SubPrivate Sub Command4_Click()Rem 退出Dim int_msg As Integerint_msg = MsgBox(单击“是”退出程序,单击“否”返回程序！, vbYesNo + vbQuestion + vbDefaultButton1, 退出提示)If int_msg = vbYes Then Unload MeEnd IfEnd SubPrivate Sub Command5_Click()Rem 平形四边形算法一：双重循环，输出位置的控制Dim i, j As IntegerFor i = 1 To 9 For j = 1 To 9 expss = * Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出 Form1.Picture1.Print Tab(j - i) * 2 + 17); Form1.Picture1.Print expss; Next j Form1.Picture1.PrintNext iEnd SubPrivate Sub Command6_Click()Rem 三角形算法三：直角三角形Dim i, j As IntegerFor i = 1 To 9 For j = 1 To i expss = * Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出 Form1.Picture1.Print Tab(j - i) * 2 + 17); Form1.Picture1.Print ; expss; Next j Form1.Picture1.PrintNext iEnd SubPrivate Sub Command7_Click()Rem 三角形算法四Dim i, j As IntegerFor i = 1 To 9 For j = 1 To 2 * i - 1 这一句很关键 expss = * Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出 Form1.Picture1.Print Tab(j - i) * 2 + 17); Form1.Picture1.Print expss; Next j Form1.Picture1.PrintNext iEnd SubPrivate Sub Command8_Click()Rem 三角形算法五Dim i, j As IntegerFor i = 9 To 1 Step -1 For j = 1 To 2 * i - 1 expss = * Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出 Form1.Picture1.Print Tab(j - i) * 2 + 17); Form1.Picture1.Print expss; Next j Form1.Picture1.PrintNext iEnd SubPrivate Sub Command9_Click()Rem 菱形输出，主要有两个三角形组成：第一个是倒三角形，第二个是正三角形Rem 以下是正三角形的输出Dim i, j As IntegerFor i = 1 To 9 For j = 1 To 2 * i - 1 expss = * Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出 Form1.Picture1.Print Tab(j - i) * 2 + 17); Form1.Picture1.Print expss; Next j Form1.Picture1.PrintNext iRem 以下是倒三角形的输出For i = 8 To 1 Step -1 For j = 1 To 2 * i - 1 expss = * Form1.Picture1.Print Tab(18 - 2 * i + (j - 1) * 2 + 1); 控制每个输出表达式的输出位置 Form1.Picture1.Print Tab(17 + 2 * (j - i); Form1.Picture1.Print expss; Next j Form1.Picture1.Prin