Private Sub Form_Click() Cls Dim i As Integer, m As Integer For i = 1 To 7
For m = 1 To 15 - i * 2
'输出星星符号
Print "*" & " ";
Next
Print Space(5);
'星星符号和美元符号中间加5个空格隔开
For m = 1 To i * 2 - 1
'输出美元符号
Print "$" & " ";
Next
Print '换行
Print Space(i * 2);...
