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

2024-07-15 02:01:32

字體：大中小

來源：轉載

供稿：網友

在上一節，我們制作了一個 Style 為 0 的列表程序，現在我們來制作一個 Style 為 1 的列表程序。

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

在編制本節程序前，我們有必要對 For ··· Next ···循環結構語句做個了解。

一、For 循環語句：

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

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

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

For 變量 = Start To End [Step]

［需要循環的語句］

［Exit For］

Next 變量

說明：

（1）、For 后的“變量”與 Next 后的“變量”為同一個，“變量”應該是數值類型的。

（2）、Start 代表的是循環的初始值，End 代表的是循環的終值。假設從 1 到 100 進行循環，那么，循環初值是 1 ，終值是 100 ；假設從 1 到 50 進行循環，那么初值是 1 ，終值是 50 。

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

（4）、Step 是步長值，代表變量的增量，既可以是正數（遞增循環），也可以是負數（遞減循環），但不能為 0 ，如果步長值為 1 即默認狀態，可以省略不寫。

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

（6）、Exit For：當程序執行到此處，自動退出本層循環。

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

2、示例一：

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

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

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

圖一

（2）、程序功能：

用戶點擊“開始”按鈕（CmdStart）開始計算，完成后將結果用標簽（LblShow）顯示出來。

（3）、書寫代碼：

“開始”按鈕的點擊事件：

Private Sub CmdStart_Click()

x = 0

For y = 1 To 100

x = x + y

Next y

LblShow.Caption = "最后的結果是：" & x

End Sub

說明：

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

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

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