溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

VB語(yǔ)言中如何打印菱形圖案

發(fā)布時(shí)間：2022-01-14 19:43:57 來(lái)源：億速云 閱讀：302 作者：柒染 欄目：大數(shù)據(jù)

這篇文章將為大家詳細(xì)講解有關(guān)VB語(yǔ)言中如何打印菱形圖案，文章內(nèi)容質(zhì)量較高，因此小編分享給大家做個(gè)參考，希望大家閱讀完這篇文章后對(duì)相關(guān)知識(shí)有一定的了解。

打印菱形圖案

VB語(yǔ)言中如何打印菱形圖案

課堂總結(jié)

主要還是總結(jié)分析思路

1、觀察圖案，總結(jié)規(guī)律

2、可以寫(xiě)下來(lái)，把行號(hào)與結(jié)果寫(xiě)來(lái)，然后再觀察

3、下半部分的思路剛好與上半部分相反,也要寫(xiě)下來(lái)，總結(jié)觀察

界面：

VB語(yǔ)言中如何打印菱形圖案

源代碼：

Private Sub Form_Load()ShowFontSize = 25WindowState = 2Dim i As LongDim j As Long
Dim n As Long '表示行數(shù),這個(gè)行數(shù)是除了最長(zhǎng)的一行*之外的數(shù)量n = 6'上半部分For i = 0 To n Step 1
    '輸出空格    For j = 1 To n - i Step 1        Print " ";    Next j
    '輸出*    For j = 1 To 2 * i + 1 Step 1        Print "*";    Next j        Print '換行    Next i

'下半部分For i = 0 To n - 1 Step 1
  '輸出空格  For j = 0 To i Step 1    Print " ";  Next j      '輸出*  For j = 1 To 2 * (n - i) - 1 Step 1    Print "*";  Next j      Print
Next i


End Sub

關(guān)于VB語(yǔ)言中如何打印菱形圖案就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到。

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱：is@yisu.com進(jìn)行舉報(bào)，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手