算法與程序設(shè)計 4.2 基本運算和表達(dá)式“百校聯(lián)賽”一等獎

知識回顧字母、數(shù)字、或下劃線組成,必須以字母開頭,在變量名中對大小寫字母是不加區(qū)分的。下列變量名稱正確的是？

(A)Abc(B)ab-re(C)12TS(D)I_64知識回顧定義一個符號常量piConstpi=3.14159Dimaasinteger定義變量a為整數(shù)型Dimx,yaslongDimb(0to3)asstring定義變量x,y為長整數(shù)型定義一個一維數(shù)組變量為字符串型

，有幾個數(shù)組元素？下表是VB標(biāo)準(zhǔn)函數(shù)表練一練1、下列能把數(shù)值內(nèi)容轉(zhuǎn)換成字符串的是A、Str()B、Chr()C、Asc()D、Val()2、Len(“Friend”)的值是

A、6B、7C、8D、93、VB表達(dá)式Mid(“Beijing2008lucky!”,8,8)的計算結(jié)果是

A、4 B、“2008luck”C、“008lucky”D、8基本運算ＶＢ的基本運算包括：（一）算術(shù)運算（二）關(guān)系運算（三）邏輯運算（一）算術(shù)類基本運算

乘冪（^）取負(fù)(-)

乘法(*)實數(shù)除法(/)

整數(shù)除法(\)

求余數(shù)(Mod)

加法(+)減法(-)優(yōu)先級高低結(jié)果僅保留整數(shù)部分在同一個式子中，如果有一個以上的基本運算，則先執(zhí)行優(yōu)先級高的運算；同優(yōu)先級的基本運算，按自左向右順序執(zhí)行；若式子中有括號，則先計算括號內(nèi)的式子；如果有多層括號，則按由內(nèi)向外順序進行計算。VB中的括號只有()說明：6+(6-4)=3^2+3\2=-3+8mod2=5*2^2=3\4/2=6*(8+(9-2))=810-320190實踐練習(xí)：例：假定X是一個數(shù)值型變量，那么，由函數(shù)組成的表達(dá)式Xmod2=0的作用是（）A、用于測試X是否為偶數(shù)B、返回一個整數(shù)C、返回一個奇數(shù)D、用于測試X是否為整數(shù)（二）關(guān)系類基本運算相等=不相等<>小于<大于>小于等于<=大于等于>=

關(guān)系運算的結(jié)果是一個邏輯值真、假(true、false)

關(guān)系運算優(yōu)先級比算術(shù)運算低所有關(guān)系運算具有相同的優(yōu)先級級別：７5>87<=1010=5mod3“a”<>“b”100<>10^250\11>=4實踐練習(xí)：FalseTrue真(True)假(False)FalseTrueFalseTrue（三）邏輯類基本運算

notTrue=

notFalse=

FalseFalseFalseTrueTrue8、非(not)9、與(and)10、或(or)TrueTrueFalseTrueandTrue=FalseandFalse=TrueandFalse=FalseorFalse=TrueorFalse=TrueorTrue=（三）邏輯類基本運算非（Not）：取反與（And）：只要有一個為False，結(jié)果即為False?；颍∣r）：只要有一個為True，結(jié)果即為True?？偨Y(jié)實踐練習(xí)：not(88>99)(3>5)and(67>88)(35<5)or(9>8)(8mod4>2)and(2^2=4)notfalsetruefalseandfalsefalse(4=4)(0>2)andfalseandtruefalsefalsetrueortrueVB的表達(dá)式是將數(shù)據(jù)（變量和常量）利用VB中特有的運算符、函數(shù)及圓括號進行連接的式子。表達(dá)式中可能包括算術(shù)運算、關(guān)系運算和邏輯運算等多種基本運算，以及這些基本運算所涉及的數(shù)據(jù)（變量和常量）和常用函數(shù)等。優(yōu)先級：算術(shù)運算關(guān)系運算邏輯運算高低（四）表達(dá)式數(shù)學(xué)表達(dá)式轉(zhuǎn)化為VB表達(dá)式Sqr(b^2–4*a*c)S=1/2*g*t^2-v0

*tan=a1+(n-1)*d表達(dá)式中乘號不能省將下列語句改寫成vb邏輯表達(dá)式2）三條邊能構(gòu)成三角形的條件是，任何兩邊之和都大于第三邊。（用a、b、c分別來儲存三邊數(shù)據(jù)）a+b>ca+c>bc+b>aandanda+b>ca+c>bc+b>aDima,b,casintegerMsgbox“可以構(gòu)成三角形”EndIfPrivateSubCommand1_Click()EndsubIfthenandanda=val(text1