作业帮 > 综合 > 作业

用VB打印三角图案第一行#,第2行#*#,第三行#***#,第四行##.急用!

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/23 11:54:21
用VB打印三角图案第一行#,第2行#*#,第三行#***#,第四行##.急用!
Dim KG As Integer
Private Sub form_Click()
  Me.Cls
  KG = 0
  N = InputBox("要输入的行数!")
  If IsNumeric(N) And N <> 0 Then
    Print Space(N); "#"
    For i = 1 To N * 2 - 3 Step 2
      KG = KG + 1
      Print Space(N - KG); "#"; String(i, "*"); "#"
    Next i
  Else
    MsgBox "请输入有效数值!"
  End If
End Sub
'等腰三角形 
'任意行数 
'例子是插入了30行