需要答案請(qǐng)加QQ：296856541 微信：aopopengzs
可做奧鵬全部院校在線作業(yè)、離線作業(yè)、畢業(yè)論文
《VB程序設(shè)計(jì)》課程在線作業(yè)1
試卷總分:100 得分:100
第1題,在窗體中添加一個(gè)命令按鈕然后編寫如下程序
PrivateSubCommand1Click
DimaAsIntegerbAsInteger
a=InputBox"EntertheFirstinteger"
b=InputBox"EntertheSecondinteger"
Printb+a
EndSub
程序運(yùn)行后單擊命令按鈕先后在兩個(gè)輸入框中分別輸入123和123則輸出結(jié)果是
A、246
B、123
C、456
D、123123
正確答案:
第2題,在窗體上畫一個(gè)名稱為Command1的命令按鈕和兩個(gè)名稱分別為Text1、Text2的文本框然后編寫如下事件過(guò)程
PrivateSubCommand1Click
n=Text1Text
SelectCasen
Case1To20
x=10
Case246
x=20
CaseIs10
x=30
Case10
x=40
EndSelect
Text2Text=x
EndSub
程序運(yùn)行后如果在文本框Text1中輸入10然后單擊命令按鈕則在Text2中顯示的內(nèi)容是
A、10
B、20
C、30
D、40
正確答案:
第3題,指出下面哪個(gè)語(yǔ)句不是寫文件語(yǔ)句
A、Print
B、Output
C、Write
D、Put
正確答案:
第4題,窗體上有一組合框Combol窗體加載時(shí)的代碼如下PrivateSubFormLoadCombolAddItem"電視機(jī)"CombolAddItem"錄像機(jī)"CombolAddItem"VCD"CombolAddItem"組合音響"EndSub要在文本框Textl中顯示列表中的第三個(gè)項(xiàng)目則正確的語(yǔ)句的是
A、Textl.Text=Combol.List(0)
B、Textl.Text=Combol.List(1)
C、Textl.Text=Combol.List(2)
D、Textl.Text=Combol.List(3)
正確答案:
答案來(lái)源：（www.）,設(shè)組合框Combo1中有三個(gè)項(xiàng)目則以下能刪除最后一項(xiàng)的語(yǔ)句是
A、Combo1.RemoveItem Text
B、Combo1.RemoveItem 2
C、Combo1.RemoveItem 3
D、Combo1.RemoveItem Combo1.Listcount
正確答案:
第6題,設(shè)有如下通用過(guò)程
PublicSubFunaByValxAsInteger
Fori=1To5
x=x+ai
Next
EndSub
在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕然后編寫如下的事件過(guò)程
PrivateSubCommand1ClickDimarr5AsVariant
Fori=1To5
arri=i
Next
n=10
CallFunarrn
Text1Text=n
EndSub
程序運(yùn)行后單擊命令按鈕則在文本框中顯示的內(nèi)容是
A、10
B、15
C、25
D、24
正確答案:
第7題,為了把一個(gè)記錄型變量的內(nèi)容寫入文件中指定的位置要使用語(yǔ)句
A、Get文件號(hào)，記錄號(hào)，變量名
B、Get文件號(hào)，變量名，記錄號(hào)
C、Put文件號(hào)，變量名，記錄號(hào)
D、Put文件號(hào)，記錄號(hào)，變量名
正確答案:
第8題,在下列動(dòng)作中不能引發(fā)命令按鈕Click事件的是
A、在按鈕上單擊鼠標(biāo)左鍵
B、在按鈕上單擊鼠標(biāo)右鍵
C、把焦點(diǎn)轉(zhuǎn)移到按鈕上，然后按回車
D、如果按鈕有快捷字母鍵，按Alt+快捷字母鍵
正確答案:
第9題,在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕然后編寫如下事件過(guò)程
PrivateSubCommand1Click
Dimarray11010AsInteger
DimIjAsInteger
ForI=1To3
Forj=2To4
array1Ij=I+j
Nextj
NextI
Text1Text=array123+array134
EndSub
程序運(yùn)行后單擊命令按鈕在文本框中顯示的值是
A、12
B、13
C、14
D、15
正確答案:
答案來(lái)源：（www.）,設(shè)有如下程序
OptionBase0
PrivateSubFormClick
Dima
DimIAsInteger
a=Array123456789
ForI=0To3
Printa5I
NextI
EndSub
程序運(yùn)行后單擊窗體則在窗體上顯示的是
A、4321
B、5432
C、6543
D、7654
正確答案:
第11題,在調(diào)用"打開(kāi)"或"保存"文件對(duì)話框時(shí)如果需要指定文件列表框列出的文件類型是doc文件則正確的描述格式是
A、CommonDialog1.Filter="*.DOC|*.doc"
B、CommonDialog1.Filter="文本文件（.doc）|（*.doc）"
C、CommonDialog1.Filter="text(.doc)||(*.doc)"
D、CommonDialog1.Filter="text(.doc)(*.doc)"
正確答案:
答案來(lái)源：（www.）,如果要在菜單中添加一個(gè)分隔線則應(yīng)將其Caption屬性設(shè)置為
A、*
B、=
C、&
D、-
正確答案:
第13題,下列哪個(gè)屬性設(shè)置文本框中文字的對(duì)齊方式
A、SelLength
B、Alignment
C、Multiline
D、ScrollBars
正確答案:
第14題,以下能判斷是否到達(dá)文件尾的函數(shù)是
A、BOF
B、LOC
C、LOF
D、EOF
正確答案:
答案來(lái)源：（www.）,下面敘述錯(cuò)誤的是
A、驅(qū)動(dòng)器列表框DriveListBox顯示當(dāng)前系統(tǒng)中有效磁盤驅(qū)動(dòng)器
B、目錄列表框DirListBox顯示當(dāng)前驅(qū)動(dòng)器分層目錄樹(shù)
C、文件列表框FileListBox顯示選定目錄中的所有文件
D、文件列表框FileName屬性是設(shè)定允許顯示文件名的文件類型
正確答案:
第16題,設(shè)a=10b=5c=1執(zhí)行語(yǔ)句Printabc后窗體上顯示的是
A、True
B、False
C、1
D、出錯(cuò)信息
正確答案:
第17題,在窗體上畫一個(gè)名稱為Command1的命令按鈕然后編寫如下事件過(guò)程
PrivateSubCommand1Click
DimnumAsInteger
num=1
DoUntilnum6
Printnum
num=num+24
Loop
EndSub
程序運(yùn)行后單擊命令按鈕則窗體上顯示的內(nèi)容是
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、無(wú)數(shù)據(jù)輸出
正確答案:
第18題,以下關(guān)于焦點(diǎn)的敘述中錯(cuò)誤的是
A、如果文本框的TabStop屬性為False，則不能接收從鍵盤輸入的數(shù)據(jù)
B、當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件
C、當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用
D、可以用TabIndex屬性改變Tab順序
正確答案:
第19題,執(zhí)行語(yǔ)句Open"Teldat"ForRandomAs1Len=50后對(duì)文件Teldat中的數(shù)據(jù)能夠執(zhí)行的操作是
A、只能寫，不能讀
B、只能讀，不能寫
C、既可以讀，也可以寫
D、不能讀，不能寫
正確答案:
答案來(lái)源：（www.）,Sub過(guò)程與Function函數(shù)的最根本區(qū)別是
A、Function過(guò)程可以有參數(shù)，而Sub過(guò)程不可以
B、兩種過(guò)程參數(shù)的傳遞方式不同
C、Sub過(guò)程無(wú)返回值，但Function過(guò)程有返回值
D、Sub過(guò)程是語(yǔ)句級(jí)調(diào)用，可以使用Call或直接使用過(guò)程名，但Function過(guò)程是在表達(dá)式中調(diào)用
正確答案:
