【正文】 m1Caption電子鐘MaxButtonFalseMinButtonFalseLabel1Caption清空Font宋體、粗體、二號Alignment2CenterBorderStyle1FixedSingleBackColor白色Label2Caption鬧鐘時間Text1Text清空Timer1Interval1000Timer2Interval500二、根據(jù)題意，對窗體的Load事件、文本框Text1的KeyPress事件和定時器的Timer事件編寫如下事件過程代碼：‘在窗體層定義Private Sub Form_Load() = Format(Time, hh:mm:ss) = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then = False = True End IfEnd SubPrivate Sub Timer1_Timer() = Format(Now, hh:mm:ss)End SubPrivate Sub Timer2_Timer() If = Then If ( = vbWhite) Then = vbRed Else = vbWhite End If End IfEnd Sub程序設計22題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值。 秒 If nSecond = 0 Then = False = True = True End IfEnd Sub程序設計32題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力?？丶Q屬性屬性值備注Form1Caption字體設置MinButtonFalseMaxButtonFalseFrame1Caption字體樣式Frame1Caption字體Check1(0)Caption粗體Check1(1)Caption斜體Option1(0)Caption宋體ValuetrueOption1(1)Caption楷體Label1Font常規(guī)、宋體、三號Alignment2center二、根據(jù)題意，編寫如下事件過程代碼：Private Sub Check1_Click(Index As Integer)If Check1(0).Value = 1 Then = True Else = FalseIf Check1(1).Value = 1 Then = True Else = FalseEnd SubPrivate Sub Option1_Click(Index As Integer)Select Case Index Case 0 = 宋體 Case 1 = 楷體_gb2312End SelectEnd Sub程序設計31題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值。bordercoloramp。 amp。 Str(Weekday(Date))End SubPrivate Sub Option2_Click() = 今天是 amp。程序設計25窗體上引入一個通用對話框控件。要求標簽文字在放大時保持水平居中。程序設計13可以在查找文本框中輸入查找文字；可以在替換為文本框中輸入替換文字；單擊“替換”按鈕，對文本框Text1中與查找內容匹配的文字進行替換操作；文本框Text1可以多行顯示文字；程序設計08左邊一個簡單組合框，對文本框的字體進行設置；右邊一個簡單組合框，對文本框的文字大小進行設置；文本框中文字為“心想事成”. . . .B．程序設計題程序設計01在窗體上放置一個命令按鈕，命名為CmdMaxSize.取消窗體（Form）的最大化和最小化按鈕當單擊CmdMaxSize按鈕時，實現(xiàn)窗口放大功能，放大后再單擊該按鈕則還原窗口。程序設計04在窗體上放置4個單選按鈕，分別用于顯示星期、年份、月份和日期。程序設計09單擊“添加”按鈕，將本文框中的內容加到列表框中的第一項，如果文本框有內容,則給出提示“沒有內容，不予貼加”單擊“刪除”按鈕，將選紅表項刪除，如果沒有選擇要刪除的表項，則給出提示“請選擇輸出的項目”。程序設計14在窗體上創(chuàng)建一個label1控件用于顯示程序名“簡單動畫”在窗體上創(chuàng)建一個label2的控件數(shù)組，數(shù)組長度為6，用于顯示動畫圖象“224。程序設計21設計2個定時器，一個用于控制時間顯示，時間間隔為一秒；一個用于判斷鬧鐘時間，并且在未輸入鬧鐘時間前不可使用。單擊菜單“字體”，通用對話框，并對文本框字體進行修飾。程序設計30框架Frame1中有一個復選框數(shù)組，可以選擇粗體，斜體對標簽中的文字進行修飾。程序設計34程序啟動后窗體正中央有一個直徑為500Twips的紅色圓球。 Str(Year(Date)) amp。 Chr(13) amp。H000000FFamp?？丶Q屬性屬性值備注Form1Caption倒計時MinButtonFalseMaxButtonFalseFrame1Caption選擇時間Option1(0、2)caption1分鐘、5分鐘、10分鐘是數(shù)組，由三個垂直排列的單選按鈕組成Option1(0)ValueTrueLabel1font宋體、粗體、三號Aligment2CenterCommand1Caption計時開始Timer1Interval1000enabledfalse二、根據(jù)題意，編寫如下事件過程代碼：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。學習參考。 (nSecond Mod 60) amp?？丶Q屬性屬性值備注Form1Caption健康稱Label1Caption身高:字體大小為3號Label2Caption體重:字體大小為3號Label3Captioncm字體大小為3號Label4Captionkg字體大小為3號Label5Command1Caption健康狀況二、根據(jù)題意，對標簽text1和text2的KeyPress事件和命令按鈕Command1的Click事件編寫如下事件過程代碼：Private Sub Command1_Click()Dim m As Integerm = 105If m * Then = 偏胖,注意節(jié)食ElseIf m * Then = 偏瘦,注意營養(yǎng)Else = 正常,繼續(xù)保持End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii asc(“0”) keyAscii asc(“9”) Then KeyAscii = 0End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0End IfEnd Sub程序設計21題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值。 Else = amp。 Str(Month(Date)) amp。水平、垂直方向的移動速度均為100Twips/間隔。標簽Labe11的文字內容為“Visual Basic程序設計”。單擊菜單“背景顏色”，通用對話框控件顯示為顏色對話框，并對文本框背景顏色進行修飾。在文本框中輸入鬧鐘時間并按回車后，啟動判斷鬧鐘時間的定時器，如果時間超過鬧鐘時間，則標簽的背景色用紅白兩色交替變換。程序設計17水平滾動條的取值范圍[12，72]。單擊“開始”按鈕時label2上的圖象開始移動，單擊“結束”按鈕圖象停止移動，設置每一秒移動一個箭頭。當單擊“ ”按鈕時，把Iist2中的一項放到list1中，并且在list2中刪除該項。在窗體上放置一個命令按鈕，單擊按鈕時退出應用程序。當窗體大小改變后，總是讓CmdMaxSize按鈕位于窗口的中央。當單擊“取消”按鈕時，程序終止執(zhí)行。單擊“清空”按鈕，三個文本框內容被清空，同時第一個文本框得焦點。若輸入的不是數(shù)字，則彈出消息框，提示信息是“輸入的不是數(shù)字，無法計算”。單擊“停止”按鈕，標簽“歡迎光臨”文字停止放大。單擊“健康狀況”按紐，根據(jù)計算公式分別將提示信息顯示在Labe15中。當單擊某文件文件名后，調用記事本程序對文件文件進行編輯?！斑x項”框中的“顏色”按鈕打開通用對話框為顏色對話框，并設置繪圖的顏色。標簽文字“堅持就是勝利！”字體為“楷體GB2312”?？丶Q屬性屬性值備注Text1textTabIndex0Text2textPassWordChar*TabIndex1Text3textPassWordChar*TabIndex2Text4textPassWordChar*TabIndex 3Label1Caption用戶名Label2Caption原密碼Label3Caption新密碼Label4Caption新密碼Command1Caption確定TabIndex4Command2Caption取消TabIndex5二、根據(jù)題意，對命令按鈕Command1的Click事件和Command2的Click事件編寫如下事件過程代碼：Private Sub Command1_Click()If = admin And = admin Then If = Then B=MsgBox (密碼修改成功!, ,”修改密碼”) Else B=MsgBox(新密碼有誤，請重試, , “修改密碼”) = = End If Else B=MsgBox( 用戶名或密碼無效，請重試！, , “修改密碼”) = = End IfEnd SubPrivate Sub Command2_Click()endEnd Sub程序設計04題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值。 Chr(13) amp?？丶Q屬性屬性值備注Form1Caption改變大小窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseShape1fillcoloramp。控件名稱屬性屬性值備注Form1Caption點餐Max