【正文】 Sub Option1_Click(Index As Integer)If Index = 0 Then = 1 Else = 5End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then (startx, starty)(X, Y) End Ifstartx = X: starty = YEnd Sub程序設(shè)計(jì)30題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1CaptionForm1Combo1text空Combo2visiblefalseCombo3visiblefalseCombo4visiblefalseText1（0）text空Text1（1）text空Text1（2）text空Text1（3）text空Label1Caption姓名Label2Caption地址Label3Caption郵編Label4Caption電話Command1Caption添加Command2Caption刪除二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件和Command2的Click事件Combo1的Click事件編寫如下事件過程代碼：39。*.jpg = c:\End Sub程序設(shè)計(jì)24題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Form1Caption健康稱Label1Caption身高:字體大小為3號(hào)Label2Caption體重:字體大小為3號(hào)Label3Captioncm字體大小為3號(hào)Label4Captionkg字體大小為3號(hào)Label5Command1Caption健康狀況二、根據(jù)題意，對(duì)標(biāo)簽text1和text2的KeyPress事件和命令按鈕Command1的Click事件編寫如下事件過程代碼：Private Sub Command1_Click()Dim m As Integerm = 105If m * Then = 偏胖,注意節(jié)食ElseIf m * Then = 偏瘦,注意營養(yǎng)Else = 正常,繼續(xù)保持End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii asc(“0”) keyAscii asc(“9”) Then KeyAscii = 0End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0End IfEnd Sub程序設(shè)計(jì)21題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。H000000FFamp?？丶Q屬性屬性值備注Form1Caption字幕放大Label1Caption歡迎光臨AlignMent2CenterCommand1Caption開始Timer1Interval200二、根據(jù)題意，對(duì)命令按鈕的Click事件和計(jì)時(shí)器的Timer事件編寫如下事件過程代碼：Private Sub Command1_Click()If = 開始 Then = 停止 = TrueElse = False = 開始End IfEnd SubPrivate Sub Timer1_Timer() = + 2End Sub程序設(shè)計(jì)17題解：一、根據(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ù)字，無法計(jì)算 End IfEnd Sub程序設(shè)計(jì)13題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。 Else = amp。 Chr(10) amp。控件名稱屬性屬性值備注Form1caption添加和刪除窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseText1Text List1Command1Caption添加Command2caption刪除二、根題意，編寫如下事件過程代碼：Private Sub Command1_Click()If = Then MsgBox (沒有內(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è)置屬性值。控件名稱屬性屬性值備注Form1Caption作圖Command1Caption坐標(biāo)系Command2Caption扇形Command3Caption結(jié)束二、根據(jù)題意，對(duì)命令按鈕的Click事件編寫如下事件過程代碼：注：因本題單位不明確，故對(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(Month(Date)) amp?？丶Q屬性屬性值備注Option1Caption顯示星期幾Option2Caption顯示年份Option3Caption顯示月份Option4Caption顯示日期Text1textCommand1Caption結(jié)束二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件編寫如下事件過程代碼：Private Sub Command1_Click()EndEnd SubPrivate Sub Option1_Click() = 今天是星期 amp。B) Else = 0 = 最大化(amp。程序設(shè)計(jì)01題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。水平、垂直方向的移動(dòng)速度均為100Twips/間隔。大小“二號(hào)”，設(shè)置相關(guān)屬性使得標(biāo)簽在窗體中水平居中并且標(biāo)簽的大小隨顯示內(nèi)容自動(dòng)調(diào)整。程序設(shè)計(jì)33在窗體上放置一個(gè)“三原色配比與預(yù)覽”的框架，框架內(nèi)有三個(gè)水平滾動(dòng)條構(gòu)成的控件數(shù)組，滾動(dòng)條的取值范圍為0——255；還有一個(gè)長(zhǎng)方形形狀控件。倒計(jì)時(shí)過程是將剩余的時(shí)間顯示在標(biāo)簽Labell中，直到0分0秒為止，改為顯示“時(shí)間到！”：框架“選擇時(shí)間”內(nèi)有一組單選鈕控件數(shù)組，分別選擇不同的時(shí)間值。標(biāo)簽Labe11的文字內(nèi)容為“Visual Basic程序設(shè)計(jì)”。“選項(xiàng)”框架中的“清除”按鈕用于清除圖片框中的內(nèi)容。程序設(shè)計(jì)28 “菜單”框架中由復(fù)選框數(shù)組提供選擇三種套餐，右邊的文本框數(shù)組中可以輸入數(shù)量；要求文本框只能接受數(shù)字鍵；并且只有選取了相應(yīng)的套餐后才可以進(jìn)行輸入，單擊“確定”按鈕，統(tǒng)計(jì)點(diǎn)餐的金額，并用消息框顯示出來；程序設(shè)計(jì)27在窗體上放置一個(gè)文本框控件數(shù)組，用于輸入用戶信息。單擊菜單“背景顏色”，通用對(duì)話框控件顯示為顏色對(duì)話框，并對(duì)文本框背景顏色進(jìn)行修飾。編寫相關(guān)代碼使得單擊文件列表框上的圖片文件名時(shí)，圖片顯示在圖片框中文本框中輸入的字符顯示為*，并且最多可以接受7個(gè)字符。在文本框中輸入鬧鐘時(shí)間并按回車后，啟動(dòng)判斷鬧鐘時(shí)間的定時(shí)器，如果時(shí)間超過鬧鐘時(shí)間，則標(biāo)簽的背景色用紅白兩色交替變換。計(jì)算公式為：標(biāo)準(zhǔn)體重=身高105；體重高于標(biāo)準(zhǔn)體重*，提示“偏胖，注意節(jié)食”；體重低于標(biāo)準(zhǔn)體重*，提示“偏瘦，增加營養(yǎng)”；其他為正常，提示“正常，繼續(xù)保持”。程序設(shè)計(jì)17水平滾動(dòng)條的取值范圍[12，72]。同時(shí)“停止”按鈕變?yōu)椤伴_始”按鈕。單擊“停止”按扭，標(biāo)簽“祝您考試成功”文字停止?jié)L動(dòng)。單擊“開始”按鈕時(shí)label2上的圖象開始移動(dòng)，單擊“結(jié)束”按鈕圖象停止移動(dòng)，設(shè)置每一秒移動(dòng)一個(gè)箭頭。當(dāng)單擊“結(jié)素“按鈕時(shí)，退出應(yīng)用程序。當(dāng)單擊“ ”按鈕時(shí)，把Iist2中的一項(xiàng)放到list1中，并且在list2中刪除該項(xiàng)。程序設(shè)計(jì)07窗體上三個(gè)文本框，上面兩個(gè)用輸入加數(shù)，單擊“=”按鈕，將兩個(gè)數(shù)的和顯示在下面一個(gè)文本框中。在輸入或修改單科成績(jī)的同時(shí)計(jì)算平均分，即在“高數(shù)”、“英語”和“計(jì)算機(jī)”文本框內(nèi)容發(fā)生改變時(shí)，就要立即重新計(jì)算平均分，并將計(jì)算結(jié)果在平均成績(jī)文本框中顯示。在窗體上放置一個(gè)命令按鈕，單擊按鈕時(shí)退出應(yīng)用程序。當(dāng)按“Tab”鍵時(shí)，保證按照“用戶名”、“原密碼”、“新密碼（N）”、“新密碼（S）”、“確定”按鈕和“取消”按鈕順序訪問各控件。比較“新密碼（N）”和“新密碼（S）”，若兩者一致，彈出密碼修改成功消息框，程序終止執(zhí)行。單擊“清空”按鈕，三個(gè)文本框內(nèi)容被清空，同時(shí)第一個(gè)文本框獲得焦點(diǎn)。當(dāng)窗體大小改變后，總是讓CmdMaxSize按鈕位于窗口的中央。同時(shí)可能使用熱鍵Alt+L和Alt+B實(shí)現(xiàn)窗口放大或還原。最下面一個(gè)文本框不能直接輸入。當(dāng)單擊“確定”按鈕后，首先比較“用戶名”和“原始密碼”是否一致，若一致且都為“admin”，則繼續(xù)執(zhí)行步驟4；否則彈出消息框，提示用戶出錯(cuò)，并讓用戶重新輸入。當(dāng)單擊“取消”按鈕時(shí)，程序終止執(zhí)行。在窗臺(tái)上放置一個(gè)文本框，選中單選按鈕時(shí)，顯示相應(yīng)的信息。程序設(shè)計(jì)06單擊“清空”按鈕，三個(gè)文本框內(nèi)容被清空，同時(shí)第一個(gè)文本框得焦點(diǎn)。程序設(shè)計(jì)10 在窗體上放置兩個(gè)列表框控件，在它的Iist中輸入一些內(nèi)容。當(dāng)單擊“”按鈕時(shí)，把list1中所有的項(xiàng)放到list2中，并且清空list1。如果單擊“確定”按鈕，則在按鈕下面的標(biāo)簽中顯示用戶所選擇的信息。若輸入的不是數(shù)字，則彈出消息框，提示信息是“輸入的不是數(shù)字，無法計(jì)算”。”在窗體上放置timer控件，用它來控制label2上的圖象位置的變化。同時(shí)“開始”按扭變?yōu)椤巴Ｖ埂卑磁?。單擊“停止”按鈕，標(biāo)簽“歡迎光臨”文字停止放大。單擊滾動(dòng)條左右箭頭時(shí)，標(biāo)簽上的字可以左右移動(dòng)，標(biāo)簽移動(dòng)范圍等于滾動(dòng)條的范圍。要求圓形的直徑在變化時(shí)要保持圓形的位置不變。單擊“健康狀況”按紐，根據(jù)計(jì)算公式分別將提示信息顯示在Labe15中。標(biāo)簽Labell用于顯示時(shí)間，宋體，粗體，斜體，二號(hào)，背景白色，字體居中對(duì)齊，固定邊框。如果輸入的密碼與“1234567”不吻合，顯示標(biāo)簽