【正文】 壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力。不要做金錢、權(quán)利的奴隸；應(yīng)學(xué)會(huì)做“金錢、權(quán)利”的主人。Max255Label1Caption紅Label2Caption綠Label3Caption監(jiān)Shape1FillStyle0SolidCommand1Caption應(yīng)用Label4Caption堅(jiān)持就是勝利！字體：楷體GB2312字號(hào)：二號(hào)Aligment2Center二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件和水平滾動(dòng)條數(shù)組Hscroll1的Change事件編寫如下事件過(guò)程代碼：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è)計(jì)34題解：一、根據(jù)題目要求，在Form1窗體上畫(huà)出各控件，并按下表對(duì)窗體和各控件設(shè)置屬性值。 秒 If nSecond = 0 Then = False = True = True End IfEnd Sub程序設(shè)計(jì)32題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Form1Caption字體設(shè)置MinButtonFalseMaxButtonFalseFrame1Caption字體樣式Frame1Caption字體Check1(0)Caption粗體Check1(1)Caption斜體Option1(0)Caption宋體ValuetrueOption1(1)Caption楷體Label1Font常規(guī)、宋體、三號(hào)Alignment2center二、根據(jù)題意，編寫如下事件過(guò)程代碼：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è)計(jì)31題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。在設(shè)置時(shí)，將bo2,bo3,bo4的Visible屬性設(shè)置為False,分別用來(lái)保存地址、郵編、電話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?？丶Q屬性屬性值備注Text1TextText1Text2TextText2Label1Caption文件名Driver1默認(rèn)設(shè)置Dir1默認(rèn)設(shè)置File1Pattern*.txt二、根據(jù)題意，編寫如下事件過(guò)程代碼：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è)計(jì)25題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Form1Caption電子鐘MaxButtonFalseMinButtonFalseLabel1Caption清空Font宋體、粗體、二號(hào)Alignment2CenterBorderStyle1FixedSingleBackColor白色Label2Caption鬧鐘時(shí)間Text1Text清空Timer1Interval1000Timer2Interval500二、根據(jù)題意，對(duì)窗體的Load事件、文本框Text1的KeyPress事件和定時(shí)器的Timer事件編寫如下事件過(guò)程代碼：‘在窗體層定義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è)計(jì)22題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。bordercoloramp?？丶Q屬性屬性值備注Form1Caption改變字號(hào)MaxButtonFalseMinButtonFalseLabel1AutoSizeTrueCaption心想事成Text1Textmaxlength2Hscroll1Min12Max72二、根據(jù)題意，對(duì)命令文本框Text1的Change事件和水平滾動(dòng)條數(shù)組Hscroll1的Change事件編寫如下事件過(guò)程代碼：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窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Label1Caption查找：Label2Caption替換為：Command1Caption替換二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件編寫如下事件過(guò)程代碼：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窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。 End IfEnd IfEnd SubPrivate Sub Form_Load() = False = False = False = FalseEnd Sub程序設(shè)計(jì)12題解：一、根據(jù)題目要求，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。 amp?？丶Q屬性屬性值備注List1list111,222增加列表項(xiàng)List2list333,444增加列表項(xiàng)Command1captionCommand2captionCommand3captionCommand4captionCommand5caption結(jié)束二、根據(jù)題意，編寫如下事件過(guò)程代碼：Private Sub Command1_Click() If = 1 Then MsgBox 請(qǐng)選擇一列表項(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 請(qǐng)選擇一列表項(xiàng) Else () End If