全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)vb上機(jī)試題庫(kù)以與解析(參考版)
2025-03-27 07:36本頁(yè)面
【正文】 能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無(wú)能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。什么是奮斗？奮斗就是每天很難，可一年一年卻越來(lái)越容易。 = picEnd Sub寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。 Set pic = Dim pic注意不允許使用第三個(gè)圖像框。 = Not End Sub題目：在名為Form1的窗體上繪制兩個(gè)圖像框，名稱分別為Pic1和Pic2，寬度和高度均為1500，；再繪制一個(gè)名為Cmd1的命令按鈕，標(biāo)題為圖片交換，如圖14所示。解答：Private Sub HScroll1_Scroll() 要求：程序中不得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。 編寫適當(dāng)?shù)氖录^(guò)程，使程序運(yùn)行后，可以使圖像框閃爍，其閃爍速度可以通過(guò)滾動(dòng)條來(lái)調(diào)節(jié)。 Close 1End Sub \ For Output As 1 Call find(c, Text2) Close 1End SubPrivate Sub Command3_Click() Print 1, c(i) \ For Output As 1 Next i Dim i As Integer Next i max = x(1) Close 1, 2End SubPrivate Sub find(x() As Integer, t As Control) Input 2, b(i) For i = 0 To 9 Open amp。 Open amp。主要代碼如下：Dim s As StringPrivate Sub Command1_Click() Open For Input As 1 s = Input$(LOF(1), 1) Close 1 = sEnd SubPrivate Sub Command2_Click() Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen ch = Mid(, i, 1) If lastCh = Then ch = UCase(ch) End If newSen = newSen amp。3）用原來(lái)的文件名保存工程文件和窗體文件
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1