單選按鈕復(fù)選框和框架控件實驗

1、上 機(jī) 報 告課程名稱 計算機(jī)程序設(shè)計基礎(chǔ)(VB語言) 專業(yè)班級 水文1141 姓 名 何晨鳳 學(xué) 號 03 上機(jī)題目標(biāo)準(zhǔn)控件（上）實 驗 室機(jī)房同組人數(shù)1實驗時間2011年 月 日成 績指導(dǎo)教師趙立英、楊東一、實驗?zāi)康?、熟練掌握Visual Basic標(biāo)準(zhǔn)控件的主要屬性、方法、事件及在實際編程中的應(yīng)用。2、掌握單選按鈕（OptionButton）、復(fù)選框（CheckBox）、框架（Frame）、列表框（ListBox）、組合框（ComboBox）控件的常用屬性、方法、事件和基本用法。3、通過實驗進(jìn)一步理解應(yīng)用程序界面設(shè)計及常用控件的使用技巧。二、實驗內(nèi)容1、單選按鈕、復(fù)選框和框架控件實驗設(shè)

2、計如圖所示的窗體界面，設(shè)置Text1中文本的字體、字號和字形，要求字體和字號用控件數(shù)組實現(xiàn)。程序清單：Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Cl

3、ick()If Check3.Value = 1 Then Text1.FontUnderline = TrueElse Text1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Optzh_Click(Index As Integer)Text1.FontSize = Optzh(Index).CaptionEnd SubPrivate Sub Optzt_Click(Index As Integer)Text1.FontName = Optzt(Index).CaptionEnd Sub運(yùn)行界面：2、列邊框控件實驗 設(shè)計如圖所示的界面，具體要求

4、如下： 在Form_Load事件中利用AddItem方法實現(xiàn)對列表框添加若干項目； 選定某項目，項目內(nèi)容和下標(biāo)自動在Label1控件中顯示； “添加”按鈕，將Text1控件輸入的項目添加在列表框最后； “刪除”按鈕，對選定的項目刪除； “清除”按鈕，清除列表框中所有項目。程序清單：Private Sub Command1_Click()List1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click()List1

5、.ClearEnd SubPrivate Sub Form_Load()List1.AddItem 大學(xué)計算機(jī)基礎(chǔ)List1.AddItem VB程序設(shè)計List1.AddItem C語言程序設(shè)計List1.AddItem 數(shù)據(jù)庫基礎(chǔ)List1.AddItem Java程序設(shè)計End SubPrivate Sub List1_Click()Label1.Caption = List1.Text & 下標(biāo)為: & List1.ListIndexEnd Sub運(yùn)行界面： 3、組合框控件實驗。 實驗指導(dǎo)P119實驗9-2程序清單：Private Sub Combo1_Click()Label4.Fo

6、ntName = Combo1.TextEnd SubPrivate Sub Combo2_Change()If Val(Combo2.Text) 8 Then Label4.FontSize = Val(Combo2.Text)End IfEnd SubPrivate Sub Combo2_Click()Label4.FontSize = Val(Combo2.Text)End SubPrivate Sub Combo3_Click()Select Case Combo3.Text Case 常規(guī) Label4.FontBold = False Label4.FontItalic = False Case 斜體 Label4.FontBold = False Label4.FontItalic = True Case 粗體 Label4.FontBold = True Label