第3章Visual Basic程序設(shè)計(jì)基礎(chǔ)

1、第第3章章 Visual Basic程序設(shè)計(jì)基礎(chǔ)程序設(shè)計(jì)基礎(chǔ) n數(shù)據(jù)類型數(shù)據(jù)類型n運(yùn)算符和表達(dá)式運(yùn)算符和表達(dá)式n常用內(nèi)部函數(shù)常用內(nèi)部函數(shù) 3.1 數(shù)據(jù)類型數(shù)據(jù)類型 n3.1.1基本數(shù)據(jù)類型基本數(shù)據(jù)類型 nInteger (整型整型) % %nLong (長(zhǎng)整型長(zhǎng)整型) & &nSingle (單精度實(shí)型單精度實(shí)型) ! !nDouble (雙精度實(shí)型雙精度實(shí)型) # #nString (字符串類型字符串類型) $ $nBoolean (布爾型布爾型) nDate (日期型日期型)nVariant (變體類型變體類型)3.1 數(shù)據(jù)類型數(shù)據(jù)類型n3.1.2 常量常量 :程序運(yùn)行時(shí)值

2、不改變程序運(yùn)行時(shí)值不改變 整型：整型： 12，3 ，1 長(zhǎng)整型：長(zhǎng)整型：-2147483640 ， 1& 單精度實(shí)型：?jiǎn)尉葘?shí)型： 1.2, -3.4, -1.0! 雙精度實(shí)型：雙精度實(shí)型：-3.5e55 , -1.0# 字符串字符串: “hello world” ， “”“” 布爾型布爾型： Ture真真 ,False 假假 日期型：日期型： #10/12/2005 10:10:10#3.1 數(shù)據(jù)類型數(shù)據(jù)類型n3.1.3變量變量 n1變量的定義變量的定義：Dim 變量名變量名1 As 類型類型1, 變量名變量名2 As 類型類型2 Dim a As Integer, b As Int

3、eger 定義兩個(gè)整型變量定義兩個(gè)整型變量a和和bn省略數(shù)據(jù)類型則變量為省略數(shù)據(jù)類型則變量為Variant類型類型nDim a, b As Integer 定義變量定義變量a為為Variant類型，變量類型，變量b為為Integer類型類型 3.1 數(shù)據(jù)類型數(shù)據(jù)類型Private Sub Command1_Click() Dim a As Integer, b As Integer Print a a = 1 b = 2 Print a + bEnd Sub整型變量整型變量a,b初始值默認(rèn)為初始值默認(rèn)為0033.1 數(shù)據(jù)類型數(shù)據(jù)類型Private Sub Command1_Click() Di

4、m a As Single, b As Single a = 1.2 b = 2.3 Print a + bEnd Sub浮點(diǎn)型變量浮點(diǎn)型變量a,b初始值默認(rèn)為初始值默認(rèn)為0.03.53.1 數(shù)據(jù)類型數(shù)據(jù)類型Private Sub Command1_Click() Dim s As String s = hello world Print sEnd Sub字符串變量字符串變量s初始值默認(rèn)為初始值默認(rèn)為“”“”空串空串hello world3.1 數(shù)據(jù)類型數(shù)據(jù)類型Private Sub Command1_Click() Dim f As Boolean Print f f = True frmI

5、nfo.Visible = f 窗體可見窗體可見End Sub布爾變量布爾變量f初始值默認(rèn)為初始值默認(rèn)為FalseFalse3.1 數(shù)據(jù)類型練習(xí)數(shù)據(jù)類型練習(xí)Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim delta As Single Dim root1 As Single, root2 As SingleEnd Sub求二元一次方程的兩個(gè)根，求二元一次方程的兩個(gè)根，系數(shù)保存在變量系數(shù)保存在變量a,b,c中，中，根保存在變量根保存在變量root1,root2中，中，判別式保存在變量判別式保存在變

6、量delta中中怎樣定義變量？怎樣定義變量？3.1 數(shù)據(jù)類型數(shù)據(jù)類型* *通用通用|聲明聲明 Dim 變量名變量名1 As 類型類型1, 變變量名量名2 As 類型類型2 3.1 數(shù)據(jù)類型數(shù)據(jù)類型* *Dim a As IntegerPrivate Sub Command1_Click() a = a + 1 Print aEnd SubPrivate Sub Command2_Click() a = a + 1 Print aEnd Sub3.1 數(shù)據(jù)類型數(shù)據(jù)類型* *Private Sub Command1_Click() Dim a As Integer a = a + 1 Print

7、aEnd SubPrivate Sub Command2_Click() Dim a As Integer a = a + 1 Print aEnd Sub3.2 3.2 運(yùn)算符和表達(dá)式算數(shù)運(yùn)算符和表達(dá)式算數(shù)n算術(shù)運(yùn)算符算術(shù)運(yùn)算符 運(yùn)算符運(yùn)算符名稱名稱+加加-減減*乘乘/除除乘方乘方整除整除Mod 求余（取模）求余（取模）-取負(fù)取負(fù)32323 mod 29113.2 3.2 運(yùn)算符和表達(dá)式算數(shù)運(yùn)算符和表達(dá)式算數(shù)n寫出表達(dá)式：寫出表達(dá)式：b2-4acn寫出表達(dá)式寫出表達(dá)式 -b+delt 2ab*b-4*a*c(-b+delt)/(2*a)3.2 3.2 運(yùn)算符和表達(dá)式關(guān)系運(yùn)算符和表達(dá)式關(guān)系n關(guān)

8、系運(yùn)算符和關(guān)系表達(dá)式關(guān)系運(yùn)算符和關(guān)系表達(dá)式 (a=2,b=3)=等于等于或或大于大于=大于或等于大于或等于=小于或等于小于或等于n運(yùn)算結(jié)果運(yùn)算結(jié)果:True:True或或FalseFalsea=bababa=ba=bFalseTrueFalseTrueFalseTrue3.2 3.2 運(yùn)算符和表達(dá)式關(guān)系運(yùn)算符和表達(dá)式關(guān)系n可以通過可以通過 表達(dá)式判斷表達(dá)式判斷x是奇偶是奇偶數(shù)數(shù)n當(dāng)表達(dá)式為真表示當(dāng)表達(dá)式為真表示 整型變量整型變量x可以可以被被2整除整除 n不能被不能被3整除的表達(dá)式整除的表達(dá)式(x Mod 2)=0(x Mod 3)03.2 3.2 運(yùn)算符和表達(dá)式邏輯運(yùn)算符和表達(dá)式邏輯n邏輯運(yùn)

9、算符和邏輯表達(dá)式邏輯運(yùn)算符和邏輯表達(dá)式 Not非非對(duì)單個(gè)表達(dá)式的邏輯值取反，即由真對(duì)單個(gè)表達(dá)式的邏輯值取反，即由真變假或由假變真變假或由假變真And 與與兩個(gè)表達(dá)式都為兩個(gè)表達(dá)式都為True時(shí)時(shí),整個(gè)表達(dá)式整個(gè)表達(dá)式的值為的值為True,否則為否則為FalseOr或或兩個(gè)表達(dá)式有一個(gè)為兩個(gè)表達(dá)式有一個(gè)為True時(shí)時(shí),整個(gè)表整個(gè)表達(dá)式的值為達(dá)式的值為True,否則為否則為FalseSARS: 高燒高燒 肺部陰影肺部陰影Texi: 下雨下雨 趕時(shí)間趕時(shí)間OrAnd3.2 3.2 運(yùn)算符和表達(dá)式邏輯運(yùn)算符和表達(dá)式邏輯n與數(shù)學(xué)表達(dá)式與數(shù)學(xué)表達(dá)式axb對(duì)應(yīng)的對(duì)應(yīng)的Visual Basic表達(dá)式是表達(dá)式是

10、_。 a=2,b=3,x=4 a=x=b 1=b True（a=x）And （x3Int(a) Int(b)復(fù)習(xí)復(fù)習(xí)n當(dāng)表達(dá)式為真，表示變量當(dāng)表達(dá)式為真，表示變量x是小于是小于100的的非負(fù)數(shù)非負(fù)數(shù)n當(dāng)表達(dá)式為真，當(dāng)表達(dá)式為真，x不可以被不可以被3或或5整除整除(0 x)And(x100)(x Mod 3)Or(x Mod 5)注意：算數(shù)非注意：算數(shù)非0邏輯邏輯True 算數(shù)算數(shù)0 邏輯邏輯False復(fù)習(xí)復(fù)習(xí)nPrint “hello” & chr(10) & “world”nDim s As String s = ZhangHua Print Len(Trim(s)hello

11、world8復(fù)習(xí)復(fù)習(xí)nMonth(Now)nDim s As String s = 3.2“ 定義變量保存定義變量保存s的值的平方的值的平方10Dim result As Singleresult = Val(s) 23.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)InputBoxInputBox函數(shù)函數(shù)emailAdd= InputBox(“請(qǐng)按照下面的默認(rèn)格式請(qǐng)按照下面的默認(rèn)格式,輸入郵件地址輸入郵件地址”, 郵件地址郵件地址, ) InputBox函數(shù)可以產(chǎn)生一個(gè)輸入對(duì)話框函數(shù)可以產(chǎn)生一個(gè)輸入對(duì)話框3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)InputBoxInputBox函數(shù)函數(shù)nInputBox

12、函數(shù)可以產(chǎn)生一個(gè)輸入對(duì)話框函數(shù)可以產(chǎn)生一個(gè)輸入對(duì)話框 emailAdd=InputBox( , , ) “請(qǐng)按照下面的默認(rèn)格式請(qǐng)按照下面的默認(rèn)格式”輸入郵件地址輸入郵件地址郵件地址郵件地址Chr(10)&nInputBox的的返回值返回值，即，即InputBox函數(shù)執(zhí)行的函數(shù)執(zhí)行的結(jié)果值，結(jié)果值，是一個(gè)字符串是一個(gè)字符串n單擊單擊 “確定確定” ，輸入的內(nèi)容，輸入的內(nèi)容n單擊單擊 “取消取消” ，一個(gè)空字符串，一個(gè)空字符串“”“”Dim emailAddr As StringemailAddr = InputBox(“請(qǐng)按照下面的默認(rèn)格式請(qǐng)按照下面的默認(rèn)格式” & Chr(10

13、) & “輸入郵件地址輸入郵件地址”, 郵件地址郵件地址, ) 3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)InputBoxInputBox函數(shù)函數(shù)3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)InputBoxInputBox函數(shù)函數(shù)n確定：確定： emailAddr = “”n取消：取消： emailAddr = “”3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)InputBoxInputBox函數(shù)函數(shù)n練習(xí)練習(xí)P56-6 Dim account As String accountInputBox(“輸入帳號(hào)輸入帳號(hào)” , “存款存款”, “123.123456789) 3.3 3.3 常用內(nèi)部函數(shù)

14、常用內(nèi)部函數(shù)InputBoxInputBox函數(shù)函數(shù)n利用輸入框提示輸入一個(gè)正整數(shù)，在窗體利用輸入框提示輸入一個(gè)正整數(shù)，在窗體上輸出其平方根上輸出其平方根n例如：輸入例如：輸入4，輸出，輸出 4的平方根是：的平方根是：23.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)InputBoxInputBox函數(shù)函數(shù)3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)InputBoxInputBox函數(shù)函數(shù)Private Sub Form_Click() Dim number As String Dim result As Double number = InputBox(輸入正整數(shù)輸入正整數(shù), 求平求平方根方根) res

15、ult = Sqr(Val(number) Print number & 的平方根是：的平方根是： & resultEnd Sub3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)MsgBoxMsgBox函數(shù)函數(shù)n作用：作用：用于產(chǎn)生一個(gè)消息對(duì)話框用于產(chǎn)生一個(gè)消息對(duì)話框 3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)MsgBoxMsgBox函數(shù)函數(shù)n對(duì)話框結(jié)構(gòu)對(duì)話框結(jié)構(gòu)3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)MsgBoxMsgBox函數(shù)函數(shù)n常用格式常用格式1：MsgBox 提示文本提示文本n用處：用處：只做簡(jiǎn)單提示只做簡(jiǎn)單提示n例如：例如：MsgBox 除數(shù)不能為除數(shù)不能為0 3.3 3.3

16、 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)MsgBoxMsgBox函數(shù)函數(shù)n常用格式常用格式2：MsgBox 提示文本提示文本,圖標(biāo)圖標(biāo)n用處：用處：只做簡(jiǎn)單提示只做簡(jiǎn)單提示n例如：例如：MsgBox 除數(shù)不能為除數(shù)不能為0, vbCritical3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)MsgBoxMsgBox函數(shù)函數(shù)n常用格式常用格式3：MsgBox 提示文本提示文本,圖標(biāo)圖標(biāo),標(biāo)題標(biāo)題n用處：用處：只做簡(jiǎn)單提示只做簡(jiǎn)單提示n例如：例如：MsgBox 除數(shù)不能為除數(shù)不能為0, vbCritical, 錯(cuò)誤提示錯(cuò)誤提示3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)MsgBoxMsgBox函數(shù)函數(shù)MsgBox , , 內(nèi)存不足內(nèi)存不足vbCritical“系統(tǒng)提示系統(tǒng)提示3.3 3.3 常用內(nèi)部函數(shù)常用內(nèi)部函數(shù)MsgBoxMsgBox函數(shù)函數(shù)n常用格式常用格式4：dim answer as integeranswer=MsgBox(提示文本提示文本,圖標(biāo)圖標(biāo)+按鈕組合按鈕組合,標(biāo)題標(biāo)題)n用處：用處：MsgBox函數(shù)的返回值函數(shù)的返回值就是用戶按下按鈕，保存就是用戶按下按鈕，保存在在answer中中n例如：例如：Dim answer As Intege