1、VB程序设计三角形VB程序设计-三角形VB程序设计三角形(作者:草原飞狼 2014年5月22日)布局窗口 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 Ste
2、p -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(单击“是”退出程序,单击“
3、否”返回程序!, 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) *
4、 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 ;
5、 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.Pi
6、cture1.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
7、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.Prin
8、tNext 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.PrintNext iEnd SubPrivate Sub Form_Load()Rem 初始化With Picture1 .FontName = 宋体 .FontSize = 12 .FontBold = True .ForeColor = &H80FF&End WithEnd Sub
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2