VB程序设计-三角形.docx

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 = "*"
Form1.Picture1.Print Tab((j - 1) * 2 + 1); '控制每个输出表达式的输出位置
Form1.Picture1.Print expss;
Next j
Form1.Picture1.Print
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 = "*"
Rem 下一条语句作用：控制每个输出表达式的输出位置，每个表达式（星号）占两个宽度，从第17个位置开始输出
Form1.Picture1.Print Tab((j - i) * 2 + 17);
Form1.Picture1.Print expss;
Next j
Form1.Picture1.Print
Next i
End Sub

Private Sub Command2_Click()
Rem 三角形算法二：倒直角三角形
Dim i, j As Integer
For 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.Print
Next i

End Sub

Private Sub Command3_Click()
Rem 清空
Form1.Picture1.Cls
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个位置开始输出
Form1.Picture1.Print Tab((j - i) * 2 + 17);
Form1.Picture1.Print expss;

Next j
Form1.Picture1.Print
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个位置开始输出
Form1.Picture1.Print Tab((j - i) * 2 + 17);
Form1.Picture1.Print ; expss;

Next j
Form1.Picture1.Print
Next i
End Sub

Private Sub Command7_Click()
Rem 三角形算法四
Dim i, j As Integer
For 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.Print
Next i
End Sub

Private Sub Command8_Click()
Rem 三角形算法五
Dim i, j As Integer
For 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.Print
Next i
End Sub

Private Sub Command9_Click()
Rem 菱形输出，主要有两个三角形组成：第一个是倒三角形，第二个是正三角形
Rem 以下是正三角形的输出
Dim i, j As Integer
For 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.Print
Next i

Rem 以下是倒三角形的输出

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.Print
Next i
End Sub

Private Sub Form_Load()
Rem 初始化
With Picture1
.FontName = "宋体"
.FontSize = 12
.FontBold = True
.ForeColor = &H80FF&
End With
End Sub
5