vb課后練習(xí)答案習(xí)題解答(4)-資料下載頁
2025-06-26 04:45本頁面
【正文】 orm_Load() Dim i As Integer For i = 0 To 1 (i) Next i For i = 8 To 12 Trim(Str(i)) Next i For i = 14 To 72 Step 2 Trim(Str(i)) Next iEnd SubPrivate Sub List1_Click() = End SubPrivate Sub List2_Click() = End Sub(3)運行情況運行程序后，系統(tǒng)執(zhí)行事件過程Form_Load，并在屏幕上顯示用戶界面。單擊列表框List1上某一復(fù)選框，例如，“華文新魏”前面的復(fù)選框，系統(tǒng)執(zhí)行相應(yīng)的Click事件過程。然后單擊列表框List2上某一復(fù)選框，例如，“20”前面的復(fù)選框，系統(tǒng)執(zhí)行相應(yīng)的Click事件過程。單擊工具欄上的“結(jié)束”按鈕，系統(tǒng)結(jié)束程序的執(zhí)行。 執(zhí)行結(jié)果7. 編寫一個用于演示顏色合成情況的程序。要求使用滾動條作為紅、綠和藍(lán)三種基色值的輸入控件。（提示：使用RGB函數(shù)對輸入的三種基色進(jìn)行合成得到復(fù)合顏色）解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立四個標(biāo)簽和三個滾動條。 屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption顏色合成演示 Label1 Caption 紅色份量值： Label2Caption 綠色份量值： Label3Caption 藍(lán)色份量值： Label4CaptionBorderStyle空串 1 Hscroll1MaxLargeChange2555 Hscroll2 MaxLargeChange2555 Hscroll3MaxLargeChange2555(2)程序代碼Private Sub HScroll1_Scroll() = 紅色份量值： amp。 = RGB(, , )End SubPrivate Sub HScroll2_Scroll() = 綠色份量值： amp。 = RGB(, , )End SubPrivate Sub HScroll3_Scroll() = 藍(lán)色份量值： amp。 = RGB(, , )End Sub(3)運行情況運行程序后，屏幕出現(xiàn)用戶界面。把鼠標(biāo)移到各個滾動條的滾動塊，然后單擊并拉著滾動塊移動一段距離，系統(tǒng)執(zhí)行相應(yīng)的事件過程。 執(zhí)行結(jié)果8．編寫程序，把某一圖形裝入一個圖像框中，并使它能在窗體上從左至右往返不斷移動。（提示：使用窗體的Left屬性和計時器控件）解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立一個圖像框、一個計時器和一個命令按鈕。 屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption使圖片往返移動 Image1 Pictrue一幅圖片（在程序中裝入） Timer1 Interval10（在程序中給定） Command1Caption 停止移動(2)程序代碼Option ExplicitDim x, f As IntegerPrivate Sub Form_Load() =LoadPicture(c:\ProgramFiles\MicrosoftOffice \Office\Bitmaps\Dbwiz\) = 10 39。 設(shè)定Timer事件每隔10毫秒發(fā)生一次End SubPrivate Sub Timer1_Timer() Select Case f 39。 f =0則向左移動 ，f =1則向右移動 Case 0 If x 5000 Then x = x + 100 Else f = 1 39。使圖片向右移動 Case 1 If x 3000 Then x = x 100 Else f = 0 39。使圖片向左移動 End Select = x 39。 把圖像框的左上角水平移到x的位置End SubPrivate Sub Command1_Click() EndEnd Sub(3)運行情況運行程序后，屏幕出現(xiàn)一幅往返移動的圖片。單擊標(biāo)題為“停止移動”的命令按鈕，系統(tǒng)執(zhí)行相應(yīng)的Click事件過程，結(jié)束程序的執(zhí)行。 官方總站：
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1