VB語言中怎么打印數(shù)字菱形圖案

這篇文章的內(nèi)容主要圍繞VB語言中怎么打印數(shù)字菱形圖案進行講述，文章內(nèi)容清晰易懂，條理清晰，非常適合新手學(xué)習(xí)，值得大家去閱讀。感興趣的朋友可以跟隨小編一起閱讀吧。希望大家通過這篇文章有所收獲！

創(chuàng)新互聯(lián)制作網(wǎng)站網(wǎng)頁找三站合一網(wǎng)站制作公司,專注于網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計制作、成都網(wǎng)站設(shè)計,網(wǎng)站設(shè)計,企業(yè)網(wǎng)站搭建,網(wǎng)站開發(fā),建網(wǎng)站業(yè)務(wù),680元做網(wǎng)站,已為1000+服務(wù),創(chuàng)新互聯(lián)網(wǎng)站建設(shè)將一如既往的為我們的客戶提供最優(yōu)質(zhì)的網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷推廣服務(wù)!

如何打印數(shù)字菱形圖案

輸出目標

     1

   121

  12321

1234321

  12321

   121

     1

類型聲明符號

Long &

Integer %

String $

Double #

Single !

界面：

源代碼：

Private Sub Form_Load()ShowFontSize = 18
Dim i&, j&, n&n = 5For i = 0 To n Step 1    '輸出空格    For j = 1 To n - i Step 1        Print " ";    Next j        Dim k&    k = 1        '輸出數(shù)字    For j = 1 To 2 * i + 1 Step 1            Print Format(k, "@");                If j <= Int((2 * i + 1) / 2) Then            k = k + 1        Else            k = k - 1        End If    Next j
    Print
Next i
'下半部分For i = 0 To n - 1 Step 1    '輸出空格    For j = 0 To i Step 1        Print " ";    Next j        Dim p&    p = 1        '輸出數(shù)字    For j = 1 To 2 * (n - i) - 1 Step 1            Print CStr(p);                If j <= Int((2 * (n - i) - 1) / 2) Then            p = p + 1        Else            p = p - 1        End If    Next j
    Print
Next i
End Sub

感謝你的閱讀，相信你對“VB語言中怎么打印數(shù)字菱形圖案”這一問題有一定的了解，快去動手實踐吧，如果想了解更多相關(guān)知識點，可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站！小編會繼續(xù)為大家?guī)砀玫奈恼拢?/p>

網(wǎng)站題目：VB語言中怎么打印數(shù)字菱形圖案
URL地址：http://bm7419.com/article36/jdsjsg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計、定制開發(fā)、外貿(mào)建站、做網(wǎng)站、網(wǎng)站維護、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)