新人提问，急需啊

Question

1、程序运行时首先显示一个标题窗口（第1个窗口），显示标题：“一个画图形的程序”。单击标题窗口后，在该窗口上按如下所示画出由五角星组成的图形（如图所示，要求用两层或两层以上循环实现）。单击‘退出’按钮。则退出该程序。
★★★★★★
  ★★★★★★
    ★★★★★★
      ★★★★★★
        ★★★★★★
          ★★★★★★
2、在窗体中添加两个命令按钮，标题分别为“扩大”和“移动”。程序运行后，当用户点击“扩大”按钮时，窗体的高、宽分别增加0.2倍，点击“移动”按钮时使窗体向右移动200，向下移动100。
麻烦大家写清楚点
我是刚接触的

Answer 1

dongge2000(秋日私语) 
=====你说出了我的心里话

Answer 2

1.设置form1的caption属性为"一个画图形的程序"，并在它的activate事件里加入：
Dim lngi As Long, lngj As Long
For lngi = 0 To 5
 For lngj = 1 To 6
  If lngj = 1 Then
   Print Space(lngi * 4) & "★";
  Else
   Print "★";
  End If
 Next
 Print Chr(10)
Next

Answer 3

2.在form1上添加两个commandbox，并设置command1的caption属性为："扩大"；command2的caption属性为"移动"，并添加以下代码：
private sub command1_click()
 with me
  .width=.width*1.2
  .height=.heiht*1.2
 end with
end subprivate sub command2_click()
 with me
  .left=.left+200
  .top=.top+100
 end with
end sub另附一句：以后学习要认真点，考试题要自己做，不要再靠别人。

Answer 4

rainstormmaster(暴风雨 v2.0) :
用一层怎么会更困难呢？

Answer 5

退出：新加一个按钮，设置它的caption属性为"退出"，加入以下代码：
private sub command3_click()
 unload me
end sub错误修改：
private sub command1_click()
 with me
  .width=.width*1.2
  '.height=.heiht*1.2 这一句应改成：
  .height=.height*1.2
 end with
end sub

Answer 6

谢谢我知道了是这句
.height=.heiht*1.2
打错了那个退出怎么设置