6[單選題] 下面控件中,沒有Caption屬性的是( )。
A.復選框B.單選按鈕C.組合框D.框架
參考答案:C
參考解析:Caption屬性是設置或返回拄件的標題。組合框沒有Caption屬性。故選C。
7[單選題] 列表框中被選中的數據項的位置可以通過一個屬性獲得,這個屬性是
A.ListB.ListlndexC.TextD.ListCount
參考答案:B
參考解析:列表框控件的Listlndex屬性值是已選中的表項的位置。表項位置由索引值指定,第一項的索引值為0,第二項為1,以此類推。如果沒有任何項被選中,Listlndex的值將設置為-1。
8[單選題] 閱讀程序:
程序運行后.如果單擊窗體,則輸出結果為
參考答案:D
參考解析:第一個For循環給數組Arr賦值。第二個For循環打印數組各元素的值。在第一個For循環中,數組的下標用變量i表示,上標用變量j表示。If…Else語句對兩種情況進行判斷,在i等于j的時候或者i和j滿足j=3-i+1關系的時候,Arr數組元素被賦值為l,其他情況被賦值為0。可以根據循環語句的執行,代入各變量值算得各元素的值。選D.。
9[單選題]窗體上有1個名稱為Command1的命令按鈕,事件過程如下:
運行程序,并在三次單擊命令按鈕時,分別輸入正整數100、90和60,則窗體上顯示的內容為
A.000B.0060C.0900D.100060
參考答案:B
參考解析:按鈕事件中變量X為過程局部變量,第1次輸入100時,Select語句執行CaseElse分支X=x*hum=0*100=0。第二次輸入90時,Select語句執行CaseElse分支x=x*num=0*90=0。第三次輸入60時Select語句執行CaseIs<90分支X=Itll//l=60。因此窗體上顯示為O060。
10[簡答題]在考生文件夾下有一個工程文件sjt5.vbp,相應的窗體文件為sjt5.frm,此外還有一個名為datain.txt的文本文件,其內容如下:
程序運行后,單擊窗體,將把文件datain.txt中的數據輸入到二維數組Mat中,按5行、5列的矩陣形式在窗體上顯示出來,并輸出矩陣右上一左下對角線上的數據,如圖所示。在窗體的代碼窗口中,已給出了部分程序,這個程序不完整,請把它補充完整,并能正確運行。
要求:去掉程序中的注釋符,把程序中的?改為正確的內容,使其實現上述功能,但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。
參考解析:
本題須先定義一個數組,然后以輸入方式打開文件in5.txt,并在一個嵌套的For循環中用Input#讀人數據并賦值給每個數組元素。然后再通過一個嵌套的For循環將數組alr中的數據在窗體上按5行、5列的矩陣形式顯示出來,最后將數組an"中第l維下標與第2維下標之和為6的數組元素顯示在窗體上。
【操作步驟】
步驟l:打開本題工程文件。
步驟2:分析并編寫程序代碼。程序提供代碼
Option Base l
Private Sub Form_Click()ConstN=5
ConstM=5。Dim?
Dim i,j
。Open App.Path&”、”&”da、tain.txt”?As#lFor i=I To N、
Forj=1 ToM
NextjNextiClose#1Print
Print”初始矩陣為:”Print
Fori=1 TO N
Forj=1 ToM
Print Tab(5{j);Mat(i,j);Nextj
PrintNexti
Print:Print
Print”右上一左下對角線上的數為:”Fori=1 TON
Forj=1 To M’
If’Then
PrintTab(5}i);Mat(i,j);EndIf
Nextj
NextiEnd Sub程序結束參考答案第1個?處填入:Mat(N,M)As Integer
第2個?處填人:ForInput
第3個?處填,A.:Input#1,Mat(i,j)第4個?處填入:i+j=6
步驟3:調試并運行程序,關閉程序后按題目要求存盤。
相關推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |