VB知識(shí)點(diǎn)復(fù)習(xí)總結(jié)課件

VB知識(shí)點(diǎn)復(fù)習(xí)總結(jié)1精選2021版課件關(guān)于數(shù)據(jù)類型的說(shuō)明整型Integer符號(hào)表示：%長(zhǎng)整型Long符號(hào)表示：&單精度Single符號(hào)表示：!雙精度Double符號(hào)表示：#字符串String符號(hào)表示：$2精選2021版課件常量和變量常量的聲明

consta=10變量的聲明

Dimxassingle

通用聲明處只能進(jìn)行常量和變量的聲明，不能進(jìn)行變量的賦值。變量的賦值應(yīng)放在事件過(guò)程中。

PrivateSubForm_Click()

x=20.8

‘不可放在通用聲明處

EndSub3精選2021版課件運(yùn)算符^(乘方)*/(乘除)\（整除）Mod（取余數(shù)）字符連接運(yùn)算符+&優(yōu)先級(jí)運(yùn)算符含義1^冪2-負(fù)數(shù)3*、/乘、除4\整除5Mod取模6+、-加、減4精選2021版課件隨機(jī)函數(shù):產(chǎn)生一個(gè)在區(qū)間[a,b]范圍內(nèi)的隨機(jī)整數(shù)公式

dimx%

x=int((b-a+1）*Rnd+a)取絕對(duì)值abs(x)計(jì)算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)常用函數(shù)5精選2021版課件常用控件的屬性窗體captionMaxButton

MinButton文本框(textMaxLength,PasswordChar

MultiLine)文本框沒(méi)有caption屬性按鈕：caption,Cancel,default,Style

標(biāo)簽：caption

框架：先繪制框架再在其中放置其他對(duì)象6精選2021版課件順序結(jié)構(gòu)的說(shuō)明順序結(jié)構(gòu)就是程序的執(zhí)行順序就是語(yǔ)句的書(shū)寫(xiě)順序inputbox函數(shù)的使用n=val(inputbox(“”))其中紅色部分是必須的Msgbox函數(shù)和Msgbox語(yǔ)句的區(qū)別7精選2021版課件關(guān)于print的說(shuō)明[對(duì)象.]print字符串在print中只能出現(xiàn)逗號(hào)或者分號(hào)Tab(n)確定圖形的輸出位置Spc(n)輸出字符之間加入幾個(gè)空格8精選2021版課件選擇結(jié)構(gòu)單分支結(jié)構(gòu)格式1:IF條件THEN語(yǔ)句格式2:IF條件THEN

語(yǔ)句

ENDIF輸入三個(gè)任意整數(shù)，將這三個(gè)數(shù)按由大到小排序后輸出。提示：①如果A<B,則交換A和B的值；②如果A<C,則交換C和A的值；③如果B<C,則交換C和B的值。9精選2021版課件關(guān)于選擇結(jié)構(gòu)的用法雙分支結(jié)構(gòu)

IF條件THEN

語(yǔ)句1ELSE

語(yǔ)句2ENDIF10精選2021版課件多分支結(jié)構(gòu)

IF條件1THEN

語(yǔ)句1ELSEIF條件2THEN

語(yǔ)句2ELSEIF條件3THEN

語(yǔ)句3…….ELSE

語(yǔ)句N(xiāo)ENDIF11精選2021版課件常見(jiàn)的條件倍數(shù)關(guān)系ifxmod5=0個(gè)位是3的數(shù)字ifxmod10=3假設(shè)X是一個(gè)四位數(shù)，其個(gè)、十、百、千位上的數(shù)據(jù)提取方法為：xmod10,x\10mod10,x\100mod10,x\1000滿足條件求個(gè)數(shù)z=z+1滿足條件求數(shù)的和sum=sum+x12精選2021版課件循環(huán)結(jié)構(gòu)計(jì)數(shù)型循環(huán)（循環(huán)次數(shù)已知）for循環(huán)變量=初值to終值[step步長(zhǎng)]語(yǔ)句…..next循環(huán)變量其中[step步長(zhǎng)]可缺省，則步長(zhǎng)是113精選2021版課件數(shù)組先聲明再使用數(shù)組元素(動(dòng)態(tài)數(shù)組的聲明)Dima(1to10)asintegerDimb%(10)對(duì)于數(shù)組的元素通過(guò)下標(biāo)來(lái)引用在數(shù)組中數(shù)組元素的產(chǎn)生和輸出都要在FOR循環(huán)中實(shí)現(xiàn)14精選2021版課件數(shù)組1、交換（1/6交換/首尾交換）假設(shè)有10個(gè)數(shù)組元素15精選2021版課件求最大、最小值的問(wèn)題分3大部分編寫(xiě)代碼：1、用FOR循環(huán)產(chǎn)生并輸出數(shù)組元素（輸出時(shí)的格式控制）2、取出數(shù)組中的第一個(gè)元素的值給變量MAX和MIN3、再用一個(gè)FOR循環(huán)進(jìn)行比較16精選2021版課件根據(jù)條件求解的問(wèn)題分2大部分編寫(xiě)代碼：1、用FOR循環(huán)產(chǎn)生并輸出數(shù)組元素2、再用一個(gè)FOR循環(huán)進(jìn)行比較條件的測(cè)試，看是否滿足條件，再來(lái)做相應(yīng)的處理。17精選2021版課件設(shè)有聲明語(yǔ)句Dimb(-1To10,2To9,20)AsInteger,則數(shù)組b中全部元素的個(gè)數(shù)是語(yǔ)句DimA&(10),B#(10,5)定義了兩個(gè)數(shù)組，其類型分別為18精選2021版課件編寫(xiě)命令按鈕"計(jì)算"的單擊事件過(guò)程。要求在文本框1中輸入n的值，單擊命令按鈕，求1^0+3^1+5^2+7^3+……+(2n-1)^(n-1)的值，并將結(jié)果放入標(biāo)簽2中。結(jié)果為長(zhǎng)整型。將窗體文件和工程文件分別保存在K盤(pán)根目錄上19精選2021版課件編寫(xiě)命令按鈕“計(jì)算”的單擊事件過(guò)程。要求在文本框1中輸入n的值，單擊命令按鈕，求1/2+2/3+3/5+4/8+5/12……前n項(xiàng)的和，并將結(jié)果放入標(biāo)簽2中。結(jié)果為單精度型。(3)將窗體文件和工程文件分別以vb2f04.frm和vb2p04.vbp保存在K盤(pán)根目錄上。20精選2021版課件編程求：s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29…，直到最后一項(xiàng)的絕對(duì)值小于0.00001為止。21精選2021版課件DimsAsSingleDimiAsIntegerDimmAsIntegerDimtAsSinglet=1s=0i=0n=1

參考程序DoWhilet>=0.00001s=s+ti=i+1n=n+it=1/nLoopPrints22精選2021版課件一個(gè)富翁試圖與陌生人做一筆換錢(qián)生意，換錢(qián)規(guī)則為：陌生人每天給富翁10萬(wàn)元錢(qián)，直到滿30天，而富翁一天給陌生人1分錢(qián)，第二天2分，第三天4分，……,富翁每天給陌生人的錢(qián)是前一天的2倍，直到滿一個(gè)月，分別顯示他們相互給的錢(qián)的金額？23精選2021版課件PrivateSubForm_Click()Dimi%,s&,x&x=1Fori=1To30s=s+xx=2*xNextPrint"富翁給陌生人的錢(qián)為";x/1000000;"萬(wàn)元"Print"陌生人給富翁的錢(qián)為";30*10;"萬(wàn)元"EndSub24精選2021版課件隨機(jī)產(chǎn)生20個(gè)學(xué)生的成績(jī)，統(tǒng)計(jì)各分?jǐn)?shù)段人數(shù)，即0-59，60-69，70-79，80-89、90-100，并顯示結(jié)果，產(chǎn)生的數(shù)據(jù)在picture1顯示，統(tǒng)計(jì)結(jié)果在picture2顯示.分析：本程序有兩個(gè)事件過(guò)程，都要用到存放20個(gè)學(xué)生的數(shù)組，因此學(xué)生成績(jī)數(shù)組在通用聲明段聲明，在command2事件過(guò)程中聲明一個(gè)數(shù)組s(5to9),分別存放分?jǐn)?shù)段的人數(shù)25精選2021版課件PrivateSubCommand1_Click()Dimi%Picture1.ClsRandomizeFori=1To20a(i)=Int(101*Rnd)Picture1.Printa(i);IfiMod4=0ThenPicture1.PrintNextEndSub26精選2021版課件PrivateSubCommand2_Click()Dims(5To9)AsInteger,i%,k%Picture2.ClsFori=1To20k=a(i)\10SelectCasekCase0To5s(5)=s(5)+1