【正文】 應(yīng)信息后，點擊“添加”后在組合框中會出現(xiàn)該項的姓名。只有選擇時間后，命令按鈕才可以使用?？丶Q屬性屬性值備注Form1CaptionForm1Command1Caption最大化(amp。 Str(Weekday(Date))End SubPrivate Sub Option2_Click() = 今天是 amp?？丶Q屬性屬性值備注Label1Caption高數(shù)Label2Caption英語Label3Caption計算機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è)計07題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。 amp?？丶Q屬性屬性值備注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è)計14題解:一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。bordercoloramp?？丶Q屬性屬性值備注Text1TextText1Text2TextText2Label1Caption文件名Driver1默認設(shè)置Dir1默認設(shè)置File1Pattern*.txt二、根據(jù)題意，編寫如下事件過程代碼：Private Sub Dir1_Change() = End SubPrivate Sub Drive1_Change() = End SubPrivate Sub File1_Click()Dim f As StringIf Right(, 1) = \ Thenf = + Elsef = + \ + = fEnd IfOpen f For Input As 1Do Until EOF(1) Line Input 1, nextline = + nextline + Chr(13) + Chr(10) Loop Close 1End SubPrivate Sub File1_DblClick()Call Shell(c:\winnt\, 1)End SubPrivate Sub Form_Load() = c:End Sub程序設(shè)計25題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption字體設(shè)置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程序設(shè)計31題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。Max255Label1Caption紅Label2Caption綠Label3Caption監(jiān)Shape1FillStyle0SolidCommand1Caption應(yīng)用Label4Caption堅持就是勝利！字體：楷體GB2312字號：二號Aligment2Center二、根據(jù)題意，對命令按鈕Command1的Click事件和水平滾動條數(shù)組Hscroll1的Change事件編寫如下事件過程代碼：Dim r As Integer, g As Integer, b As IntegerPrivate Sub Form_Load() r = HScroll1(0).Value g = HScroll1(1).Value b = HScroll1(2).Value = RGB(r, g, b) = RGB(r, g, b)End SubPrivate Sub HScroll1_Change(Index As Integer) r = HScroll1(0).Value g = HScroll1(1).Value b = HScroll1(2).Value = RGB(r, g, b)End SubPrivate Sub HScroll1_Scroll(Index As Integer) Call HScroll1_Change(Index)End SubPrivate Sub Command1_Click() = RGB(r, g, b)End Sub程序設(shè)計34題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并按下表對窗體和各控件設(shè)置屬性值。 秒 If nSecond = 0 Then = False = True = True End IfEnd Sub程序設(shè)計32題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。在設(shè)置時，將bo2,bo3,bo4的Visible屬性設(shè)置為False,分別用來保存地址、郵編、電話Private Sub Combo1_Click() i = Text1(0).Text = (i) Text1(1).Text = (i) Text1(2).Text = (i) Text1(3).Text = (i)End SubPrivate Sub Command1_Click() Text1(0).Text Text1(1).Text Text1(2).Text Text1(3).Text Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = End SubPrivate Sub Command2_Click() Dim i As Integer i = If i = 0 Then 39。控件名稱屬性屬性值備注Form1Caption電子鐘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程序設(shè)計22題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption改變字號MaxButtonFalseMinButtonFalseLabel1AutoSizeTrueCaption心想事成Text1Textmaxlength