【正文】 關(guān)鍵字等原因產(chǎn)生 。 2. 制作安裝盤(pán) ? 在向?qū)У闹笇?dǎo)下運(yùn)行 V “ Package amp。 2. 在工程中添加現(xiàn)存的窗體時(shí)，只是對(duì)該窗體文件的引用納入工程。 窗體 1：列表框選擇數(shù)據(jù)、標(biāo)簽顯示數(shù)據(jù)、文本框輸入數(shù)據(jù)； 窗體 2：圖形框顯示房屋的平面圖。 Spc(6)。 Tab(n)函數(shù)：左端開(kāi)始右移動(dòng) n列，允許重復(fù)使用。該屬性在設(shè)計(jì)時(shí)無(wú)效。 ? Text2_ LostFocus 當(dāng)輸入結(jié)束按 Tab鍵時(shí)，該事件激發(fā)。 例 復(fù)制選中的文本 ? Change：當(dāng)改變文本框的 Text屬性時(shí)會(huì)引發(fā)該事件。 H 0 0 F F F F F F amp。 11. Alignment屬性 控件上正文水平對(duì)齊方式 0：正文左對(duì)齊 ； 1：右對(duì)齊； 2：居中。 6. Font屬性 Fontname：字體； Fontsize：字體大小； Fontbold：是否是粗體； Fontitalic：是否斜體； Fontstrikethru：是否加一刪除線。 建立簡(jiǎn)單的應(yīng)用程序 以 例 ： 1. 建立用戶(hù)界面的對(duì)象； 2. 對(duì)象屬性的設(shè)置； 3. 對(duì)象事件過(guò)程及編程； 4. 程序運(yùn)行和調(diào)試； 5. 保存文件。 VB中常用的對(duì)象有：窗體、控件等。 6. 工具箱 (toolbox)窗口 顯示各種控件的制作工具，供用戶(hù)在窗體上設(shè)計(jì)。 6. Active技術(shù) 。 轉(zhuǎn)換規(guī)則： ? 大寫(xiě)字母轉(zhuǎn)換成小寫(xiě)字母， ? 小寫(xiě)字母轉(zhuǎn)換成大寫(xiě)字母 ? 空格不轉(zhuǎn)換 ? 其余轉(zhuǎn)換成 “ *” 。 VB主要功能和 特點(diǎn) 1. 具有面向?qū)ο蟮目梢暬O(shè)計(jì)工具 。 VB集成開(kāi)發(fā)環(huán)境 工具箱工程窗口屬性窗口窗體布局立即窗口窗體窗口1. 主窗口 應(yīng)用程序窗口，由標(biāo)題欄、菜單欄和工具欄組成。 程序 = 算法 +數(shù)據(jù)結(jié)構(gòu) 的面向過(guò)程的程序設(shè)計(jì)。 （ 3）事件 響應(yīng)對(duì)象的動(dòng)作稱(chēng)為事件，它發(fā)生在用戶(hù)與應(yīng)用程序交互時(shí)。 2. Caption標(biāo)題屬性 該屬性決定了控件上顯示的內(nèi)容。 7. Forecolor前景顏色屬性 設(shè)置控件的前景顏色（即正文顏色 ).。 決定了按 Tab鍵時(shí)，焦點(diǎn)在各個(gè)控件移動(dòng)的順序。 ， B o r d er S t y l e = 0 標(biāo)題圖標(biāo)控制菜單框最小化按鈕 最小化按鈕邊框樣式二 .窗體 Caption標(biāo)題 MaxButton、 MinButton Icon、 ControlBox Picture、 AutoRedraw BorderStyle （ 0 1 2 3 4 5 ） WindowsState （ 0正常、 1最小化、 2最大化） Click、 DblClick和 Load Load 當(dāng)裝入窗體時(shí)激發(fā)，通常用于 對(duì)屬性和變量初始化 Print、 Cls和 Move等 例 上述屬性、 Click、 DblClick和 Load 事件演示。 ? LostFocus：當(dāng)控件失去焦點(diǎn)時(shí)發(fā)生。 五、命令按鈕 CommandButton 接受用戶(hù)輸入的命令。 ? ToolTipText ：設(shè)置工具提示，和 Picture結(jié)合使用。 無(wú) ；， 時(shí)換行。 注意：不清除在設(shè)計(jì)時(shí)的文本和圖形。 ? 窗體的二進(jìn)制數(shù)據(jù)文件 (.frx)，自動(dòng)產(chǎn)生同名 .frx文件 。但是，如果在 VB之外刪除一個(gè)窗體文件， VB不能更新此工程文件，當(dāng)打開(kāi)此工程時(shí)，將顯示一個(gè)文件丟失的錯(cuò)誤信息。 3. 檢測(cè)安裝程序 在沒(méi)有 VB ，執(zhí)行安裝盤(pán)中的 ，將發(fā)行盤(pán)進(jìn)行安裝。這類(lèi)錯(cuò)誤往往是指令代碼執(zhí)行了一非法操作引起的。 ? 中斷模式 [中斷 ] 當(dāng)在運(yùn)行模式，按了“中斷”命令或當(dāng)程序出現(xiàn)運(yùn)行時(shí)錯(cuò)誤時(shí)進(jìn)入中斷模式。 3. 對(duì)象名稱(chēng) (Name)屬性寫(xiě)錯(cuò) Text Text Command1 txtInput、 txtOutput、 cmdOk 4. 對(duì)象的屬性名、方法名、標(biāo)準(zhǔn)函數(shù)名寫(xiě)錯(cuò) 盡量使用自動(dòng)列出成員功能。 常量：在程序運(yùn)行中其值不可以改變。 例： vbNormal vbMinimized、 vbbCrLf等 運(yùn)算符和表達(dá)式 一、運(yùn)算符 1. 算術(shù)運(yùn)算符 例： 5+10 mod 10 \ 9 / 3 +2 ^2 結(jié)果： 10 2. 字符串運(yùn)算符 ＆ 、 + 字符串連接 123 + 456 結(jié)果 123456 123 amp。 結(jié)果為 579 注意 ： 123 + True 39。例 x 乘以 y 應(yīng)寫(xiě)成： x*y。 StrConv() 進(jìn)行 DBCS與 Unicode之間轉(zhuǎn)換。 Format(Now, yyyy年 m月 dd日 hh： mm) Print FormatDateTime(Now) 39。 一般用于給變量賦值或?qū)丶O(shè)定屬性值。 常 見(jiàn) 錯(cuò) 誤 數(shù)據(jù)合法性檢查中引起程序的死循環(huán) Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then Text1 = End If End Sub Private Sub Text2_LostFocus() If Not IsNumeric(Text2) Then Text2 = End If End Sub If Text2 And Not IsNumeric(Text2) Text2 Text1 確定 選 擇 結(jié) 構(gòu) 1. If… Then語(yǔ)句 (單分支結(jié)構(gòu) ) If 表達(dá)式 Then 語(yǔ)句塊 End If 或 If 表達(dá)式 Then 語(yǔ)句 例： 已知兩個(gè)數(shù) x和 y，比較它們的大小， 使得 x大于 y. If xy Then t=x x=y y=t End If 或 If xy Then t=x: x=y: y=t 重要的是學(xué)會(huì)兩個(gè)數(shù)的交換，若上述語(yǔ)句次序變一下，結(jié)果如何？ 2. If… Then… Else語(yǔ)句 (雙分支結(jié)構(gòu) ) If 表達(dá)式 Then 語(yǔ)句塊 1 Else 語(yǔ)句塊 2 End If If 表達(dá)式 Then 語(yǔ)句 1 Else 語(yǔ)句 2 計(jì)算分段函數(shù)： y x x xx x x x? ? ? ?? ? ??????s i nc o s231 03 0單分支結(jié)構(gòu)實(shí)現(xiàn)： y=cos(x)－ x^3+3*x If x0 Then y=sin(x)+sqr (x*x+1) 雙分支結(jié)構(gòu)實(shí)現(xiàn)： If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－ x^3+3*x End If 3. If… Then… ElseIf語(yǔ)句 (多分支結(jié)構(gòu) ) 形式： If 表達(dá)式 1 Then 語(yǔ)句塊 1 ElseIf 表達(dá)式 2Then 語(yǔ)句塊 2 … [Else 語(yǔ)句塊 n+1 ] End If 例 已知變量 strC中存放了一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。 返回 72 例 ，要求給出一系列的 1～ 10的操作數(shù)和運(yùn)算符，學(xué)生輸入該題的答案，計(jì)算機(jī)根據(jù)學(xué)生的答案判斷正確與否，當(dāng)結(jié)束時(shí)給出成績(jī)。 例程序段： For i=2 To 13 Step 3 循環(huán)執(zhí)行次數(shù) Print i , 輸出 i的值分別為 : Next i 2 5 8 11 Print : Print “I=“, i 出了循環(huán)輸出為 : I=14 ? 在循環(huán)體內(nèi)對(duì)循環(huán)控制變量可多次引用；但最好不要對(duì)其賦值，否則影響原來(lái)的循環(huán)控制規(guī)律。 分析：解此問(wèn)題兩種方法 ， 可根據(jù)公式： 26=13*(1+)n 直接利用標(biāo)準(zhǔn)對(duì)數(shù)函數(shù)求得；也可利用循環(huán)求得 ， 程序如下： Private Sub Command1_Click() x = 13 n = 0 Do While x 26 x = x * n = n + 1 Loop Print n, x End Sub 例 輾轉(zhuǎn)相除法求 兩自然數(shù) m， n的最大公約數(shù)和最小公倍數(shù)。 Next j Next i 思考： 打印上三角或下三角程序如何改動(dòng)？要打印下三角 ? For j = 1 To i For ii =1 To 10 For jj=1 To 20 … Next ii Next jj For ii =1 To 10 For ii=1 To 20 … Next ii Next ii For ii =1 To 10 For jj=1 To 20 … Next jj Next ii For ii =1 To 10 … Next ii For ii =1 To 10 … Next ii 對(duì)于循環(huán)的嵌套，要注意以下事項(xiàng)： ?內(nèi)循環(huán)變量與外循環(huán)變量不能同名； ?外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； ?不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，反之則可以。, t!, e! e = 0 : n = 1 ? e存放累加和、 n存放階乘 i = 0 : t = 1 ? i計(jì)數(shù)器、 t第 i項(xiàng)的值 Do While t e = e + t : i = i + 1 ? 累加、連乘 n = n * i : t = 1 / n Loop Print 計(jì)算了 。 現(xiàn)在有 100元錢(qián)要求買(mǎi) 100只雞 ， 編程列出所有可能的購(gòu)雞方案 。 小猴在某天摘桃若干個(gè) ， 當(dāng)天吃掉一半多一個(gè)；第二天吃了剩下的桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè) ，到第 7天要吃時(shí)只剩下一個(gè) ， 問(wèn)小猴共摘下了多少個(gè)桃子 ？ 分析：這是一個(gè) “ 遞推 ” 問(wèn)題 ， 先從最后一天推出倒數(shù)第二天的桃子 ， 再?gòu)牡箶?shù)第二天的桃子推出倒數(shù)第三天的桃子