1、關于(guny)數據類型的說明 整型 Integer 符號表示(biosh)： % 長整型 Long 符號表示(biosh)： & 單精度 Single 符號表示(biosh)： ! 雙精度 Double 符號表示(biosh)： # 字符串 String 符號表示(biosh)： $第1頁/共27頁第一頁，共28頁。常量(chngling)和變量 常量的聲明常量的聲明 const a=10 const a=10 變量的聲明變量的聲明 Dim x as single Dim x as single 通用聲明處只能進行通用聲明處只能進行(jnxng)(jnxng)常量和變量的聲明，不能進

2、行常量和變量的聲明，不能進行(jnxng)(jnxng)變量的變量的賦值。變量的賦值應放在事件過程中。賦值。變量的賦值應放在事件過程中。 Private Sub Form_Click() Private Sub Form_Click() 不可放在通用聲明處不可放在通用聲明處 End Sub End Sub第2頁/共27頁第二頁，共28頁。運算符 (乘方乘方 ) * / (乘乘 除除) （整除（整除(zhngch)） Mod （取余數（取余數 ） 字符連接運算符字符連接運算符 + &優先優先級級運算運算符符含義含義1 1 冪冪2 2 - -負數負數3 3* *、/ /乘、除乘、除4 4

3、整除整除5 5ModMod取模取模6 6+ +、- -加、減加、減第3頁/共27頁第三頁，共28頁。隨機函數:產生一個在區間(q jin) a,b范圍內的隨機整數公式 dim x% x=int (b-a+1）*Rnd+a)取絕對值 abs(x)計算e 的x次方 exp(x)求X的平方根， sqr(x)Int(x), fix(x), round(x)val(x)，str(y)Trim(s), Left(s,n), right(s,n), mid(s,n1,n2)常用(chn yn)函數第4頁/共27頁第四頁，共28頁。常用(chn yn)控件的屬性l 窗體 caption MaxButton M

4、inButton caption MaxButton MinButtonl 文本框 (text MaxLength , PasswordChar MultiLine) (text MaxLength , PasswordChar MultiLine) 文本框沒有caption caption 屬性l 按鈕： caption , Cancel ,default, Style caption , Cancel ,default, Style l 標簽： caption caption l 框架(kun ji)(kun ji)： 先繪制框架(kun ji)(kun ji)再在其中放置其他對象第5頁/

5、共27頁第五頁，共28頁。順序(shnx)結構的說明順序結構就是程序的執行順序就是語句的書寫順序inputbox函數的使用(shyng) n=val(inputbox(“ ”) 其中紅色部分是必須的Msgbox 函數和Msgbox語句的區別第6頁/共27頁第六頁，共28頁。關于(guny)print的說明 對象.print 字符串 在print 中只能出現(chxin)逗號或者分號 Tab(n) 確定圖形的輸出位置 Spc(n)輸出字符之間加入幾個空格第7頁/共27頁第七頁，共28頁。選擇(xunz)結構單分支單分支(fnzh)(fnzh)結構結構格式格式1: 1: IF IF 條件條件 TH

6、EN THEN 語句語句格式格式2: 2: IF IF 條件條件 THEN THEN 語句語句 END IF END IF 輸入三個任意整數，將這三個數按由大到小排輸入三個任意整數，將這三個數按由大到小排序后輸出。序后輸出。提示：如果提示：如果A B,A B,則交換則交換A A和和B B的值的值 ；如果如果AC,AC,則交換則交換C C和和A A的值的值 ； 如果如果BC,BC,則交換則交換C C和和B B的值的值 。第8頁/共27頁第八頁，共28頁。關于選擇結構(jigu)的用法雙分支雙分支(fnzh)(fnzh)結構結構 IF IF 條件條件 THEN THEN 語句語句1 1 ELSE

7、ELSE 語句語句2 2 END IF END IF 第9頁/共27頁第九頁，共28頁。多分支多分支(fnzh)(fnzh)結構結構 IF IF 條件條件1 THEN 1 THEN 語句語句1 1 ELSEIF ELSEIF 條件條件2 THEN2 THEN 語句語句2 2 ELSEIF ELSEIF 條件條件3 THEN3 THEN 語句語句3 3 . . ELSE ELSE 語句語句N N END IF END IF 第10頁/共27頁第十頁，共28頁。常見(chn jin)的條件倍數關系倍數關系if x mod 5=0 if x mod 5=0 個位個位(gwi)(gwi)是是3 3的數

8、字的數字if x mod10=3if x mod10=3假設假設X X是一個四位數，其個、十、百、千位上的數據提取方法為：是一個四位數，其個、十、百、千位上的數據提取方法為：x mod 10, x10 mod 10 ,x100 mod 10, x1000 x mod 10, x10 mod 10 ,x100 mod 10, x1000滿足條件求個數滿足條件求個數z=z+1z=z+1滿足條件求數的和滿足條件求數的和sum=sum+xsum=sum+x第11頁/共27頁第十一頁，共28頁。循環(xnhun)結構 計數型循環 （循環次數(csh)已知） for 循環變量=初值 to 終值 step

9、步長 語句 . next 循環變量 其中 step 步長 可缺省，則步長是1第12頁/共27頁第十二頁，共28頁。數組先聲明再使用數組元素(動態數組的聲明)Dim a(1 to 10) as integerDim b%(10)對于數組的元素通過下標來引用(ynyng) 在數組中數組元素的產生和輸出都要在FOR循環中實現第13頁/共27頁第十三頁，共28頁。數組1 1、交換(jiohun)(jiohun)（1/61/6交換(jiohun)/(jiohun)/首尾交換(jiohun)(jiohun)） 假設有1010個數組元素第14頁/共27頁第十四頁，共28頁。求最大、最小值的問題(wnt)(w

10、nt)分3大部分編寫代碼：1、用FOR循環產生(chnshng)并輸出數組元素（輸出時的格式控制）2、取出數組中的第一個元素的值給變量MAX和MIN3、再用一個 FOR循環進行比較第15頁/共27頁第十五頁，共28頁。根據條件求解(qi ji)(qi ji)的問題分2大部分編寫(binxi)代碼：1、用FOR循環產生并輸出數組元素2、再用一個 FOR循環進行比較條件的測試，看是否滿足條件，再來做相應的處理。第16頁/共27頁第十六頁，共28頁。 設有聲明語句 Dim b(-1 To 10, 2 To 9, 20) As Integer, 則數組b中全部(qunb)元素的個數是 語句Dim A&

11、amp;(10),B#(10,5)定義了兩個數組，其類型分別為第17頁/共27頁第十七頁，共28頁。 編寫命令按鈕計算的單擊事件(shjin)過程。 要求在文本框1中輸入n的值，單擊命令按鈕，求10+31+52+73+(2n-1) (n-1)的值，并將結果放入標簽2中。結果為長整型。 將窗體文件和工程文件分別保存在K盤根目錄上第18頁/共27頁第十八頁，共28頁。 編寫命令按鈕“計算”的單擊事件過程。要求在文本框1中輸入(shr)n的值，單擊命令按鈕，求1/2+2/3+3/5+4/8+5/12前n項的和，并將結果放入標簽2中。結果為單精度型。 (3)將窗體文件和工程文件分別以和保存在K盤根目錄

12、上。第19頁/共27頁第十九頁，共28頁。編程求：s= 1+1/2 +1/4 +1/7 +1/11 +1/16 +1/22 +1/29 ，直到最后(zuhu)一項的絕對值小于0.00001 為止。第20頁/共27頁第二十頁，共28頁。Dim s As SingleD i m i A s IntegerD i m m A s IntegerDim t As Singlet = 1s = 0i = 0n = 1 參考(cnko)程序 s = s + t i = i + 1 n = n + i t = 1 / n Loop Print s第21頁/共27頁第二十一頁，共28頁。 一個富翁(fwng)

13、試圖與陌生人做一筆換錢生意，換錢規則為：陌生人每天給富翁(fwng)10萬元錢，直到滿30天，而富翁(fwng)一天給陌生人1分錢，第二天2分，第三天4分，,富翁(fwng)每天給陌生人的錢是前一天的2倍，直到滿一個月，分別顯示他們相互給的錢的金額？第22頁/共27頁第二十二頁，共28頁。Private Sub Form_Click()Dim i%, s&, x&x = 1For i = 1 To 30s = s + xx = 2 * xNextPrint 富翁(fwng)給陌生人的錢為; x / 1000000; 萬元Print 陌生人給富翁(fwng)的錢為; 30 * 1

14、0; 萬元End Sub第23頁/共27頁第二十三頁，共28頁。 隨機產生20個學生的成績，統計各分數段人數，即0-59，60-69，70-79，80-89、90-100，并顯示結果，產生的數據在picture1顯示，統計結果在picture2顯示. 分析：本程序有兩個事件過程，都要用到存放20個學生的數組，因此學生成績數組在通用(tngyng)聲明段聲明，在command2事件過程中聲明一個數組 s(5 to 9),分別存放分數段的人數第24頁/共27頁第二十四頁，共28頁。Private Sub Command1_Click()Dim i%RandomizeFor i = 1 To 20

15、a(i) = Int(101 * Rnd) Picture1.Print a(i);NextEnd Sub第25頁/共27頁第二十五頁，共28頁。Private Sub Command2_Click()Dim s(5 To 9) As Integer, i%, k%For i = 1 To 20k = a(i) 10Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 9 To 10 s(9) = s(9) + 1 Case 6 To 8 s(k) = s(k) + 1 存放其他3個分數段的數組元素的下標有規 律，根據K獲得(hud)End SelectNext iFor i = 5 To 9 Picture2.Print s( & i & )的人數有; s(i); 個NextEnd Sub第26頁/共27頁第二十六頁，共28頁。感謝您的觀看(gunkn)！