vb編程數字金字塔

㈠ 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數字金字塔1 121 12321一直到9

自己看圖，是不是這樣，我發了兩個小時才調好的，我也才學，希望對你有幫助，代碼如下：

PrivateSubForm_Click()

Dima(1To5)AsInteger

Forj=1To5

a(j)=j

Nextj

Fori=1To5

PrintTab(30-i*3);

Forj=1To2*i-1

Ifj>iThen

Printa(2*i-j);

Else

Printa(j);

EndIf

Nextj

Nexti

EndSub

望採納！！！！！！！！！！

㈢ 用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()
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代碼_數字金字塔

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代碼，數字金字塔

不好意思，剛上，才看見你給我發的信息。
你肯定把題目圖案弄錯了，第二行三個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編程數字金字塔

試編寫代碼示例如下：

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

運行截圖：

㈧ 用VB怎麼編程能在窗體上顯示數字金字塔，從上到下是1~9，最後還有0

Private Sub Form_Load()
Me.AutoRedraw = True
For i = 1 To 10
Print Spc(24 - i);
For j = 1 To i
Print Spc(1); Right(Str(i), 1);
Next j
Print
Next i

End Sub

㈨ 用vb編寫該數字金字塔

dim n as integer
dim i as integer
dim j as integer
dim s as integer
n=val(text1.text)'假設用text控制項接收輸出*的行數，也可以自己寫個
for i=1 to n
for s=1 to 8
for j=1 to 2*i-1
print 's'; '不要少了分號
next j
print '換行
next i