【正文】 on數(shù)量：Text1textFrame2Caption操作系統(tǒng)Option1CaptionWindows2000Option2CaptionWindows98Command1Caption 確定二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件、復(fù)選框check的click事件和窗體的load事件編寫(xiě)如下事件過(guò)程代碼：Private Sub Check1_Click()If = 1 Then = True = TrueElse = False = FalseEnd IfEnd SubPrivate Sub Check2_Click()If = 1 Then = True = TrueElse = False = FalseEnd IfEnd SubPrivate Sub Command1_Click()If = 1 Then = amp。 Chr(13) amp。控件名稱(chēng)屬性屬性值備注Text1textLabel1Caption請(qǐng)輸入：Label2Caption結(jié)果為：Label3CaptionCommand1Caption判斷二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件和Text1的KeyPress事件編寫(xiě)如下事件過(guò)程代碼：Private Sub Command1_Click() Dim n As Integer, k As Integer, L As Integer, c As String, s As String 39。控件名稱(chēng)屬性屬性值備注Label1Caption簡(jiǎn)單動(dòng)畫(huà)Label2（0，1，2，3，4，5）CaptionTimer1intetervel1000Command1Caption演示Command2Caption停止二、根據(jù)題意，對(duì)命令按鈕的Click事件和計(jì)時(shí)器的Timer事件編寫(xiě)如下事件過(guò)程代碼： Dim i As IntegerPrivate Sub Command1_Click()If = 演示 Then = True End IfEnd SubPrivate Sub Command2_Click()If = 結(jié)束 Then = False End IfEnd SubPrivate Sub Form_Load() = Falselabel2(1) .Visible= falselabel2(2) .Visible= falselabel2(3) .Visible= falselabel2(4) .Visible= falselabel2(5) .Visible= falseEnd SubPrivate Sub Timer1_Timer()If i = 5 Then i = 0 Label2(i).Visible = True Label2(5).Visible = FalseElse i = i + 1 Label2(i).Visible = True Label2(i 1).Visible = FalseEnd IfEnd Sub程序設(shè)計(jì)15題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q(chēng)屬性屬性值備注Label1Caption歡迎您的使用HScroll1水平滾動(dòng)條Command1Caption結(jié)束二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件和水平滾動(dòng)條數(shù)組Hscroll1的Change事件編寫(xiě)如下事件過(guò)程代碼：Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Load() = 0 =End SubPrivate Sub HScroll1_Change() = End SubPrivate Sub HScroll1_Scroll()HScroll1_ChangeEnd Sub程序設(shè)計(jì)19題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。H000000FFamp?？丶Q(chēng)屬性屬性值備注Form1Caption密碼檢驗(yàn)Label1Caption輸入密碼后按回車(chē)（提示：密碼1234567）Label2Caption初始清空AutoSizeTrueFront宋體、三號(hào)、常規(guī)ForeColor選紅色Text1Text初始清空PassWordChar*MaxLength7二、根據(jù)題意，對(duì)窗體的Load事件和文本框Text1的KeyPress事件編寫(xiě)如下事件過(guò)程代碼：Private Sub Form_Load() = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static n As IntegerIf KeyAscii = 13 Then = True If = 1234567 Then = 歡迎光臨！ Else = 密碼不符，請(qǐng)?jiān)佥斎胍槐椋? = n = n + 1 End If If n = 2 Then = 非法用戶(hù)，請(qǐng)退出程序！ = False End IfEnd IfEnd Sub程序設(shè)計(jì)23題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q(chēng)屬性屬性值備注Form1Caption字體設(shè)置MinButtonFalseMaxButtonFalsemondialogCaption選擇時(shí)間Text1Multilanetruescrollbar2verticaltext憶江南最憶是杭州在窗體上添加菜單，分別是標(biāo)題名稱(chēng)字體Fontmenu文字顏色Wcolormenu背景顏色bcolormenu二、根據(jù)題意，編寫(xiě)如下事件過(guò)程代碼：Private Sub bcolormenu_Click() = End SubPrivate Sub fontmenu_Click() = = = = = End SubPrivate Sub Form_Load() = 宋體 = 2End SubPrivate Sub wcolormenu_Click() = End Sub程序設(shè)計(jì)26題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。當(dāng)前表項(xiàng)被選中時(shí)刪除數(shù)據(jù) i i i i Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = End IfEnd Sub程序設(shè)計(jì)28題解：一、根據(jù)題目要求，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q(chēng)屬性屬性值備注Form1Caption倒計(jì)時(shí)MinButtonFalseMaxButtonFalseFrame1Caption選擇時(shí)間Option1(0、2)caption1分鐘、5分鐘、10分鐘是數(shù)組，由三個(gè)垂直排列的單選按鈕組成Option1(0)ValueTrueLabel1font宋體、粗體、三號(hào)Aligment2CenterCommand1Caption計(jì)時(shí)開(kāi)始Timer1Interval1000enabledfalse二、根據(jù)題意，編寫(xiě)如下事件過(guò)程代碼：Dim nSecond As IntegerPrivate Sub Command1_Click() If Option1(0).Value Then nSecond = 60 ElseIf Option1(1).Value Then nSecond = 300 Else nSecond = 600 End If nSecond = 60 = True = False = FalseEnd SubPrivate Sub Timer1_Timer() nSecond = nSecond 1 = nSecond \ 60 amp?？丶Q(chēng)屬性屬性值備注Form1Caption撥號(hào)盤(pán)Text1Text清空MaxLength10Font宋體、粗體、三號(hào)ForeColor蘭色Command（0）Caption0命令按鈕數(shù)組Command（1）Caption1……Command（9）Caption9Command2Caption重?fù)躎imer1Interval500二、根據(jù)題意，對(duì)命令按鈕數(shù)組Command1和Command2的Click事件及Timer1控件的Timer事件編寫(xiě)如下事件過(guò)程代碼：Dim NumStr As StringDim i As IntegerPrivate Sub Command1_Click(Index As Integer) = amp?？丶Q(chēng)屬性屬性值備注Shape1BackStyle1Opaque將Shape1放在窗體正中BorderColor紅色Shape3CircleHeight500Width500Timer1Interval100二、根據(jù)題意，編寫(xiě)如下事件過(guò)程代碼：Dim dx As Integer, dy As IntegerPrivate Sub Form_Load() dy = 100 dx = 100 = FalseEnd SubPrivate Sub qidong_Click() = TrueEnd SubPrivate Sub Timer1_Timer() = + dx = + dy If 0 Or ( ) Then dx = dx End If If 0 Or ( ) Then dy = dy End IfEnd SubPrivate Sub tingzhi_Click() = FalseEnd Sub?？丶Q(chēng)屬性屬性值備注Form1Caption調(diào)色板MinButtonFalseMaxButtonFalseFrame1Caption三原色配比與預(yù)覽Hscroll1Min0是數(shù)組，由三個(gè)水平滾動(dòng)條組成。 (nSecond Mod 60) amp?？丶Q(chēng)屬性屬性值備注Form1Caption畫(huà)板窗體中各控件的位置按樣例畫(huà)好MinButtonFalseMaxButtonFalseFrame1caption選項(xiàng)Option1(0)Caption細(xì)ValuetrueOption1(1)Caption粗Command1Caption顏色Command2Caption清除Label1Caption 繪圖區(qū)二、根據(jù)題意，編寫(xiě)如下事件過(guò)程代碼：Dim startx As Single, starty As Single ‘在窗體層定義Private Sub Command1_Click() = End SubPrivate Sub Command2_Click()End SubPrivate