大一VB 求代码 第二题。求救求救求救 大神快来快来快来 这三张图是题目要求和实例程序。求解求解

Question

大一VB 求代码 第二题。求救求救求救 大神快来快来快来
这三张图是题目要求和实例程序。求解求解

Answer 1

很简单的极具代码

Private Sub Command1_Click()
Dim i As Integer, a As Integer
a = Val(Text1)
If a >= 5 And a <= 10 Then
    Me.Cls
    For i = 1 To a
        Print Space(a - i); String(2 * i - 1, "*")
    Next
 Else
    MsgBox "请输入[5，10]之间的数！"
 End If
End Sub

Answer 2

做梦吧，这点东西自己弄，印象更深刻。追问

已经弄了半小时没弄出来