在窗体中变量m对应的文本框为Text1，"运行"按钮Command1对应的事件代码如下： Private Sub Command1_Click() Dim result As String m = Val(Me!Text1) result = "" For k = 1 To m For n = 1 To k + m - 1 If n < m - k + 1 Then result = result & " " Else result = result & " *" End If Next n result = result + Chr(13) Next k MsgBox result, , "运行结果" End Sub 单击运行按钮后，输入m的值为5，程序的运行结果是