[計(jì)算機(jī)軟件及應(yīng)用]vb循環(huán)結(jié)構(gòu)(已改無(wú)錯(cuò)字)
2022-11-19 04:09:46 本頁(yè)面
【正文】 程序代碼 Private Sub Command1_Click() Print , 一元 , 二元 , 五元 n = 0 39。n用來(lái)記錄解的組數(shù) ,計(jì)數(shù)器 For a = 0 To 10 39。表示一元硬幣的枚數(shù) For b = 0 To 10 39。表示二元硬幣的枚數(shù) c = 10 b a 39。表示五元硬幣的枚數(shù) If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 39。解組數(shù)加 1 Print (。 n。 ), a, b, c End If Next b Next a End Sub 小測(cè)驗(yàn) ? 下面程序運(yùn)行后，輸出的結(jié)果是（ ） Private Sub Command1_Click() Dim i As Integer, j As Integer Dim x As Integer x = 0 For i = 1 To 3 For j = 1 To 4 x = x + 1 Next j Next i Print x=。 x End Sub 12 小測(cè)驗(yàn) ? 下面程序運(yùn)行后，輸出的結(jié)果是（ ） Private Sub Command1_Click() Dim i As Integer, j As Integer Dim x As Integer x = 0 For i = 1 To 3 For j = 1 To i x = x + 1 Next j Next i Print x=。 x End Sub 6變量 第 1次 第 2次 第 3次 i 1 2 3 j 1 1~2 1~3 x +1 +2 +3 小測(cè)驗(yàn) ? 下面程序運(yùn)行后，輸出的結(jié)果是（ ） Private Sub Command1_Click() Dim i As Integer, j As Integer Dim k As Integer,x As Integer x = 0 For i = 1 To 3 For j = i To 4 For k=1 To j x = x + 1 Next k Next j Next i Print x=。 x End Sub 26 變量 第 1次 第 2次 第 3次 i 1 2 3 j 1~4 2~4 3~4 k 1~ 1~1~ 1~4 1~2 1~3 1~4 1~3 1~4 x + ++ +4 +2 +3 +4 +3 +4 例 ?題目：編寫(xiě)程序，輸出如下所示的圖形 ? 分析與思考 該圖形具有的特點(diǎn)： 行號(hào) *號(hào)個(gè)數(shù) 本行起始列 1 1 9（假設(shè)） 2 3 8 3 5 7 4 7 6 5 9 5 6 11 4 7 13 3 i 2*i－ 1 10－ i 例 ? 分析與思考 因此可以用雙重循環(huán)實(shí)現(xiàn)。 重復(fù)部分：輸出一個(gè) “ *” 外循環(huán)：控制輸出行數(shù) 內(nèi)循環(huán)：控制每行輸出 “ *” 的個(gè)數(shù) 循環(huán)體：控制輸出的內(nèi)容，即一個(gè) “ *” 例 ? 程序代碼 Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 7 Print Tab(10 i)。 For j = 1 To 2 * i 1 Print *。 Next j Print Next i End Sub 外循環(huán)控制輸出行數(shù) Tab函數(shù)：定位。將輸出位置定在哪一列 內(nèi)循環(huán)控制每行輸出個(gè)數(shù) 循環(huán)體控制每行輸出內(nèi)容 空 Print：一行輸出完畢換行 例 ?編程實(shí)現(xiàn)輸出以下圖形。 圖 1 ? Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 7 Print Tab(10 i)。 For j = 1 To 8 Print *。 Next j Print Next i End Sub 圖 2 ? Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 7 Print Tab(10)。 For j = 1 To 2 * i 1 Print *。 Next j Print Next i End Sub 圖 3 ? Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 7 Print Tab(15 – (2 * i – 1))。 For j = 1 To 2 * i 1 Print *。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1