




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
第第頁計算機二級考試VB基礎(chǔ)考試題
考試題一:
1.下面程序是從鍵盤上輸入一個字符串,把該字符串中的大寫字母轉(zhuǎn)換成小寫字母,輸出到文件Ks61.dat中,然后從該文件中讀出字符串并顯示出來。請完善下面的程序:
PrivateForm_Click()
DimStr1AsString*50,Str2AsString,FileNoAsInteger
FileNo=【63】
Open“d:Vb2022KsKs61.dat”For【64】AsFileNo
Str1=InputBo*(“請輸入一個字符串:”)
Str1=Lcase(Str1)
Seek#FileNo,1
Put#FileNo,,Str1
【65】#FileNo,1
Str2=Input(【66】,#FileNo)
PrintStr2
EndSub
【63】(A)Free(B)File(C)FreeFile(D)FileFree
【64】(A)Input(B)Output(C)Random(D)Binary
【65】(A)Loc(B)Lof(C)Eof(D)Seek
【66】(A)Len(Str1)(B)Len(Str2)(C)StrLen(Str1)(D)StrLen(Str2)
2.以下程序的功能是:把當(dāng)前目次下的順次文件smte*t1.t*t的內(nèi)容讀入內(nèi)存,并在文本框Te*t1中顯示出來。請?zhí)羁铡?/p>
PrivateSubCommand1_Click()
DiminDataAsString
Te*t1.Te*t=
Open.smte*t1.t*t【14】As#1
DoWhile【15】
Input#1,inData
Te*t1.Te*t=Te*t1.Te*tinData
Loop
Close#1
EndSub
3.在窗體上畫一個文本框(其Name屬性為Te*t1),然后編寫如下事項過程:
PrivateSubForm_Load()
Te*t1.Te*t=“”
Te*t1.SetFocus
Fori=1to10
Sum=Sum+i
Ne*ti
Te*t1.Te*t=Sum
EndSub
程序運行后,輸出結(jié)果為(【67】)
(A)在文本框Te*t1中輸出55(B)在文本框Te*t1中輸出0
(C)在文本框Te*t1中輸出不定值(D)出錯
4.在窗體上畫一個文本框和一個列表框,然后編寫如下兩個事項過程:
PrivateSubForm_Load()
List1.AddItem“123”
List1.AddItem“456”
List1.AddItem“369”
List1.AddItem“789”
Te*t1.Te*t=“”
EndSub
PrivateSubList1_DblClick()
a=List1.Te*t
Printa+Te*t1.Te*t
EndSub
程序運行后,在文本框中輸入“248”,然后雙擊列表框中的“369”,那么輸出結(jié)果(【68】)
(A)617(B)248369(C)369248(D)0
5.在窗體上畫兩個滾動條,名稱分別為Hscroll1、Hscroll2;六個標(biāo)簽,名稱分別為Label1、Label2、Label3、Label4、Label5、Label6,其中標(biāo)簽Label4~Label6分別顯示“A”、“B”、“A*B”等文字信息,標(biāo)簽Label1、Label2分別顯示其右側(cè)的滾動條的數(shù)值,Label3顯示A*B的計算結(jié)果。如下圖。當(dāng)移動滾動框時,在相應(yīng)的標(biāo)簽中顯示滾動條的值。當(dāng)單擊指令按鈕計算時,對標(biāo)簽Label1、Label2中顯示的兩個值求積,并將結(jié)果顯示在Label3中。以下不能實現(xiàn)上述功能的事項過程是
(A)PrivateSubCommand1_Click()
Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))
EndSub
(B)PrivateSubCommand1_Click()
Label3.Caption=HScroll1.Value*HScroll2.Value
EndSub
(C)PrivateSubCommand1_Click()
Label3.Caption=HScroll1*HScroll2
EndSub
(D)PrivateSubCommand1_Click()
Label3.Caption=HScroll1.Te*t*HScroll2.Te*t
EndSub
6.閱讀下面程序:
PublicSub*y(aAsInteger,bAsInteger)
DimtAsInteger
Do
t=aModb
a=b:b=t
LoopWhilet
Printa
EndSub
用Call*y(16,40)調(diào)用此通用過程后,輸出結(jié)果為(【69】)
(A)4(B)8(C)16(D)32
7.在窗體上畫一個名稱為Command1的指令按鈕,然后編寫如下事項過程:
PrivateSubCommand1_Click()
Forn=1To20
IfnMod30Thenm=m+n3
Ne*tn
Printn
EndSub
程序運行后,假如單擊指令按鈕,那么窗體上顯示的.內(nèi)容是
(A)15(B)18(C)21(D)24
8.以下語句的輸出結(jié)果是(【70】)
a=“BeiJing”
b=“ShangHai”
Printa;b
以下結(jié)果中,“□”表示空格:
(A)BeiJing□ShangHai(B)BeiJingShangHai
(C)BeiJingShangHai□(D)BeiJing□ShangHai□
9.下面程序共執(zhí)行了(【71】)次循環(huán)。
DimIntsumAsInteger,iAsInteger,jAsInteger
考試題二:
1.在窗體上畫一個名稱為Command1的指令按鈕,然后編寫如下事項過程:
PrivateSubCommand1_Click()
DimnumAsInteger
num=1
DoUntilnum6
Printnum;
num=num+2.4
Loop
EndSub
程序運行后,單擊指令按鈕,那么窗體上顯示的內(nèi)容是
(A)13.45.8(B)135(C)147(D)很多據(jù)輸出
2.有如下函數(shù):
FunctionFacn(*AsInteger)AsLong
DimpAsLong,iAsInteger
p=1
Fori=1To*
p=p*i
Ne*ti
Facn=p
EndFunction
調(diào)用它的事項過程如下:
PrivateSubCommand1_Click()
i=Val(InputBo*(“請輸入數(shù)據(jù)”))
a=Facn((i))‘實參i用圓括號括起,那么強制為值傳遞
Printa
EndSub
假設(shè)輸入數(shù)據(jù)6,那么程序運行結(jié)果為(【73】)
(A)60(B)120(C)600(D)720
3.在窗體上畫一個名稱為Command1的指令按鈕,然后編寫如下事項過程:
PrivateSubCommand1_Click()
DimaAsInteger,sAsInteger
a=8
s=1
Do
s=s+a
a=a-1
LoopWhilea=0
Prints;a
EndSub
程序運行后,單擊指令按鈕,那么窗體上顯示的內(nèi)容是
(A)79(B)340(C)97(D)死循環(huán)
4.以下程序的執(zhí)行結(jié)果為(【74】)
DimIntSumAsInteger,iAsInteger
IntSum=0
Fori=30.2To1Step-5.3
IntSum=IntSum+i
Ne*ti
PrintIntSum
(A)106(B)105(C)102(D)101
5.在窗體上畫一個指令按鈕,然后編寫如下事項過程,該過程執(zhí)行結(jié)果為(【75】)
OptionBase1
PrivateSubCommand1_Click()
DimaAsVariant,sAsInteger
a=Array(2,4,6,8)
j=1
Fori=1To4Step1
s=s+a(i)*j
j=j*10
Ne*ti
Prints
EndSub
(A)0(B)1110(C)2468(D)8642
設(shè)有如下通用過程:
PublicFunctionf(*AsInteger)
DimyAsInteger
*=20
y=2
f=**y
EndFunction
6.在窗體上畫一個名稱為Command1的指令按鈕,然后編寫如下事項過程:
PrivateSubCommand1_Click()
Static*AsInteger
*=10
y=5
y=f(*)
Print*;y
EndSub
程序運行后,假如單擊指令按鈕,那么在窗體上顯示的內(nèi)容是
(A)105(B)205(C)2040(D)1040
7.對窗體編寫如下代碼:
OptionBase1
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
a=Array(123,86,57,248,32)
m1=a(1)
m2=1
IfKeyAscii=13Then
Fori=2To5
Ifa(i)m1Then
m1=a(i)
m2=i
EndIf
Ne*ti
EndIf
Printm1,m2
EndSub
程序運行后,按回車鍵,輸出結(jié)果為(【76】)
(A)325(B)2484(C)321(D)2485
設(shè)有如下通用過程:
PublicSubFun(a(),ByVal*AsInteger)
Fori=1To5
*=*+a(i)
Ne*t
EndSub
8.在窗體上畫一個名稱為Te*t1的文本框和一個名稱為Command1的指令按鈕,然后編寫如下的事項過程:
PrivateSubCommand1_Click()
Dimarr(5)AsVariant
Fori=1To5
arr(i)=i
Ne*t
n=10
CallFun(arr(),n)
Te*t1.Te*t=n
EndSub
程序運行后,單擊指令按鈕,那么在文本框中顯示的內(nèi)容是
(A)10(B)15(C)25(D)24
9.閱讀程序:
FunctionFunc(aAsInteger)
b=1
StaticcAsInteger
b=b+1
c=c+1
Func=a+b+c
EndFunction
PrivateSubCommand1_Click()
DimaAsInteger
a=3
Fori=1to3
PrintFunc(a)
Ne*ti
EndSub
運行上面的程序,單擊指令按鈕后,輸出結(jié)果為(【77】)
(A)6(B)6(C)6(D)6
76813
861021
10.在窗體上畫一個名稱為Comman
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年應(yīng)急救生系統(tǒng)項目合作計劃書
- 2025年水基聚合物防水涂料項目合作計劃書
- 智能交通系統(tǒng)建設(shè)工程施工合同
- 鹽城市房屋租賃合同
- 小學(xué)生品德教育讀后感
- 2025年飲料及冷飲服務(wù)項目發(fā)展計劃
- 妊娠紋的專業(yè)知識
- Isonicotinamide-Standard-生命科學(xué)試劑-MCE
- Direct-blue-6-生命科學(xué)試劑-MCE
- 2025年鞋用乳液膠粘劑項目建議書
- 知識產(chǎn)權(quán)師招聘面試題及回答建議(某大型央企)
- 科技結(jié)合的小學(xué)種植園活動方案
- 2024小學(xué)語文課標(biāo)培訓(xùn)
- 2024年煙草知識考試題庫
- 初中數(shù)學(xué)幾何《將軍飲馬》模型題匯編含答案解析
- 8.3 法治社會 課件高中政治統(tǒng)編版必修三政治與法治
- 四則混合運算100道(專項訓(xùn)練)-2024-2025學(xué)年五年級上冊數(shù)學(xué)人教版
- 基于大數(shù)據(jù)分析的市場營銷策略優(yōu)化探討
- 智慧燃?xì)獍踩O(jiān)管平臺整體解決方案
- 《鴻門宴》優(yōu)教課件1
- GB/T 44325-2024工業(yè)循環(huán)冷卻水零排污技術(shù)規(guī)范
評論
0/150
提交評論