過程與變量作用域程序設(shè)計(jì)講解課件

1、過程與變量作用域程序設(shè)計(jì)講解過程與變量作用域程序設(shè)計(jì)講解 掌握VB程序的結(jié)構(gòu)，和各模塊之間的區(qū)別。 掌握在VB中過程建立位置的改變，其作用范圍的改變。 掌握變量的作用域和變量生存期之間的關(guān)系。實(shí)驗(yàn)?zāi)康? 掌握VB程序的結(jié)構(gòu)，和各模塊之間的區(qū)別。實(shí)驗(yàn)?zāi)康膶?shí)驗(yàn)要求 要求完成實(shí)驗(yàn)任務(wù) 通過實(shí)驗(yàn)加強(qiáng)過程和變量作用域的理解實(shí)驗(yàn)任務(wù) 1.正確使用靜態(tài)變量 2.數(shù)組的合并 3.“井字棋游戲”程序設(shè)計(jì)3實(shí)驗(yàn)要求 要求完成實(shí)驗(yàn)任務(wù)5實(shí)驗(yàn)步驟 一、靜態(tài)變量的使用 1. 實(shí)驗(yàn)?zāi)康?掌握靜態(tài)變量的作用。 2. 實(shí)驗(yàn)內(nèi)容 【實(shí)驗(yàn)9-1】利用文本框檢查用戶的口令，使用靜態(tài)變量來限制輸入口令的次數(shù)。 3. 創(chuàng)建應(yīng)用程序界面

2、(如下圖)4實(shí)驗(yàn)步驟64. 控件屬性的設(shè)置對(duì)象屬性屬性值說明Frame1Caption請(qǐng)輸入你的口令用于對(duì)文本框進(jìn)行提示Text1Text用于存放用戶輸入的口令PasswordChar*進(jìn)行密碼顯示Label1Caption標(biāo)簽的內(nèi)容窗體1CaptionVB實(shí)驗(yàn)9-1用于窗體的標(biāo)題54. 控件屬性的設(shè)置對(duì)象屬性屬性值說明Frame1Capti效果如下圖：6效果如下圖：8(5)代碼參考（VB實(shí)驗(yàn)9-1)Private Sub Text1_KeyPress(KeyAscii As Integer) Static n As Integer If KeyAscii = 13 Then If LCase

3、(Text1.Text) = abcde Then MsgBox 密碼輸入正確 Else n = n + 1 If n = 3 Then Label1.Caption = “對(duì)不起,你無權(quán)使用?！?Text1.Enabled = False7(5)代碼參考（VB實(shí)驗(yàn)9-1)9 Else Label1.Caption = “對(duì)不起，口令錯(cuò) 誤！重新輸入 End If End If End IfEnd Sub輸出結(jié)果8 Else輸出結(jié)果10二、數(shù)組合并1. 實(shí)驗(yàn)?zāi)康?掌握過程的定義和使用2. 實(shí)驗(yàn)內(nèi)容【實(shí)驗(yàn)9-2】將兩個(gè)數(shù)組按升序排列后， 合并成一個(gè)仍按升序排列的新數(shù)組。3.要求： (1) 當(dāng)窗體

4、運(yùn)行時(shí)隨即生成兩個(gè)在100以內(nèi)的數(shù)組a和b；并將其按升序排列后分別顯示在label1和label2中； (2) 數(shù)組a有6個(gè)元素，數(shù)組b有4個(gè)元素；9二、數(shù)組合并11 (3) 點(diǎn)擊命令按鈕“合并”時(shí)，將數(shù)組a和數(shù)組b合并生成數(shù)組c并將其按序排列后顯示在label3中； (4) 編寫多個(gè)過程來實(shí)現(xiàn)數(shù)組的生成、排序及合并。4. 創(chuàng)建應(yīng)用程序界面(如下圖)10 (3) 點(diǎn)擊命令按鈕“合并”時(shí)，將數(shù)組a和數(shù)組b合并5. 控件屬性的設(shè)置控件（名稱）屬性標(biāo)題(Caption)框架1Frame1數(shù)組a標(biāo)簽1label1顯示a數(shù)組框架2Frame2數(shù)組b標(biāo)簽2label2顯示b數(shù)組框架3Frame3數(shù)組c標(biāo)簽

5、3label3顯示c數(shù)組命令按鈕1Command1合并窗體1Form1實(shí)驗(yàn)9-2115. 控件屬性的設(shè)置控件（名稱）屬性標(biāo)題(Caption)框效果如下圖：12效果如下圖：146.代碼參考（VB實(shí)驗(yàn)9-2)Dim a(), b(), c()Private Sub sc(x() For i = 1 To UBound(x) Do z = Int(Rnd * 90) + 1 yes = 0 For j = 1 To i - 1 If z = x(j) Then yes = 1: Exit For Next j Loop While yes = 1 x(i) = zNext iEnd Sub136.

6、代碼參考（VB實(shí)驗(yàn)9-2)Next i15Private Sub px(x() n = UBound(x) For i = 1 To n - 1 For j = i + 1 To n If x(i) x(j) Then t = x(i) x(i) = x(j) x(j) = t End If Next j Next iEnd Sub14Private Sub px(x()16 Private Function xs(x() n = UBound(x) p = x(1) For i = 2 To n p = p & , & Str(x(i) Next i xs = pEnd FunctionPr

7、ivate Function fr(x() fr = x(1) n = UBound(x) For k = 1 To n - 1 x(k) = x(k + 1) Next k ReDim Preserve x(n - 1)End Function15 Private Function xs(x() ForPrivate Sub Command1_Click() n = UBound(a) m = UBound(b) ReDim c(n + m) For i = 1 To n + m If UBound(b) = 0 Then c(i) = fr(a() ElseIf UBound(a) = 0

8、 Then c(i) = fr(b() ElseIf b(1) = a(1) Then c(i) = fr(b() ElseIf a(1) = b(1) Then c(i) = fr(a() End If Next i Label3.Caption = LTrim(xs(c()End Sub16Private Sub Command1_Click() Private Sub Form_Activate() n = 6 m = 4 ReDim a(n), b(m), c(n + m) Dim p As String Randomize sc a() : px a() Label1.Caption

9、 = LTrim(xs(a() sc b() : px b() Label2.Caption = LTrim(xs(b()End SubPrivate Sub Form_Load() AutoRedraw = TrueEnd Sub17 Private Sub Form_Activate()P7.運(yùn)行結(jié)果如圖所示187.運(yùn)行結(jié)果如圖所示20三、“#字棋游戲” 1. 實(shí)驗(yàn)?zāi)康?培養(yǎng)綜合能力 2. 實(shí)驗(yàn)內(nèi)容【實(shí)驗(yàn)9-3】“井字棋游戲”，其規(guī)則是：輪流出棋，首先三子連成線者為贏。 3. 要求： (1)根據(jù)控件數(shù)組Option1的選擇對(duì)期局進(jìn)行初始化；計(jì)算機(jī)的棋子用“X”表示，用戶的棋子用“O”表示。

10、 (2)首先三子連成線者為贏，并用Label1進(jìn)行表示。 (3)點(diǎn)擊“重置”按鈕將棋局重新開始。19三、“#字棋游戲”214. 創(chuàng)建應(yīng)用程序界面(如下圖)204. 創(chuàng)建應(yīng)用程序界面(如下圖)22控件（名稱）屬性標(biāo)題(Caption)框架1Frame1空命令按鈕1Command1重置命令按鈕2是控件數(shù)組Command2空單選按鈕1(0)Option1計(jì)算機(jī)先單選按鈕1(1)Option1你先窗體1Form1VB實(shí)驗(yàn)9-35.屬性設(shè)置效果如下圖：21控件（名稱）屬性標(biāo)題(Caption)框架1Frame1空命 6.代碼參考（VB實(shí)驗(yàn)9-3)Dim se1 As IntegerDim sum As

11、IntegerDim a(9) As CommandButtonPrivate Sub xuan()sum = sum + 1If sum = 2 Then se1 = IIf(a(5).Tag = 0, 5, 1)Else For i = 1 To 9 If a(i).Tag = 0 Then se1 = i: Exit For End If Next i22 6.代碼參考（VB實(shí)驗(yàn)9-3)24For i = 1 To 9 Step 2 If a(i).Tag = 0 Then se1 = i: Exit For End If Next i For i = 1 To 9 If i = 5 T

12、hen i = i + 1 End If If a(i).Tag = 0 Then If a(10 - i).Tag 0 And a(10 - i).Tag = a(5).Tag Then se1 = i: Exit For23For i = 1 To 9 Step 225 elect Case i Case 1 If (a(2).Tag 0 And a(2).Tag = a(3).Tag) Or (a(4).Tag 0 And _ a(4).Tag = a(7).Tag) Then se1 = i: Exit For End If Case 2 If a(1).Tag 0 And a(1).

13、Tag = a(3).Tag Then se1 = i: Exit For Case 324 elect Case i26 If (a(1).Tag 0 And a(2).Tag = a(1).Tag) Or (a(6).Tag 0 And a(6).Tag = a(9).Tag) Then se1 = i: Exit For End If Case 4 If a(1).Tag 0 And a(1).Tag = a(7).Tag Then se1 = i: Exit For Case 6 If a(3).Tag 0 And a(3).Tag = a(9).Tag Then se1 = i: E

14、xit For25 If (a(1).Tag 0 And a(2).T Case 7 If (a(1).Tag 0 And a(1).Tag = a(4).Tag) Or (a(8).Tag 0 And a(8).Tag = a(9).Tag) Then se1 = i: Exit For End IfCase 8 If a(7).Tag 0 And a(7).Tag = a(9).Tag Then se1 = i: Exit For Case 9If (a(7).Tag 0 And a(7).Tag = a(8).Tag) Or (a(3).Tag 0 And a(3).Tag = a(6)

15、.Tag) Then26 Case 728 se1 = I Exit For End If End Select End If Next iEnd Ifa(se1).Caption = X: a(se1).Tag = 1Call yixianEnd Sub27 se1 = I29Private Sub yixian() If a(1).Tag 0 Then Call shuying(1, 2, 3) Call shuying(1, 4, 7) Call shuying(1, 5, 9) End IfIf a(5).Tag 0 Then Call shuying(5, 2, 8) Call sh

16、uying(5, 3, 7) Call shuying(5, 4, 6)End If28Private Sub yixian()30 If a(9).Tag 0 Then Call shuying(9, 1, 5) Call shuying(9, 3, 6) Call shuying(9, 7, 8) End If If sun = 9 Then Label1.Caption = 和棋End SubPrivate Sub shuying(x, y, z) If a(x).Tag = a(y).Tag And a(y).Tag = a(z).Tag Then Label1.Caption = 您

17、 & IIf(a(x).Tag = 1, 輸了！, 贏了！)29 If a(9).Tag 0 Then31 Frame1.Enabled = False End IfEnd SubPrivate Sub Command1_Click() Call Form_ActivateEnd SubPrivate Sub Command2_Click(Index As Integer)n = Index + 1If a(n).Tag = 0 Then a(n).Caption = O30 Frame1.Enabled = False32 a(n).Tag = -1 sum = sum + 1 Call yixian If Label1.Caption = Then Call xuanEnd IfEnd SubPrivate Sub Form_Activate()sum = 0Frame1.Enabled = True31 a(n).Tag = -133For i = 1 To 9 a(i).Caption = a(i).Tag = 0Next iLabel1.Captio