用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行
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行
用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个数是几?