1、VB程序設計第二章賦值語句窗體和命令按鈕數據輸入數據輸出注釋、暫停、程序結束語句賦值語句賦值語句 形式: 變量名表達式 或 對象名.屬性名表達式 一般用于給變量賦值或對控件設定屬性值. 例: sRate!=0.1 Text1.Text ”歡迎使用Visual Basic 6.0” 說明：1 .當表達式的類型與變量的類型不一致時,強制轉換成左邊的精度。例如：iA% = 10/3 其結果為：32 .雖然賦值號與關系運算符等于號都用“=”表示，VB系統會根據所處的位置自動判斷是何種意義的符號。1.屬性 Name、Caption標題、Backcolor、Forecolor、MaxButton、MinB

2、utton、Icon、ControlBox、Picture、BorderStyle （0 1 2 3 4 5 ）、WindowsState （0-正常、1-最小化、2-最大化）2.事件 Click、DblClick、Load 、UnLoad Load：當裝入窗體時激發，通常用于對屬性和變量初始化。3.方法 Print、Cls和Show、Hide等。 1.屬性 Name、Caption、Default、Cancel、Enabled、Visible、Value、ToolTipText（設置工具提示，和Picture結合使用）等。2.事件 Click、MouseDown、MouseUp、MouseM

3、ove、KeyDown、KeyUp等。3.方法 SetFocus 使用輸入框輸入使用文本框輸入 調用格式： InputBox(InputBox(提示信息提示信息 ，對話框標題，對話框標題，缺省值，缺省值) 其中: 提示信息、對話框標題，缺省值都是字符串表達式。函數返回值為字符類型。例如：要在屏幕上顯示圖示的對話框。 可以用以下語句實現：Dim strName As String * 40strName = InputBox(請輸入一個整數 + vbCrLf + 要求在1到100之間, 數據輸入,1)TextBox控件是一個文本編輯區域，可在該區域輸入，編輯和顯示正文內容。Text : 正文內容

4、Maxlength: 設置正文的最多字符個數。 0表示任意長度值.MultiLine: 是否為多行,默認一行（FALSE）ScrollBars: 當MultiLine為True時,該屬性才有效,表示滾動條的形式： 0-None、1-Horizontal、2-Vertical、3-Both。Locked: 是否可被編輯屬性，False表示為可編輯。PasswordChar : 口令字符. Text屬性返回輸入的數據,屏幕顯示該字符,SelStart，SelLength，SelText : 選中文本的起始、長度、內容。 常用事件常用事件 Change : 當改變文本框的Text屬性時會引發該事件。

5、 KeyPress(KeyAscii As Integer): 同上,并可返回一個KeyAscii參數；當KeyAscii為13時表示按回車鍵;為0時為去除剛輸入的字符。 LostFocus : 當控件失去焦點時發生。 GotFocus : 當控件獲得焦點時發生。 常用方法常用方法 對象.SetFocus: 是把光標移到指定的文本框對象中。例1. 簡單文本編輯器。例2. 計算圓的面積和周長。Private Sub Command1_Click() Dim r!, l!, s! r = InputBox(請輸入圓的半徑：請輸入圓的半徑： + Chr(13) + Chr(10) + _ 然后單擊確

6、定然后單擊確定, 輸入框輸入框, , 1000, 1000) l = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = r： Text2.Text = l： Text3.Text = sEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1 = “： Text2 = “： Text3 = End Sub用Print方法輸出用消息框函數輸出用文本框控件輸出用標簽控件輸出 Print Print方法方法 形式: 對象.PrintSpc(n)|Tab(n)表

7、達式列表；|， 作用: 在對象上輸出信息。 對象：窗體、圖形框或打印機(Printer) ,省略對象 在窗體上輸出。 Spc(n)函數：插入n個空格，允許重復使用。 Tab(n)函數：左端開始右移動n列，允許重復使用。 ；(分號)：光標定位上一個顯示的字符后。 ，(逗號)：光標定位在下一個打印區的開始位置處。 注意： 1.開始打印的位置是由對象的CurrentX和CurrentY屬性決定，缺省為打印對象的左上角(0，0)。 2.Print方法要在Form_Load事件過程中起作用，必須先設置窗體的AutoRedraw(控制對象自動重畫)屬性值為True。 MsgBox（）是輸出函數，執行時產生

8、一個輸出消息的對話框，等待用戶單擊按鈕，并返回一個整型值。MsgBox的使用有函數和過程兩種形式。 MsgBox（）函數的一般格式為： 變量 = MsgBox（提示，按鈕，標題） MsgBox過程的一般格式為： MsgBox 提示，按鈕，標題 參數說明如下： 1. “提示”和“標題”：與InputBox函數相同。 2. “按鈕”：為數值表達式，由3個常數組成，形式為c1+c2+c3，常數既可以用文字常量，也可以用數值常量表示。其中，c1用來指定顯示按鈕的數目及形式，c2表示使用圖標的樣式，c3用來確定默認的活動按鈕。 1.在MsgBox中，參數是按一定順序排列的，如果省略了某些參數，必須加入相

9、應的逗號分隔符。2.MsgBox過程沒有返回值，因此常用于簡單的信息顯示。3.Msgbox( )函數的返回值是一個整數，該整數與所選擇的按鈕有關。每個按鈕對應一個返回值，共有7種按鈕。 標簽 Label：用于顯示文本(輸出)信息，不能作為輸入信息的界面。屬性：Font,Name,Caption,Alignment屬性同文本框。AutoSize：自動縮放，即大小自適應屬性。默認為“False“，若為“True“，根據文本大小自動調整標簽寬度。方法：Refresh（刷新）和Move（移動）。事件：Click 和 DbClick。1.注釋語句： 或 Rem 2.暫停語句： stop Stop語句用來

10、暫停程序的執行，相當于在事件代碼中設置斷點。3.程序結束語句： end說明：1.Stop語句的主要作用是把解釋程序置為中斷(Break)模式，以便對程序進行檢查和調試?？梢栽诔绦虻娜魏蔚胤椒胖肧top語句，當執行Stop語句時，系統將自動打開立即窗口。2.與End語句不同。1. IfThen語句(單分支結構) If Then 語句塊1 Else 語句塊2 說明： 第一，語句塊中有多條語句時，各語句之間用“：”分隔。 第二，本結構應該在一行寫完，若寫不完，可以采用續行符。2. IfThenElse語句(雙分支結構) If Then Else End If3. IfThenElseIf語句(多分支

11、結構) 形式: If Then ElseIf Then Else 語句塊 n+1 End If4. Select Case語句(情況語句)形式：Select Case 變量或表達式Case 表達式列表1 語句塊1Case 表達式列表2 語句塊2 Case Else 語句塊n+1End Select例3：由計算機來當一年級的算術老師，要求給出一系列的09之間的操作數，進行四則運算，學生輸入該題的答案，計算機根據學生的答案判斷正確與否，當結束時給出成績。1在選擇結構中缺少配對的結束語句。對多行式的If塊語句中，應有配對的 End If語句結束。2. 多行選擇ElseIf關鍵字的書寫，ElseIf

12、不要寫成Else If。3. Select Case語句后不能出現多個變量；Case子句后不能出現變量。1. For循環語句 (一般用于循環次數已知)形式：For 循環變量初值 to 終值 Step 步長 語句塊1 Exit For 語句塊2Next 循環變量0 初值終值 =1 時,可省略終值=0 死循環 步長循環次數) 1(步長初值終值Int注意：1.循環控制變量的值 例如程序段： For i=2 To 13 Step 3 For i=2 To 13 Step 3 Print i Print i ； Next i Next i Print Print “I=I=“, I, I循環次數：4輸出

13、結果：2 5 8 11退出循環后：I=142.在循環體內對循環控制變量可多次引用；但最好不要對其賦值，否則影響原來的循環控制規律。例4 計算1100的奇數和，程序段如下： Dim i%, s% s = 0 For i = 1 To 100 Step 2 s = s + i Next i Dim i%, s% s = 0: i = 1re: If i = 100 Then s = s + i i = i + 2 GoTo re End If形式1：當型循環 Do While|Until 語句塊1 Exit Do 語句塊2 Loop2. DoLoop循環語句(用于控制循環次數未知) 條 件 F T

14、 F T E x it D o 語 句 塊 語 句 塊 E x it D o 語 句 塊 語 句 塊 表 達 式 列 表 1 圖 1 -3 -1 6 D o L o o p W h ile D o W h ile L o o p執 行 過 程 形式2：直到循環 Do 語句塊1 Exit Do 語句塊2Loop While|Until 表 達 式 列 表 1 F T F T E x it D o 語 句 塊 語 句 塊 E x it D o 語 句 塊 語 句 塊 條 件 D o L o o p W h ile的 執 行 過 程 圖 1 -3 -1 5 D o W h ile L o o p 說

15、明：1.當使用While構成循環時，當條件為“真”時反復執行循環體，當條件為“假”，則退出循環。2.當使用Until 構成循環時，當條件為“假”時反復執行循環體，直到條件成立，即為“真”時，則退出循環。例5：我國有13億人口，按人口年增長0.8%計算，多少年后我國人口超過26億。分析：解此問題兩種方法。第一，可根據公式，26=13*(1+0.008)n ，直接利用 標準對數函數求得；第二，利用循環求得，程序如下： Private Sub Command1_Click() x = 13： n = 0 Do While x n； (2) m除以n得余數r； (3)若r=0，則n為最大公約數結束；否

16、則執行(4)； (4)mn，nr，再重復執行(2)。 Dim n%,m%,nm%,r%m=Val(InputBox(m=)n=Val(InputBox(n=)nm=n*mIf mn Then t=m: m=n: n=tr=m mod nDo While (r 0) m=n n=r r= m mod nLoopPrint 最大公約數=, n Print 最小公倍數=, nm/n 3.循環的嵌套:一個循環體內又包含了一個完整的循環結構。要注意以下事項：1.內循環變量與外循環變量不能同名；2.外循環必須完全包含內循環，不能交叉；3.不能從循環體外轉向循環體內，反之則可以。例7：打印九九乘法表. Fo

17、r i = 1 To 9 For j = 1 To 9 se = j & & i & = & i * j Picture1.Print Tab(j - 1) * 9 + 1); se; Next j Picture1.Print Next i思考：打印上三角或下三角程序如何改動？要打印下三角?例8：求100以內素數。 素數是一個大于2，且不能被1和本身以外的整數整除的整數。 判別某數m是否為素數最簡單的方法是: 對于m 從 i=2，3，m-1判別m能否被i整除，只要有一個能整除，m不是素數，否則m是素數。 For m = 2 To 100 For i = 2 T

18、o m - 1 If(m Mod i)=0 Then GoTo N1 Next i Print mN1: Next m思考： 此例用Go To語句對非素數不作判斷，若不用GoTo語句，如何修改程序？ For.toNextDo while/until.Loopdo.Loop While/until.循環類型當型循環當型循環直到循環循環控制條件循環變量大于或小于終值條件成立/不成立執行循環條件成立/不成立執行循環循環變量初值在 FOR 語句行中在 DO 之前在 DO 之前使循環結束For 語句中無需專門語句必須用專門語句必須使用專門語句使用場合循環次數容易確定循環/結束控制條件易給出循環/結束控制

19、條件易給出幾種循環語句比較:其他輔助控制語句: 1.Go To 語句 形式:Go To 標號|行號 作用:無條件地轉移到標號或行號指定的那行語句，標號是一個字符序列,行號是一個數字序列.2.Exit語句形式:Exit For、Exit Do、Exit Sub、Exit Function等。作用:退出某種控制結構的執行。Private Sub Form_Click()Private Sub Form_Click()Dim I%, Num%Dim I%, Num% Do Do 建立無窮循環。建立無窮循環。 For I = 1 To 100 For I = 1 To 100 循環循環 100 100 次。次。 Num = Int(Rnd Num = Int(Rnd * * 100) 100) 生成一個生成一個0 0 99 99的隨機數。的隨機數