全國計(jì)算機(jī)等級(jí)考試二級(jí)vb上機(jī)試題庫以與解析-資料下載頁
2025-03-24 07:36本頁面
【正文】 (i) Next i = maxEnd SubPrivate Sub Command2_Click() Dim i As Integer For i = 1 To 10 c(i) = a(i) + b(i) Next i Open amp。 \ For Output As 1 For i = 0 To 9 Print 1, c(i) Next Close 1End SubPrivate Sub Command3_Click() Call find(a, Text1) Call find(c, Text2) Open amp。 \ For Output As 1 Print 1, , Close 1End Sub 編寫適當(dāng)?shù)氖录^程，使程序運(yùn)行后，可以使圖像框閃爍，其閃爍速度可以通過滾動(dòng)條來調(diào)節(jié)?！ √崾荆簣D像框的閃爍可以通過圖像框交替地顯示和隱藏來實(shí)現(xiàn)?！ ∫螅撼绦蛑胁坏檬褂米兞浚總€(gè)事件過程中只能寫一條語句。 注意：存盤時(shí)必須存放在考生文件夾中，工程文件名為“”，窗體文件名為“”。解答：Private Sub HScroll1_Scroll() = End SubPrivate Sub Timer1_Timer() = Not End Sub題目：在名為Form1的窗體上繪制兩個(gè)圖像框，名稱分別為Pic1和Pic2，寬度和高度均為1500，；再繪制一個(gè)名為Cmd1的命令按鈕，標(biāo)題為圖片交換，如圖14所示。編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，如果單擊窗體，則交換兩個(gè)圖像框中的圖像。注意不允許使用第三個(gè)圖像框。Private Sub Form_Click() Dim pic As Object Set pic = = = picEnd Sub寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來越容易。不奮斗就是每天都很容易，可一年一年越來越難。能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。拼一個(gè)春夏秋冬！贏一個(gè)無悔人生！早安！—————獻(xiàn)給所有努力的人.學(xué)習(xí)參
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1