全國計算機等級考試vb二級上機題庫有答案-資料下載頁
2025-06-19 20:43本頁面
【正文】 i, 1) If lastCh = Then ch = UCase(ch) End If newSen = newSen amp。 ch lastCh = ch Next i = newSenEnd SubPrivate Sub Command3_Click() Open For Output As 1 Write 1, Close 1End Sub答案：Dim a(10) As IntegerDim b(10) As IntegerDim c(10) As IntegerPrivate Sub Command1_Click() Open amp。 \ For Input As 1 Open amp。 \ For Input As 2 For i = 0 To 9 Input 1, a(i) Input 2, b(i) Next Close 1, 2End SubPrivate Sub find(x() As Integer, t As Control) Dim i As Integer, max As Integer max = x(1) For i = 2 To 10 If max x(i) Then max = x(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 編寫適當?shù)氖录^程，使程序運行后，可以使圖像框閃爍，其閃爍速度可以通過滾動條來調(diào)節(jié)。 提示：圖像框的閃爍可以通過圖像框交替地顯示和隱藏來實現(xiàn)?！ ∫螅撼绦蛑胁坏檬褂米兞?，每個事件過程中只能寫一條語句?！ ∽⒁猓捍姹P時必須存放在考生文件夾中，工程文件名為“”，窗體文件名為“”。解答：Private Sub HScroll1_Scroll() = End SubPrivate Sub Timer1_Timer() = Not End Sub題目：在名為Form1的窗體上繪制兩個圖像框，名稱分別為Pic1和Pic2，寬度和高度均為1500，；再繪制一個名為Cmd1的命令按鈕，標題為圖片交換，如圖14所示。編寫適當?shù)氖录^程，使得在運行時，如果單擊窗體，則交換兩個圖像框中的圖像。注意不允許使用第三個圖像框。Private Sub Form_Click() Dim pic As Object Set pic = = = picEnd Sub第 15 頁 共 15
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1