文档介绍:1
VB程序设计-三角形
〔 草原飞狼 2022年5月22日〕
布局窗口
运行界面〔1〕
2
源代码如下:
Private Sub Command1_Click()
Rem 三角形算法一:正直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 - i) * 2 + 17);
; expss;
Next j
Next i
End Sub
Private Sub Command7_Click()
Rem 三角形算法四
4
Dim i, j As Integer
For i = 1 To 9
For j = 1 To 2 * i - 1 '这一句很关键
expss = "*"
Rem 下一条语句作用:控制每个输出表达式的输出位置,每个表达式〔星号〕占两个宽度,从第17个位置开始输出
Tab((j - i) * 2 + 17);
expss;
Next j
Next i
End Sub
Private Sub Command8_Click()
Rem 三角形算法五
Dim i, j As Integer
For i