中職Visual Basic 6.0程序設計第3章課件

1、(中職）Visual Basic 6.0程序設計第3章ppt課件Visual Basic語言基礎 【實例7】 四則運算【實例8】 按日計酬【實例9】 求一元二次方程的根【實例10】 累加求和【實例11】 打印圖案【實例12】 斐波納契數(shù)列 【實例7】 四則運算 案例效果 本實例是一個可以進行四則算術運算的程序程序中，對輸入文本框的數(shù)據可以進行加、減、乘、除和求余等數(shù)學運算。 技術分析 1. 數(shù)據的類型 數(shù)據類型關鍵字后 綴字節(jié)數(shù)取 值 范 圍字節(jié)型Byte無10255邏輯型Boolean無2True與False整型Integer%2-32768到32767，小數(shù)四舍五入長整型Long&4-2,

2、147,463,648到2,147,463,647，小數(shù)部分四舍五入單精度型Single!4負數(shù)：約-3.4E38到-1.4E-45正數(shù)：1.4E-45到3.4E38雙精度型Double#8負數(shù)：-1.8D308到-4.9D-324正數(shù)：4.9D-324到1.8D308貨幣型Currency8-922,337,203,685,477.5808到922,337,203,685,477.5807日期型Date無8100-1-19999-12-31變長字符型String$字符串長0約20億字節(jié)，1字節(jié)/字符定長字符型String*size$字符串長*size165535字節(jié)（64KB）對象型Obje

3、ct無4可供任何對象引用變體型（數(shù)值）Variant無16任何數(shù)值，最大可達Double的范圍變體型（字符）Variant無字符串長與變長度字符串有相同的范圍技術分析 2. 常量與變量 （1）常量 常量是在程序運行過程中，其值保持不變的量，例如數(shù)值、字符串等。（2）變量 變量是在程序執(zhí)行過程中其值可以變化的量。在應用程序的執(zhí)行過程中，變量用來存儲程序運行中的臨時數(shù)據。 技術分析（3）強制顯式聲明變量 Visual Basic 中并不強制使用顯式聲明，但顯式聲明變量可以有效地降低編程時因寫錯變量名、變量名沖突等引起的錯誤。（4）變體（Variant）型變量 如果在變量聲明時沒有說明變量的數(shù)據類型

4、，則該變量的數(shù)據類型將被默認為變體型變量。 技術分析3. 表達式程序設計中離不開運算，運算是依靠各種數(shù)據與運算符構成的表達式來完成的。 （1）表達式的書寫規(guī)則 （2）算術表達式 （3） 字符串表達式 （4） 關系表達式 （5）邏輯表達式 操作步驟 1. 創(chuàng)建程序界面新建一個“標準 EXE”工程，在窗體中添加七個文本框、五個命令按鈕和兩個標簽控件，按進行設置。2. 編輯程序代碼在程序代碼窗口中輸 入如下代碼。 程序代碼：Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) 計算兩數(shù)相加的和End S

5、ubPrivate Sub Command2_Click() Text4.Text = Val(Text1.Text) - Val(Text2.Text) 計算兩數(shù)相減的差End SubPrivate Sub Command3_Click() Text5.Text = Val(Text1.Text) * Val(Text2.Text) 計算兩數(shù)相乘的積End SubPrivate Sub Command4_Click() Text6.Text = Val(Text1.Text) / Val(Text2.Text) 計算兩數(shù)相除的商End SubPrivate Sub Command5_Clic

6、k() Text7.Text = Val(Text1.Text) Mod Val(Text2.Text) 計算兩數(shù)相除的余數(shù)End SubPrivate Sub Form_Load() 初始化文本框內容 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End Sub 知識進階 1. 數(shù)據類型的進一步學習（1）數(shù)值型數(shù)據 整數(shù)類型 實數(shù)類型 貨幣類型（2）字符串型數(shù)據 （3）邏輯型數(shù)據（4）日期型數(shù)據 （5）對象數(shù)據類型 （6）變體數(shù)據類型 知識進階2. 混合運算

7、中數(shù)據類型的轉變 在一個算術表達式中，如果包含各種不同類型的數(shù)值型數(shù)據，則它們運算結果的數(shù)據類型遵從下述規(guī)定。相同類型數(shù)據的運算，其運算結果的數(shù)據類型不變。但應注意運算結果不能超過該類型數(shù)據所表示的數(shù)值范圍，否則將出現(xiàn)“溢出”錯誤信息。 思考練習 1. 填空題（1）數(shù)據是 。（2）VB中數(shù)據類型的名稱以 或 開頭，變量名稱不可以超過 個字符，對象名稱不可以超過 個字符。一個漢字相當于 個字符。（3）如果沒有聲明變量的數(shù)據類型，則該變量將被默認為是 類型。（4）Not 10 -5 12 + 3 And 2 * 5 = 10 Or 6 = 3的值是 。（5）(156)Or(6=2)Xor(-30，

8、則其值為1；N=0，則其值為 0；如果N=0Sqr(64)=8，Sqr(100)=10Exp(N)Double求自然常數(shù)e（約2.718282）的冪Exp(2)=7.38905609893065Log(N)Double求N的自然對數(shù)值，N0Log(2)=0.693147180559945Sin(N)Double求N的正弦值Sin(0)=0Cos(N)Double求N的余弦值Cos(0)=1Tan(N)Double求N的正切值Tan(0)=0Atn(N)Double求N的反正切值Atn(1)=0.785398163397448Int(N)Integer求不大于N的最大整數(shù)Int(3.8)=3，I

9、nt(-3.8)=-4Fix(N)Integer將N的小數(shù)部分截去，求其整數(shù)部分Fix(3.8)=3，F(xiàn)ix(-3.8)=-3Rnd(N)Single求0N之間的一個隨機小數(shù)，N=0，即產生包括0，不包括N的隨機小數(shù)，無參數(shù)時產生01之間的隨機小數(shù)Rnd(10)產生一個010之間的隨機數(shù)，不包括10技術分析2. 字符串函數(shù) 函 數(shù) 名函數(shù)值類型功 能舉 例Asc(C)Integer求字符串中第一個字符的ASCII碼，C為空串時會產生錯誤Asc(ABC)=65Chr$(N)String求以N為ASCII碼的字符Chr(65)=AStr$(N)String將N轉換為字符串，如果N0，則返回的字符串

10、中有一個前導空格Str$(-12345)=-12345Str(12345)=12345Val(C)Double將C中的數(shù)字字符轉換成數(shù)值型數(shù)據，當遇到第一個不能被其識別為數(shù)字的字符時，即停止轉換Val(12345abc)=12345 Val(abc)=0Len(C)Long求字符串C中包含的字符個數(shù)Len(Abab字符串4)=8Ucase$(C)String將字符串C中的小寫字母轉換成大寫字母Ucase(abABab)=ABABABLcase$(C)String將字符串C中的大寫字母轉換成小寫字母Ucase(abABab)=abababSpace$(N)String產生N個空格組成的字符串Le

11、n(Space(6)=6String$(N,C)String產生N個由C指定的第一個字符組成的字符串，C可以是ASCII碼數(shù)String(6，ABC)=AAAAAAString(6，65)=AAAAAALeft(C,N)String從字符串C最左邊開始截取N個字符Left$(ABCDE，2)=ABRight$(C,N)String從字符串C最右邊開始截取N個字符Right$ (ABCDE，2)=DEMid$(C，N1，N2)String從字符串C中N1指定的起始位置處開始，截取N2個字符Mid(ABCDEF，2，3)=BCDMid(ABCDEF，2)=BCDEFLtrim$(C)String刪

12、除字符串C中前導空格Ltrim(ABC)=ABCRtrim$(C)String刪除字符串C中尾部空格Ltrim(ABC)=ABCTrim$(C)String刪除字符串C中前導和尾部空格Ltrim(ABC)=ABCStrComp(C1,C2 ,N)Integer比較字符串C1和字符串C2的大小，N是比較類型，取值0、1或2StrComp(A,B,1)=0StrComp(AB,ab,0)=-1StrComp(ab,AB,0)=1技術分析3. 日期和時間函數(shù) 函數(shù)名函數(shù)值類型功 能舉 例NowDate返回當前的系統(tǒng)日期和時間執(zhí)行Print Now后的結果為：2003-4-23 14:18:30 Da

13、te$()Date返回當前的系統(tǒng)日期執(zhí)行Print Date后的結果為：2003-4-23Time$()Date返回當前的系統(tǒng)時間執(zhí)行Print Time后的結果為：14:18:30DateSerial(年，月，日)Integer相對1899年12月30日（為0）返回一個天數(shù)值。其中的年、月、日參數(shù)為數(shù)值型表達式執(zhí)行Print DateSerial (99,06,01)- DateSerial (99,05,01) 后的結果為：31DateValue(C)Integer相對1899年12月30日（為0）返回一個天數(shù)值，參數(shù)C為字符型表達式執(zhí)行Print DateValue (99,06,01)

14、 -DateValue(99,05,01)后的結果為：31Year(D)Integer返回日期D的年份，D可以是任何能夠表示日期的數(shù)值、字符串表達式或它們的組合。其中，參數(shù)為天數(shù)時，函數(shù)值為相對于1899年12月30日后的指定天數(shù)的年號，其取值在1753到2078之間執(zhí)行Print Year(Date) 后的結果為：2003；執(zhí)行Print Year(365) 后的結果為：19001899年12月30日后的365天是1900年Month(D)Integer返回日期D的月份，函數(shù)值為1到12之間的整數(shù)執(zhí)行Print Month(Date) 后的結果為：8Day(D)Integer返回日期D的日數(shù)

15、，函數(shù)值為1到31之間的整數(shù)執(zhí)行Print Day(Date) 后的結果為：23WeekDay(D)Integer返回日期D是星期幾, 函數(shù)值與星期的對應關系如表3-6所示執(zhí)行Print WeekDay (Date)后的結果為：3Hour(T)Integer返回時間參數(shù)中的小時數(shù)，函數(shù)值為0到23之間的整數(shù)執(zhí)行Print Hour(Now)后的結果為：14Minute(T)Integer返回時間參數(shù)中的分鐘數(shù)，函數(shù)值為0到59之間的整數(shù)執(zhí)行Print Minute(Now) 后的結果為：18Second(T)Integer返回時間參數(shù)中的秒數(shù)，函數(shù)值為0到59之間的整數(shù)執(zhí)行PrintSecon

16、d(Now) 后的結果為：30技術分析4. 轉換函數(shù) 函數(shù)名函數(shù)值類型函數(shù)名函數(shù)值類型CBoolBoolean（邏輯型）CIntInteger（整型）CByteByte（字節(jié)型）CLngLong（長整型）CCurCirrency（貨幣型）CSngSingle（單精度型）CDateDate（日期型）CVarVariant（變體型）CDblDouble（雙精度型）CStrString（字符型）Hex$(N)十進制數(shù)轉換為十六進制數(shù)Oct$(N)十進制數(shù)轉換為八進制數(shù)操作步驟 1. 創(chuàng)建程序界面 2. 程序代碼編輯程序代碼：Private Sub Command1_Click() Dim D1 As

17、 Date, D2 As Date Dim n As Integer Dim gz As Single D1 = CDate(Text1.Text) 將字符串轉換為日期型數(shù)據 D2 = CDate(Text2.Text) 將字符串轉換為日期型數(shù)據 n = D2 - D1 計算經過的天數(shù) gz = n * Val(Text3.Text) 將字符串轉換為數(shù)值再計算 使用CStr函數(shù)將數(shù)值轉化為字符串再連接字符串 Label5.Caption = Text1 + 到 + Text2 + 之間經過的天數(shù)是 + CStr(n) + _ 天,共計工資為 + CStr(gz)End Sub 知識進階 1.

18、判斷函數(shù)（1）VarType函數(shù) （2）TypeName函數(shù) 2. 輸入函數(shù) 3. 消息函數(shù) 4. 格式輸出函數(shù) （1）數(shù)值格式化 （2）日期和時間格式化 （3）字符串格式化 5. 調用外部應用程序函數(shù) 思考練習 1. 填空題（1）Abs(-9.8)= ，Asc(ABCD)= ，Chr(69)= ，Len(BEIJING北京奧運2008)= ，Str$(-12)+Str$(12)= ，Val(52)+Val(12AB)= ，Len(Space(8)= ，String$(3，迎接北京BEIJING奧運會)= ，String(3，66)= ，Left(中華人民共和國，4)= ，Right(迎接北京

19、奧運會，4)= ，Mid(迎接北京奧運會，2，3)= ，ABC&567= （2）Int(-16/3)的值是 ，F(xiàn)ix(-16/3)的值是 ，16-5的值是 ，16 Mod 5的值是 ，-16 Mod-5的值是 。（3）產生四位隨機正整數(shù)的式子是 。從一個三位正整數(shù)（N）中獲取個位數(shù)字的式子是 ，獲取百位數(shù)字的式子是 。 思考練習2. 程序設計題（1）打印出可顯示的ASCII碼（32到126）和與它對應的字符（參考附錄）。（2）使用日期函數(shù)，在程序關閉時彈出消息框顯示計算從程序打開后所經過的時間。（3）設計一個程序，窗體上有三個文本框和兩個按鈕控件，單擊其中一個按鈕后，用隨機函數(shù)生成兩個三位數(shù)，

20、顯示到文本框中。用戶在第三個文本框內輸入兩數(shù)的余數(shù)。單擊另一個按鈕可以判斷用戶輸入是否正確。（4）設計一個程序，窗體上有一個文本框，單擊窗體中的文本框時，可以使該文本框的文字大小和顏色不斷地隨機變化。（5）設計一個程序，將度、分、秒的角度值換算為弧度值。設度、分、秒分別用變量A、B、表示，則其弧度值D=(A+B/60+C/3600)*3.1415926/180。輸入的度、分、秒的角度值應是小數(shù)形式。例如：68度32分45秒輸入的數(shù)據是68.3245。 【實例9】 求一元二次方程的根 案例效果 一元二次方程aX2+bX+c=0的求根公式是數(shù)學中最常用的公式之一，本實例中將求根公式程序化，只要輸入

21、a、b、c的值，就可以自動求出方程的根。 技術分析 1. 算法和控制結構的概念（1）算法 （2）算法的圖形描述 2. 順序結構 3. 選擇結構 （1）單行If語句 （2）塊If語句 （3）IfThenElseIf語句 操作步驟 1. 創(chuàng)建程序界面 新建一個“標準EXE”工程，在窗體中添加三個文本框、一個命令按鈕和五個標簽控件2. 程序代碼編輯 在程序代碼窗口中輸入下面的代碼。 程序代碼：Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim D As Single, x1 As Single, x2 As Single Dim strLab As String