【正文】 打開通用對(duì)話框， Open For Input As 1 39。命令按鈕的功能是：“打開文件”——彈出打開文件對(duì)話框，默認(rèn)打開文件的類型“文本文件”。Private Sub Command1_Click() Dim s As String ,n As Integer ,i As Integer ,c As String n=Len( ) For i = 1 To n c=Mid(,i,1)If c = A And c= Z Or c = a And c= z Then s = s + cEnd If Next i Print sEnd Sub統(tǒng)計(jì)每類字符的個(gè)數(shù) 例題：在文本框中輸入一個(gè)字符串，比如：A$m4Champ。 a(i) amp。 方法1：（數(shù)值型：使用運(yùn)算符Mod 和 \） Private Sub Command1_Click() Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999 a=i\100 ’取百位數(shù) b=i\10 Mod 10 ’取十位數(shù) c=i Mod 10 ’取個(gè)位數(shù) If i=a^3+b^3+c^3 Then = amp。Sum。如圖所示： 根據(jù)題目要求，所編寫程序如下： （2） ，文件有10個(gè)數(shù)據(jù)：123 521 362 821 400 300 710 990 120 500. 請(qǐng)?jiān)贔orml的窗體上畫一個(gè)文本框，名稱為Text1，能顯示多行；在畫一個(gè)命令按鈕，名稱為Cl，標(biāo)題為“存盤”。 \文件名() For Output(Append) As 文件號(hào)(1) Print 文件號(hào),變量 Close 文件號(hào) 注意：當(dāng)寫文件以O(shè)utput方式時(shí)，原來的文件內(nèi)容將被覆蓋；當(dāng)寫文件以Append方式時(shí)，新的文件內(nèi)容將被添加到文件尾部； ★ 如果源文件是數(shù)值類型，那么讀寫文件如下所示： Dim a(10) As Integer Open amp。 ★ 鼠標(biāo)事件（按下鼠標(biāo)鍵事件過程） 主要事件有：Form_MouseDown 、 Form_MouseUp 和 Form_MouseMove。 B組語(yǔ)句輸出結(jié)果： 代入A組語(yǔ)句的結(jié)果： 知識(shí)點(diǎn)10： 過程與函數(shù)： ★ 過程與函數(shù)的參數(shù)類型有：實(shí)參和形參；傳遞方式有：值傳遞和地址傳遞。u A. 3 6 14 B. 14 6 3 C. 14 3 6 D. 16 4 3 分析： A組語(yǔ)句和B語(yǔ)句都在X循環(huán)內(nèi)，并且是并列的，所以可以先計(jì)算B組語(yǔ)句，A組語(yǔ)句暫時(shí)不算，這樣很容易求出u=u+1語(yǔ)句循環(huán)了三次，則u=3；C組語(yǔ)句和D語(yǔ)句都在Y循環(huán)內(nèi)，并且是并列的，所以可以先計(jì)算D組語(yǔ)句，C組語(yǔ)句暫時(shí)不算，這樣也比較容易求出t=t+1語(yǔ)句循環(huán)了六次，則t=6；然后再結(jié)合答案很快就能得出答案是選B。選擇結(jié)構(gòu)語(yǔ)句（Select Case語(yǔ)句）：Select Case 測(cè)試表達(dá)式 Case 表達(dá)式列表1 語(yǔ)句塊1 Case 表達(dá)式列表2 語(yǔ)句塊2 ?！?Mid(x,n1,n2) 從字符串x左邊第n1個(gè)位置開始向右起取n2個(gè)字符 Mid(x,n) 從字符串x左邊第n個(gè)位置開始向右全部取 Mid(ABCDEFG,3,2)= CD Mid(ABCDEFG,3)= CDEFG★ Instr(n,s1,s2) 從字符串s1的第n個(gè)位置起查找s2在s1中位置，如果n省略，則默認(rèn)從字符串s1的第1個(gè)位置起查找s2在s1中位置 Instr (2,ABCDEFG,CD)=3 知識(shí)點(diǎn)5： 運(yùn)算符： ★ 算術(shù)運(yùn)算符 運(yùn)算符的優(yōu)先級(jí)： ^ (* /) \ Mod (+ ) ★ 關(guān)系運(yùn)算符 = = = Like Is 運(yùn)算符優(yōu)先級(jí)相同 ★ 邏輯運(yùn)算符 運(yùn)算符的優(yōu)先級(jí)：Not And Or Xor Eqv 例題： （1） 表達(dá)式4 + 5 \ 6 * 7 / 8 Mod 9 的值是 B A．4 B. 5 C. 6 D. 7 （2） a=3 b=2 c=1 求 Print abc 的結(jié)果？ 首先ab的結(jié)果是true,然后再Print Truec 此時(shí)True需要轉(zhuǎn)換成1再比較，Print 11 結(jié)果是False，所以整個(gè)輸出結(jié)果是False。 ★ chr(x) 返回以x為Asccii代碼值的字符 chr(97)= ”a”。 （9）計(jì)時(shí)器(Timer1)： Enabled屬性：Enabled屬性值為True時(shí)，表示計(jì)時(shí)器可以走動(dòng)；Enabled屬性值為False時(shí)，表示計(jì)時(shí)器停止走動(dòng)； Interval屬性：是表示計(jì)時(shí)器運(yùn)動(dòng)的時(shí)間間隔，單位為毫秒。 （7）圖片框和圖像框(Picture1和Image1): 圖片框(Picture1)：Authorize屬性值為True時(shí)，表示圖片框大小隨圖片大小改變而改變；Authorize屬性值為False時(shí)，表示圖片框只能部分顯示大圖片。=False可以用，=True不可用(因?yàn)門rue只能轉(zhuǎn)化數(shù)值－1而不是1)。SelStart屬性是表示選中文本框中字符或光標(biāo)之前的字符數(shù)：。 B．Visual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語(yǔ)句。（2） 各種控件之間有部分相同的屬性，并不是擁有所有屬性。 C．窗體文件包含該窗體及其控件的屬性。（2） Visual Basic應(yīng)用程序可以以解釋方式執(zhí)行和編譯方式執(zhí)行。 D．事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)。 C．可以在運(yùn)行期間改變對(duì)象的Name屬性的值。Password屬性表示口令輸入，可以是“*”或“？”等。 Cancel屬性：當(dāng)一個(gè)命令按鈕的Cancel屬性為True時(shí)，按ESC鍵和單擊該命令按鈕的效果相同。RemoveItem 索引 索引可以是數(shù)字0、1…,變量i。 （8）滾動(dòng)條(HScroll1)： Max和Min屬性是分別表示滾動(dòng)條的最大和最小刻度，刻度值用Value屬性值來表示：。Exp(x) 1 n0 ★ Sqn(n)= 0 n=0 ★ Rad()X=Int(Rnd*(上界—下界+1))+下界（產(chǎn)生隨機(jī)整數(shù)） 轉(zhuǎn)換函數(shù)： ★ Str(x) 數(shù)值x轉(zhuǎn)換成字符串 str()=” ” 。Int(x) 取小于等于x的最大整數(shù) 當(dāng)x0時(shí)，用法和Fix一樣；當(dāng)x0時(shí)，Int()= 13。 Else 語(yǔ)句塊n End If 其中，條件可以是：關(guān)系表達(dá)式(a5)、邏輯表達(dá)式(a5 And c4)、變量(i)或常數(shù)(0)。 ② Do While 條件 循環(huán)體 LoopDo 循環(huán)體Loop Until 條件 Do Until 條件 循環(huán)體 Loop 注意：左邊上下兩種循環(huán)是先判斷條件后執(zhí)行循環(huán)體，右邊上下兩種循環(huán)是不管條件成立與否都至少執(zhí)行一次；While循環(huán)是條件成立執(zhí)行循環(huán)體，Until循環(huán)是條件不成立執(zhí)行循環(huán)體。 Dim a as Variant a=Array(1,2,3,4,5) 因此：a(0)=1 a(1)=2 a(2)=3 a(3)=4 a(4)=5 ★ 注意：如果數(shù)組被定義為一下三種類型，(1) 數(shù)值型 (2) 字符型 (3)邏輯型 ，則它們初始化的數(shù)組元素?cái)?shù)值分別為：0 、空字符串和False 。 例題： （1） 假定有如下的Sub過程： Sub S(x As Single, ByVal y as Single) t=x x=t/y y=t Mod y End Sub 在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Single, b As Single a=5:b=4 S a,b Print a,b End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為_____C_____。③ 二進(jìn)制訪問：必須知道數(shù)據(jù)是如何寫入文件的。請(qǐng)?jiān)贔orml的窗體上畫一個(gè)文本框，名稱為Text1，能顯示多行；在畫一個(gè)命令按鈕，名稱為Cl，標(biāo)題為“存盤”?！白钚?shù)：”。 Private Sub Command1_Click() Dim n As Integer ,i As Integer j As Integer For n = 100 To 200 For i = 2 To n1 ’n1可以是n/2,也可以是Sqr(n)形式 If n Mod i =0 Then Exit For Next i