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