設(shè)窗體中包含一組單選按鈕,一組復(fù)選框單選按鈕包括宋體,黑體和仿宋3種字體復(fù)選框提供對下劃線,

1、1.1 P129-(6)原題 設(shè)窗體中包含一組單選按鈕，一組復(fù)選框。單選按鈕包括宋體，黑體和仿宋3種字體。復(fù)選框提供對下劃線，粗體，斜體等修飾效果的選擇。文本框中輸入文字后單擊某個(gè)按鈕，文本框中的文字將按所選擇的選項(xiàng)進(jìn)行設(shè)置。窗體如圖5-32所示，編寫程序，實(shí)現(xiàn)題目的要求。1.2 解題思路(1)因?yàn)橛幸唤M單選按鈕和一組復(fù)選框，因此需要選擇框架結(jié)構(gòu)來實(shí)現(xiàn)要求。(2)新建一個(gè)窗體，在窗體上按照題目要求，布置各個(gè)控件，并寫出其各個(gè)對象的屬性表。(3)按照題目要求，編寫程序。(4)運(yùn)行程序，達(dá)到題目要求后，保存文件。1.3 對象屬性表對象屬性設(shè)置窗體名稱Form1CaptionP129-(6)文本框名

2、稱txtpassageCaption置空框架1名稱frafontCaption字體框架2名稱fraeffectCaption效果單選按鈕1名稱Optfont1Caption宋體單選按鈕2名稱Optfont2Caption黑體單選按鈕3名稱Optfont3Caption仿宋復(fù)選框1名稱chkunderlineCaption下劃線復(fù)選框2名稱chkboldCaption粗體復(fù)選框3名稱chkitalicCaption斜體命令按鈕名稱CmdexitCaption退出1.4 代碼及注解Private Sub chkbold_Click ()If chkbold.Value = 1 Then 通過if語

3、句,來使復(fù)選框選中和不選中顯示不同結(jié)果txtpassage.FontBold = TrueElsetxtpassage.FontBold = FalseEnd IfEnd SubPrivate Sub chkitalic_ Click ()If chkitalic.Value = 1 Thentxtpassage.FontItalic = TrueElsetxtpassage.FontItalic = FalseEnd IfEnd SubPrivate Sub chkunderline_ Click ()If chkunderline.Value = 1 Thentxtpassage.Font

4、Underline = TrueElse: txtpassage.FontUnderline = FalseEnd IfEnd SubPrivate Sub cmdexit_ Click ()EndEnd SubPrivate Sub Form_Load ()txtpassage.Text = Visual Basic 歡迎您 窗體載入輸入文字Visual Basic 歡迎您End SubPrivate Sub optfont1_ Click ()txtpassage.FontName = 宋體End SubPrivate Sub optfont2_ Click ()txtpassage.Fo

5、ntName = 黑體End SubPrivate Sub optfont3_ Click ()txtpassage.FontName = 仿宋End Sub1.5 截屏圖設(shè)計(jì)界面:運(yùn)行界面1:運(yùn)行界面2:運(yùn)行界面3:2.1 P129-(7)原題編寫加法練習(xí)程序。窗口布局如圖5-33所示。單擊“計(jì)算”按鈕，程序產(chǎn)生兩個(gè)100以內(nèi)的隨機(jī)正整數(shù)，分別顯示在兩個(gè)標(biāo)簽中。隨后，出現(xiàn)一個(gè)輸入對話框。在對話框中輸入運(yùn)算結(jié)果，例如，兩個(gè)隨機(jī)數(shù)分別是34和35，如圖5-34所示。輸入數(shù)據(jù)并確認(rèn)后，將輸入的結(jié)果顯示在等號后邊的標(biāo)簽中。若計(jì)算結(jié)果正確，用消息框提示“正確”，否則提示“不正確”。繼續(xù)提示“是否繼續(xù)計(jì)

6、算?”，并根據(jù)提示退出程序或清空標(biāo)簽中所顯示的內(nèi)容，等待下一次操作。2.2 解題思路(1)按照題目要求，布置各控件，并將各對象屬性表生成。(2)編寫代碼，首先產(chǎn)生兩個(gè)100以內(nèi)的隨機(jī)正整數(shù)，用函數(shù)x = Int(100 * Rnd)來生成，并將其在兩個(gè)標(biāo)簽中顯示出來。(3)產(chǎn)生隨機(jī)數(shù)的同時(shí)產(chǎn)生輸入框，應(yīng)用輸入框函數(shù)InputBox(計(jì)算: & x & + & y)，此時(shí)可輸入數(shù)據(jù)。(4)通過輸入框中輸入數(shù)據(jù)與標(biāo)簽中產(chǎn)生的隨機(jī)數(shù)之和是否一致形成判斷條件，生成消息框: answer = MsgBox(正確, 64) ,answer = MsgBox(不正確, 19)。(5)通過消息框上按鈕定義，當(dāng)

7、輸入數(shù)據(jù)正確時(shí)，清空文本框；不正確時(shí)，提示“是否繼續(xù)輸入”，連續(xù)不正確，則可連續(xù)提示“是否繼續(xù)輸入”，此時(shí)用一個(gè)循環(huán)語句來實(shí)現(xiàn)此功能。(6)運(yùn)行程序，能夠滿足題目要求，保存文件。2.3 對象屬性表標(biāo)簽1(名稱)Llabel1caption置空標(biāo)簽2(名稱)Llabel2caption+標(biāo)簽3(名稱)Llabel3caption置空標(biāo)簽4(名稱)Llabel4caption =標(biāo)簽5(名稱)Llabel5caption置空命令按鈕1(名稱)Cmdaddcaption計(jì)算命令按鈕2(名稱)Cmdexitcaption退出2.4 代碼及注解Private Sub cmdadd_Click () x

8、= Int(100 * Rnd) 產(chǎn)生100以內(nèi)的隨機(jī)數(shù) y = Int(100 * Rnd) Label1.Caption = x Label3.Caption = y s = InputBox(計(jì)算: & x & + & y) 生成輸入框 Label5.Caption = sIf Label5.Caption = x + y Then answer = MsgBox(正確, 64) 生成消息框,64為0+64組合Else answer = MsgBox(不正確, 19) 生成消息框,19為3+16組合 End If If answer = 1 Then a = MsgBox(是否清空, 4

9、) End If If a = 6 Then Label1.Caption = Label3.Caption = 清空標(biāo)簽 Label5.Caption = End If If answer = 6 Then b = MsgBox(是否繼續(xù)計(jì)算, 68) End IfDo While b = 6 執(zhí)行一個(gè)循環(huán)語句,計(jì)算不正確,使其可繼續(xù)計(jì)算,直到正確循環(huán)結(jié)束s = InputBox(計(jì)算: & x & + & y) Label5.Caption = s If Label5.Caption = x + y Then answer = MsgBox(正確, 64) Else answer = MsgBox(不正確, 19) End If If answer = 1 Then a = MsgBox(是否清空, 4) Exit Do 正確時(shí),循環(huán)結(jié)束 End If If a = 6 Then Label1.Caption = Label3.Caption = Label5.Caption = End If If answer = 6 Then b = MsgBox(是否繼續(xù)計(jì)算, 68) End If LoopEnd SubPrivate Sub cmdexit_ Click