VB 神童教程第二章第十節(jié)——綜合示例四

2024-07-16 17:58:44

字體：大中小

供稿：網(wǎng)友

在上一節(jié)，我們制作了一個 Style 為 0 的列表程序，現(xiàn)在我們來制作一個 Style 為 1 的列表程序。

雖然僅僅是 Style 的改變，但整個程序發(fā)生了完全的變化。本節(jié)中的程序更為科學(xué)，而且只需改動幾行代碼，同樣適合上一節(jié)的程序。

在編制本節(jié)程序前，我們有必要對 For ··· Next ···循環(huán)結(jié)構(gòu)語句做個了解。

一、For 循環(huán)語句：

在實(shí)際生活中，我們經(jīng)常會遇到一些操作并不復(fù)雜，但需要重復(fù)多次處理的情況，如人口統(tǒng)計(jì)、銀行利率的計(jì)算等，為此，Visual Basic 提供了循環(huán)語句來專門解決此類情況。

循環(huán)語句的具體情況，我們將在以后的章節(jié)中闡述，本節(jié)我們只是針對 For 循環(huán)語句做個大致的了解。

1、For ··· Next ···語句的一般格式：

For 變量 = Start To End [Step]

［需要循環(huán)的語句］

［Exit For］

Next 變量

說明：

（1）、For 后的“變量”與 Next 后的“變量”為同一個，“變量”應(yīng)該是數(shù)值類型的。

（2）、Start 代表的是循環(huán)的初始值，End 代表的是循環(huán)的終值。假設(shè)從 1 到 100 進(jìn)行循環(huán)，那么，循環(huán)初值是 1 ，終值是 100 ；假設(shè)從 1 到 50 進(jìn)行循環(huán)，那么初值是 1 ，終值是 50 。

（3）、To 是循環(huán)中的關(guān)鍵字，表示從初值到終值的范圍，不能省略。

（4）、Step 是步長值，代表變量的增量，既可以是正數(shù)（遞增循環(huán)），也可以是負(fù)數(shù)（遞減循環(huán)），但不能為 0 ，如果步長值為 1 即默認(rèn)狀態(tài)，可以省略不寫。

（5）、需要循環(huán)的語句，既可以是一個，也可以是多個語句，但必須放在 For 與 Next 之間。

（6）、Exit For：當(dāng)程序執(zhí)行到此處，自動退出本層循環(huán)。

（7）、需要循環(huán)的語句與 Exit For 都可以省略，這時(shí)表示的是一個無內(nèi)容的空循環(huán)，主要做為程序延遲使用。

2、示例一：

編寫一個程序，用來計(jì)算 1 到 100 間所有整數(shù)的和是多少。

（1）、程序界面與控件屬性：

程序界面與控件屬性如圖一，為了讓大家看得更為清楚，我們將標(biāo)簽控件的 BoderStyle 屬性設(shè)為 1 。

圖一

（2）、程序功能：

用戶點(diǎn)擊“開始”按鈕（CmdStart）開始計(jì)算，完成后將結(jié)果用標(biāo)簽（LblShow）顯示出來。

（3）、書寫代碼：

“開始”按鈕的點(diǎn)擊事件：

Private Sub CmdStart_Click()

x = 0

For y = 1 To 100

x = x + y

Next y

LblShow.Caption = "最后的結(jié)果是：" & x

End Sub

說明：

（1）、1 到 100 中所有整數(shù)的和可以這樣來看：1＋2＋3＋······＋100 ，即 100 次相加，那么這重復(fù)的 100 次相加可以通過 For 循環(huán)來完成。

上一篇：VB 神童教程第二章第九節(jié)——綜合示例三

下一篇：VB 神童教程第二章第十一節(jié)——滾動條