vb6.0實(shí)驗(yàn)六習(xí)題與答案

vb6.0實(shí)驗(yàn)六習(xí)題與答案實(shí)驗(yàn)六專業(yè)_1、認(rèn)識(shí)常用控件：?jiǎn)芜x按鈕、復(fù)選框、框架、列表框、組合框、滾動(dòng)條、滑動(dòng)器（slider）、時(shí)鐘、圖形控件；22、學(xué)習(xí)在屬性窗口和在程序代碼中設(shè)置屬性3、學(xué)習(xí)調(diào)用控件的方法4.學(xué)習(xí)編寫每個(gè)控件、鼠標(biāo)和鍵盤的事件過程。二、實(shí)驗(yàn)內(nèi)容1、單選按鈕、復(fù)選框、框架將表格F1ch1、ch2ch1CH23601000；程序運(yùn)行時(shí)，check2FR1OP1op2。設(shè)計(jì)窗體，要求①標(biāo)題為“設(shè)置字體”；②帶邊框的標(biāo)簽控件Label1以表格形式設(shè)置，高度和寬度分別為450和3800，標(biāo)題為“歡迎VB”，字體大小為“4”，并顯示在中間；③標(biāo)題為“字體”框架包含兩個(gè)標(biāo)題分別為“楷體_gb2312”和“華文新魏”的單選按鈕op1和op2；④標(biāo)題為“Italic”的框架包含兩個(gè)標(biāo)題為“是”和“否”的單選按鈕。⑤編寫相應(yīng)控件的事件進(jìn)程，使程序運(yùn)行時(shí)，點(diǎn)擊“Kaiti_gb2312”，標(biāo)簽控件的字體為Kaiti_gb2312，點(diǎn)擊“ChineseNewWei”，標(biāo)簽控件的字體為ChineseNewWei；單擊Yes，label控件的字體將為斜體。單擊“否”取消標(biāo)簽控件字體的斜體化。privatesuboption1_click()1。fontname=option1endsubprivatesuboption2_uu單擊（）label1.fontname=option2.captionendsubprivatesuboption3_click()label1.fontitalic=trueendsubprivatesuboption4_click()label1.fontitalic=falseendsub在窗體是設(shè)置設(shè)置框text1，其中文字為：黑體、四號(hào)、居中；設(shè)置單選按鈕option1option2，標(biāo)題分別為“福州大學(xué)”和“陽(yáng)光學(xué)院”，編寫行當(dāng)?shù)氖录^程，學(xué)院”。文本文本=選項(xiàng)1。說明文字text1.text=option2.caption另外兩個(gè)未被選中。設(shè)置value2.列表框、組合框1）按圖設(shè)計(jì)，在窗體中設(shè)置兩個(gè)標(biāo)簽l1和l2、兩個(gè)列表框mylist1和mylist2：其中：標(biāo)簽標(biāo)題分別為“賬戶名稱”和“主要”；兩個(gè)列表框的列表項(xiàng)如圖所示；并且mylist1允許僅用鼠標(biāo)進(jìn)行多項(xiàng)選（多選=1）(style=1-checkbox)要求：①簡(jiǎn)單組合框的左邊距為1000，上邊距為500；在組合框中添加“土木工程”、“計(jì)算機(jī)”、“會(huì)計(jì)”和“工商管理”。除除該項(xiàng)目。3）如圖所示設(shè)計(jì)表單：要求：編寫適當(dāng)?shù)氖录^程，實(shí)現(xiàn)endsubmsgbox\你選了\&x&\個(gè)項(xiàng)目\,0,\選定項(xiàng)統(tǒng)計(jì)\endsub4）如圖所示設(shè)計(jì)表單：要求：③編寫一個(gè)合適的事件流程來實(shí)現(xiàn)：當(dāng)在組合框或列表框中單擊一個(gè)項(xiàng)目時(shí)，字體和字體大小將根據(jù)label1中的選項(xiàng)進(jìn)行設(shè)置。privatesublist1_click()label1.fontsize=list1.textendsub3、滾動(dòng)條、1）如圖所示設(shè)計(jì)表單：要求：①這兩個(gè)標(biāo)簽控件可以隨內(nèi)容自動(dòng)更改大小。label1的文本在中心對(duì)齊，并在垂直方向上更改，以適應(yīng)內(nèi)容。文字字體為“隸書”，字體大小為“四”。②寬度水平滾動(dòng)條hs1取值范圍從300~2500，單擊滾動(dòng)條箭頭，改變值為50；單擊滾動(dòng)條空白處，改變值為100；③編寫一個(gè)合適的事件流程來實(shí)現(xiàn)：根據(jù)滾動(dòng)條的當(dāng)前值更改標(biāo)簽的寬度，并在文本中顯示滾動(dòng)條的當(dāng)前值框中。PrivateShull1_uuChange（）標(biāo)簽1。寬度=hscroll1。valuetext1。text=hscroll1。值SUB4。時(shí)鐘1）按圖示設(shè)計(jì)窗體：要求：①標(biāo)簽label2為有邊框，其標(biāo)題文字加粗、字號(hào)為“四號(hào)”②文本框text1的文字加粗、字號(hào)為“四號(hào)”③編寫一個(gè)適當(dāng)?shù)氖录幚沓绦?，在單擊“開始”按鈕時(shí)動(dòng)態(tài)顯示當(dāng)前時(shí)間，并每1dimsasintegerprivatesubtimer1_timer()s=s+1標(biāo)簽1。caption=timetext1。text=sendsub5、圖像框與圖片框1）按圖示設(shè)計(jì)窗體：要求