vb程序设计-三角形.docx

文档介绍：VB程序设计-三角形
VB程序设计－三角形
（作者：草原飞狼 2014年5月22日）
布局窗口
运行界面（1）
源代码如下：
Private Sub Command1_Click()
Rem 三角形算法一：正直角三角形
Dim i, j As Integer
For i = 1 To 9
For j = 1 To i
expss = "*"
Tab((j - 1) * 2 + 1); '控制每个输出表达式的输出位置
expss;
Next j

Next i
End Sub
Private Sub Command10_Click()
Rem 平形四边形算法二：双重循环，输出位置的控制
Dim i, j As Integer
For i = 9 To 1 Step -1
For j = 1 To 9
expss = "*"
End Sub
Private Sub Command3_Click()
Rem 清空

End Sub
Private Sub Command4_Click()
Rem 退出
Dim int_msg As Integer
int_msg = MsgBox("单击“是”退出程序,单击“否”返回程序！", vbYesNo + vbQuestion + vbDefaultButton1, "退出提示")
If int_msg = vbYes Then
Unload Me
End If
End Sub
Private Sub Command5_Click()
Rem 平形四边形算法一：双重循环，输出位置的控制
Dim i, j As Integer
For i = 1 To 9
For j = 1 To 9
expss = "*"
Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Tab((j - i) * 2 + 17);
expss;

Next j

Next i
End Sub
Private Sub Command6_Click()
Rem 三角形算法三：直角三角形
Dim i, j As Integer
For i = 1 To 9
For j = 1 To i
expss = "*"
Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Tab((j -