可做奧鵬院校所有作業(yè)，畢業(yè)論文，咨詢請?zhí)砑観Q：3230981406      微信：aopopenfd777

-[電子科技大學(xué)]20秋《VB程序設(shè)計》在線作業(yè)1
試卷總分:100    得分:100
第1題,在窗體中添加一個命令按鈕，然后編寫如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("Enter the Firstinteger")
b=InputBox("Enter the Secondinteger")
Print b+a
End  Sub
程序運行后，單擊命令按鈕，先后在兩個輸入框中分別輸入123和123，則輸出結(jié)果是（   ）。
A、246
B、123
C、456
D、123123
正確答案:A


第2題,在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：
Private Sub Command1_Click()
n = Text1.Text
Select  Case n
Case 1 To 20
x = 10
Case 2,4,6
x = 20
Case Is10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End  Sub
程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是（   ）。
A、10
B、20
C、30
D、40
正確答案:A


第3題,指出下面哪個語句不是寫文件語句（   ）。
A、Print
B、Output
C、Write
D、Put
正確答案:B


第4題,窗體上有一組合框Combol,窗體加載時的代碼如下：Private Sub Form_Load()Combol. AddItem“電視機”Combol. AddItem“錄像機”Combol. AddItem“VCD”Combol. AddItem“組合音響”End Sub要在文本框Textl中顯示列表中的第三個項目，則正確的語句的是（   ）。
A、Textl.Text=Combol.List(0)
B、Textl.Text=Combol.List(1)
C、Textl.Text=Combol.List(2)
D、Textl.Text=Combol.List(3)
正確答案:C


答案來源：（www.）,設(shè)組合框Combo1中有三個項目，則以下能刪除最后一項的語句是（   ）。
A、Combo1.RemoveItem Text
B、Combo1.RemoveItem 2
C、Combo1.RemoveItem 3
D、Combo1.RemoveItem Combo1.Listcount
正確答案:


第6題,設(shè)有如下通用過程：
Public Sub Fun(a(),ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End  Sub
在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下的事件過程
Private Sub Command1_Click()Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End  Sub
程序運行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是（   ）。
A、10
B、15
C、25
D、24
正確答案:


第7題,為了把一個記錄型變量的內(nèi)容寫入文件中指定的位置，要使用語句（   ）。
A、Get文件號，記錄號，變量名
B、Get文件號，變量名，記錄號
C、Put文件號，變量名，記錄號
D、Put文件號，記錄號，變量名
正確答案:


第8題,在下列動作中，不能引發(fā)命令按鈕Click事件的是（   ）。
A、在按鈕上單擊鼠標(biāo)左鍵
B、在按鈕上單擊鼠標(biāo)右鍵
C、把焦點轉(zhuǎn)移到按鈕上，然后按回車
D、如果按鈕有快捷字母鍵，按Alt+快捷字母鍵
正確答案:


第9題,在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim I, j As Integer
For I=1 To 3
For j=2 To 4
array1(I, j)=I+j
Next j
Next I
Text1.Text=array1(2,3)+array1(3,4)
End  Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是（   ）。
A、12
B、13
C、14
D、15
正確答案:


答案來源：（www.）,設(shè)有如下程序：
Option Base 0
Private Sub Form_Click()
Dim  a
Dim I As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For I=0 To 3
Print a(5 - I);
Next  I
End  Sub
程序運行后，單擊窗體，則在窗體上顯示的是（   ）。
A、4321
B、5432
C、6543
D、7654
正確答案:


第11題,在調(diào)用“打開”或“保存”文件對話框時，如果需要指定文件列表框列出的文件類型是.doc文件，則正確的描述格式是（   ）。
A、CommonDialog1.Filter=“*.DOC|*.doc”
B、CommonDialog1.Filter=“文本文件（.doc）|（*.doc）”
C、CommonDialog1.Filter=“text(.doc)||(*.doc)”
D、CommonDialog1.Filter=“text(.doc)(*.doc)”
正確答案:


答案來源：（www.）,如果要在菜單中添加一個分隔線，則應(yīng)將其Caption屬性設(shè)置為（   ）。
A、*
B、=
C、&
D、-
正確答案:


第13題,下列哪個屬性設(shè)置文本框中文字的對齊方式（   ）。
A、SelLength
B、Alignment
C、Multiline
D、ScrollBars
正確答案:


第14題,以下能判斷是否到達文件尾的函數(shù)是（   ）。
A、BOF
B、LOC
C、LOF
D、EOF
正確答案:


答案來源：（www.）,下面敘述錯誤的是（   ）。
A、驅(qū)動器列表框DriveListBox顯示當(dāng)前系統(tǒng)中有效磁盤驅(qū)動器
B、目錄列表框DirListBox顯示當(dāng)前驅(qū)動器分層目錄樹
C、文件列表框FileListBox顯示選定目錄中的所有文件
D、文件列表框FileName屬性是設(shè)定允許顯示文件名的文件類型
正確答案:


第16題,設(shè)a=10,b=5,c=1,執(zhí)行語句Print abc后，窗體上顯示的是（   ）。
A、True
B、False
C、1
D、出錯信息
正確答案:


第17題,在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num  6
Print num;
num = num + 2.4
Loop
End  Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是（   ）。
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、無數(shù)據(jù)輸出
正確答案:


第18題,以下關(guān)于焦點的敘述中，錯誤的是（   ）。
A、如果文本框的TabStop屬性為False，則不能接收從鍵盤輸入的數(shù)據(jù)
B、當(dāng)文本框失去焦點時，觸發(fā)LostFocus事件
C、當(dāng)文本框的Enabled屬性為False時，其Tab順序不起作用
D、可以用TabIndex屬性改變Tab順序
正確答案:


第19題,執(zhí)行語句：Open "Tel.dat" For Random As #1 Len=50后，對文件Tel.dat中的數(shù)據(jù)能夠執(zhí)行的操作是（   ）。
A、只能寫，不能讀
B、只能讀，不能寫
C、既可以讀，也可以寫
D、不能讀，不能寫
正確答案:


答案來源：（www.）,Sub過程與Function函數(shù)的最根本區(qū)別是（   ）。
A、Function過程可以有參數(shù)，而Sub過程不可以
B、兩種過程參數(shù)的傳遞方式不同
C、Sub過程無返回值，但Function過程有返回值
D、Sub過程是語句級調(diào)用，可以使用Call或直接使用過程名，但Function過程是在表達式中調(diào)用
正確答案: