一道非常简单的VB程序设计题， 有能帮我做一下的吗？ 留下邮箱你发题目给你。完成后另有加分

'(1)
Private Sub Command1_Click()
Dim r As Integer, i As Integer
Dim c As Integer
1:
r = Val(InputBox("输入奇数行："))
If r Mod 2 = 0 Then GoTo 1
c = r \ 2
For i = 1 To c + 1
Print Space(c - i + 1) & String(i * 2 - 1, "*")
Next i
For i = c To 1 Step -1
Print Space(c - i + 1) & String(i * 2 - 1, "*")
Next i
End Sub
'(2)
Private Sub Command2_Click()
Dim r As Integer, i As Integer
Dim c As Integer
1:
r = Val(InputBox("输入奇数行："))
If r Mod 2 = 0 Then GoTo 1
c = r \ 2
Print Space(c) & "*"
For i = 2 To c + 1
Print Space(c - i + 1) & "*" & Space(2 * i - 3) & "*"
Next i
For i = c To 2 Step -1
Print Space(c - i + 1) & "*" & Space(2 * i - 3) & "*"
Next i
Print Space(c) & "*"
End Sub

简易背单词程序：是一个能够帮助用户背单词的实用程序。具有滚动字幕功能，单词你是放在数据库里吗?我是不是只需要做下面的功能就可以了? 具有滚动

题目不见,如何下手!

先说题目吧

把设计题说出来呀？