vb筆試題測試二-資料下載頁
2025-08-27 20:43本頁面
【導(dǎo)讀】1．為了是文本框同時具有水平和垂直滾動條，應(yīng)先把MultiLine屬性設(shè)置為。Ture，然后再把ScrollBars屬性設(shè)置為（）。裝入圖片框Picture1中的語句為（）。Picture1中裝入了一個圖形，為了清除該圖形（注意，清除圖形，而不是刪除圖片框），正確的方法是（）。A選擇圖片框，然后按Del鍵。B執(zhí)行語句=LoadPicture(””). 要求單擊Command1按鈕時可把光標(biāo)移到文本框中。下面正確的事件過。C)只有輸入的n是大于1000的整數(shù)時才會出現(xiàn)死循環(huán)，否則不會。上顯示一次系統(tǒng)當(dāng)前時間。在程序執(zhí)行時發(fā)現(xiàn)未能實現(xiàn)上述目的，那么，他應(yīng)做的修改是。A）通過屬性窗口把計時器的Interval屬性設(shè)置為2020. 調(diào)試時發(fā)現(xiàn)運行結(jié)果有錯誤，需要修改。D）循環(huán)中兩條賦值語句的順序錯誤，應(yīng)改為s=s+k:k=k+2
【正文】 3 “ItemB” 2 “ItemC” End Sub “ItemD” End Sub 執(zhí)行上面的程序，然后單擊窗體，列表框中所顯示的項目為【 8】 7. 在窗體上畫 1個命令按鈕，其名稱為 Command1，然后編寫如下事件過程： Private Sub Command1_Click() Dim arr(1 To 100） As Integer For i=1 To 100 arr(i)=Int(Rnd*1000) Next i Max=arr(1) Min=arr（ 1） For i=1 To 100 If【 9】 Then Max=arr(i) End If If【 10】 Then Min=arr(i) End If Next i PrintMax=； Max， Min=； Min End Sub 程序運行后，單擊命令按鈕，將產(chǎn)生 100 個 1000 以內(nèi)的隨機整數(shù)，放入數(shù)組 arr 中，然后查找并輸出這 100 個數(shù)中的最大值 Max 和最小值 Min，請?zhí)羁铡? （其 Name 屬性為 C1）然后編寫如下代碼： Private Sub C1_Click() Dim Arr1(10) As Integer ， arr2(10) As Integer n=3 for i =1 to 5 Arr1(i) =i Arr2(n) =2 * n + i Next i Print arr2(n) 。 Arr1(n) End Sub 程序運行后，單擊命令按鈕，輸出結(jié)果是【 11】 MouseDown 和 MouseUp 事件過程中，當(dāng)參數(shù) Button 的值為【 12】【 13】【 14】時，分別代表鼠標(biāo)的【 15】【 16】【 17】鍵。 ： Private Sub Form_MouseDown(Button As Integer,Shift As Integer ,X As Single, Y As Single) If Shift =6 And Button =2 Then Print “BBBB” End If End Sub 程序運行后，為了在窗體上輸出 ”BBBB”，應(yīng)執(zhí)行的操作是【 18】 . 測試二答案 一、 1— 5 DCCBA 6— 10 DCCDA 11— 15 ADDBB 16— 20 DAADA 二、 1.【 1】 () 2.【 2】 pos 【 3】 3.【 4】 10 【 5】 x 4.【 6】 ABCD 5.【 7】 AutoSize 6.【 8】 ItemA 7.【 9】 Maxarr(i) 【 10】 Minarr(i) 8.【 11】 11 3 9.【 12】 1【 13】 2【 14】 4【 15】左【 16】右【 17】中間 10.【 18】同時按下 Ctrl、 Alt鍵和鼠標(biāo)右鍵
公司管理相關(guān)推薦
鄂ICP備17016276號-1