【文章內(nèi)容簡介】 (0) 0 WendEnd SubPrivate Sub Command4_Click() If = 1 Then MsgBox 請選擇一列表項 Else () End IfEnd SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Load() 111 222 333 444End Sub程序設(shè)計11題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1CaptionForm1Frame1Caption計算機Label1caption品牌：bo1text聯(lián)想list聯(lián)想，戴爾，正方Label2Caption數(shù)量：Text1textFrame2Caption操作系統(tǒng)Option1CaptionWindows2000Option2CaptionWindows98Command1Caption 確定二、根據(jù)題意，對命令按鈕Command1的Click事件、復(fù)選框check的click事件和窗體的load事件編寫如下事件過程代碼：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。 Chr(10) amp。 amp。 Chr(13) amp。 Chr(10)End IfIf = 1 ThenIf Then = amp。 Else = amp。 End IfEnd IfEnd SubPrivate Sub Form_Load() = False = False = False = FalseEnd Sub程序設(shè)計12題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Text1textLabel1Caption請輸入：Label2Caption結(jié)果為：Label3CaptionCommand1Caption判斷二、根據(jù)題意，對命令按鈕Command1的Click事件和Text1的KeyPress事件編寫如下事件過程代碼：Private Sub Command1_Click() Dim n As Integer, k As Integer, L As Integer, c As String, s As String 39。判斷文本框中的內(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。是數(shù)字 n = Val(s) For k = 2 To Int(Sqr(n)) If n Mod k = 0 Then Exit For Next k If k Int(Sqr(n)) Then = 結(jié)果為： + Str(n) + 是質(zhì)數(shù)! Else = 結(jié)果為： + Str(n) + 不是質(zhì)數(shù)! End If Else MsgBox 輸入的不是數(shù)字，無法計算 End IfEnd Sub程序設(shè)計13題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶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è)置屬性值。控件名稱屬性屬性值備注Label1Caption簡單動畫Label2（0，1，2，3，4，5）CaptionTimer1intetervel1000Command1Caption演示Command2Caption停止二、根據(jù)題意，對命令按鈕的Click事件和計時器的Timer事件編寫如下事件過程代碼： 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è)計15題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption字幕滾動MaxButtonFalseMinButtonFalseLabel1Caption祝您考試成功Front宋體、二號、粗體ForeColor選紅色Timer1Interval100Command1Caption開始二、根據(jù)題意，對命令按鈕的單擊事件和計時器的Timer事件編寫如下事件過程代碼：Private Sub Command1_Click() If = 開始 Then = True Else = 開始 = False End IfEnd SubPrivate Sub Timer1_Timer() = + 100 If Then = 停止 = End IfEnd Sub程序設(shè)計16題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption字幕放大Label1Caption歡迎光臨AlignMent2CenterCommand1Caption開始Timer1Interval200二、根據(jù)題意，對命令按鈕的Click事件和計時器的Timer事件編寫如下事件過程代碼：Private Sub Command1_Click()If = 開始 Then = 停止 = TrueElse = False = 開始End IfEnd SubPrivate Sub Timer1_Timer() = + 2End Sub程序設(shè)計17題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption改變字號MaxButtonFalseMinButtonFalseLabel1AutoSizeTrueCaption心想事成Text1Textmaxlength2Hscroll1Min12Max72二、根據(jù)題意，對命令文本框Text1的Change事件和水平滾動條數(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è)計18題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Label1Caption歡迎您的使用HScroll1水平滾動條Command1Caption結(jié)束二、根據(jù)題意，對命令按鈕Command1的Click事件和水平滾動條數(shù)組Hscroll1的Change事件編寫如下事件過程代碼：Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Load() = 0 =End SubPrivate Sub HScroll1_Change() = End SubPrivate Sub HScroll1_Scroll()HScroll1_ChangeEnd Sub程序設(shè)計19題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption改變大小窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseShape1fillcoloramp。H000000FFamp。bordercoloramp。H000000FFamp。fillstyle0solidheight3400Width3400shape3circleLeft600top100Hscroll1largechange100Smallchange100Value3400Max3400La