Private Sub Command1_Click()
Dim r%,c%,t%
For r = 1 To 9
t = 0
Print Spc(9 - r);
For c = 1 To 2 * r - 1
If c 只編出了上半部分,沒下半部分,也就是倒過來顯示,請問怎么編寫,謝謝Private Sub Command1_Click()Dim r%, c%, t%For r = 1 To 7t = 0If r <= 4 Then Print Spc(4 - r); Else Print Spc(r - 4);For c = 1 To IIf(r <= 4, 2 * r - 1, 2 * (8 - r) - 1)If c <= IIf(r <= 4, r, 8 - r) Then t = t + 1 Else t = t - 1Print CStr(t);Next cPrintNext rEnd Sub
如何用vb程序?qū)懸粋€由數(shù)字組成的三角形,一行為1,二為121,三行12321,四行1234321,五行12321……程序
如何用vb程序?qū)懸粋€由數(shù)字組成的三角形,一行為1,二為121,三行12321,四行1234321,五行12321……程序
其他人氣：944 ℃時間：2019-11-01 19:39:26
優(yōu)質(zhì)解答
我來回答
類似推薦
- VB中數(shù)字金字塔 樣式為：1 121 12321 1234321 以此類推,請問這個程序該怎么設(shè)計
- 觀察如下三角形數(shù)表,求第n行中個數(shù)的和 1 ；121；12321；1234321；.
- 編寫C語言程序；輸出以下圖案：1 121 12321 1234321 12321 121 1
- 1×1=1、11×11=121、111×111=12321、1111×1111=_．
- 11×11=121 111×111=12321 1111×1111=1234321 這里面有什么規(guī)律!
- 形容獨自一人的成語
- 3²和a²是同類項嗎?
- 如圖，國旗上的五角星的五個角的度數(shù)是相同的，每一個角的度數(shù)都是（ ） A.30° B.35° C.36° D.42°
- 三角形數(shù)陣,1；2,3；4,6,5；8,12,10,7；16,24,20,14,9；32,48,40,28,18,11；···
- 直角三角形ABC周長為2,求面積最大值（用三角函數(shù)知識和建模思想解題）
- 小紅用150 N的力豎直向上提一個質(zhì)量為10kg的水桶受到的合力是（ ）N（g取10N/kg)
- 1.125/0.09脫式計算
猜你喜歡
- 1f(x)有n階導,且f(x)的導數(shù)為f(x)的平方,則f(x)的n階導為什么
- 2噸與升之間的換算單位是多少?
- 3如果地球是方的,那么對我么人類活動會有什么影響?地球上的哪些現(xiàn)象會發(fā)生變化?如題 謝謝了
- 41.大蒜新素的化學式為C6H10S2,請問14.6g的大蒜新素含幾摩爾的氫原子,質(zhì)量為多少?
- 5英語翻譯
- 6這道題的6除以1與6乘以1的意思相同嗎?是一道小學二年級的判斷題
- 7小巧參加了學校的“護綠隊”,負責為草坪鋤雜草.計劃每天鋤雜草65平方米,一星期可以完成任務(wù).
- 8[-A20] In many places in China , _____ bicycle is still ______ popular means of transportation.
- 9"youth is not a time in life"是啥意思?
- 10如圖，⊙O的直徑AB垂直于弦CD，垂足為E，若∠COD=120°，OE=3厘米，則OD=_厘米．
- 11warranty manager 如何翻譯
- 12如圖是一個正方形，甲和乙分別是等腰三角形的兩種不同的內(nèi)接正方形，則圖中甲與乙的面積比是_．