图案如下： 1
222
33333
4444444
555555555
6666666
77777
888
9谢谢了！！。。。
数字组成的金字塔图案的VB代码？？急求！1
答案:3 mip版
解决时间 2021-01-16 08:41
- 提问者网友：十年不久我陪你走
- 2021-01-15 23:34
最佳答案
- 二级知识专家网友：用二逼挥霍青春
- 2021-01-16 01:08
Private Sub Command1_Click()
Dim i&, j&, X&
AutoRedraw = True
X = 1 '与窗口左边距
For i = 2 To 8 '组成的金字塔图案数字
j = Abs(5 - i)
Print Space(j + X) & String(9 - j * 2, "" & i)
Next
End Sub
Dim i&, j&, X&
AutoRedraw = True
X = 1 '与窗口左边距
For i = 2 To 8 '组成的金字塔图案数字
j = Abs(5 - i)
Print Space(j + X) & String(9 - j * 2, "" & i)
Next
End Sub
全部回答
- 1楼网友：会有一股神秘感
- 2021-01-16 02:56
Dim i As Integer, j As Integer, k As Integer
Dim m As Single
InputNumber:
k = Val(InputBox("", , "9"))
If k < 1 Or k > 9 Then
MsgBox "请正确输入，要求1到9！", vbCritical
GoTo InputNumber
End If
If k Mod 2 Then j = (k - 1) / 2 + 1 Else j = k / 2
m = k / 2
For i = 1 To k
If i < m Then
Me.Print Space(j - i) & Replace(Space(2 * (i - 1) + 1), " ", CStr(k))
ElseIf i = m Then
Me.Print Replace(Space(2 * j - 1), " ", CStr(k))
Else
Me.Print Space(i - j) & Replace(Space(2 * (k - i) + 1), " ", CStr(k))
End If
Next i
- 2楼网友：棄療尐钕
- 2021-01-16 02:28
private sub command1_click()
dim a() as long
dim n as integer, v
dim i as integer, j as integer
v = inputbox("请输入杨辉三角的行数")
if isnumeric(v) = false or len(v) = 0 then
msgbox ("输入不是数字或者为空，请重新输入！")
else
n = v
end if
redim a(n, n)
for i = 1 to n
for j = 1 to i
if j = 1 or i = j then
a(i, j) = 1
else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
end if
next j
next i
for i = 1 to n
for j = 1 to i
print tab(n * 3 - 3 * i + 6 * j); a(i, j);
next j
next i
end sub
杨辉三角的另一个方法
private sub command1_click()
dim a() as integer
dim b() as integer
dim i as integer
dim j as integer
redim b(1)
b(1) = 1
for i = 1 to 10
redim a(i)
redim preserve b(i)
print space(11 - i);
for j = 1 to i
a(j) = b(j - 1) + b(j)
print a(j);
next j
for j = 1 to i
b(j) = a(j)
next j
print
next i
end sub
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯