鲁达
今天学习了刘金玉老师零基础VB教程的第75期，学习的主要内容是输出图案组成的菱形。
1.思路：把菱形拆分成上下两个部分，利用多个for循环连续输出组成菱形的图案。
2.代码：
Dim i%, j%, n%
Private Sub Command1_Click()
Show
Cls
n = Val)
Form1.FontSize = 30
Form1.ForeColor = vbRed
'输出菱形上半部分
For i = 0 To n Step 1
For j = 1 To n - i Step 1 '输出每行前空格
Print " ";
Next j
For j = 1 To 2 * i + 1 Step 1 '输出每行的*
Print "*";
Next j
Print '换行
Next i
'输出菱形下半部分
For i = 0 To n - 1 Step 1
For j = 0 To i Step 1 '输出每行前空格
Print " ";
Next j
For j = 1 To 2 * (n - i) - 1 Step 1 '输出每行的*
Print "*";
Next j
Print '换行
Next i
End Sub
3.效果详见视频。