Question

VB问题在窗体上输出一个三角形，代码已经有了 求代码的详细解释 最好是逐句的 谢谢

Option Explicit

Private Sub Command1_Click()
Dim LineNum As Integer, i As Integer, k As Integer, str As String
LineNum = Val(InputBox("输入所需行数"))
For i = 1 To LineNum
str = String(2 * (LineNum - i), " ")
For k = 1 To 2 * i - 1
str = str & "*" & " "
Next k
Print str
Next i
End Sub

Answer 1

Option Explicit ’这句不用解释了，语句声明~即以下的所有变量都需要进行声明后使用

Private Sub Command1_Click() ‘按钮单击事件
Dim LineNum As Integer, i As Integer, k As Integer, str As String ‘定义一个行数，及其它变量
LineNum = Val(InputBox("输入所需行数")) ’将用户输入的行数放到LineNum这个变量
For i = 1 To LineNum ‘从1循环到用户输入的行数，如5
str = String(2 * (LineNum - i), " ") ’String函数在这一句的意思是产生多少个空格，此句用来将第一行的空格随着LineNum的变大而减小。金字塔三角型产生于这一句。
For k = 1 To 2 * i - 1 ‘以下是主循环
str = str & "*" & " " ’这一行根据用户输入的数字大小，产生多少行。主循环。
Next k ‘循环结尾
Print str ’打印出来
Next i ‘循环结尾
End Sub ’结束