計(jì)算機(jī)程序設(shè)計(jì)a復(fù)習(xí)試題(答案)-資料下載頁
2025-06-23 06:24本頁面
【正文】 ate Sub Command1_Click( )Dim array1(10,10) As IntegerDim i, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i,j) = i + jNext jNext i = array1(2,3) + array1(3,4)End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是（ ）（A）12 （B）13 （C）14 （D）1569． 設(shè)有如下程序：Option Base 0Private Sub Form_Click( )Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i)。NextEnd Sub程序運(yùn)行后，單擊窗體，則在窗體相顯示的內(nèi)容是（ ?。ˋ）4 3 2 1 （B）5 4 3 2 （C）6 5 4 3 （D）7 6 5 470． 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下代碼：Option Base 1Private Sub Command1_Click( )d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) c Thend = d + x(i)c = x(i)Elsed = d – cEnd IfNext iPrint dEnd Sub程序運(yùn)行后，單擊命令按鈕，則在窗體上輸出的內(nèi)容是（ ?。ˋ）89 （B）99 ?。–）23 （D）7771． 假定有以下函數(shù)過程：Function Fun(S As String) As StringDim s1 As StringFor i = 1 To Len(S)s1 = Ucase(Mid(S, i, 1)) + s1Next iFun = s1End Function在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Comman1_Click( )Dim Str1 As String, Str2 As StringStr1 = InputBox(“請輸入一個(gè)字符串：”)Str2 = Fun(Str1)Print Str2End Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊“確定”按鈕后在窗體上輸出的結(jié)果為（ ?。ˋ）abcdefg （B）ABCDEFG （C）gfedcba （D）GFEDCBA72． 在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下代碼：Private Sub Command1_Click( )Dim x, y, z As Integerx = 5y = 7z = 0 = “”Call P1(x, y, z) = Str(z)End SubSub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是（ ?。ˋ）0 （B）12 （C）Str(z) （D）沒有顯示73． 以下關(guān)于過程的敘述中錯(cuò)誤的是（ ）（A） 如果過程被定義為Static類型，則該過程中的局部變量都是Static類型（B） Sub過程中不能嵌套定義Sub過程（C） Sub過程中可以嵌套調(diào)用Sub過程（D） 事件過程可以像通用過程一樣由用戶定義過程名74． 在窗體上畫一個(gè)名稱為Command1的命令按鈕，再畫兩個(gè)名稱分別為LabelLabel2的標(biāo)簽，然后編寫如下程序代碼：Private X As IntegerPrivate Sub Command1_Click( )X = 5: Y = 3Call proc(X, Y) = X = YEnd SubPrivate Sub proc(Byval a As Integer, ByVal b As Integer)X = a * aY = b + bEnd Sub單擊命令按鈕，兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是（ ?。ˋ）5和3 （B）25和3 （C）25和6 （D）5和675． 有如下程序：Private Function func(ByVal a As Integer, ByVal b As Integer)func = a + bEnd FunctionPrivate Sub Command1_Click( )Dim x As Integer, y As IntegerDim z As Integer, r As Integerx = 2 : y = 5 : z = 8r = func(func(x,y),z)Print rEnd Sub當(dāng)在Command1按鈕上單擊，該程序的輸出結(jié)果是（ ?。ˋ）12 （B）13 （C）14 （D）1576． 設(shè)有如下通用過程：Public Sub Fun(a( ), ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click( )Dim art(5) AsVariantFor i = 1 To 5art(i) = iNext in = 10Call Fun(art( ), n) = nEnd Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的內(nèi)容為（ ?。ˋ）10 （B）15 （C）25 （D）2477． 要為工程添加一個(gè)過程，可執(zhí)行“（ ?。辈藛沃械摹疤砑舆^程”（A）文件 （B）視圖 （C）工程 （D）工具78． 以79． 以下關(guān)于菜單的敘述中錯(cuò)誤的是（ ?。ˋ） 在同一個(gè)窗體的菜單項(xiàng)中，不允許出現(xiàn)標(biāo)題相同的菜單項(xiàng)（B） 在菜單的標(biāo)題欄中，“amp?！彼龑?dǎo)的字母指明了訪問該菜單項(xiàng)的鍵盤訪問鍵（C） 程序運(yùn)行過程中，可以重新設(shè)置菜單的“Visual”屬性80． 可通過“打開”對話框的（ ?。傩栽O(shè)置對話框中所顯示文件的類型（A）FileName （B）Filter （C）FilterIndex 以一關(guān)于通用對話框控件的敘述中錯(cuò)誤的是（ ?。ˋ） 在程序運(yùn)行時(shí)，通用對話框控件是不可見的（B） 在同一個(gè)程序中，用不同的方法（如ShowOpen或ShowSave等）打開的通用對話框具有不同的作用（C） 調(diào)用通用對話框控件的ShowOpen方法，可以直接打開在該通用對話框中指定的文件（D） 調(diào)用通用對話框控件的ShowColor方法，可以打開顏色對話框81． 在顯示顏色對話框之前必須設(shè)置（ ?。傩?，否則將發(fā)生不存在字體的錯(cuò)誤（A）FontName （B）FontSize （C）Max （D）Flags（A） 一個(gè)工程中只能有一個(gè)Sub Main過程82． 窗體從加載到顯示時(shí)，將會發(fā)生一系列事件，最先發(fā)生的事件是（ ?。ˋ）Initialize （B）Load （C）Activate （D）Resize83． 以下關(guān)于文件的敘述中正確的是（ ?。ˋ） 一個(gè)記錄中所包含的各個(gè)元素的數(shù)據(jù)類型必須相同（B） 隨機(jī)文件中每個(gè)記錄的長度是固定的（C） Open命令的作用是打開一個(gè)已經(jīng)存在的文件（D） 使用Input語句可以從隨機(jī)文件中讀取數(shù)據(jù)84． 在順序文件中，當(dāng)使用Write語句時(shí)，文件打開的方式是（ ?。ˋ）Output和Input （B）Output或Append（C）Output （D）Append85． 下列關(guān)于Loc函數(shù)的說法正確的是（ ）（A） 對于隨機(jī)方式打開的文件返回上一次對文件進(jìn)行讀出或?qū)懭氲挠涗浱枺˙） 在順序文件中，返回上一次讀出或?qū)懭氲淖止?jié)位置（C） 對于二進(jìn)制方式打開的文件，返回文件中當(dāng)前字節(jié)的位置除以128的值（D） 對于文本方式打開的文件，返回當(dāng)前位置86． 程序代碼如下，發(fā)后Form_Click( )事件后，窗體上顯示的內(nèi)容是（ ?。㎡ption ExplictPrivate Sub Form_Click( )Dim a As String * 1, i As IntegerOpent “d:\” For Random As 10For i = 1 To 5a = Chr(i + 64)Put 10, i, aNext iSeek 10, 3Get 10, , aPrint Loc(10)。 Seek(10)（A）3 4 （B）3 3 ?。–）4 4 （D）4 3《計(jì)算機(jī)程序設(shè)計(jì)A》期末復(fù)習(xí)題（答案） 第 46 頁 共 46
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1