用VB打印三角图案第一行#,第2行#*#,第三行#***#,第四行##.急用!
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/02 23:38:05
用VB打印三角图案第一行#,第2行#*#,第三行#***#,第四行##.急用!
![用VB打印三角图案第一行#,第2行#*#,第三行#***#,第四行##.急用!](/uploads/image/z/3829850-26-0.jpg?t=%E7%94%A8VB%E6%89%93%E5%8D%B0%E4%B8%89%E8%A7%92%E5%9B%BE%E6%A1%88%E7%AC%AC%E4%B8%80%E8%A1%8C%23%2C%E7%AC%AC2%E8%A1%8C%23%2A%23%2C%E7%AC%AC%E4%B8%89%E8%A1%8C%23%2A%2A%2A%23%2C%E7%AC%AC%E5%9B%9B%E8%A1%8C%23%23.%E6%80%A5%E7%94%A8%21)
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行
![](http://img.wesiedu.com/upload/a/4a/a4a4ec988b3bdb58c22910c64cd79f4f.jpg)
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行
![](http://img.wesiedu.com/upload/a/4a/a4a4ec988b3bdb58c22910c64cd79f4f.jpg)
用VB打印三角图案第一行#,第2行#*#,第三行#***#,第四行##.急用!
c语言打印图案 第一行是1,第二行是23,第三行是456,第四行是7890
用for循环打印下列三角图形,第一行一个*,第二行两个*,第三行三个*,第四行四个*,第五行五个*,他们是三角形哟!求代
解行列式,用画三角的方式,第一行-2 2 -4 0第二行4 -1 3 5第三行3 1 -2 -3第四行2 0 5 1急用
数学题 第一行(),第二行()15,第三行16 8 (),第四行13 3 5 2
C语言习题求解 第一行 第二行 第三行 第四行 第五行
行列式第一行21000第二12100 第三行01210第四行00121第五行00012化为上三角形式并计算结果?
第一行1 第二行23 第三行456 第四行78910问第二十行第2个数是多少
托福报名英文地址第一行第二行第三行第四行分别怎么填写?
第一行1第二行2.3第三行4.5.6第四行7.8.9.10
托福报名英文地址第一行第二行第三行第四行怎么填写?
第一行1 第二行 3 2第三行 4 5 6 第四行10 9 8 7.第10行的第3个数是几?