2021年(秋)上機(jī)試卷

上傳人:小** 文檔編號(hào):20593711 上傳時(shí)間:2021-04-01 格式:DOCX 頁(yè)數(shù):13 大?。?0.70KB
收藏 版權(quán)申訴 舉報(bào) 下載
2021年(秋)上機(jī)試卷_第1頁(yè)
第1頁(yè) / 共13頁(yè)
2021年(秋)上機(jī)試卷_第2頁(yè)
第2頁(yè) / 共13頁(yè)
2021年(秋)上機(jī)試卷_第3頁(yè)
第3頁(yè) / 共13頁(yè)

下載文檔到電腦,查找使用更方便

10 積分

下載資源

還剩頁(yè)未讀,繼續(xù)閱讀

資源描述:

《2021年(秋)上機(jī)試卷》由會(huì)員分享,可在線閱讀,更多相關(guān)《2021年(秋)上機(jī)試卷(13頁(yè)珍藏版)》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、2021年(秋)上機(jī)試卷VB1一、改錯(cuò)題題目 本程序的功能是用來(lái)統(tǒng)計(jì)二維數(shù)組A(1 to 4,1 to 4)中所有的元素中09十個(gè)數(shù)字出現(xiàn)的次數(shù),存入數(shù)組Times中并顯示在窗體上。Option ExplicitPrivate Sub Form_Click()Dim a(1 To 4, 1 To 4) As Integer, i As Integer, j As IntegerDim Times(9)RandomizeFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd(1) * 100) + 1Print Format(a(i, j), #);Next

2、jPrintNext iCall Stat(a, Times)For i = 1 To 10Print i; .; Times(i)Next iEnd SubPrivate Sub Stat(a() As Integer, T() As Integer)Dim i As Integer, j As Integer, Cub As Integer, K As IntegerDim Rub As Integer, Char As StringCub = UBound(a, 1): Rub = UBound(a, 2)For i = 1 To CubFor j = 1 To RubChar = LT

3、rim(Str(a(i, j)For K = 1 To 10T (Mid(Char, K, 1) + 1Next KNext jNext iEnd Sub要求1新建工程,輸入上述代碼,改正程序中的錯(cuò)誤;2改錯(cuò)時(shí),不得增加或刪除語(yǔ)句;3以Myfrm1的名字和Myprj1的名字分別將窗體和工程保存到軟件A的根目錄下。二、編程題題目 編寫一個(gè)收購(gòu)小麥與代扣農(nóng)業(yè)稅的程序。編程要求1程序參考界面如圖所示。其中Label1對(duì)象用于顯示“小麥的收購(gòu)價(jià)格是:1.10元/公斤”、“農(nóng)業(yè)稅額:55元/畝”等提示信息。編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,但界面元素的大小、位置可以隨意設(shè)置。2實(shí)現(xiàn)功能:(1

4、)單擊“計(jì)算”按鈕,則根據(jù)輸入的小麥數(shù)量以及所擁有的土地畝數(shù),求出應(yīng)交稅款和應(yīng)得糧稅(應(yīng)得糧稅=小麥總金額-應(yīng)繳稅款),并顯示在相應(yīng)的文本框中;(2)單擊“清除”按鈕,清除四個(gè)文本框中的內(nèi)容;(3)單擊“結(jié)束”按鈕,結(jié)束程序進(jìn)行;要求 以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟件A的根目錄下。注意 考試結(jié)束,考試盤中若無(wú)指定文件,則不于給分。VB2一、改錯(cuò)題題目 本程序的功能是將一個(gè)正整數(shù)序列重新排列為一個(gè)新的序列。新序列排列規(guī)則是:序列左邊是奇數(shù),序列右邊是偶數(shù),奇、偶數(shù)分別從序列的兩端開始依次向序列中間排放。例如,若原序列是31,58,71,5,82,45,54,41

5、,2則新序列是31,71,5,45,41,2,54,82,58Option ExplicitOption Base 1Private Sub Form_Click()Dim a(10) As Integer, i As Integer, j As IntegerDim b(10) As Integer, k As IntegerFor i = 1 To 10a(i) = Int(Rnd * 100) + 1Print a(i);Next iPrintj = 1: k = 5For i = 1 To 10If a(i) Mod 2 = 0 Thenb(j) = a(i)j = j + 1Else

6、b(k) = a(i)k = k + 1End IfNext iFor i = 1 To 10Print b(i);Next iPrintEnd Sub要求1. 新建工程,輸入上述代碼,改正程序中的錯(cuò)誤;2.改錯(cuò)時(shí),不得增加或刪除語(yǔ)句;3.以Myfrm1的名字和Myprj1的名字分別將窗體和工程保存到軟件A 的根目錄下。二、 編程題題目 編寫一個(gè)收購(gòu)小麥與代扣農(nóng)業(yè)稅的程序。 編程要求1.程序參考界面如圖所示。其中Label1對(duì)象用于顯示“小麥的收購(gòu)價(jià)格是:1.10元/公斤”、“農(nóng)業(yè)稅額:55元/畝”等提示信息。編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,但界面元素的大小、位置可以隨意設(shè)置。2

7、.實(shí)現(xiàn)功能:(1) 單擊“計(jì)算”按鈕,則根據(jù)輸入的小麥數(shù)量以及所擁有的土地畝數(shù),求出應(yīng)交稅款和應(yīng)得糧稅(應(yīng)得糧稅=小麥總金額-應(yīng)繳稅款),并顯示在相應(yīng)的文本框中;(2) 單擊“清除”按鈕,清除四個(gè)文本框中的內(nèi)容;(3) 單擊“結(jié)束”按鈕,結(jié)束程序進(jìn)行;要求 以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟件A 的根目錄下。注意 考試結(jié)束,考試盤中若無(wú)指定文件,則不于給分。VB3一、改錯(cuò)題題目 ?+?+=-2118151312111n n f f Y式中:.3),(,2,12121+=-n f f f f f n n n(本程序運(yùn)行結(jié)果是:Y=2.359646)Option Ex

8、plicitPrivate Sub Form_Click()Dim A() As Single, i As IntegerDim y As Singlei = 1DoReDim A(i)A(i) = 1 / Fib(i)If A(i) y = y + A(i)i = i + 1LoopPrint y=; yFor i = 1 To UBound(A)Print A(i)Next iEnd SubPrivate Function Fib(i As Integer) As IntegerIf i = 1 ThenFib = 1ElseIf i = 2 ThenFib = 2ElseFib(i) =

9、 Fib(i - 1) + Fib(i - 2)End IfEnd Function要求1. 新建工程,輸入上述代碼,改正程序中的錯(cuò)誤;2.改錯(cuò)時(shí),不得增加或刪除語(yǔ)句;3.以Myfrm1的名字和Myprj1的名字分別將窗體和工程保存到軟件A 的根目錄下。二、 編程題題目編寫程序,求一元二次方程的根。1 序參考界面如圖所示。編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,但界面元素的大小、位置可以隨意設(shè)置;界面必須顯示在一屏之中。2 在存放方程系數(shù)的文本框中分別輸入系數(shù)a 、b 、c 、的值,單擊“計(jì)算”按鈕,如根判別式小于零,則用信息框顯示方程無(wú)實(shí)根的提示信息,并清除已輸入的方程系數(shù)值;否則,將

10、計(jì)算得到的方程根分別輸出到兩個(gè)根的文本框中。3 擊“清除”按鈕,清除四個(gè)文本框中的內(nèi)容;(1) 單擊“退出”按鈕,結(jié)束程序進(jìn)行;要求 以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟件A 的根目錄下。注意 考試結(jié)束,考試盤中若無(wú)指定文件,則不于給分。 VB4一、改錯(cuò)題題目 本程序的功能是求以下數(shù)列的和,計(jì)算精確到410-n a 為止。?+?+?+?+?+=ny 26421642142121 式中1,2,3(本程序運(yùn)行的正確結(jié)果為:I=6,Y=0.6486979)。Option ExplicitPrivate Function pds(n As Integer)Dim i As

11、Integer, pd As Integer, k As Integerpd = 1k = 1For i = n To 1 Step -1pd = pd * ik = k + 2Next ipds = pdEnd FunctionPrivate Sub Form_Click()Dim y As Single, i As Integer, temp As Singlei = 1Dotemp = 1 / pds(i)Print pds(i)If temp y = y + tempi = i + 1LoopPrint i=; i, y=; yEnd Sub要求1 新建工程,輸入上述代碼,改正程序中的

12、錯(cuò)誤;2 改錯(cuò)時(shí),不得增加或刪除語(yǔ)句;3 以Myfrm1的名字和Myprj1的名字分別將窗體和工程保存到軟件A 的根目錄下。二、編程題題目 編寫一個(gè)加油站計(jì)費(fèi)程序。編程要求1 程序參考界面如圖所示。單選按鈕“90號(hào)汽油”的Value 屬性初始值為True 。編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,但界面元素的大小、位置可以隨意設(shè)置。2 在“種類”中選擇油品種類,界面上的說明文字將隨之改變(設(shè)95號(hào)汽油的單價(jià)為2.45元/升,100號(hào)汽油的單價(jià)如圖所示),并將數(shù)量文本框設(shè)為焦點(diǎn);在數(shù)量文本框中輸入需購(gòu)的油品數(shù)量后,單擊“計(jì)算”按鈕,在總價(jià)文本框中顯示所購(gòu)油品種類應(yīng)付的金額。3 單擊“退出”

13、按鈕,結(jié)束程序進(jìn)行;要求 以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟件A 的根目錄下。注意 考試結(jié)束,考試盤中若無(wú)指定文件,則不于給分。 VB5一、改錯(cuò)題題目 求下面數(shù)列的和,計(jì)算到第n 項(xiàng)的值小于510-等于為止。 ?+?+?+?+?+?+=-nn f f f x x x x x s n 1532533221 其中 ?=+=-2211121n n n f f fn n n 本程序可用x=0.5來(lái)測(cè)試,此時(shí)程序運(yùn)行的正確結(jié)果為:0.6480143。Option ExplicitPrivate Function fib(n As Integer)If n = i Thenf

14、ib = 1ElseIf n = 2 Thenfib = 2Elsefib = fib(n - 1) + fib(n - 2)End IfEnd FunctionPrivate Sub Form_Click()Dim n As Integer, s As Integer, x As Integer, a As SingleDox = InputBox(輸入一個(gè)絕對(duì)值小于1的數(shù):)If Abs(x) = 1 Then Exit DoLoops = xn = 1Doa = x fib(n) / (fib(n - 1) * fib(n)If Abs(a) s = s + an = n + 1Loop

15、Print s=; sEnd Sub要求1建工程,輸入上述代碼,改正程序中的錯(cuò)誤;2錯(cuò)時(shí),不得增加或刪除語(yǔ)句;3以Myfrm1的名字和Myprj1的名字分別將窗體和工程保存到軟件A的根目錄下。二、編程題題目 編程實(shí)現(xiàn)以下功能。1單擊數(shù)組生成按鈕,程序可用隨機(jī)函數(shù)生成二維數(shù)組a(3,3),數(shù)組元素為兩位隨機(jī)正整數(shù),將a數(shù)組里元素按矩形陣形式顯示在圖形框1中。每寫一行后換行。2單擊數(shù)組處理按鈕,則將上述生成的矩陣中的最小元素與矩陣中心位置的元素交換,最后將結(jié)果矩陣在現(xiàn)實(shí)到圖形框2中。每寫一行后換行。編程要求1序必須采用循環(huán)結(jié)構(gòu)處理。2.程序參考界面如圖所示。其中Pictured對(duì)象用于顯示方陣在處理前后的內(nèi)容。編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,但界面元素的大小、位置可以隨意設(shè)置。要求 以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟件A的根目錄下。注意 考試結(jié)束,考試盤中若無(wú)指定文件,則不于給分。

展開閱讀全文
溫馨提示:
1: 本站所有資源如無(wú)特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

相關(guān)資源

更多
正為您匹配相似的精品文檔

相關(guān)搜索

關(guān)于我們 - 網(wǎng)站聲明 - 網(wǎng)站地圖 - 資源地圖 - 友情鏈接 - 網(wǎng)站客服 - 聯(lián)系我們

copyright@ 2023-2025  zhuangpeitu.com 裝配圖網(wǎng)版權(quán)所有   聯(lián)系電話:18123376007

備案號(hào):ICP2024067431號(hào)-1 川公網(wǎng)安備51140202000466號(hào)


本站為文檔C2C交易模式,即用戶上傳的文檔直接被用戶下載,本站只是中間服務(wù)平臺(tái),本站所有文檔下載所得的收益歸上傳人(含作者)所有。裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權(quán)或隱私,請(qǐng)立即通知裝配圖網(wǎng),我們立即給予刪除!