高中VB必考知識點匯總

1、算法與程序設計VB知識點一、 數(shù)據(jù)類型Integer 整型Long 長整型Single 單精度實型Double 雙精度實型String 字符型二、 常量與變量1、常量的定義Const 常量名 as 類型=表達式2、變量的定義Dim 變量名 as 類型三、 運算符1、 算術(shù)運算符+ - * / mod 2、 字符運算符& +3、 關(guān)系運算符>, >= , < , <= , <> , =4、邏輯運算符 And not or四、 函數(shù)1、 sin(x)2、 cos(x)3、 fix(x)4、 int(x)5、 sqr(x)6、 abs(x)五、 賦值語句

2、格式： 變量=表達式六、 輸入語句變量=inputbox(“ “，“ “)七、 輸出語句Print 內(nèi)容八、 條件語句1、If 條件 then 語句2、If 條件 then 語句1 else 語句2 或者：1、 If 條件 then 語句End if 2、 If 條件 then 語句1Else 語句2End if 九、 循環(huán)語句1、 for 循環(huán)變量=初值 to 終值 循環(huán)體 Next 循環(huán)變量2、 do while (until) 條件 循環(huán)體 Loop 或者 do 循環(huán)體 Loop while (until) 條件第一課時一、 VB的簡單介紹VB是visual basic 的簡稱，是一種可

3、視化的程序工具。VB的界面介紹及相關(guān)控件和窗口的介紹：1、 控件工具箱（標簽、文本框、按鈕控件）2、 設計窗口3、 屬性窗口 （強調(diào)標簽的caption、font屬性，文本框的text屬性,按鈕的caption、font 屬性）4、 代碼窗口二、 程序的初步嘗試編寫1、 設計界面2、進入代碼窗口，編寫如下程序：Private Sub Command1_Click()Dim a,b,c as integera=text1.text指的是文本框1中輸入的內(nèi)容，然后將輸入的內(nèi)容賦值給變量ab=text2.textc=a*btext3.text=c或者text3.text=text1.text*tex

4、t2.textEnd Sub3、 運行程序單擊“運行”“啟動”4、 對程序進行調(diào)試，查看運行結(jié)果5、 思考：對程序進行修改，將“*”修改為“-”或者“/”后運行程序。若修改為“+”呢。第二課時一、 數(shù)據(jù)類型1、integer 整型 只能夠表示-3276832767之間的整數(shù)。2、long 長整型 只能夠表示-21474836482147483647之間的整數(shù)3、single 單精度實型 可以用來表示小數(shù)4、string 字符型 例如：”zhongguo”,”中國”，”123456”案例1：求1×2×3××10的值。Private Sub Command1

5、_Click()Dim i As integerDim s as integers = 0i = 1For i = 1 To 10 s = s * iNext iPrint sEnd Sub案例2：求圓的面積Private Sub Command2_Click() Const pi As Single = 3.14 Dim r As Single Dim s As Single r = InputBox("r=") s = pi * r * r Print "圓的面積s=" sEnd Sub二、 運算符1、 算術(shù)運算符（乘方）、*、/、(整除)、mod(

6、取余)、+、-2、 關(guān)系運算符>、>=、<、<=、=、<>3、字符運算符&、+4、邏輯運算符Not 、and、 or案例：若a=5,b=7,c=-2,d=1,求下列式子的結(jié)果a+b>c+d and a>=5 or not c>0 or d<0三、 函數(shù)Sqr(x) x的平方根Abs(x) x的絕對值Int(x) 不大于x的最大整數(shù) int(-4.5)結(jié)果是-5int(4.5)結(jié)果是4Fix(x) 取整Fix(4.5) 結(jié)果是 4Fix(-4.5) 結(jié)果是 -4Cint(x)/clng(x) 四舍五入取整四、 表達式例題：a=1

7、,b=3,c=2,求x1=,x2=的值。X1=(-b+sqr(b2-4*a*c)/(2*a) X2=(-b-sqr(b2-4*a*c)/(2*a)Private Sub Command1_Click() a = 1 b = 3 c = 2 X1 = (-b + Sqr(b 2 - 4 * a * c) / (2 * a) X2 = (-b - Sqr(b 2 - 4 * a * c) / (2 * a) Print X1 Print X2End Sub第三課時 程序的順序結(jié)構(gòu)一、賦值語句賦值語句的基本格式： 變量=表達式這里“=”是賦值符號，它的含義是將表達式的值賦給左邊的變量二、輸入函數(shù)格式

8、： inputbox（提示信息，標題，默認值，位置）例如：Private Sub Command1_Click() A = InputBox("A=", "輸入", 12, 100, 20)End Sub三、輸出函數(shù)格式： print 輸出內(nèi)容說明：1、如果輸出的內(nèi)容是數(shù)、變量、表達式，則輸出的是它們的值。如果是用引號引起來的字符串，則原樣輸出。2、輸出內(nèi)容可以是一個或多個。如果是多個，則輸出內(nèi)容之間可以用逗號或分號分隔；如果用分號，則后面一個輸出緊跟前一個輸出；如果是逗號，則按照分區(qū)格式輸出。3、如果輸出內(nèi)容后面沒有符號，則表示下一個PRINT換行輸出

9、；如果Print中沒有輸出內(nèi)容，則表示輸出一個空行。案例1：（書本第38頁）Private Sub Command1_Click() a = Val(InputBox("a=", "輸入") b = Val(InputBox("b=", "輸入") Max = (a + b) / 2 + Abs(a - b) / 2 Print "Max=" MaxEnd Sub案例:2：已知長方體的長寬高，求長方體的全面積和體積。Private Sub Command1_Click() a = InputBo

10、x("a=") b = InputBox("b=") c = InputBox("c=") s = 2 * (a * b + a * c + b * c) v = a * b * c Print "全面積S=" s, "體積v=" vEnd Sub第四課時 程序的選擇結(jié)構(gòu)一、條件語句的格式1、If 條件 then 語句2、If 條件 then 語句1 else 語句2 或者：1、 If 條件 then 語句End if2、 If 條件 then 語句1Else 語句2End if 案例1：比較a

11、 和b 的大小，并輸出最大的值。Private Sub Command1_Click() a=inputbox(“a=”) b=inputbox(“b=”) if a> b then print “a=”;a elseprint “b=”;b end if End Sub案例2：某商場為了對蘋果進行促銷，規(guī)定購買2千克以上可以在原價每千克1.5元的基礎上打8折。請設計一個程序計算購買x千克蘋果的應付款。Private Sub Command1_Click() X=inputbox(“x=”,”請輸入蘋果的重量”) If x>2 then Y=1.5*0.8*xElse Y=1.5*

12、xEnd ifPrint “蘋果的應付款為”;y;”元”End Sub第五課時 程序的循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)的格式1、 for 循環(huán)變量=初值 to 終值 循環(huán)體 Next 循環(huán)變量2、 do while (until) 條件 循環(huán)體 Loop 或者 do 循環(huán)體 Loop while (until) 條件案例1：求1+2+3+100的值Private Sub Command1_Click() Dim I as integer Dim s as integer S=0 For i=1 to 100S=s+i Next iPrint “s=”;sEnd Sub案例2：已知s=1+2+3+n,找出一個最

13、大的整數(shù)n,使得s<30000.編寫程序解決這個問題Private Sub Command1_Click() n=0 S=0 Do while s<30000 n=n+1 S=s+n Loop Print n-1End SubDO循環(huán)語句四種形式的比較條件判斷放在循環(huán)語句的開頭部分條件判斷放在循環(huán)語句的結(jié)尾部分所列條件滿足時執(zhí)行循環(huán)所列條件滿足時退出循環(huán)所列條件滿足時執(zhí)行循環(huán)所列條件滿足時退出循環(huán)Do while 條件 循環(huán)體LoopDo until 條件 循環(huán)體LoopDo 循環(huán)體Loop while 條件Do 循環(huán)體Loop until 條件案例：判斷一個大于2的自然數(shù)M是否是素數(shù)，如果是素數(shù)，則輸出“這是一個素數(shù)！”，否則輸出“這不是一個素數(shù)！”Private Sub Command1_Click() Dim M as integer, I as integer M=Inputbox(“輸入一個數(shù)：”) I=2 Do until (M mod I=0) or (i=M-1)I=I+1 Loop If M mod I=o then Print M;”不是素數(shù)” Else Print M;”是素數(shù)” End ifEnd sub循環(huán)的嵌套Private S