2013《VisualBASIC程序設(shè)計(jì)》期末考試編程題復(fù)習(xí)及答案參考

1、文檔供參考，可復(fù)制、編制，期待您的好評(píng)與關(guān)注！ 第2章1.新建工程，在窗體上創(chuàng)建兩個(gè)命令按鈕Command1、Command2，一個(gè)標(biāo)簽Label1，界面如圖2-5所示，程序運(yùn)行要求如下：1）單擊“改變顏色”按鈕，標(biāo)簽上的文字內(nèi)容改為“顏色已經(jīng)改變”，文字顏色改為紅色?！案淖冾伾卑粹o代碼：Label1.ForeColor = vbRed Label1.Caption = "顏色已經(jīng)改變" 2）單擊“改變字體”按鈕，標(biāo)簽上的字體改為“黑體”?！案淖冏煮w”按鈕代碼：Label1.FontName = "黑體"圖2-5程序運(yùn)行界面最后將工程文件、窗體文件分別

2、以lx2-2.vbp、lx2-2.frm為文件名保存在D:EX文件夾下。2.設(shè)計(jì)一個(gè)留言薄。新建一個(gè)工程，在窗體上創(chuàng)建2個(gè)標(biāo)簽，2個(gè)文本框，1個(gè)命令按鈕，屬性設(shè)置如圖2-6所示，。要求單擊“提交”按鈕后，上面的文本框內(nèi)容復(fù)制到下面的文本框中，且下面文本框中的內(nèi)容不能修改。單擊“清除”按鈕則清除兩個(gè)文本框中的內(nèi)容?！疤峤弧卑粹o代碼：Text2.Text = Text1.Text“清除”按鈕代碼：Text1.Text = ""Text2.Text = ""圖2-6 程序界面最后將工程文件、窗體文件分別以lx2-4.vbp、lx2-4.frm為文件名保存在D:

3、EX文件夾下。3.設(shè)計(jì)一個(gè)程序，程序界面如圖2-7所示。當(dāng)單擊“顯示”按鈕時(shí)，在文本框中顯示“歡迎使用VB！”；當(dāng)單擊“清除”按鈕時(shí)，清除文本框內(nèi)的文本；當(dāng)單擊“退出”按鈕時(shí)，結(jié)束程序運(yùn)行?！帮@示”按鈕代碼：Text1.Text = "歡迎使用VB!" “清除”按鈕代碼：Text1.Text = ""“退出”按鈕代碼：End圖2-7 程序運(yùn)行界面最后將工程文件、窗體文件分別以lx2-5.vbp、lx2-5.frm為文件名保存在D:EX文件夾下。第3章4. 設(shè)計(jì)一個(gè)程序，在文本框中輸入一個(gè)3位整數(shù)，單擊按鈕后，在標(biāo)簽上輸出該數(shù)的百位數(shù)、十位數(shù)和個(gè)位數(shù)，運(yùn)行

4、界面如圖3-3所示。最后將工程文件、窗體文件分別以SL3-3.vbp、SL3-3.frm為文件名保存在D:EX文件夾下。圖3-3 程序運(yùn)行界面5.設(shè)計(jì)一個(gè)程序，實(shí)現(xiàn)簡(jiǎn)單計(jì)算的功能，運(yùn)行界面如圖3-7所示。最后將工程文件、窗體文件分別以lx3-3.vbp、lx3-3.frm為文件名保存在D:EX文件夾下。圖3-7 程序運(yùn)行界面提示：clear按鈕的代碼： text1.text="" '""是雙引號(hào),空字符串的意思6.設(shè)計(jì)一個(gè)程序（程序運(yùn)行界面自定），使用inputbox函數(shù)輸入某品牌電腦的單價(jià)和購(gòu)買的數(shù)量，計(jì)算并用msgbox函數(shù)輸出需付款金額。最

5、后將工程文件、窗體文件分別以lx3-4.vbp、lx3-4.frm為文件名保存在D:EX文件夾下。&為長(zhǎng)整行 %為整形7.rnd函數(shù)產(chǎn)生一個(gè)0，1）的單精度(!)隨機(jī)數(shù)。設(shè)計(jì)一個(gè)程序（程序運(yùn)行界面自定），用此函數(shù)產(chǎn)生一個(gè)兩位的隨機(jī)整數(shù)并用msgbox函數(shù)輸出該整數(shù)值。最后將工程文件、窗體文件分別以lx3-5.vbp、lx3-5.frm為文件名保存在D:EX文件夾下。63頁(yè)第4章一、順序結(jié)構(gòu)8.運(yùn)行時(shí)界面如下：“計(jì)算”按鈕和“結(jié)束”按鈕的click事件代碼如下：最后將工程文件和窗體文件分別以ceshi3-3-1.vbp和ceshi3-3-1.frm文件名保存，并保存在D:EX文件夾下。9

6、.最后將工程文件和窗體文件分別以ceshi3-4.vbp和ceshi3-4.frm文件名保存，并保存在D:EX文件夾下。10.最后將工程文件和窗體文件分別以ceshi3-5.vbp和ceshi3-5.frm文件名保存，并保存在D:EX文件夾下。11.編制程序，在一個(gè)文本框中輸入一串字符（長(zhǎng)度大于2），單擊“處理”按鈕時(shí)，則取出該字符串的頭、尾部各一個(gè)字符，合并后顯示在第二個(gè)文本框中。如輸入“ABCDEFG”，則輸出“AG”。最后將工程文件和窗體文件分別以ceshi3-6.vbp和ceshi3-6.frm文件名保存，并保存在D:EX文件夾下。二、選擇結(jié)構(gòu)12請(qǐng)參考如圖4-8所示程序的運(yùn)行結(jié)果，新

7、建一個(gè)工程，完成“健康稱”程序的設(shè)計(jì)。具體要求如下：（1）窗體的標(biāo)題為“健康稱”，固定邊框。（2）窗體的左邊有兩個(gè)標(biāo)簽，Label1的標(biāo)題為“身高”、Label2的標(biāo)題為“體重”；它們的旁邊分別有兩個(gè)文本框，Text1用于輸入身高、Text2用于輸入體重；在文本框的右邊有兩個(gè)標(biāo)簽，Label3的標(biāo)題為“cm”，Label4的標(biāo)題為“kg”。（3）將兩個(gè)文本框文字對(duì)齊方式均設(shè)置為右對(duì)齊，最多接受3個(gè)字符。（4）兩個(gè)文本框均不接受非數(shù)字鍵。（5）單擊“健康狀況”按鈕(Command1)，根據(jù)計(jì)算公式將相應(yīng)的提示信息顯示在標(biāo)簽Label5中。計(jì)算公式為：標(biāo)準(zhǔn)體重=身高-105；體重高于標(biāo)準(zhǔn)體重*1.

8、1為偏胖，提示“偏胖，注意節(jié)食”；體重低于標(biāo)準(zhǔn)體重*0.9為偏瘦，提示“偏瘦，增加營(yíng)養(yǎng)”；其他為正常，提示“正常，繼續(xù)保持”。最后將工程文件、窗體文件分別以lx4-1.vbp、lx4-1.frm為文件名保存在D:EX文件夾下。圖4-8 實(shí)驗(yàn)題目1運(yùn)行界面13.編寫模擬袖珍計(jì)算器的程序，運(yùn)行界面如圖4-9所示。要求如下：輸入兩個(gè)操作數(shù)和一個(gè)四則運(yùn)算操作符，根據(jù)操作符決定所做的運(yùn)算。輸入的數(shù)據(jù)進(jìn)行合法檢驗(yàn)，當(dāng)輸入出錯(cuò)時(shí)，調(diào)用MsgBox()提示。Trim是去掉倆邊空格最后將工程文件、窗體文件分別以lx4-2.vbp、lx4-2.frm為文件名保存在D:EX文件夾下。圖4-9 實(shí)驗(yàn)題目2運(yùn)行界面三、

9、循環(huán)結(jié)構(gòu)14.輸入任意一個(gè)整數(shù)N，求1到N之間所有偶數(shù)和；(可參考課本p89頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-1.vbp、XH4-1.frm為文件名保存在D:EX文件夾下。15.輸入任意一個(gè)整數(shù)N，計(jì)算N階乘；5！=5*4*3*2*1(可參考課本p90頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-2.vbp、XH4-2.frm為文件名保存在D:EX文件夾下。16.輸入任意一個(gè)整數(shù)N，輸出1+1/2+1/3+1/N的計(jì)算結(jié)果；(可參考課本p93頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-3.v

10、bp、XH4-3.frm為文件名保存在D:EX文件夾下。17.輸入任意一個(gè)整數(shù)N，輸出N以內(nèi)3的倍數(shù)之和（即3+6+9）；(可參考課本p93頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-4.vbp、XH4-4.frm為文件名保存在D:EX文件夾下。18.輸入任意一個(gè)整數(shù)N，輸出1×22×32××N2的計(jì)算結(jié)果；(可參考課本p90頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-5.vbp、XH4-5.frm為文件名保存在D:EX文件夾下。19.輸入任意一個(gè)整數(shù)N，輸出N以內(nèi)的所有5的倍數(shù)的積；(可參

11、考課本p90頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-6.vbp、XH4-6.frm為文件名保存在D:EX文件夾下。20.輸入任意一個(gè)整數(shù)N，輸出的計(jì)算結(jié)果；(可參考課本p93頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-7.vbp、XH4-7.frm為文件名保存在D:EX文件夾下。21.輸入任意一個(gè)整數(shù)N，輸出1!+2!+n!的累加和；(可參考課本p90頁(yè)和課本p93頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-8.vbp、XH4-8.frm為文件名保存在D:EX文件夾下。22.編程求出50之內(nèi)的全

12、部素?cái)?shù)；(可參考課本p98頁(yè))。最后將工程文件、窗體文件分別以XH4-9.vbp、XH4-9.frm為文件名保存在D:EX文件夾下。23.編寫程序打印如下九九乘法表（使用雙重循環(huán)實(shí)現(xiàn)）。(可參考課本p97頁(yè))最后將工程文件、窗體文件分別以XH4-10.vbp、XH4-10.frm為文件名保存在D:EX文件夾下。1×1=1 2×1=2 2×2=4 9×1=1 9×2=18 9×9=8124.編一程序，顯示所有的水仙花數(shù)，如下圖。所謂水仙花數(shù)，是指一個(gè)3位數(shù)，其各位數(shù)字立方和等于該數(shù)字本身。例如，153=13+53+33。最后將工程文件、

13、窗體文件分別以XH4-11.vbp、XH4-11.frm為文件名保存在D:EX文件夾下。25.我國(guó)古代數(shù)學(xué)家張丘建在“算經(jīng)”里提出一個(gè)世界數(shù)學(xué)史上有名的百雞百元問題：雞翁一，值錢五；雞母一，值錢三;雞雛三，值錢一。百元買百雞，問雞翁、雞母、雞雛各幾何?意思是：用100元錢買100只雞，公雞5元一只，母雞3元一只，小雞1元3只；100只雞中必須包括雞翁、雞母和雞雛。自行設(shè)計(jì)界面并在圖形框中輸出百雞百元的幾種解。最后將工程文件、窗體文件分別以XH4-12.vbp、XH4-12.frm為文件名保存在D:EX文件夾下。提示：按題意列出方程組，并己知雞翁不能超過19只，雞母不能超過32只。第5章26.編

14、寫程序，將隨機(jī)產(chǎn)生的兩位數(shù)的一維數(shù)組A(10 )中的元素向后移動(dòng)一個(gè)位置，最后一個(gè)元素移到第一個(gè)元素的位置上。最后將工程文件、窗體文件分別以lx6-2.vbp、lx6-2.frm為文件名保存在D:EX文件夾下。27.輸入某小組5個(gè)同學(xué)的成績(jī)，計(jì)算總分和平均分(取小數(shù)后一位)。本例利用InputBox函數(shù)來輸入成績(jī)，輸入完畢后經(jīng)過計(jì)算，再采用Print直接在窗體上輸出結(jié)果。最后將工程文件、窗體文件分別以SZ5-1.vbp、SZ5-1.frm為文件名保存在D:EX文件夾下。28.輸入10名學(xué)生的成績(jī)，求出最高分和最低分功能要求：通過Array函數(shù)輸入10個(gè)分?jǐn)?shù)；單擊“查找”按鈕(Command2)

15、后，開始查找最高分和最低分，找到后顯示在標(biāo)簽Label1上。最后將工程文件、窗體文件分別以SZ5-2.vbp、SZ5-2.frm為文件名保存在D:EX文件夾下。29. 建立一個(gè)文本框控件數(shù)組Text1和一個(gè)文本框Text2，在控件數(shù)組Text1中輸入一組數(shù)后，把累加值存放在Text2。最后將工程文件、窗體文件分別以SZ5-4.vbp、SZ5-4.frm為文件名保存在D:EX文件夾下。文本框控件數(shù)組Text1Text2Text1(0)Text1(1)Text1(2)Text1(3)Command130. 按下圖設(shè)計(jì)窗體，其中一組(共3個(gè))單選按鈕構(gòu)成控件數(shù)組，要求當(dāng)單擊某個(gè)單選按鈕時(shí)，能夠改變文

16、本框中文字的大小。最后將工程文件、窗體文件分別以SZ5-5.vbp、SZ5-5.frm為文件名保存在D:EX文件夾下。控件數(shù)組第7章31.在窗體上放置三個(gè)復(fù)選框，標(biāo)題依次為“旅游”、“體育”、“音樂”，另有一個(gè)命令按鈕，標(biāo)題為“興趣”。程序運(yùn)行后，選中復(fù)選框，再點(diǎn)擊命令按鈕，則在窗體上顯示相應(yīng)的的信息。運(yùn)行界面如圖10-12所示。最后將窗體文件、工程文件分別以LX10-1.frm、LX10-1.vbp為文件名保存在D:EX文件夾下。圖10-12復(fù)選框運(yùn)行界面32.設(shè)置如圖10-13所示界面所示的程序，要求程序運(yùn)行時(shí)選中組合框中的某一項(xiàng)，將彈出如下對(duì)話框加以說明。最后將窗體文件、工程文件分別以L

17、X10-2.frm、LX10-2.vbp為文件名保存在D:EX文件夾下。圖10-13組合框運(yùn)行界面33. 在窗體上畫一個(gè)名稱為HS1的水平滾動(dòng)條（min=0,max=100）和三個(gè)名稱分別為C1,C2,C3，標(biāo)題分別為“左端”，“居中”，“右端”的命令按鈕。編程是的程序運(yùn)行后，單擊C1，則滾動(dòng)框位于滾動(dòng)條的最左端；單擊C2，則滾動(dòng)框位于滾動(dòng)條的中間處；單擊C3，則滾動(dòng)框位于滾動(dòng)條的最右端，運(yùn)行界面如圖10-14所示。最后將窗體文件、工程文件分別以LX10-3.frm、LX10-3.vbp為文件名保存在D:EX文件夾下。圖10-14滾動(dòng)條運(yùn)行界面34.列表框舉例。窗體上添加二個(gè)列表框、

18、二個(gè)命令按鈕，設(shè)置完屬性后的界面如圖10-16 所示。要求:（1）選中列表框中的某一條目，單擊命令按鈕，將其移動(dòng)到另一列表框中。 （2）雙擊列表框中的某一條目，直接將其移動(dòng)到另一列表框中。完成運(yùn)行界面所達(dá)到的要求，最后將窗體文件、工程文件分別以LX10-6.frm、LX10-6.vbp為文件名保存在D:EX文件夾下。 圖10-16 題目6的設(shè)計(jì)界面（其中右圖為題目6的運(yùn)行結(jié)果）35.text1中, 最后將窗體文件、工程文件分別以SL10-10.frm、SL10-10.vbp為文件名保存在D:EX文件夾下。36.。最后將窗體文件、工程文件分別以LX10-6.frm、LX10-6.vbp為文件名保

19、存在D:EX文件夾下。 參考答案1Private Sub Command1_Click()Label1.ForeColor = vbRedLabel1.Caption = "顏色已經(jīng)改變"End SubPrivate Sub Command2_Click()Label1.FontName = "黑體"End Sub4Private Sub Command1_Click()Dim n%, a%, b%, c%n = Val(Text1.Text)a = n 100b = (n - a * 100) 10c = n Mod 10Label1.Caption

20、= "百位數(shù):" & a & ",十位數(shù):" & b & ",個(gè)位數(shù)" & cEnd Sub5Private Sub Command1_Click()Label1.Caption = "+"Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Label1.Caption = "-"Text3.Text = Val(Text1.Text) - Val

21、(Text2.Text)End SubPrivate Sub Command3_Click()Label1.Caption = "*"Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Label1.Caption = "/"Text3.Text = Val(Text1.Text) / Val(Text2.Text)End SubPrivate Sub Command5_Click()Text1.Text = ""Text2.

22、Text = ""Text3.Text = ""End SubPrivate Sub Command6_Click()EndEnd Sub6Private Sub Form_Load()Dim dj&, shL%, je&dj = Val(InputBox("輸入某品牌電腦的單價(jià);")shL = Val(InputBox("輸入某品牌電腦的的購(gòu)買的數(shù)量;")je = dj * shLMsgBox "需付款金額;" & jeEnd Sub7Private Sub Form_

23、Click()Dim zh%Randomizezh = Int(90 * Rnd) + 10MsgBox "兩位的隨機(jī)整數(shù)是:" & zhEnd Sub8Private Sub Command1_Click()Dim hh%, mm%, ss%, totals!Dim outstr$hh = Val(Text1)mm = Val(Text2)ss = Val(Text3)totals = hh * 3600 + mm * 60 + ssoutstr = hh & "小時(shí)" & mm & "分 " &am

24、p; ss & "秒"outstr = outstr & vbCrLf & "總計(jì):" & totals & "秒"MsgBox outstr, , "輸出結(jié)果"End SubPrivate Sub Command2_Click()EndEnd Sub9Private Sub Command1_Click()Dim r!, k!, s!r = Val(InputBox("請(qǐng)輸入圓的半徑", "計(jì)算圓的周長(zhǎng)和面積")k = 2 * 3.1

25、4159 * rs = 3.14159 * r * rText1.Text = kText2.Text = smsgbox "計(jì)算已完成！", , "計(jì)算圓的周長(zhǎng)和面積"End SubPrivate Sub Command2_Click()endEnd Sub10Dim x%, a%Dim b%, c%x = 36a = Int(x / 10)b = x Mod 10c = b * 10 + aPrint "處理后的數(shù)：" cEnd Sub11Private Sub Command1_Click()Dim x As String, y

26、 As String x = Text1.Texty = Left(x, 1) + Right(x, 1) Text2.Text = y12Private Sub Command1_Click()Dim s%, t%Dim b%, shuchu$s = Val(Text1.Text)t = Val(Text2.Text)b = s - 105If t > b * 1.1 Thenshuchu = "偏胖，注意節(jié)食"ElseIf t < b * 0.9 Thenshuchu = "偏瘦，增加營(yíng)養(yǎng)"Elseshuchu = "正常，繼續(xù)

27、保持"End IfLabel1.Caption = shuchuEnd SubPrivate Sub Text1_Change()If IsNumeric(Text1) = False Then Text1 = ""End SubPrivate Sub Text2_Change()If IsNumeric(Text2) = False Then Text12 = ""End Sub13Private Sub Command1_Click()Dim x!, y!x = Val(Text1)y = Val(Text2)Select Case Tri

28、m(Text3)Case "+"Text4 = x + yCase "-"Text4 = x - yCase "*"Text4 = x * yCase "/"Text4 = x / yIf y = 0 ThenMsgBox "除數(shù)不能為0"Text4 = ""Text2.SetFocusElseText4 = x / yEnd IfEnd SelectEnd Sub三、循環(huán)結(jié)構(gòu)14.輸入任意一個(gè)整數(shù)N，求1到N之間所有偶數(shù)和；(可參考課本p89頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和

29、輸出。最后將工程文件、窗體文件分別以XH4-1.vbp、XH4-1.frm為文件名保存在D:EX文件夾下。Private Sub Command1_Click() Dim i, N, s As Integer s = 0 N = val（Text1.Text） For i = 1 To N If i Mod 2 = 0 Then s=s+i End If Next i Text2.Text = s End Sub15.輸入任意一個(gè)整數(shù)N，計(jì)算N階乘；5！=5*4*3*2*1(可參考課本p90頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-2.vbp、XH4-2.fr

30、m為文件名保存在D:EX文件夾下。Private Sub Command1_Click() Dim i, N, s As Integer s = 1 N = val（Text1.Text） For i = 1 To N s=s*i Next Text2.Text = sEnd Sub16.輸入任意一個(gè)整數(shù)N，輸出1+1/2+1/3+1/N的計(jì)算結(jié)果；(可參考課本p93頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-3.vbp、XH4-3.frm為文件名保存在D:EX文件夾下Private Sub Command1_Click()Dim i,s,N As Intege

31、rN = Val(Text1.Text)s = 0For i = 1 To ns = s + 1/ i Next iText2.Text = sEnd Sub。17. 輸入任意一個(gè)整數(shù)N，輸出N以內(nèi)3的倍數(shù)之和（即3+6+9）；(可參考課本p93頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-4.vbp、XH4-4.frm為文件名保存在D:EX文件夾下。Private Sub Command1_Click() Dim i, N, s As Integer s = 0 N = val（Text1.Text） For i = 1 To N If i / 3 = Int(

32、i / 3) Then s=s+i End If Next Text2.Text = s End Sub18. 輸入任意一個(gè)整數(shù)N，輸出1×22×32××N2的計(jì)算結(jié)果；(可參考課本p90頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-5.vbp、XH4-5.frm為文件名保存在D:EX文件夾下。Private Sub Command1_Click()Dim i,s,N As Integers = 1N = Val(Text1.Text)For i = 1 To N s = s *（i * i）Next iText2.Text

33、 = sEnd Sub19. 輸入任意一個(gè)整數(shù)N，輸出N以內(nèi)的所有5的倍數(shù)的積；(可參考課本p90頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-6.vbp、XH4-6.frm為文件名保存在D:EX文件夾下。Private Sub Command1_Click() Dim i, N, s As Integer s = 1 N = val（Text1.Text） For i = 1 To N If i / 5 = Int(i / 5) Then s=s*i End If Next Text2.Text = s End Sub20.輸入任意一個(gè)整數(shù)N，輸出的計(jì)算結(jié)果；(

34、可參考課本p93頁(yè))利用文本框來實(shí)現(xiàn)數(shù)據(jù)的輸入和輸出。最后將工程文件、窗體文件分別以XH4-7.vbp、XH4-7.frm為文件名保存在D:EX文件夾下。Private Sub Command1_Click()Dim i,s,N As IntegerN = Val(Text1.Text)s = 0For i = 1 To ns = s + 1/（i*i） Next iText2.Text = sEnd Sub21Private Sub Command1_Click()Dim i%, s$, p$, n%s = 0p = 1n = Val(Text1.Text)For i = 1 To np =

35、 p * is = p * sNextText2.Text = sEnd Sub22Private Sub Form_click()Dim i%, j%, d%, k%For i = 1 To 50 Step 2k = Int(Sqr(i)flag = 0j = 2While j <= k And flag = 0 If i Mod j = 0 Then flag = 1 Else j = j + 1 End If Wend If flag = 0 Then d = d + 1 If d Mod 5 Then Print i; Print End If End If Next i End

36、 Sub23課本Private Sub Form_Click()Dim s As IntegerForm1.Print Tab(35); "九九乘法表"Form1.Print Tab(35); "-"For i = 1 To 9For j = 1 To 9s = i * jPrint i & "x" & j & "=" & s,Next jPrintNext iEnd Sub解法一Private Sub Form_Click()For i = 1 To 9For j = 1 To i

37、s = i * jPrint j & "x" & i & "=" & s,Next jPrintNext iEnd Sub24 Private Sub Command1_Click()Dim i%, a%, b%, c%For i = 100 To 999a = Int(i / 100)b = Int(i - a * 100) / 10)c = i - a * 100 - b * 10If i = a 3 + b 3 + c 3 Then Print i,NextEnd Sub25Private Sub Command1_

38、Click()Dim i%, j%, k%, n%Picture1.Print Tab(8); "公雞" Tab(13); "母雞" Tab(18); "小雞"For i = 1 To 19 For j = 1 To 32 k = 100 - i - j If i * 5 + j * 3 + k / 3 = 100 Then n = n + 1 Picture1.Print Tab(1); "解" & n & ":" Tab(8); i; Tab(13); j; Tab(18);

39、 k End If Next jNext iEnd Sub16Private Sub Command1_Click()Dim s!, n%, i%n = Val(Text1.Text) s = o For i = 1 To n s = n + 1 / n 2 Next i Text2.Text = sEnd Sub26Private Sub Form_Click()Dim a(10) As Integer, temp%RandomizeFor i = 1 To 10 a(i) = Int(100 * Rnd) If i = 1 Then Print "原數(shù)組為:" Prin

40、t a(i); ""Next iPrinttemp = a(10)For i = 9 To 1 Step -1 a(i + 1) = a(i)Next ia(1) = temp For i = 1 To 10 If i = 1 Then Print "現(xiàn)數(shù)組為：" Print a(i); ""Next i End Sub27Dim d(5) As IntegerDim i%, total!, average!For i = 1 To 5 '輸入成績(jī)d(i) = Val(InputBox("請(qǐng)輸入第" &am

41、p; i & "個(gè)學(xué)生的成績(jī)", "輸入成績(jī)")Next itotal = 0For i = 1 To 5 '計(jì)算總分 total = total + d(i)Next iaverage = total / 5Print "總分:" totalPrint "平均分;" Format(average, "#0")End Sub28 Option Base 1Dim score As VariantPrivate Sub Form_Load()Label1.Caption = &qu

42、ot;單擊”查找“按鈕(Command2)后,開始查找最高分和最低分"score = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83)End SubPrivate Sub Command1_Click()Dim max%, min%max = score(1)min = score(1)For i = 2 To 10If max < score(i) Then max = score(i) End IfIf min > score(i) Then min = score(i)End IfNext iLabel1.Caption =

43、 "最高分：" + Str(max) + Chr(13) + "最低分：" + Str(min)End Sub29Private Sub Command1_Click()s = 0For i = o To 3 s = s + Val(Text1(i).Text) Next i Text2.Text = sEnd Sub30 Private Sub Form_Load()Option1(0).Value = TrueText1.FontSize = 12End SubPrivate Sub Option1_Click(Index As Integer)Se

44、lect Case IndexCase 0Text1.FontSize = 12Case 1Text1.FontSize = 20Case 2Text1.FontSize = 28End SelectEnd Sub31Private Sub Command1_Click()If Check1.Value = 1 Thena = a & "旅游"End IfIf Check1.Value = 1 Thena = a & "體育"End IfIf Check1.Value = 1 Thena = a & "音樂"End IfPrint "我的興趣是" & aEnd Sub32Option ExplicitPrivate Sub Combo1_click()MsgBox "我的興趣愛好是" & Combo1.Text, , "興趣愛好"End SubPrivate Sub Form_Load()Combo1.AddItem "音樂"Combo1.AddItem "美術(shù)"Combo1.AddItem "體育"Combo1.AddItem