VB程序設(shè)計第二章

1、VB程序設(shè)計第二章賦值語句窗體和命令按鈕數(shù)據(jù)輸入數(shù)據(jù)輸出注釋、暫停、程序結(jié)束語句賦值語句賦值語句 形式: 變量名表達(dá)式 或 對象名.屬性名表達(dá)式 一般用于給變量賦值或?qū)丶O(shè)定屬性值. 例: sRate!=0.1 Text1.Text ”歡迎使用Visual Basic 6.0” 說明：1 .當(dāng)表達(dá)式的類型與變量的類型不一致時,強(qiáng)制轉(zhuǎn)換成左邊的精度。例如：iA% = 10/3 其結(jié)果為：32 .雖然賦值號與關(guān)系運算符等于號都用“=”表示，VB系統(tǒng)會根據(jù)所處的位置自動判斷是何種意義的符號。1.屬性 Name、Caption標(biāo)題、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：當(dāng)裝入窗體時激發(fā)，通常用于對屬性和變量初始化。3.方法 Print、Cls和Show、Hide等。 1.屬性 Name、Caption、Default、Cancel、Enabled、Visible、Value、ToolTipText（設(shè)置工具提示，和Picture結(jié)合使用）等。2.事件 Click、MouseDown、MouseUp、MouseM

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

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

5、 KeyPress(KeyAscii As Integer): 同上,并可返回一個KeyAscii參數(shù)；當(dāng)KeyAscii為13時表示按回車鍵;為0時為去除剛輸入的字符。 LostFocus : 當(dāng)控件失去焦點時發(fā)生。 GotFocus : 當(dāng)控件獲得焦點時發(fā)生。 常用方法常用方法 對象.SetFocus: 是把光標(biāo)移到指定的文本框?qū)ο笾?。?. 簡單文本編輯器。例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方法輸出用消息框函數(shù)輸出用文本框控件輸出用標(biāo)簽控件輸出 Print Print方法方法 形式: 對象.PrintSpc(n)|Tab(n)表

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

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

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

10、暫停程序的執(zhí)行，相當(dāng)于在事件代碼中設(shè)置斷點。3.程序結(jié)束語句： end說明：1.Stop語句的主要作用是把解釋程序置為中斷(Break)模式，以便對程序進(jìn)行檢查和調(diào)試。可以在程序的任何地方放置Stop語句，當(dāng)執(zhí)行Stop語句時，系統(tǒng)將自動打開立即窗口。2.與End語句不同。1. IfThen語句(單分支結(jié)構(gòu)) If Then 語句塊1 Else 語句塊2 說明： 第一，語句塊中有多條語句時，各語句之間用“：”分隔。 第二，本結(jié)構(gòu)應(yīng)該在一行寫完，若寫不完，可以采用續(xù)行符。2. IfThenElse語句(雙分支結(jié)構(gòu)) If Then Else End If3. IfThenElseIf語句(多分支

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

12、不要寫成Else If。3. Select Case語句后不能出現(xiàn)多個變量；Case子句后不能出現(xiàn)變量。1. For循環(huán)語句 (一般用于循環(huán)次數(shù)已知)形式：For 循環(huán)變量初值 to 終值 Step 步長 語句塊1 Exit For 語句塊2Next 循環(huán)變量0 初值終值 =1 時,可省略終值=0 死循環(huán) 步長循環(huán)次數(shù)) 1(步長初值終值Int注意：1.循環(huán)控制變量的值 例如程序段： 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循環(huán)次數(shù)：4輸出

13、結(jié)果：2 5 8 11退出循環(huán)后：I=142.在循環(huán)體內(nèi)對循環(huán)控制變量可多次引用；但最好不要對其賦值，否則影響原來的循環(huán)控制規(guī)律。例4 計算1100的奇數(shù)和，程序段如下： 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：當(dāng)型循環(huán) Do While|Until 語句塊1 Exit Do 語句塊2 Loop2. DoLoop循環(huán)語句(用于控制循環(huán)次數(shù)未知) 條 件 F T

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

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

16、則執(zhí)行(4)； (4)mn，nr，再重復(fù)執(zhí)行(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 最大公約數(shù)=, n Print 最小公倍數(shù)=, nm/n 3.循環(huán)的嵌套:一個循環(huán)體內(nèi)又包含了一個完整的循環(huán)結(jié)構(gòu)。要注意以下事項：1.內(nèi)循環(huán)變量與外循環(huán)變量不能同名；2.外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉；3.不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，反之則可以。例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以內(nèi)素數(shù)。 素數(shù)是一個大于2，且不能被1和本身以外的整數(shù)整除的整數(shù)。 判別某數(shù)m是否為素數(shù)最簡單的方法是: 對于m 從 i=2，3，m-1判別m能否被i整除，只要有一個能整除，m不是素數(shù)，否則m是素數(shù)。 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語句對非素數(shù)不作判斷，若不用GoTo語句，如何修改程序？ For.toNextDo while/until.Loopdo.Loop While/until.循環(huán)類型當(dāng)型循環(huán)當(dāng)型循環(huán)直到循環(huán)循環(huán)控制條件循環(huán)變量大于或小于終值條件成立/不成立執(zhí)行循環(huán)條件成立/不成立執(zhí)行循環(huán)循環(huán)變量初值在 FOR 語句行中在 DO 之前在 DO 之前使循環(huán)結(jié)束For 語句中無需專門語句必須用專門語句必須使用專門語句使用場合循環(huán)次數(shù)容易確定循環(huán)/結(jié)束控制條件易給出循環(huán)/結(jié)束控制

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