1、自測 1程序代碼private sub command1_click()label1.fontsize = label1.fontsize + 3end subprivate sub command2_click()label1.fontbold = trueend subprivate sub command3_click()label1.fontunderline = trueend subprivate sub command4_click()label1.fontsize = 10label1.fontbold = falselabel1.fontunderline = falseen

2、d sub初始窗口：單機放大之后窗口：單機下劃線之后窗口：單擊加粗之后窗口：單擊還原之后窗口：自測 2程序代碼private sub command1_click()label1 = visual basictext1 = 程序設計題 end subprivate sub command2_click()text1 = visual basiclabel1 = 程序設計題 end sub初始窗口：單擊顯示之后窗口：單擊交換之后的窗口：自測題 3private sub command1_click()label1.fontsize = label1.fontsize * (0.5)end sub

3、private sub command2_click()label1.top = label1.top + 30label1.width = label1.width + 20label1.alignment = 1end sub初始窗口：單擊縮小兩倍之后的窗口：單擊向右下角移動之后的窗口：自測題 4程序代碼private sub command1_click()form1.caption = vb學習print 簡單的 vb程序設計 end subprivate sub command2_click()clsend subprivate sub command3_click()endend

4、subprivate sub command3_click()endend sub初始化窗口：單擊顯示之后的窗口：單擊清除之后的窗口：單擊退出之后的窗口：自測題 5程序代碼private sub command1_click()text1.text = text2.text = end subprivate sub command2_click()text3.text = val(text1.text) + val(text2.text)end subprivate sub command3_click()endend sub初始化窗口：單擊運算之后窗口：單擊清除之后的窗口：單擊退出之后的窗口

5、：自測練習 1private sub command1_click()dim a$a = text1.textlabel1.caption = left(a, 2)end subprivate sub command2_click()a = text1.textlabel2.caption = right(a, 2)end subprivate sub command3_click()text1.text = label1.caption & label2.captionend sub初始窗口界面輸入字符串截取前兩個字符截取后兩個字符字符串連接自測練習 2private sub for

6、m_click()dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l%a = 7349e = a mod 10 個位d = (a 10) mod 10 十位c = (a 100) mod 10 百位b = a 1000 千位i = (e + 7) mod 10 個位h = (d + 7) mod 10 十位g = (c + 7) mod 10 百位f = (b + 7) mod 10 千位j = ii = f 交換后的個位f = j 交換后的千位k = hh = g 交換后的十位g = k 交換后的百位l = f * 1000 + g * 100

7、 + h * 10 + itext1.visible = falseprint 加密前的 4位整數是 7439; (chr(10); 加密后的結果是 ; lend sub初始界面單擊窗體運行后的界面自測練習 1private sub form_click()dim a%, b%, c%, d%, e%, f!a = val(inputbox(輸入第一個數 , 輸入一個數 , 8)b = val(inputbox(輸入第一個數 , 輸入一個數 , 7)c = a + bd = a - be = a * bf = a / bf = fix(f * 100 + 0.5) / 100msgbox x+

8、y= & c & chr(10) & x-y= & d & chr(10) & x*y= & e & chr(10) & x/y= & f, , 輸出的結果 end sub自測練習 2private sub form_click()dim a%, b%, c%, d%, e%, f!a = val(inputbox(輸入第一個數的值 )b = val(inputbox(輸入第二個數的值 )c = val(inputbox(輸入第三個數的值 )d = val(inputbox(輸入第四個數的值 )e = a + b

9、+ c + df = e / 4print 和=; eprint 平均值 =; fend sub自測練習 3private sub form_click()dim h%, f%, x%, y%h = val(inputbox(輸入總頭數 )f = val(inputbox(輸入總腳數 )x = (4 * h - f) / 2y = (f - 2 * h) / 2print 籠中雞的頭數為 ; x; 只print 籠中兔的頭數為 ; y; 只end sub自測練習 1：private sub form_click()dim a%, b%, c%a = val(inputbox(請輸入第一條邊 ,

10、 邊長)b = val(inputbox(請輸入第二條邊 , 邊長)c = val(inputbox(請輸入第三條邊 , 邊長)if a + b c and a + c b and b + c a thenif a * a + b * b = c * c or a * a + c * c = b * b or b * b = c * c = a * a thenprint 直角elseif a = b and b = c thenprint 等邊三角形 elseif a = b or a = c or b = c thenprint 等腰三角形 elseprint 一般三角形 end ifel

11、seprint 不是三角形 end ifend sub不是三角形運行結果：初始窗口：輸入三條邊：運行結果：直角三角形運行結果：等邊三角形運行結果如下：等腰三角形：一般三角形自測練習 2：private sub form_click()dim a%, b!a = val(inputbox(請輸入 )if a mod 2 = 0 and a mod 3 = 0 and a mod 5 = 0 thenb = sqr(a)print a, belseendend ifend sub初始化窗口：輸入一個數：運行結果：自測練習 3private sub command1_click()dim a%, b

12、%a = val(text1.text)select case a 0case a = 20 and a = 50 and a = 1c = chr(a mod 10 + 48) & ca = a 10wendtext2.text = c end subprivate sub command1_click()dim a as integera = val(text1.text)call itostr(a)end sub運行初始界面：運行結果界面：驗證其他數字：自測練習 2：public function area(n) as doubledim c#, d#, e#, s#n = va

13、l(text2.text)c = (1 - 0) / nwhile e a(j) then t = a(i): a(i) = a(j): a(j) = t end if next jnext ifor i = 1 to 5print a(i); ;next ifor i = 1 to 5 if y combo1.listcount - 1 thencombo1.additem combo1.textend ifend subprivate sub command2_click()if combo1.listindex -1 thencombo1.removeitem combo1.listin

14、dexfor i = 0 to combo1.listcount - 1if combo1.list(i) = combo1.text thencombo1.removeitem iend ifexit fornext iend ifend subprivate sub command3_click()combo1.clearend sub運行初始界面 :自測練習 7：private sub command1_click()timer1.interval = 1timer1.enabled = trueend subprivate sub form_load()lbltemp1.fontsiz

15、e = 20lbltishi.fontsize = 20label1.fontsize = 20label2.fontsize = 20end subprivate sub timer1_timer()vsbwd.value = vsbwd.value + 10lbltem = vsbwd.valueif vsbwd = 100 thenlbltishi = 水開了 timer1.enabled = falseend ifend sub運行初始界面：運行結果：自測練習 1：private sub myhelp_click()frmabout.showend subprivate sub mym

16、enu1_click()text1.text = 百貨大樓 end subprivate sub mymenu2_click()text1.text = 利客隆 end subprivate sub mymenu3_click()text1.text = 稻香村 end sub運行初始界面：運行結果界面：自測練習 2：private sub dis_click()text1.text = 菜單程序設計 text1.fontsize = 20text1.fontname = 黑體end subprivate sub hid_click()text1.visible = falseend sub運

17、行初始界面：運行結果界面：自測練習 3：private sub vbhelp_click()r = msgbox( 幫助, , 程序設計題 )end subprivate sub vbnew_click()r = msgbox( 新建, , 程序設計題 )end subprivate sub vbopen_click()r = msgbox( 打開, , 程序設計題 )end subprivate sub vbsave_click()r = msgbox( 存盤, , 程序設計題 )end sub運行初始界面：運行結果：自測練習 4：private sub command1_click()co

18、mmondialog1.action = 1list1.additem commondialog1.filenameend sub運行初始界面：運行結果：自測練習 1：private sub command1_click()dim a as string, n%, i%, j%open e:data.txt for input as #1input #1, an = len(a)j = 0for i = 1 to nif mid(a, i, 1) = % then j = j + 1next iclose #1open e:datares.txt for output as #1print #1, jclose #1end sub運行初始界面：運行結果：自測練習 3：p