【正文】 控件名稱屬性屬性值備注Shape1BackStyle1Opaque將Shape1放在窗體正中BorderColor紅色Shape3CircleHeight500Width500Timer1Interval100二、根據(jù)題意，編寫如下事件過程代碼：Dim dx As Integer, dy As IntegerPrivate Sub Form_Load() dy = 100 dx = 100 = FalseEnd SubPrivate Sub qidong_Click() = TrueEnd SubPrivate Sub Timer1_Timer() = + dx = + dy If 0 Or ( ) Then dx = dx End If If 0 Or ( ) Then dy = dy End IfEnd SubPrivate Sub tingzhi_Click() = FalseEnd Sub?？丶Q屬性屬性值備注Form1Caption調色板MinButtonFalseMaxButtonFalseFrame1Caption三原色配比與預覽Hscroll1Min0是數(shù)組，由三個水平滾動條組成?？丶Q屬性屬性值備注Form1Caption撥號盤Text1Text清空MaxLength10Font宋體、粗體、三號ForeColor蘭色Command（0）Caption0命令按鈕數(shù)組Command（1）Caption1……Command（9）Caption9Command2Caption重撥Timer1Interval500二、根據(jù)題意，對命令按鈕數(shù)組Command1和Command2的Click事件及Timer1控件的Timer事件編寫如下事件過程代碼：Dim NumStr As StringDim i As IntegerPrivate Sub Command1_Click(Index As Integer) = amp。 (nSecond Mod 60) amp。控件名稱屬性屬性值備注Form1Caption倒計時MinButtonFalseMaxButtonFalseFrame1Caption選擇時間Option1(0、2)caption1分鐘、5分鐘、10分鐘是數(shù)組，由三個垂直排列的單選按鈕組成Option1(0)ValueTrueLabel1font宋體、粗體、三號Aligment2CenterCommand1Caption計時開始Timer1Interval1000enabledfalse二、根據(jù)題意，編寫如下事件過程代碼：Dim nSecond As IntegerPrivate Sub Command1_Click() If Option1(0).Value Then nSecond = 60 ElseIf Option1(1).Value Then nSecond = 300 Else nSecond = 600 End If nSecond = 60 = True = False = FalseEnd SubPrivate Sub Timer1_Timer() nSecond = nSecond 1 = nSecond \ 60 amp?？丶Q屬性屬性值備注Form1Caption畫板窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseFrame1caption選項Option1(0)Caption細ValuetrueOption1(1)Caption粗Command1Caption顏色Command2Caption清除Label1Caption 繪圖區(qū)二、根據(jù)題意，編寫如下事件過程代碼：Dim startx As Single, starty As Single ‘在窗體層定義Private Sub Command1_Click() = End SubPrivate Sub Command2_Click()End SubPrivate 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程序設計30題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值。當前表項被選中時刪除數(shù)據(jù) i i i i Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = End IfEnd Sub程序設計28題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值?？丶Q屬性屬性值備注Form1CaptionForm1Combo1text空Combo2visiblefalseCombo3visiblefalseCombo4visiblefalseText1（0）text空Text1（1）text空Text1（2）text空Text1（3）text空Label1Caption姓名Label2Caption地址Label3Caption郵編Label4Caption電話Command1Caption添加Command2Caption刪除二、根據(jù)題意，對命令按鈕Command1的Click事件和Command2的Click事件Combo1的Click事件編寫如下事件過程代碼：39?？丶Q屬性屬性值備注Form1Caption字體設置MinButtonFalseMaxButtonFalsemondialogCaption選擇時間Text1Multilanetruescrollbar2verticaltext憶江南最憶是杭州在窗體上添加菜單，分別是標題名稱字體Fontmenu文字顏色Wcolormenu背景顏色bcolormenu二、根據(jù)題意，編寫如下事件過程代碼：Private Sub bcolormenu_Click() = End SubPrivate Sub fontmenu_Click() = = = = = End SubPrivate Sub Form_Load() = 宋體 = 2End SubPrivate Sub wcolormenu_Click() = End Sub程序設計26題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值。*.jpg = c:\End Sub程序設計24題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值?？丶Q屬性屬性值備注Form1Caption密碼檢驗Label1Caption輸入密碼后按回車（提示：密碼1234567）Label2Caption初始清空AutoSizeTrueFront宋體、三號、常規(guī)ForeColor選紅色Text1Text初始清空PassWordChar*MaxLength7二、根據(jù)題意，對窗體的Load事件和文本框Text1的KeyPress事件編寫如下事件過程代碼：Private Sub Form_Load() = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static n As IntegerIf KeyAscii = 13 Then = True If = 1234567 Then = 歡迎光臨！ Else = 密碼不符，請再輸入一遍！ = n = n + 1 End If If n = 2 Then = 非法用戶，請退出程序！ = False End IfEnd IfEnd Sub程序設計23題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值?？丶Q屬性屬性值備注Form1Caption健康稱Label1Caption身高:字體大小為3號Label2Caption體重:字體大小為3號Label3Captioncm字體大小為3號Label4Captionkg字體大小為3號Label5Command1Caption健康狀況二、根據(jù)題意，對標簽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程序設計21題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值。H000000FFamp。H000000FFamp?？丶Q屬性屬性值備注Label1Caption歡迎您的使用HScroll1水平滾動條Command1Caption結束二、根據(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程序設計19題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設置屬性值?？丶Q屬性屬性值備注Form1Ca