下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、精品文檔3. 執(zhí)行下面的程序段后,x 的值為 (x=2 ForA) 2B) 44. 假定有以下循環(huán)結(jié)構(gòu):i=1 To 10C) 7Step 3 x=x+i2 Next iD) 9VB程序設(shè)計(jì)作業(yè)(二)客觀題部分: 選擇題(每題 1 分,共 15 題)1. 當(dāng) VB 執(zhí)行下面語句后, A 的值為( A )。A=1 IF A0 THEN A=A+1 IF A1 THEN A=0A) 0 B) 1 C) 2D) 32. 當(dāng) VB 執(zhí)行下面語句后,輸出的結(jié)果是( B )。 Private Sub Form_Click ()score = Int(Rnd * 10) + 30 Select Case s
2、core Case Is 8 x = x * y y = y +1 Loop Print xA) 2 B) 9C) 10D) 167. 用下面的語句所定義的數(shù)組的元素個數(shù)是( D )。Dim A ( -3 To 5)As IntegerA) 6 B) 7C) 8 D) 98. 閱讀下面的程序段:For i=1 To 2 For j=1 To I For k=j To 2 x=x+1 Next k Next j Next i 執(zhí)行上面的三重循環(huán)后, x 的值為 ( C )。A) 3B) 4C) 5D) 69. 在窗體上畫一個命令按鈕,然后編寫如下事件過程:Private Sub Command1
3、_Click()For i=1 To 3 x=2 For j =1 To 2 x=4 For k=1 To 3 x=x+5 Next k Next j Next i Print x End Sub程序運(yùn)行后,單擊命令按鈕,輸出結(jié)果是 ( B )。A) 11B) 19C) 57D) 6310. 在窗體上畫兩個文本框Textl和Text2, 個命令按鈕 Commandl,然后編寫如下事件過程:Private Sub Command1_Click()x=1 Do While x50 x=(x+1)*(x+2) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x
4、) End Sub 程序運(yùn)行后,單擊命令按鈕,在兩個文本框中顯示的值分別為(B )。A) 1 和 0B) 2 和 56 C) 3 和 70D) 4 和 16811. 以下正確的敘述是(C )。A) Select Case語句中的測試表達(dá)式可以是任何形式的表達(dá)式B) Select Case語句中的測試表達(dá)式只能是數(shù)值表達(dá)式或字符串表達(dá)式C) 在執(zhí)行Select Case語句時,所有Case子句均按出現(xiàn)的次序被順序執(zhí)行D) 如下Select Case語句中的Case表達(dá)式是錯誤的:Select Case x Case 1 to 10 EndSelect12. 在窗體上繪制一個命令按鈕Command
5、1,然后編寫如下程序:Option Base 1 Private Sub Command1_Click()Dim aa = Array(1,2, 3, 4, 5)j = 1For i = 5 To 1 Step -1s =s + a(i) * jj =j * 10Next iPrint s End Sub運(yùn)行程序,單擊命令按鈕,輸出結(jié)果為(B )oA) 54321B)12345C)1234D)432113. 在窗體上繪制一個命令按鈕Commandl,編寫以下事件過程:Private Sub Commandl_C1ick() Dim b b = Array(1,2,3,4,5) End Sub此
6、過程的功能是把 數(shù)組b中的5個數(shù)逆序存放。為了實(shí)現(xiàn)此功能,省略號處的程序段應(yīng)該是( C )A) For i = 0 To 5-12 tmp = b(i) b(i) = b(5-i-1)b(5-i-1) = tmp Next iB)For i =0 To 5tmp=b(i)b(i) = b(5-i-1)b(5-i-1)=tmpNext iC)For i =0 To 52tmp= b(i)b(i) = b(5-i-1)b(5-i-1)=tmpNext iD)For i =1 To 52b(5-i-1) = tmptmp=b(i)b(i) = b(5-i-1)Next i14. 在窗體上繪制一個命令
7、按鈕Commandl,編寫以下事件過程:Option Base 1Private Sub Command1_Click()Dim a(3, 3) As IntegerFor i = 1 To 3Forj = 1 To 3a(i, j) = 2 * i + jNext j Next iFor i = 2 To 3程序運(yùn)行后,單擊命令按鈕,Forj = 2 To 3 輸岀的結(jié)果是(Print a(j, i)Next j Next iEnd SubC )oC) 6x* x(x 0)15.設(shè)有函數(shù)y=0(x =0),下面不能正確求得函數(shù)值的程序段是(x 0)A)B) Select Case xCase Is 0 y=x*xEnd SelectC) If x0 Then y=x*x End IfIf x=0 Then y=0 End IfIf x0 Then y=x End IfD) If x 0 Theny = y * xElsey = 0End If End IfE ) If x0 Theny=x*xElsey=0 End If主觀題部分:編程題(每題 15 分,共 1 題)編程實(shí)現(xiàn)一個窗體 Form 的 click 事件,單擊該窗體后從鍵盤接收變量 n 的數(shù)值然后計(jì)算并打印 1+2+.+n 的值,如果和已經(jīng)大于 1000 則停止計(jì)算。Private Sub Command1_Cli
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 制梁勞務(wù)合同范例
- 信貸資產(chǎn)信托合同范本
- 乙醇燃料的成本管理和降本增效
- 不帶司機(jī)租車合同范本
- 全款買車銷售合同范本
- 兼職模特合同范例
- 冷庫設(shè)備購銷合同范本
- 農(nóng)村承包魚塘經(jīng)營合同范例
- 電影制片人聘用合同范本
- 徐州白云區(qū)門面出租經(jīng)營合同范本
- 2025屆西藏林芝一中高三第二次診斷性檢測英語試卷含解析
- 中國傳統(tǒng)文化非遺文化中國剪紙介紹2
- 藥企銷售總經(jīng)理競聘
- 開封市第一屆職業(yè)技能大賽健康照護(hù)項(xiàng)目技術(shù)文件(國賽)
- 飲酒與糖尿病
- 公路電子收費(fèi)系統(tǒng)安裝合同范本
- 醫(yī)院培訓(xùn)課件:《傷口評估與測量》
- 期末試卷(試題)-2024-2025學(xué)年四年級上冊數(shù)學(xué)滬教版
- 《第一單元口語交際:即興發(fā)言》教案-2023-2024學(xué)年六年級下冊語文統(tǒng)編版
- 情侶自愿轉(zhuǎn)賬贈與協(xié)議書范本
- 綜合實(shí)踐項(xiàng)目 制作水族箱飼養(yǎng)淡水魚 教學(xué)設(shè)計(jì)-2024-2025學(xué)年魯科版生物六年級上冊
評論
0/150
提交評論