【正文】 ubPrivate Sub Option2_Click() = 今天是 amp。年 End SubPrivate Sub Option3_Click() = 今天是 amp。月 End SubPrivate Sub Option4_Click() = 今天是 amp。號(hào) End Sub程序設(shè)計(jì)05題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Label1Caption高數(shù)Label2Caption英語Label3Caption計(jì)算機(jī)Label4Caption平均成績Text1TextText2TextText3TextText4LockedTrue二、根據(jù)題意，對文本text1，text2，text3的Change事件編寫如下事件過程代碼：Private Sub Form_Load() = = = = End SubPrivate Sub Text2_Change() If Val() 0 Then = Trim(Str((Val() + Val() + Val()) / 3)) End IfEnd SubPrivate Sub Text3_Change() If Val() 0 Then = Trim(Str((Val() + Val() + Val()) / 3)) End IfEnd SubPrivate Sub Text1_Change() If Val() 0 Then = Trim(Str((Val() + Val() + Val()) / 3)) End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Or KeyAscii Asc(0) Then MsgBox 不能輸入非數(shù)字字符 KeyAscii = 0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Or KeyAscii Asc(0) Then MsgBox 不能輸入非數(shù)字字符 KeyAscii = 0 End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Or KeyAscii Asc(0) Then MsgBox 不能輸入非數(shù)字字符 KeyAscii = 0 End IfEnd Sub程序設(shè)計(jì)07題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1caption字體設(shè)置窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseText1Text心想事稱Combo1Style1simple boTextCombo2Style1simple boText 二、根題意，編寫如下事件過程代碼：Private Sub Form_Load() 宋體 黑體 楷體_GB2312 8 9 10 11 12 14 16End SubPrivate Sub bo1_Click() = End SubPrivate Sub bo1_Click() = Val()End Sub程序設(shè)計(jì)09題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注List1list111,222增加列表項(xiàng)List2list333,444增加列表項(xiàng)Command1captionCommand2captionCommand3captionCommand4captionCommand5caption結(jié)束二、根據(jù)題意，編寫如下事件過程代碼：Private Sub Command1_Click() If = 1 Then MsgBox 請選擇一列表項(xiàng) Else () End IfEnd SubPrivate Sub Command2_Click() While 0 (0) 0 WendEnd SubPrivate Sub Command3_Click() While 0 (0) 0 WendEnd SubPrivate Sub Command4_Click() If = 1 Then MsgBox 請選擇一列表項(xiàng) Else () End IfEnd SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Load() 111 222 333 444End Sub程序設(shè)計(jì)11題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。 Chr(13) amp。 amp。 Chr(10)End IfIf = 1 ThenIf Then = amp。 End IfEnd IfEnd SubPrivate Sub Form_Load() = False = False = False = FalseEnd Sub程序設(shè)計(jì)12題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。判斷文本框中的內(nèi)容是否為數(shù)字 s = Trim() L = Len(s) For k = 1 To L c = Mid(s, k, 1) If c 9 Or c 0 Then Exit For Next k If k L Then 39。控件名稱屬性屬性值備注Label1Caption查找：Label2Caption替換為：Command1Caption替換二、根據(jù)題意，對命令按鈕Command1的Click事件編寫如下事件過程代碼：Private Sub Command1_Click() Dim fs As String Dim fL As Integer Dim rs As String Dim s As String Dim L As Integer Dim i As Integer fs = fL = Len(fs) rs = s = L = Len(s) For i = L f + 1 To 1 Step 1 If Mid(s, i, fL) = fs Then = i 1 = fL = rs End If Next iEnd Sub程序設(shè)計(jì)14題解:一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption字幕滾動(dòng)MaxButtonFalseMinButtonFalseLabel1Caption祝您考試成功Front宋體、二號(hào)、粗體ForeColor選紅色Timer1Interval100Command1Caption開始二、根據(jù)題意，對命令按鈕的單擊事件和計(jì)時(shí)器的Timer事件編寫如下事件過程代碼：Private Sub Command1_Click() If = 開始 Then = True Else = 開始 = False End IfEnd SubPrivate Sub Timer1_Timer() = + 100 If Then = 停止 = End IfEnd Sub程序設(shè)計(jì)16題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Form1Caption改變字號(hào)MaxButtonFalseMinButtonFalseLabel1AutoSizeTrueCaption心想事成Text1Textmaxlength2Hscroll1Min12Max72二、根據(jù)題意，對命令文本框Text1的Change事件和水平滾動(dòng)條數(shù)組Hscroll1的Change事件編寫如下事件過程代碼：Private Sub Form_Load() = / 2 / 2 = End SubPrivate Sub HScroll1_Change() = = = / 2 / 2End SubPrivate Sub HScroll1_Scroll() HScroll1_ChangeEnd SubPrivate Sub Text1_Change() If Len() = 2 Then If Val() = 12 And Val() = 72 Then = Val() =val() Else = 0 = Len() End If End IfEnd Sub程序設(shè)計(jì)18題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption改變大小窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseShape1fillcoloramp。bordercoloramp。fillstyle0solidheight3400Width3400shape3circleLeft600top100Hscroll1largechange100Smallchange100Value3400Max3400Label1Caption圓直徑為：Label2Caption 二、根據(jù)題意，編寫如下事件過程代碼：Private Sub HScroll1_Change() = = = ( ) / 2 = ( ) / 2 1000End SubPrivate Sub HScroll1_Scroll() Call HScroll1_ChangeEnd Sub程序設(shè)計(jì)20題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Form1Caption電子鐘MaxButtonFalseMinButtonFalseLabel1Caption清空Font宋體、粗體、二號(hào)Alignment2CenterBorderStyle1FixedSingleBackColor白色Label2Caption鬧鐘時(shí)間Text1Text清空Timer1Interval1000Timer2Interval500二、根據(jù)題意，對窗體的Load事件、文本框Te