版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
本文格式為Word版,下載可任意編輯——2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷
(考試時(shí)間90分鐘,總分值100分)
一、選擇題((1)~(20)每題2分,(21)~(30)每題3分,共70分)以下各題A)、B)、C)、D)四個(gè)選項(xiàng)中,只有一個(gè)選項(xiàng)是正確的,請將正確選項(xiàng)填涂在答題卡相應(yīng)位置上,答在試卷上不得分。
(1)設(shè)窗體上有一個(gè)文本框,名稱為text1,程序運(yùn)行后,要求該文本框只能顯示信息,不能接受輸入的信息,以下能實(shí)現(xiàn)該操作的語句是
A)Text1.MaxLength=0B)Text1.Enabled=Flase
C)Text1.Visible=FlaseD)Text1.Width=0
(2)以下能在窗體Form1的標(biāo)題欄中顯示“VisualBasic窗體的語句是
A)=VisualBasic窗體
B)Form1.Title=VisualBasic窗體
C)Form1.Caption=VisualBasic窗體
D)Form1.Text=VisualBasic窗體〞
(3)在窗體上畫一個(gè)名稱為Text1的文本框,然后畫一個(gè)名稱為HScroll1的滾動(dòng)條,其Min和Max屬性分別為0和100。程序運(yùn)行后,假使移動(dòng)滾動(dòng)框,則在文本框中顯示滾動(dòng)條的當(dāng)前值,如下圖。
以下能實(shí)現(xiàn)上述操作的程序段是
A)PrivateSubHscroll1_Change()
Text1.Text=HScroll1.Value
EndSub
B)PrivateSubHscroll1_Click()
Text1.Text=HScroll1.Value
EndSub
C)PrivateSubHscroll1_Change()
Text1.Text=Hscroll1.Caption
EndSub
D)PrivateSubHscroll1_Click()
Text1.Text=Hscroll1.Caption
EndSub
(4)設(shè)菜單中有一個(gè)菜單項(xiàng)為Open。若要為該菜單命令設(shè)置訪問鍵,即按下Alt及字母O時(shí),能夠執(zhí)行Open命令,則在菜單編輯器中設(shè)置“Open命令的方式是
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
A)把Caption屬性設(shè)置為Open
B)把Caption屬性設(shè)置為Open
C)把Name屬性設(shè)置為Open
D)把Name屬性設(shè)置為Open
(5)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程:PrivateSubCommand1_Click()
x=InputBox(Input)
SelectCasex
Case1,3
Print分支1
CaseIs4
Print分支2
CaseElse
PrintElse分支
EndSelect
EndSub
程序運(yùn)行后,假使在輸入對話框中輸入2,則窗體上顯示的是
A)分支1B)分支2C)Else分支D)程序出錯(cuò)
(6)以下關(guān)于MsgBox的表達(dá)中,錯(cuò)誤的是
A)MsgBox函數(shù)返回一個(gè)整數(shù)
B)通過MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型
C)MsgBox語句沒有返回值
D)MsgBox函數(shù)的其次個(gè)參數(shù)是一個(gè)整數(shù),該參數(shù)只能確定對話框中顯示的按鈕數(shù)量
(7)在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件,要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件,則以下正確的屬性設(shè)置語句是
A)Timer1.Interval=0.5B)Timer1.Interval=5
C)Timer.Interval=50D)Timer1.Interval=500
(8)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程:PrivateSubCommand1_Click()
StaticxAsInteger
Cls
Fori=1To2
y=y+x
x=x+2
Next
Printx,y
EndSub
程序運(yùn)行后,連續(xù)三次單擊Command1按鈕后,窗體上顯示的是
A)42B)1218C)1230D)46
(9)以下關(guān)于多重窗體程序的表達(dá)中,錯(cuò)誤的是
A)用Hide方法不但可以隱蔽窗體,而且能清除內(nèi)存中的窗體
B)在多重窗體程序中,各窗體的菜單是彼此獨(dú)立的
C)在多重窗體程序中,可以根據(jù)需要指定啟動(dòng)窗體
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
D)對于多重窗體程序,需要單獨(dú)保存每個(gè)窗體
(10)以下關(guān)于文件的表達(dá)中,錯(cuò)誤的是
A)順序文件中的記錄一個(gè)接一個(gè)地順序存放
B)隨機(jī)文件中記錄的長度是隨機(jī)的
C)執(zhí)行開啟文件的命令后,自動(dòng)生成一個(gè)文件指針
D)LOF函數(shù)返回給文件分派的字節(jié)數(shù)
(11)以下表達(dá)中錯(cuò)誤的是
A)事件過程是響應(yīng)特定事件的一段程序
B)不同的對象可以具有一致名稱的方法
C)對象的方法是執(zhí)行指定操作的過程
D)對象事件的名稱可以由編程者指定
(12)以下合法的VisualBasic標(biāo)識符是
A)ForLoopB)ConstC)9abcD)a#x
(13)當(dāng)一個(gè)復(fù)選框被選中時(shí),它的Value屬性的值是
A)3B)2C)1D)0
(14)表達(dá)式5Mod3+3\5*2的值是
A)0B)2C)4D)6
(15)設(shè)x=4,y=8,z=7,以下表達(dá)式的值是
xyAnd(Notyz)Orzx
A)1B)-1C)TrueD)False
(16)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程:PrivateSubCommand1_Click()
a$=VisualBasic
PrintString(3,a$)
EndSub
程序運(yùn)行后,單擊命令按鈕,在窗體上顯示的內(nèi)容是
A)VVVB)VisC)sicD)11
(17)設(shè)有如下程序段:
x=2
Fori=1To10Step2
x=x+i
Next
運(yùn)行以上程序后,x的值是
A)26B)27C)38D)57
(18)以下表達(dá)中錯(cuò)誤的是
A)在KeyPress事件過程中不能識別鍵盤的按下與釋放
B)在KeyPress事件過程中不能識別回車鍵
C)在KeyDown和KeyUp事件過程中,將鍵盤輸入的A和a視作一致的字母
D)在KeyDown和KeyUp事件過程中,從大鍵盤上輸入的1和從右側(cè)小鍵盤上輸入的1被視作不同的字符
(19)執(zhí)行如下兩條語句,窗體上顯示的是
a=9.8596
PrintFormat(a,$00,00.00)
A)0,009.86B)$9.86C)9.86D)$0,009.86
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
(20)在窗體上畫一個(gè)名稱為CommandDialog1的通用對話框,一個(gè)名稱為Command1的命令按鈕。然后編寫如下事件過程:
PrivateSubCommand1_Click()
CommonDialog1.FileName=
CommonDialog1.Filter=Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle=VBTest
CommonDialog1.Action=1
EndSub
對于這個(gè)程序,以下表達(dá)中錯(cuò)誤的是
A)該對話框被設(shè)置為“開啟〞對話框
B)在該對話框中指定的默認(rèn)文件名為空
C)該對話框的標(biāo)題為VBTest
D)在該對話框中指定的默認(rèn)文件類型為文本文件(*.Txt)
(21)設(shè)一個(gè)工程由兩個(gè)窗體組成,其名稱分別為Form1和Form2,在Form1上有一個(gè)名稱為Command1的命令按鈕。窗體Form1的程序代碼如下:
PrivateSubCommand1_Click()
DimaAsInteger
a=10
Callg(Form2,a)
EndSub
PrivateSubg(fAsForm,xAsInteger)
y=IIf(x10,100,-100)
f,Show
f.Caption=y
EndSub
運(yùn)行以上程序,正確的結(jié)果是
A)Form1的Caption屬性值為100
B)Form2的Caption屬性值為-100
C)Form1的Caption屬性值為-100
D)Form2的Caption屬性值為100
(22)在窗體上畫一個(gè)名稱為Command1的命令按鈕,并編寫如下程序:PrivateSubCommand1_Click()
DimxAsInteger
StaticyAsInteger
x=10
y=5
Callf1(x,y)
Printx,y
EndSub
PrivateSubf1(ByRefx1AsInteger,y1AsInteger)
x1=x1+2
y1=y1+2
EndSub
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
程序運(yùn)行后,單擊命令按鈕,在窗體上顯示的內(nèi)容是
A)105B)125C)107D)127
(23)設(shè)有如下程序
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimnAsInteger
n=InputBox(輸入數(shù)據(jù))
Ifn10Then
CallGetArray(a,n)
EndIf
EndSub
PrivateSubGetArray(b()AsInteger,nAsInteger)
Dimc(10)AsInteger
j=0
Fori=1Ton
b(i)=CInt(Rnd()*100)
Ifb(i)/2=b(i)\2Then
j=j+1
c(j)=b(i)
EndIf
Next
Printj
EndSub
以下表達(dá)中錯(cuò)誤的是
A)數(shù)組b中的偶數(shù)被保存在數(shù)組c中
B)程序運(yùn)行終止后,在窗體上顯示的是c數(shù)組中元素的個(gè)數(shù)
C)GetArray過程的參數(shù)n是按值傳送的
D)假使輸入的數(shù)據(jù)大于10,則窗體上不顯示任何顯示
(24)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程:OptionBase1
PrivateSubCommand1_Click()
Dima
a=Array(1,2,3,4,5)
Fori=1ToUBound(a)
a(i)=a(i)+i-1
Next
Printa(3)
EndSub
程序運(yùn)行后,單擊命令按鈕,則在窗體上顯示的內(nèi)容是
A)4B)5C)6D)7
(25)閱讀程序
OptionBase1
PrivateSubForm_Click()
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
Dimarr,Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
Fori=1To10
Ifarr(i)/3=arr(i)\3Then
Sum=Sum+arr(i)
EndIf
Nexti
PrintSum
EndSub
程序運(yùn)行后,單擊窗體,輸出結(jié)果為
A)13B)14C)27D)15
(26)在窗體上畫一個(gè)名稱為File1的文件列表框,并編寫如下程序:PrivateSubFile1_DblClick()
x=Shell(File1.FileName,1)
EndSub
以下關(guān)于該程序的表達(dá)中,錯(cuò)誤的是
A)x沒有實(shí)際作用,因此可以將該語句寫為:CallShell(File1,FileName,1)
B)雙擊文件列表框中的文件,將觸發(fā)該事件過程
C)要執(zhí)行的文件的名字通過File1.FileName指定
D)File1中顯示的是當(dāng)前驅(qū)動(dòng)器、當(dāng)前目錄下的文件
(27)在窗體上畫一個(gè)名稱為Label1、標(biāo)題為“VisualBasic考試〞的標(biāo)簽,兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為“開始〞和“中止〞的命令按鈕,然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件,并把其Interval屬性設(shè)置為500,如下圖。
編寫如下程序:
PrivateSubForm_Load()
Timer1.Enabled=False
EndSub
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
IfLabel1.LeftWidthThen
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
Label1.Left=Label1.Left+20
Else
Label1.Left=0
EndIf
EndSub
程序運(yùn)行后單擊“開始〞按鈕,標(biāo)簽在窗體中移動(dòng)。
對于這個(gè)程序,以下表達(dá)中錯(cuò)誤的是
A)標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃?/p>
B)單擊“中止〞按鈕后再單擊“開始〞按鈕,標(biāo)簽從中止的位置繼續(xù)移動(dòng)
C)當(dāng)標(biāo)簽全部移出窗體后,將從窗體的另一端出現(xiàn)并重新移動(dòng)
D)標(biāo)簽按指定的時(shí)間間隔移動(dòng)
(28)執(zhí)行以下程序段
a$=abbacddcba
Fori=6To2Step-2
X=Mid(a,i,i)
Y=Left(a,i)
z=Right(a,i)
z=UCase(XYz)
Nexti
Printz
輸出結(jié)果為
A)ABAB)BBABBAC)ABBABAD)AABAAB
(29)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下程序:OptionBase1
PrivateSubCommand1_Click()
DimaAsVariant
a=Array(1,2,3,4,5)
Sum=0
Fori=1To5
Sum=sum+a(i)
Nexti
x=Sum/5
Fori=1To5
Ifa(i)xThenPrinta(i);
Nexti
EndSub
程序運(yùn)行后,單擊命令按鈕,在窗體上顯示的內(nèi)容是
A)12B)123C)345D)45
(30)假定一個(gè)工程由一個(gè)窗體文件Form1和兩個(gè)標(biāo)準(zhǔn)模塊文件Model1及Model2組成。
Model1代碼如下:
PublicxAsInteger
PublicyAsInteger
SubS1()
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
S2
EndSub
SubS2()
y=10
Form1.Show
EndShow
Model2的代碼如下:
SubMain()
S1
EndSub
其中SubMain被設(shè)置為啟動(dòng)過程。程序運(yùn)行后,各模塊的執(zhí)行順序是
A)Form1→Model1→Model2B)Model1→Model2→Form1
C)Model2→Model1→Form1D)Model2→Form1→Model1
二、填空題(每空2分,共30分)
請將每空的正確答案寫在答題卡~序號的橫線上,答在試卷上不得分。
(1)設(shè)有如下程序段:
a$=BeijingShanghai
b$=Mid(a$,InStr(a$,g)+1)
執(zhí)行上面的程序段后,變量b$的值為。
(2)以下程序段的輸出結(jié)果是。
num=0
Whilenum=2
num=num+1
Wend
Printnum
(3)窗體上有一個(gè)名稱為List1的列表框,一個(gè)名稱為Text1的文本框,一個(gè)名稱為Label1、Caption屬性為“Sum〞的標(biāo)簽,一個(gè)名稱為Command1、標(biāo)題為“計(jì)算〞的命令按鈕。程序運(yùn)行后,將把1~100之間能夠被7整除的數(shù)添加到列表框中。假使單擊“計(jì)算〞按鈕,則對List1中的數(shù)進(jìn)行累加求和,并在文本框中顯示計(jì)算結(jié)果,如下圖。以下是實(shí)現(xiàn)上述功能的程序,請?zhí)羁铡?/p>
PrivateSubForm_Load()
Fori=1To100
IfiMod7=0Then
EndIf
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
EndSub
PrivateSubCommand1_Click()
Sum=0
Fori=0To
Sum=Sum+
Next
Text1.Text=Sum
EndSub
(4)本程序的功能是利用隨機(jī)數(shù)函數(shù)模擬投幣,方法是:每次隨機(jī)產(chǎn)生一個(gè)0或1的整數(shù),相當(dāng)于一次投幣,1代表正面,0代表反面。在窗體上有三個(gè)文本框,名稱分別是Text1、Text2、Text3,分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù),如下圖。程序運(yùn)行后,在文本框Text1中輸入總次數(shù),然后單擊“開始〞按鈕,依照輸入的次數(shù)模擬投幣,分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù),并顯示結(jié)果。以下是實(shí)現(xiàn)上述功能的程序,請?zhí)羁铡?/p>
PrivateSubCommand1_Click()
Randomize
n=CInt(Text1.Text)
n1=0
n2=0
ForI=1To
r=Int(Rnd*2)
Ifr=Then
n1=n1+1
Else
n2=n2+1
EndIf
Next
Text2.Text=n1
Text3.Text=n2
EndSub
(5)閱讀程序:
OptionBase1
PrivateSubForm_Click()
Dima(3)AsInteger
Print輸入的數(shù)據(jù)是:;
Fori=1To3
a(i)=InputBox(輸入數(shù)據(jù))
2023年9月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)
Printa(i);
Next
Ifa(1)a(2)Then
t=a(1)
a(1)=a(2)
a(2)=
EndIf
Ifa(2)a(3)Then
m=a(2)
ElseIfa(1)a(3)Then
m=
Else
m=
EndIf
Print中間數(shù)是:;m
EndSub
程序運(yùn)行后,單擊窗體,在輸入對話框中分別輸入三個(gè)整數(shù),程序?qū)⑤敵鋈齻€(gè)數(shù)中的中間數(shù),如下圖。請?zhí)羁铡?/p>
(6)在窗體上畫一個(gè)名稱為“Command1〞,標(biāo)題為“計(jì)算〞的命令按鈕,再畫7個(gè)標(biāo)簽,其中5個(gè)標(biāo)簽組成名稱為Label1的控件數(shù)組;名稱為Label2的標(biāo)簽用于顯示計(jì)算結(jié)果,其Caption屬性的初始值為空;標(biāo)簽Label3的標(biāo)題為“計(jì)算結(jié)果〞。運(yùn)行程序時(shí)會自動(dòng)生成5個(gè)隨機(jī)數(shù),分別顯示在標(biāo)簽控件數(shù)組的各個(gè)標(biāo)簽中,如下圖。單擊“計(jì)算〞按鈕,則將標(biāo)簽數(shù)組各元素的值累加,然后計(jì)算結(jié)果顯示在Label2。請?zhí)羁铡?/p>
PrivateSubCommand1_Click()
Sum=0
Fori=0To4
Sum=
溫馨提示
- 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)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 二零二五年度遠(yuǎn)程英語教育兼職外教合同3篇
- 二零二五年酒店員工福利待遇轉(zhuǎn)讓合同示例3篇
- 二零二五版寄賣合同范本:農(nóng)產(chǎn)品寄售協(xié)議書3篇
- 二零二五版植物營養(yǎng)肥料試驗(yàn)與研究服務(wù)合同3篇
- 二零二五年度酒類批發(fā)市場租賃銷售合同2篇
- 二零二五年度耕地承包與農(nóng)村土地承包權(quán)登記發(fā)證合同2篇
- 二零二五年度紅色文化遺址保護(hù)與修復(fù)合同3篇
- 二零二五版躉購電合同:電力批發(fā)市場交易合同2篇
- 二零二五版高端社區(qū)地下車庫經(jīng)營權(quán)轉(zhuǎn)讓合同3篇
- 二零二五年度智能化辦公大樓安全防范系統(tǒng)合同2篇
- 一年級科學(xué)人教版總結(jié)回顧2
- 格式塔心理咨詢理論與實(shí)踐
- 精神發(fā)育遲滯的護(hù)理查房
- 有效排痰的護(hù)理ppt(完整版)
- 魯教版七年級數(shù)學(xué)下冊(五四制)全冊完整課件
- 英語六級詞匯(全)
- 算法向善與個(gè)性化推薦發(fā)展研究報(bào)告
- 聚合物的流變性詳解演示文稿
- 電氣設(shè)備預(yù)防性試驗(yàn)安全技術(shù)措施
- 醫(yī)院出入口安檢工作記錄表范本
- 內(nèi)科學(xué)教學(xué)課件:免疫性血小板減少癥(ITP)
評論
0/150
提交評論