程序設(shè)計(jì)基礎(chǔ)實(shí)驗(yàn)與上機(jī)考試教程最全答案

1、實(shí) 驗(yàn) 報(bào) 告實(shí)驗(yàn)日期_實(shí)驗(yàn)名稱： 實(shí)驗(yàn)一 常用標(biāo)準(zhǔn)控件一 【實(shí)驗(yàn)?zāi)康呐c要求】1.掌握Visual Basic的啟動(dòng)與退出。2.熟悉Visual Basic的集成開發(fā)環(huán)境。3.掌握在窗體中放置控件的方法。4.掌握在“屬性窗口”中設(shè)置控件屬性的方法。5.掌握在“代碼編輯器”窗口中輸入程序代碼的方法。6.掌握工具欄上啟動(dòng)按鈕、結(jié)束按鈕的使用方法。7.掌握標(biāo)簽、文本框、命令按鈕、列表框等控件的使用方法?！緦?shí)驗(yàn)內(nèi)容與步驟】實(shí)驗(yàn)1.1.1 標(biāo)簽的使用(一)1.題目與要求：在名稱為Form1、標(biāo)題為“標(biāo)簽”的窗體上畫一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，并設(shè)置適當(dāng)屬性以滿足以下要求：1)標(biāo)簽的內(nèi)容為“計(jì)算機(jī)等級(jí)考

2、試”；2)標(biāo)簽可根據(jù)顯示內(nèi)容自動(dòng)調(diào)整其大?。?)標(biāo)簽帶有邊框，且標(biāo)簽內(nèi)容顯示為三號(hào)字。2.實(shí)驗(yàn)步驟1)界面設(shè)置：在名稱為Form1的窗體上放置一個(gè)標(biāo)簽控件Label1；2)屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.1.1 對(duì)象屬性對(duì) 象屬性名稱屬性值Form1Caption標(biāo)簽Label1Caption計(jì)算機(jī)等級(jí)考試AutoSizeTrueFont三號(hào)BorderStyle13)保存文件：存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。實(shí)驗(yàn)1.1.2 標(biāo)簽的使用(二)1.在名稱為Form1的窗體上畫一個(gè)名稱為 Label1的標(biāo)簽，標(biāo)簽的寬和高分別為

3、2000、300，有邊框，并利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使其居中顯示“等級(jí)考試”，并使標(biāo)簽的外觀如圖所示。實(shí) 驗(yàn) 報(bào) 告2屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.1.2 對(duì)象屬性對(duì) 象屬性名稱屬性值Label1Width2000Height300BorderStyle1Alignment2Caption等級(jí)考試3.存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。實(shí)驗(yàn)1.1.3 文本框的使用1.題目與要求：在名稱為Form1的窗體上畫兩個(gè)文本框，名稱分別為T1、T2，初始情況下都沒有內(nèi)容。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，在T1中輸入的任何字符，

4、立即顯示在T2中。程序中不得使用任何變量。2.實(shí)驗(yàn)步驟1)界面設(shè)置：在名稱為Form1的窗體上放置兩個(gè)文本框；2)屬性設(shè)置表1.1.3 對(duì)象屬性對(duì) 象屬性名稱屬性值Text1NameT1TextText2NameT2Text3)完善程序代碼Private Sub T1_Change() T2.Text=T1.Text (T2=T1) End Sub3)保存文件：存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt3.vbp，窗體文件名為sjt3.frm。實(shí)驗(yàn)1.1.4 命令按鈕的使用(一)1.在名稱為Form1的窗體上畫一個(gè)名稱為C1、標(biāo)題為“變寬”的命令按鈕，窗體標(biāo)題為“改變按鈕大小

5、”。編寫程序，使得單擊命令按鈕時(shí)，命令按鈕水平方向的寬度增加100。要求：程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。實(shí) 驗(yàn) 報(bào) 告2屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.1.4 對(duì)象屬性對(duì) 象屬性名稱屬性值Form1Caption改變按鈕大小CommandButton1NameC1Caption變寬3.完善程序代碼Private Sub C1_Click() C1.Width=C1.Width+100 End Sub4.存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt4.vbp，窗體文件名為sjt4.frm。實(shí)驗(yàn)1.1.5 命令按鈕的使用(二)1.在名稱為Form1的窗體上畫一

6、個(gè)名稱為L(zhǎng)1的標(biāo)簽，標(biāo)題為“請(qǐng)確認(rèn)”；再畫兩個(gè)命令按鈕，名稱分別為C1、C2，標(biāo)題分別為“是”、“否”，高均為300、寬均為800。請(qǐng)?jiān)趯傩源翱谥性O(shè)置適當(dāng)?shù)膶傩詽M足以下要求：1)窗體標(biāo)題為“確認(rèn)”，窗體標(biāo)題欄上不顯示最大化和最小化按鈕；2)在任何情況下，按回車鍵都相當(dāng)于單擊“是”按鈕；按ESC鍵都相當(dāng)于單擊“否”按鈕。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.1.5 對(duì)象屬性對(duì) 象屬性名稱屬性值Form1Caption確認(rèn)MaxButtonFalseMinButtonFalseLabel1NameL1Caption請(qǐng)確認(rèn)CommandButton1NameC1Caption是Height300Wi

7、dth800DefaultTrueCommandButton2NameC2Caption否Height300Width800CancelTrue3存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt5.vbp，窗體文件名為sjt5.frm。實(shí) 驗(yàn) 報(bào) 告實(shí)驗(yàn)1.1.6 列表框的使用1.在名稱為Form1的窗體上畫1個(gè)名稱為L(zhǎng)abel1、標(biāo)題為“列表框的使用”的標(biāo)簽。再畫1個(gè)名稱為L(zhǎng)ist1的列表框，列表中含有5個(gè)表項(xiàng)，表項(xiàng)內(nèi)容分別為“北京”、“山西”、“遼寧”、“浙江”和“廣東”，并且可以在列表中同時(shí)選擇多個(gè)表項(xiàng)。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.1.6 對(duì)象屬性對(duì) 象屬性名稱屬性

8、值Label1Caption列表框的使用List1List北京List山西List遼寧List浙江List廣東MultiSelect23.存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt6.vbp，窗體文件名為sjt6.frm。實(shí)驗(yàn)1.1.7 命令按鈕與文本框的使用(一)請(qǐng)根據(jù)以下要求設(shè)計(jì)Visual Basic應(yīng)用程序（包括界面和代碼）。1.在名稱為From1的窗體上畫二個(gè)文本框，名稱分別為Text1、Text2，都顯示垂直滾動(dòng)條和水平滾動(dòng)條，都可以顯示多行文本；再畫一個(gè)命令按鈕，名稱為C1，標(biāo)題為“復(fù)制”。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，在Text1中輸入文本后，單擊“復(fù)制

9、”按鈕，就把Text1中的文本全部復(fù)制到Text2中，程序中不得使用任何變量。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.1.7 對(duì)象屬性對(duì) 象屬性名稱屬性值Text1MultiLineTrueScrollBars3Text2MultiLineTrueScrollBars3CommandButton1NameC1Caption復(fù)制3.完善程序代碼Private Sub C1_Click() Text2.Text=Text1.Text (Text2=Text1) End Sub4.存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt7.vbp，窗體文件名為sjt7.frm。實(shí) 驗(yàn) 報(bào) 告實(shí)驗(yàn)1

10、.1.8 命令按鈕與文本框的使用(二)1.在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Text1，初始內(nèi)容為空；再畫一個(gè)命令按鈕，名稱為C1，標(biāo)題為“移動(dòng)”。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊“移動(dòng)”按鈕，則文本框水平移動(dòng)到窗體的最左端。程序中不得使用任何變量。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.1.8 對(duì)象屬性對(duì) 象屬性名稱屬性值Text1Text空CommandButton1NameC1Caption移動(dòng)3.完善程序代碼Private Sub C1_Click() Text1.Left=0 End Sub4.存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt8.vbp，

11、窗體文件名為sjt8.frm。實(shí)驗(yàn)1.1.9 命令按鈕與文本框的使用(三)請(qǐng)根據(jù)以下要求設(shè)計(jì)Visual Basic應(yīng)用程序（包括界面和代碼）。1.在名稱為Form1的窗體上面畫一個(gè)名稱為Text1，內(nèi)容為“程序設(shè)計(jì)”的文本框，且顯示為三號(hào)字、居中；再畫兩個(gè)命令按鈕，標(biāo)題分別是“粗體”和“斜體”，名稱分別為Command1、Command2。如圖1.1.9所示。要求：編寫兩個(gè)命令按鈕的Click事件過程，使得單擊“粗體”按鈕時(shí)，文本框的內(nèi)容顯示為粗體格式，單擊“斜體”按鈕時(shí)，文本框的內(nèi)容顯示為斜體格式。注意：程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1

12、.1.9 對(duì)象屬性對(duì) 象屬性名稱屬性值Text1Text程序設(shè)計(jì)Font三號(hào)Alignment2CommandButton1Caption粗體CommandButton2Caption斜體3.完善程序代碼Private Sub Command1_Click() Text1.FontBold = True End Sub實(shí) 驗(yàn) 報(bào) 告Private Sub Command2_Click() Text1.Font.Italic = True End Sub4.存盤時(shí)必須存放在C:VBSy01文件夾下，工程文件名為sjt9.vbp，窗體文件名為sjt9.frm。成 績(jī)_批改日期_實(shí) 驗(yàn) 報(bào) 告實(shí)驗(yàn)日

13、期_實(shí)驗(yàn)名稱： 實(shí)驗(yàn)二 常用標(biāo)準(zhǔn)控件二 【實(shí)驗(yàn)?zāi)康呐c要求】1.掌握選項(xiàng)按鈕、復(fù)選框和框架的使用方法。2.掌握?qǐng)D像控件和圖片框的使用方法。3.掌握水平滾動(dòng)條和垂直滾動(dòng)條的使用方法4.掌握?qǐng)D形控件的使用方法。5.掌握計(jì)時(shí)器控件的使用方法?！緦?shí)驗(yàn)內(nèi)容與步驟】實(shí)驗(yàn)1.2.1 選項(xiàng)按鈕的使用1.在名稱為Form1的窗體上畫一個(gè)名稱為Text1的文本框，初始內(nèi)容為“計(jì)算機(jī)等級(jí)考試”；畫兩個(gè)標(biāo)題分別為“對(duì)齊方式”、“字體”，名稱分別為Frame1、Frame2的框架；在Frame1框架中畫三個(gè)單選按鈕，標(biāo)題分別為“左對(duì)齊”、“居中”、“右對(duì)齊”，名稱分別為Option1、Option2 、Option3；在

14、Frame2框架中畫二個(gè)單選按鈕，標(biāo)題分別為“宋體”、“黑體”，名稱分別為Option4、Option5。要求：編寫五個(gè)單選按鈕的Click事件過程，使程序運(yùn)行時(shí)，單擊這些單選按鈕，可以對(duì)文本框中的文字實(shí)現(xiàn)相應(yīng)的操作。注意：要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.2.1 對(duì)象屬性對(duì) 象屬性名稱屬性值Text1Text計(jì)算機(jī)等級(jí)考試Frame1Caption對(duì)齊方式Frame2Caption字體Option1Caption左對(duì)齊Option2Caption居中Option3Caption右對(duì)齊Option4Caption宋體Option5Cap

15、tion黑體3.完善程序代碼Private Sub Option1_Click() Text1.Alignment = 0 End SubPrivate Sub Option2_Click() Text1.Alignment =2 End Sub實(shí) 驗(yàn) 報(bào) 告Private Sub Option3_Click() Text1.Alignment =1 End SubPrivate Sub Option4_Click() Text1.FontName = "宋體" End SubPrivate Sub Option5_Click() Text1.FontName = &quo

16、t;黑體" End Sub4.存盤時(shí)必須存放在C:VBSy02文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。實(shí)驗(yàn)1.2.2 復(fù)選框的使用1.在名稱為Form1標(biāo)題為“選課”的窗體上畫四個(gè)復(fù)選框，名稱分別為CH1、CH2、CH3、CH4，標(biāo)題分別是“數(shù)學(xué)”、“語文”、“外語”、“計(jì)算機(jī)”，其中 “語文”、“計(jì)算機(jī)”復(fù)選框處在選中狀態(tài)下。請(qǐng)畫控件并設(shè)置相應(yīng)屬性。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.2.2 對(duì)象屬性對(duì) 象屬性名稱屬性值Form1Caption選課Check1NameCH1Caption數(shù)學(xué)Value0Check2NameCH2Caption語文Va

17、lue1Check3NameCH3Caption英語Value0Check4NameCH4Caption計(jì)算機(jī)Value13.存盤時(shí)必須存放在C:VBSy02文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。實(shí)驗(yàn)1.2.3 圖像的使用1.在名稱為Form1的窗體上畫一個(gè)名為Image1的圖像框，其高、寬分別為2000、3000，且不隨圖片大小而變化；再畫兩個(gè)命令按鈕，標(biāo)題分別是“顯示圖片”和“隱藏圖片”，名稱分別為Cmd1、Cmd2。需編寫兩個(gè)命令按鈕的Click事件過程，使得當(dāng)單擊“顯示圖片”按鈕時(shí)，將C:VBSy02文件夾下的圖片文件“圖片1.jpg”顯示在圖像框中；而

18、如果單擊實(shí) 驗(yàn) 報(bào) 告“隱藏圖片”按鈕，則清除圖像框中的圖片。要求：程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.2.3 對(duì)象屬性對(duì) 象屬性名稱屬性值Image1Height2000Width3000StretchTrueCommandButton1NameCmd1Caption顯示圖片CommandButton2NameCmd2Caption隱藏圖片3.完善程序代碼Private Sub Cmd1_Click() Image1.Picture = LoadPicture("C:VBSy02圖片1.jpg") End Sub Pri

19、vate Sub Cmd2_Click() Image1.Picture = LoadPicture("") End Sub4.存盤時(shí)必須存放在C:VBSy02文件夾下，工程文件名為sjt3.vbp，窗體文件名為sjt3.frm。實(shí)驗(yàn)1.2.4 圖片框和滾動(dòng)條的使用1.在名稱為Form1的窗體上畫一個(gè)圖片框（名稱為Picture1）、一個(gè)垂直滾動(dòng)條（名稱為VScroll1）和一個(gè)命令按鈕（名稱為Command1，標(biāo)題為“設(shè)置屬性”），通過屬性窗口在圖片框中裝入一個(gè)圖形（文件名為圖片2.jpg，位于C:VBSy02文件夾下），圖片框的寬度和圖形的寬度相同，圖片框的高度任意。編

20、寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊命令按鈕，則設(shè)置垂直滾動(dòng)條的如下屬性：Min 100Max 2400LargeChange 200SmallChange 20之后就可以通過滾動(dòng)條上的滾動(dòng)塊來放大或縮小圖片框的高度。要求程序中不得使用變量。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.2.4 對(duì)象屬性對(duì) 象屬性名稱屬性值Pciture1AutoSizeTruePictureC:VBSy02圖片2.jpgCommandButton1Caption設(shè)置屬性實(shí) 驗(yàn) 報(bào) 告3.完善程序代碼Private Sub Command1_Click() VScroll1.Min = 100 VScroll1.Ma

21、x = 2400 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End SubPrivate Sub VScroll1_Scroll() Picture1.Height=VScroll1.Value End Sub4.存盤時(shí)必須存放在C:VBSy02文件夾下，工程文件名為sjt4.vbp，窗體文件名為sjt4.frm。實(shí)驗(yàn)1.2.5 滾動(dòng)條的使用1.在名為Form1的窗體上畫一個(gè)名稱為HScroll1的水平滾動(dòng)條，其刻度范圍為1100；再畫一個(gè)名稱為Text1的文本框，初始內(nèi)容為1。程序開始運(yùn)行時(shí)，焦點(diǎn)在滾動(dòng)條上。請(qǐng)編寫適當(dāng)?shù)氖录^程

22、，使得程序運(yùn)行時(shí)，文本框中實(shí)時(shí)顯示滾動(dòng)條的當(dāng)前位置。注意：要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.2.5 對(duì)象屬性對(duì) 象屬性名稱屬性值HScroll1Min1Max100Text1Text13.完善程序代碼Private Sub Form_Activate() HScroll1.SetFoucs End SubPrivate Sub HScroll1_Change() Text1.Text=CStr(HScroll1.Value) End Sub4.存盤時(shí)必須存放在C:VBSy02文件夾下，工程文件名為sjt5.vbp，窗體文件名為sjt5.

23、frm。實(shí)驗(yàn)1.2.6 圖形的使用(一)1.在名稱為Form1的窗體上畫一個(gè)名稱為Shape1的形狀控件，畫一個(gè)名稱為L(zhǎng)1的列表框，并在屬性窗口中設(shè)置列表項(xiàng)的值為1、2、3、4、5。將窗體的標(biāo)題設(shè)置為“圖形控件”。單擊列表框中的某一項(xiàng)，則按照所選的值改變形狀控件的形狀。例如，選擇3，則形狀控件被設(shè)為圓形。要求：程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。實(shí) 驗(yàn) 報(bào) 告2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.2.6 對(duì)象屬性對(duì) 象屬性名稱屬性值Form1Caption圖形控件List1NameL1List1 2 3 4 53.完善程序代碼Private Sub L1_Click() Shap

24、e1.Shape=Val(L1.Text) End Sub4.存盤時(shí)必須存放在C:VBSy02文件夾下，工程文件名為sjt6.vbp，窗體文件名為sjt6.frm。實(shí)驗(yàn)1.2.7 圖形的使用(二)1.在名稱為From1的窗體上畫一個(gè)名稱為Shape1的形狀控件，畫兩個(gè)名稱分別為Command1、Command2，標(biāo)題分別為“圓形”、“紅色邊框”的命令按鈕，將窗體的標(biāo)題設(shè)置為“圖形控件”。請(qǐng)編寫適當(dāng)?shù)氖录^程使得在運(yùn)行時(shí)，單擊“圓形”按鈕將形狀控件設(shè)為圓形。單擊“紅色邊框”按鈕，將形狀控件的邊框顏色設(shè)為紅色（&HFF&）。注意：要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句

25、。2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.2.7 對(duì)象屬性對(duì) 象屬性名稱屬性值Form1Caption圖形控件CommandButton1Caption圓形CommandButton2Caption紅色邊框3.完善程序代碼Private Sub Command1_Click() Shape1.Shape=3 End SubPrivate Sub Command2_Click() Shape1.BorderColor = &HFF& End Sub4.存盤時(shí)必須存放在C:VBSy02文件夾下，工程文件名為sjt7.vbp，窗體文件名為sjt7.frm。實(shí)驗(yàn)1.2.8 計(jì)時(shí)器的使用1

26、.在名稱為From1的窗體上畫一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，標(biāo)簽的內(nèi)容為空，大小為三號(hào)字，標(biāo)簽可根據(jù)顯示內(nèi)容自動(dòng)調(diào)整其大小，再畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，設(shè)置其Interval屬性為1000，編寫適當(dāng)?shù)氖录^程，要求在標(biāo)簽上顯示日期與時(shí)間，并且時(shí)間每秒鐘變化一次。注意：要求程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。實(shí) 驗(yàn) 報(bào) 告2.屬性設(shè)置（請(qǐng)將表格補(bǔ)充完整）表1.2.8 對(duì)象屬性對(duì) 象屬性名稱屬性值Label1AutoSizeTrueCaption空Font三號(hào)Timer1InterVal10003.完善程序代碼Private Sub Timer1_Timer() Labe

27、l1.Caption=Now End Sub4.存盤時(shí)必須存放在C:VBSy02文件夾下，工程文件名為sjt8.vbp，窗體文件名為sjt8.frm。成 績(jī)_批改日期_實(shí) 驗(yàn) 報(bào) 告實(shí)驗(yàn)日期_實(shí)驗(yàn)名稱： 實(shí)驗(yàn)三 選擇結(jié)構(gòu) 【實(shí)驗(yàn)?zāi)康呐c要求】1.掌握IfThenElseEnd If結(jié)構(gòu)。2.掌握ElseIf結(jié)構(gòu)。3.掌握Select CaseEnd Select結(jié)構(gòu)。4.掌握選擇（分支）結(jié)構(gòu)的程序設(shè)計(jì)方法?！緦?shí)驗(yàn)內(nèi)容與步驟】實(shí)驗(yàn)1.3.1 汽車移動(dòng)1.在C:VBSy03文件夾下有一個(gè)工程文件sjt1.vbp，窗體Form1上有圖像框、計(jì)時(shí)器和兩個(gè)命令按鈕，如圖所示。要求當(dāng)單擊 “開始”按鈕，使小

28、汽車開始移動(dòng)，一旦移到窗口的右邊界時(shí)自動(dòng)跳到窗體左邊界重新移動(dòng)。單擊“停止”按鈕時(shí)，小汽車停止移動(dòng)。注意：不得修改窗體文件中已存在的程序和控件，最后程序按原文件名存盤。 2.完善程序代碼Private Sub Command1_Click() Timer1.Enabled = True End SubPrivate Sub Command2_Click() Timer1.Enabled = False End SubPrivate Sub Form_Load() Picture1.Picture = LoadPicture("C:VBSy03CARS.ICO")End Su

29、bPrivate Sub Timer1_Timer() Picture1.Left = Picture1.Left + 100 If Picture1.Left + Picture1.Width >= Form1.Width Then實(shí) 驗(yàn) 報(bào) 告 Picture1.Left = 0 End IfEnd Sub實(shí)驗(yàn)1.3.2 愛好選擇1.在C:VBSy03文件夾下有一個(gè)工程文件sjt2.vbp，其窗體上已有部分控件，請(qǐng)按照如圖所示添加框架和單選按鈕。要求：畫兩個(gè)框架，名稱分別為Frame1、Frame2，在Frame1中添加兩個(gè)單選按鈕，名稱分別為Option1、Option2，標(biāo)題分別

30、為“古典音樂”、“流行音樂”，在名稱為Frame2中添加兩個(gè)單選按鈕，名稱分別為Option3、Option4，標(biāo)題分別為“籃球”、“羽毛球”。開始運(yùn)行程序時(shí)，“古典音樂”和“籃球”單選鈕為選中狀態(tài)。單擊“選擇”按鈕，將把選中的單選鈕的標(biāo)題顯示在標(biāo)簽Label2中。如果“音樂”或“體育”未被選中，相應(yīng)的單選鈕不可選。要求：按照題目要求添加控件。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。 2.完善程序代碼Dim s As StringPrivate Sub Check1_Click() If Check1.Value = 1 Then Frame1.Enabled

31、 = True Else Frame1.Enabled = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Frame2.Enabled = True Else Frame2.Enabled = False End IfEnd SubPrivate Sub Command1_Click() If Check1.Value = 1 Then If Option1.Value = True Then s = "古典音樂" Else s = "流行音樂"實(shí) 驗(yàn) 報(bào) 告

32、 End If End If If Check2.Value = 1 Then If Option3.Value = True Then s = s & "籃球" Else s = s & "羽毛球" End If End If Label2.Caption = S End SubPrivate Sub Form_Load() Check1.Value = 1 Check2.Value = 1End Sub實(shí)驗(yàn)1.3.3 圓的運(yùn)動(dòng)1.在C:VBSy03文件夾下有一個(gè)工程文件sjt3.vbp，窗體中有一個(gè)矩形和一個(gè)圓，程序運(yùn)行時(shí)單擊開始按鈕

33、，圓可以縱向或橫向運(yùn)動(dòng)（通過選擇單選按鈕來決定），碰到矩形的邊時(shí)，則向相反的方向運(yùn)動(dòng)，單擊“停止”按鈕，則停止運(yùn)動(dòng)，如圖所示。可以選擇單選按鈕隨時(shí)改變運(yùn)動(dòng)方向。已經(jīng)給出所有控件和程序，但程序不完整。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后把修改的文件按原文件名存盤。2.完善程序代碼Dim d As IntegerPrivate Sub Command1_Click() Timer1.Enabled = True End Sub實(shí) 驗(yàn) 報(bào) 告Private Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_L

34、oad() d = 1End SubPrivate Sub Timer1_Timer() If Option1 Then Shape2.Top = Shape2.Top + d * 50 If Shape2.Top <= Shape1.Top Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then d = -d End If ElseIf Option2 Then Shape2.Left = Shape2.Left + d * 50 If Shape2.Left <= Shape1.Left Or Sha

35、pe2.Left+Shape2.Width >=Shape1.Left + Shape1.Width Then d = -d End If End IfEnd Sub實(shí)驗(yàn)1.3.4 交通工具和目的地選擇1.在C:VBSy03文件夾下有一個(gè)工程文件sjt4.vbp，請(qǐng)?jiān)诖绑w上畫兩個(gè)框架，其名稱分別為F1和F2，標(biāo)題分別為“交通工具”和“到達(dá)目標(biāo)”。在F1中畫兩個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“飛機(jī)”和“火車”。在F2中畫兩個(gè)單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為“廣州”和“昆明”。畫一個(gè)標(biāo)簽，其名稱為L(zhǎng)ab1，寬度為3000，高度為375。編寫適當(dāng)事件過程，程序運(yùn)行

36、后，選擇不同單選按扭并單擊窗體后在標(biāo)簽上顯示的結(jié)果見下表：選中的單選按鈕單擊窗體后產(chǎn)生的結(jié)果（標(biāo)簽中顯示的內(nèi)容）交通工具，到達(dá)目標(biāo)第1種情況飛機(jī) 廣州坐飛機(jī)去廣州第2中情況飛機(jī) 昆明坐飛機(jī)去昆明第3種情況火車 廣州坐火車去廣州第4中情況火車 昆明坐火車去昆明請(qǐng)編寫窗體的單擊事件，存盤時(shí)，工程文件名為sjt4.vbp，窗體文件名為sjt4.frm。注意：不得修改窗體文件中已存在的程序，在結(jié)束程序之前，必須至少進(jìn)行上面的一種操作，退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕。2.完善程序代碼實(shí) 驗(yàn) 報(bào) 告Private Sub Form_Click()'學(xué)生編寫 If Op1.Value =

37、 True Then If Op3.Value = True Then Lab1.Caption = "坐飛機(jī)去廣州" Else Lab1.Caption = "坐飛機(jī)去昆明" End If Else If Op3.Value = True Then Lab1.Caption = "坐火車去廣州" Else Lab1.Caption = "坐火車去昆明" End If End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Open "out4.tx

38、t" For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Lab1.Caption Close #1End Sub實(shí)驗(yàn)1.3.5 交換與連接1.在C:VBSy03文件夾下有一個(gè)工程文件sjt5.vbp，請(qǐng)?jiān)诖绑w上畫兩個(gè)文本框，其名稱分別為Text1、Text2，文本框內(nèi)容分別設(shè)置為“等級(jí)考試”、“計(jì)算機(jī)”。然后畫一個(gè)標(biāo)簽，其名稱為L(zhǎng)ab1，高度為375，寬度為2000。再畫兩個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為“交換”和“連接”，編寫適當(dāng)?shù)氖录绦颉３绦蜻\(yùn)行后，如果選中“交換”單選按

39、鈕并單擊窗體，則Text1文本框中內(nèi)容與Text2文本框中內(nèi)容進(jìn)行交換，并在標(biāo)簽中顯示“交換成功”；如果選中“連接”單選按鈕并單擊窗體，則把Text1和Text2的內(nèi)容按Text1在前、Text2在后的順序連接起來并在標(biāo)簽中顯示。請(qǐng)編寫窗體的單擊事件，存盤時(shí)，工程文件名為sjt5.vbp，窗體文件名為sjt5.frm。注意：不得修改已經(jīng)給出的程序。在結(jié)束程序之前，必須選中一個(gè)單選按鈕，并單擊窗體。退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕。2.完善程序代碼 Private Sub Form_Click() '學(xué)生編寫 Dim s As String If Op1.Value = Tru

40、e Then s = Text1.Text Text1.Text = Text2.Text Text2.Text = s Lab1.Caption = "交換成功"實(shí) 驗(yàn) 報(bào) 告 End If If Op2.Value = True Then Lab1.Caption = Text1 + Text2End SubPrivate Sub Form_Unload(Cancel As Integer) Open "out5.txt" For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text, Tex

41、t2.Text, Lab1.Caption Close #1End Sub實(shí)驗(yàn)1.3.6 大小寫轉(zhuǎn)換1.在C:VBSy03文件夾下有一個(gè)工程文件sjt6.vbp，包含了所有控件和部分程序。程序運(yùn)行時(shí)，在文本框中每輸入一個(gè)字符，則立即判斷：若是小寫字母，則把它的大寫形式顯示在Label1中，若是大寫字母，則把它的小寫形式顯示在Label1中，若是其他字符，則把該字符直接顯示在Label1中。輸入的字母總數(shù)則顯示在標(biāo)簽Label2中。注意：不得修改已經(jīng)存在的程序，最后把修改后的文件按原文件名存盤。2.完善程序代碼Dim n As IntegerPrivate Sub Text1_Change()

42、Dim ch As String ch = Right$( Text1.Text,1 ) If ch >= "A" And ch <= "Z" Then Label1.Caption = LCase(ch) n = n + 1 ElseIf ch >= "a" And ch <= "z" Then Label1.Caption = UCase(ch) n = n + 1 Else Label1.Caption = ch End If Label2.Caption = CStr(n) End

43、Sub成 績(jī)_批改日期_實(shí) 驗(yàn) 報(bào) 告實(shí)驗(yàn)日期_實(shí)驗(yàn)名稱： 實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu) 【實(shí)驗(yàn)?zāi)康呐c要求】1.掌握DoLoop循環(huán)結(jié)構(gòu)。2.掌握WhileWend循環(huán)結(jié)構(gòu)。3.掌握ForNext循環(huán)結(jié)構(gòu)。4.掌握循環(huán)結(jié)構(gòu)的程序設(shè)計(jì)方法?！緦?shí)驗(yàn)內(nèi)容與步驟】實(shí)驗(yàn)1.4.1 分解單詞1.在C:VBSy04文件夾下有一個(gè)工程文件sjt1.vbp，相應(yīng)的窗體文件為sjt1.frm。在窗體上有一個(gè)命令按鈕，其名稱為Command1，標(biāo)題為“添加”；有一個(gè)文本框，名稱為Text1，初始內(nèi)容為空白；有一個(gè)列表框，名稱為L(zhǎng)ist1。程序運(yùn)行后，在文本框中輸入一個(gè)英文句子（由多個(gè)單詞組成，各單詞之間用一個(gè)空格分開），然后單

44、擊命令按鈕，程序?qū)言撚⑽木渥臃纸鉃閱卧~，并把每個(gè)單詞作為一個(gè)項(xiàng)目添加到列表框中。該程序不完整，請(qǐng)把它補(bǔ)充完整。要求：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。2.程序代碼Private Sub Command1_Click() Dim S1 As String, S2 As String注意雙引號(hào)中有一個(gè)空格 Dim I1 As Integer S1 = Text1.Text I1 = 1 Do Do While Mid(S1, I1, 1) <> " " And I1 <= Len(S1) S2 = S2 & Mid(S1,

45、I1, 1) I1 = I1 + 1注意雙引號(hào)中沒有空格 Loop List1.AddItem S2 S2 = " " I1 = I1 + 1 Loop While I1 <= Len(S1)End Sub實(shí)驗(yàn)1.4.2 列表框內(nèi)容移動(dòng)2.在C:VBSy04文件夾下有一個(gè)工程文件sjt2.vbp，窗體上有兩個(gè)列表框，名稱分別為L(zhǎng)ist1、List2，在List2中已經(jīng)預(yù)設(shè)了內(nèi)容；還有兩個(gè)命令按鈕，名稱分別為C1、C2，實(shí) 驗(yàn) 報(bào) 告標(biāo)題分別為“添加”、“清除”。程序的功能是在運(yùn)行時(shí)，如果選中右邊列表框中的一個(gè)列表項(xiàng)，單擊“添加”按鈕，則把該項(xiàng)移到左邊的列表框中；若選中

46、左邊列表框中的一個(gè)列表項(xiàng)，單擊“清除”按鈕，則把該項(xiàng)移回右邊的列表框中。文件中已經(jīng)給出了所有控件和程序，但程序不完整。但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。2.完善程序代碼Private Sub C1_Click() Dim k As Integer k = 0 While (k < List2. ListCount ) If List2 .Selected(k) = True Then List1.AddItem List2.Text List2.RemoveItem k End If k = k + 1 WendEnd SubPrivat

47、e Sub C2_Click() List2.AddItem List1.Text List1.RemoveItem List1. ListIndex End Sub實(shí)驗(yàn)1.4.3 圖案輸出1.在C:VBSy04文件夾下有一個(gè)工程文件sjt3.vbp。程序運(yùn)行時(shí)，單擊窗體則顯示如圖所示的圖案。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。2.完善程序代碼Private Sub Form_Click() For i = 1 To 5 For j = 1 To 6 - i實(shí) 驗(yàn) 報(bào) 告 Print " " Next j For j = 1 To 2*

48、i-1 Print "*" Next j Print Next i For i = 1 To 4 For j = 1 To i+1 Print " " Next j For j = 1 To 9-2*i Print "*" Next j Print Next iEnd Sub實(shí)驗(yàn)1.4.4 因子個(gè)數(shù)1.在C:VBSy04文件夾下有一個(gè)工程文件sjt4.vbp，在程序運(yùn)行時(shí)，單擊“輸入整數(shù)”按鈕，可以從鍵盤輸入一個(gè)整數(shù)，并在窗體上顯示此整數(shù)的所有不同因子和因子個(gè)數(shù)。已經(jīng)給出了全部控件和程序，但程序不完整。不能修改程序中的其他部分，也不能

49、修改控件的屬性。最后用原來的文件名保存工程文件和窗體文件。2.完善程序代碼Private Sub Command1_Click() Dim m As Integer, s As Integer Cls m = InputBox("請(qǐng)輸入一個(gè)整數(shù)") s = 0 For k = 1 To Abs(m) / 2 If m Mod k = 0 Then s = s + 1 Print k End If Next k Print "因子數(shù)=" s End Sub實(shí)驗(yàn)1.4.5 城市選擇 1.在C:VBSy04文件夾下有一個(gè)工程文件sjt5.vbp。在其窗體中“待選城市”下的List1列表框中有若干個(gè)城市名稱。程序運(yùn)行時(shí)，選中List1中若干個(gè)列表項(xiàng)，單擊“選中”按鈕實(shí) 驗(yàn) 報(bào) 告則把選中的項(xiàng)目移到List2中，單擊“顯示”，則在Text1文本框中顯示這些選中的城市，如圖所示。已經(jīng)給出了所有控件和程序，但程序不完整。但不能修改程序中的其他部分和控件屬性。最后用原來的文件名保存工程文件和窗體文件。2.完善程序代碼Private Sub Command1_Click() Dim k As Integer For k = List1.ListCount-1 To 0 Step -1 If List1.Selected(k