窗體第7章vba程序設(shè)計(jì)作業(yè)

VBA一、1、將一個(gè)數(shù)轉(zhuǎn)換成相應(yīng)字符串的函數(shù)是（ 2、VBA中定義符號(hào)常量使用的關(guān)鍵字是（ 3、下列表達(dá)式計(jì)算結(jié)果為日期類型的是（A）#2012-1-23#-#2011-2- B）year(#2011-2-3# D）Len("2011-2-3"4、下列表達(dá)式中，能正確表示條件"x和y都是奇數(shù)"的是（A）xMod2=yMod2=B）xMod2=yMod2=C）xMod2=yMod2=D）xMod2=yMod2=5、由i=3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行A）4B）5C）6D）76、表達(dá)式BINTA0.5的功能是（將變量A保留小數(shù)點(diǎn)后5舍去變量A的小數(shù)7、下列不屬于VBA函數(shù)的是（ 8、要將一個(gè)數(shù)字字符串轉(zhuǎn)換成對(duì)應(yīng)的數(shù)值，應(yīng)使用的函數(shù)是（ 9、下列變量名中，合法的是（ B）A-1 10、VBA語(yǔ)句"Dim NewArray(10) Integer"的含義是（。C）定義1個(gè)值為整型數(shù)的變量NewArray10D）定義1個(gè)值為10的變量NewArray11、運(yùn)行下列程序段，結(jié)果是（ m=10 k=k+3 12、可以用InputBox函數(shù)產(chǎn)生“輸入框”執(zhí)行語(yǔ)句st=InputBox("請(qǐng)輸入字符串","字符串框","aaaa"“bbbb B）請(qǐng)輸入字符串C）字符串 13、如果x是一個(gè)正的實(shí)數(shù)，欲保留兩位小數(shù)、將千分位四舍五入的表達(dá)（A）0.01*Int(x+0.05 B）0.01*Int(100*(x+0.005)C）0.01*Int(x+0.005 D）0.01*Int(100*(x+0.05)result=1 i=1 result=result*i 程序運(yùn)行后消息框的輸出內(nèi)容是（ 15、若在模塊AA中，有如下兩個(gè)過 qq(x single,ByVal single)t=xx=t/y=t Sub As a=5:b=4 qq(a,b Chr(10)+Chr(13) 運(yùn)行tt子過程后消息框中有兩行輸出，內(nèi)容分（A）1和1 B）1.25和1 C）1.25和4 D）5和416、以下程序運(yùn)行后，在立即窗口中顯示的是（ Integer,j i=2 j= i/ iModj=0 j>sqr(i i5796857935717、運(yùn)行下列程序，其結(jié)果是（ k<=5f=f0+f1f0=f1f1=k=k+1 "f= A）f=5 B）f=7 C）f=8 D）f1318、有如下程序，運(yùn)行該程序后輸出結(jié)果是（ Integer,y y<=y=y+x*xx=x+1 "x=" &"，y=" A）x=1，y=0 B）x=4，y=25C）x=5,y=30 Sub x=10y=y=f(x) x;y f(x Integer) x=y=f=x*y 運(yùn)行abc后，立即窗口中顯示的內(nèi)容是（ 20、有以下程 i= x= j=i step3x=x+1 程序程序后，立即窗口中顯示的是（ 二、1、ACCESS數(shù)據(jù)庫(kù)中的字節(jié)Byte數(shù)值類型在數(shù)據(jù)庫(kù)中 【1 字節(jié) Integer,m s=0m= 【2s=s+mm=m+3、運(yùn)行下列程序，輸入如下兩行 那么，在彈出的消息框中的顯示結(jié)果是【3】 String,sum sum=""abcInputBox(輸入abc" Right(abc,1)="." sum=sum+abc 4、以下程序運(yùn)行后，在立即窗口中顯示的是【4】 i= x= j= k=1 x=x+3 Nexti 5、有以下程序 y=0y=InputBox("y=" (yMod10)+Int(y/10)=10 y; y=0 程序運(yùn)行后，依次輸入10、37、50、55、64、20、28、19、-19、0，立即窗口上輸出的結(jié)果是【5】。 Integer,y x=12:y=32 Proc(x,y) x; Proc(n Integer,ByVal Integer)n=nMod10m=mMod10 運(yùn)行qq子過程后，立即窗口上輸出的結(jié)果是【6】7、以下程序運(yùn)行后，消息框中輸出的是【7】 a(10),p(3) k=5 i=1 a(i)=i*i i=1 p(i)=a(i*i) i=1 k=k+p(i)*2 8、模塊中有以下過程 Sub s=p(1)+p(2)+p(3)+p(4 p(n Integer) Sum= i=1 Sum=Sum+1 P= qq程序運(yùn)行后，立即窗口中的輸出的結(jié)果是【8】9某次大獎(jiǎng)賽有7個(gè)評(píng)委同時(shí)為一位選手打分掉一個(gè)最高分和一個(gè)最低其余5個(gè)分?jǐn)?shù)的平均值為該名參賽者的最后得分。請(qǐng)?zhí)羁胀瓿梢?guī)定的功能 mark!,aver!,i%,max1!,min1!aver=0 i=