編程數字金字塔vb

⑴ 用VB的循環結構編寫數字金字塔

Private Sub Command1_Click()

For i = 1 To 9

Print Spc(9 - i);

For j = 1 To i

Print Chr(48 + j);

Next j

For j = i - 1 To 1 Step -1

Print Chr(48 + j);

Next j

Print

Next i

End Sub

⑵ 求VB代碼_數字金字塔

PrivateSubCommand1_Click()

DimiAsInteger,jAsInteger

PrintSpace(27);1

Fori=2To9

PrintSpace(30-3*i);

Forj=1Toi

Printj;

Nextj

Forj=i-1To1Step-1

Printj;

Nextj

Print

Nexti

EndSub

左邊沒對齊，好用啊

⑶ vb輸出數字金字塔

示例代碼如下：
PrivateSubCommand1_Click()
DimiAsInteger
DimjAsInteger
DimsAsString
Fori=1To5Step1
s=String(i*2-1,CStr(i))
PrintSpc((10-i*2)/2);s
Nexti
Forj=6To9Step1
s=String(9-2*(j-5),CStr(j))
PrintSpc(j-5);s
Nextj
EndSub

⑷ VB中怎麼編數字金字塔

Private Sub Form_Click()
Dim i As Integer, j As Integer

For i = 1 To 9
If i <= 5 Then
Print Space(5 - i);
For j = 1 To (i - 1) * 2 + 1
If j = (i - 1) * 2 + 1 Then
Print CStr(i)
Else
Print CStr(i);
End If
Next j
Else
Print Space(i - 5);
For j = 1 To (10 - i - 1) * 2 + 1
If j = (10 - i - 1) * 2 + 1 Then
Print CStr(i)
Else
Print CStr(i);
End If
Next j
End If
Next i
'點擊窗口任意位置即可
End Sub

⑸ VB代碼，數字金字塔

不好意思，剛上，才看見你給我發的信息。
你肯定把題目圖案弄錯了，第二行三個2吧……
我就上樓上的基礎上加了一個j

Private Sub Command1_Click()
Dim i, j As Integer
Dim s As String
j = -1
For i = 1 To 10
j = j + 2
s = String(j, Right(Trim(Str(i)), 1))
Print Tab(11 - i); s
Next i
End Sub

⑹ 用VB編程如何列印數字金字塔

For i = 1 To 9 For j = 1 To 9 - i Print " "; Next j For j = 1 To i Print j; Next j For j = i - 1 To 1 Step -1 Print j; Next j Print Next i

⑺ vb編程數字金字塔

試編寫代碼示例如下：

PrivateSubCommand1_Click()
Fori=1To9
s=""
Forj=1Toi
s=s&""&(i-1)*2+1
Nextj
Prints
Nexti
EndSub

運行截圖：