一项VB操作题改错题

显示全部楼层 · 2012-12-15 20:40:09

不知道你要打出什么图形来，程序来说这么添加Private Sub Command1_Click()Dim i, j, k As Integer
For i = 4 To 1 Step -1
For j = 1 To i Step 1
Print "*";
'打印符号*
Next j
Print '换行
For k = i - 3 To 1
Print " "; '打印空格
Next k
Next iEnd Sub...

千问 · 2012-12-15 20:40:09

Private Sub Command1_Click() Dim i, j, k As Integer For i = 4 To 1 Step -1 ' ___①___
For j = 1 To i Step 1 '___②___
Print "*";
'打印符号*
Next j '...