【正文】 ption字幕放大Label1Caption歡迎光臨AlignMent2CenterCommand1Caption開(kāi)始Timer1Interval200二、根據(jù)題意，對(duì)命令按鈕的Click事件和計(jì)時(shí)器的Timer事件編寫如下事件過(guò)程代碼：Private Sub Command1_Click()If = 開(kāi)始 Then = 停止 = TrueElse = False = 開(kāi)始End IfEnd SubPrivate Sub Timer1_Timer() = + 2End Sub程序設(shè)計(jì)17題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Label1Caption簡(jiǎn)單動(dòng)畫Label2（0，1，2，3，4，5）CaptionTimer1intetervel1000Command1Caption演示Command2Caption停止二、根據(jù)題意，對(duì)命令按鈕的Click事件和計(jì)時(shí)器的Timer事件編寫如下事件過(guò)程代碼： 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è)計(jì)15題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。是數(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ù)字，無(wú)法計(jì)算 End IfEnd Sub程序設(shè)計(jì)13題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Text1textLabel1Caption請(qǐng)輸入：Label2Caption結(jié)果為：Label3CaptionCommand1Caption判斷二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件和Text1的KeyPress事件編寫如下事件過(guò)程代碼：Private Sub Command1_Click() Dim n As Integer, k As Integer, L As Integer, c As String, s As String 39。 Else = amp。 Chr(13) amp。 Chr(10) amp?？丶Q屬性屬性值備注Form1CaptionForm1Frame1Caption計(jì)算機(jī)Label1caption品牌：bo1text聯(lián)想list聯(lián)想，戴爾，正方Label2Caption數(shù)量：Text1textFrame2Caption操作系統(tǒng)Option1CaptionWindows2000Option2CaptionWindows98Command1Caption 確定二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件、復(fù)選框check的click事件和窗體的load事件編寫如下事件過(guò)程代碼：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?？丶Q屬性屬性值備注Form1caption添加和刪除窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseText1Text List1Command1Caption添加Command2caption刪除二、根題意，編寫如下事件過(guò)程代碼：Private Sub Command1_Click()If = Then MsgBox (沒(méi)有內(nèi)容，不予添加)Else , 0End IfEnd SubPrivate Sub Command2_Click()If = 1 Then MsgBox (請(qǐng)選擇輸出的項(xiàng)目)Else End IfEnd SubPrivate Sub Form_Load() Word Excel PowerPoint OutlookEnd Sub程序設(shè)計(jì)10題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption加法器Label1Caption+Command1Caption=Command2Caption清空TextTextText3Caption清空Alignment1Right JustifyText3LockedTrue二、根據(jù)題意，對(duì)各命令按鈕的Click事件和各文本框的Change事件編寫如下事件過(guò)程代碼：Private Sub Command1_Click() = Trim(Str(Val() + Val()))End SubPrivate Sub Command2_Click() = = = End SubPrivate Sub Form_Load() = TrueEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(0) Or KeyAscii Asc(9) Then KeyAscii = 0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii Asc(0) Or KeyAscii Asc(9) Then KeyAscii = 0 End IfEnd Sub程序設(shè)計(jì)08題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption作圖Command1Caption坐標(biāo)系Command2Caption扇形Command3Caption結(jié)束二、根據(jù)題意，對(duì)命令按鈕的Click事件編寫如下事件過(guò)程代碼：注：因本題單位不明確，故對(duì)x軸、y軸和圓半徑乘以100后按默認(rèn)單位處理Const PI = Private Sub Command1_Click() (10, 10)(10, 10) (10, 0)(10, 0) (0, 10)(0, 10) = 0 = 0 (0,0)End SubPrivate Sub Command2_Click() = 0 = vbGreen = 2 (0, 0), 5, vbRed, PI / 6, 5 * PI / 6End SubPrivate Sub Command3_Click() EndEnd Sub程序設(shè)計(jì)06題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。 Str(Day(Date)) amp。 Str(Month(Date)) amp。 Str(Year(Date)) amp?？丶Q屬性屬性值備注Option1Caption顯示星期幾Option2Caption顯示年份Option3Caption顯示月份Option4Caption顯示日期Text1textCommand1Caption結(jié)束二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件編寫如下事件過(guò)程代碼：Private Sub Command1_Click()EndEnd SubPrivate Sub Option1_Click() = 今天是星期 amp?？丶Q屬性屬性值備注Text1text空Text2text空Text3text空EnabledFalseLabel1Caption商品單價(jià)：Label2Caption商品數(shù)量：Label3Caption應(yīng)付款：Command1Caption清除Command2Caption計(jì)算二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件和Command2的Click事件編寫如下事件過(guò)程代碼：Private Sub Command1_Click() = = = End SubPrivate Sub Command2_Click()Dim a, b, sum As Integer = Truea = Val()b = Val()sum = a * b = sumEnd Sub程序設(shè)計(jì)03題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。B) Else = 0 = 最大化(amp。L)二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件編寫如下事件過(guò)程代碼：Private Sub Command1_Click() If = 最大化(amp。程序設(shè)計(jì)01題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。水平、垂直方向的移動(dòng)速度均為100Twips/間隔。程序設(shè)計(jì)34程序啟動(dòng)后窗體正中央有一個(gè)直徑為500Twips的紅色圓球。大小“二號(hào)”，設(shè)置相關(guān)屬性使得標(biāo)簽在窗體中水平居中并且標(biāo)簽的大小隨顯示內(nèi)容自動(dòng)調(diào)整。單擊“應(yīng)用”按鈕，將調(diào)配好的顏色作為標(biāo)簽文字“堅(jiān)持就是勝利！”的文字顏色。程序設(shè)計(jì)33在窗體上放置一個(gè)“三原色配比與預(yù)覽”的框架，框架內(nèi)有三個(gè)水平滾動(dòng)條構(gòu)成的控件數(shù)組，滾動(dòng)條的取值范圍為0——255；還有一個(gè)長(zhǎng)方形形狀控件。倒計(jì)時(shí)過(guò)程是將剩余的時(shí)間顯示在標(biāo)簽Labell中，直到0分0秒為止，改為顯示“時(shí)間到！”：框架“選擇時(shí)間”內(nèi)有一組單選鈕控件數(shù)組，分別選擇不同的時(shí)間值。