VB實(shí)驗(yàn)二實(shí)驗(yàn)答案

實(shí)驗(yàn)報(bào)告二課程VB程序設(shè)計(jì)實(shí)驗(yàn)項(xiàng)目VB控制結(jié)構(gòu)程序設(shè)計(jì)(6學(xué)時(shí))成績(jī)專業(yè)班級(jí)姓名學(xué)號(hào)實(shí)驗(yàn)日期實(shí)驗(yàn)?zāi)康模?）掌握分支結(jié)構(gòu)（if、ifelse、selectcase）語(yǔ)句（2）掌握基本循環(huán)控制結(jié)構(gòu)（For-Next、While-Wend、Do-Loop）語(yǔ)句（3）掌握循環(huán)嵌套結(jié)構(gòu)（4）掌握素?cái)?shù)算法（5）能綜合運(yùn)用循環(huán)控制結(jié)構(gòu)解決較復(fù)雜的問(wèn)題實(shí)驗(yàn)內(nèi)容一、選擇結(jié)構(gòu)程序設(shè)計(jì)【實(shí)驗(yàn)3-1】編寫(xiě)一個(gè)“系統(tǒng)登錄”程序，對(duì)用戶輸入的賬號(hào)和密碼進(jìn)行檢驗(yàn)。（10分）要求：①賬號(hào)不超過(guò)6位數(shù)，密碼為4位字符，本題的密碼假設(shè)為“majq”。②賬號(hào)中不能有非數(shù)字字符，可以通過(guò)IsNumeric函數(shù)對(duì)文本框中的輸入內(nèi)容進(jìn)行測(cè)試。③密碼輸入時(shí)，屏幕上不能顯示輸入字符，以“*”代替。④當(dāng)輸入不正確時(shí)，顯示提示信息。若單擊“重試”按鈕，則清除原輸入內(nèi)容，焦點(diǎn)定位在原輸入的文本框中，重新輸入；若單擊“取消”按鈕，則停止程序的運(yùn)行。⑤密碼檢驗(yàn)運(yùn)行界面和輸入密碼錯(cuò)誤顯示的信息分別如圖3-2和圖3-3所示。圖3-2密碼檢驗(yàn)運(yùn)行界面圖3-3輸入密碼錯(cuò)誤顯示信息掌握簡(jiǎn)單if語(yǔ)句的使用實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】1【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)3-2】稅務(wù)部門(mén)征收所得稅，規(guī)定如下（用IF語(yǔ)句實(shí)現(xiàn)）（10分）①當(dāng)收入為200元以內(nèi)（含200元）時(shí)，免征；②當(dāng)收入為200~400元（含400元）時(shí)，將超過(guò)200元的部分納稅3%；③當(dāng)收入為400~5000元（不含5000元）時(shí)，將超過(guò)400元的部分納稅4%；④當(dāng)收入為5000元或5000元以上時(shí)，將超過(guò)400元的部分納稅5%。程序運(yùn)行后，單擊窗體，在輸人對(duì)話框中輸入收入數(shù)，程序?qū)⑤敵黾{稅金額，運(yùn)行情況如下圖所示，要求納稅程序界面掌握多分支if語(yǔ)句的使用，可自行用select語(yǔ)句改寫(xiě)。實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)3-3】猜數(shù)游戲程序自動(dòng)產(chǎn)生一個(gè)[1，100]內(nèi)的正整數(shù)，要用戶猜，用戶猜的值與被猜值的差距用“*”號(hào)個(gè)數(shù)表示，“*”越少表示差得越遠(yuǎn)，“*”越多表示相差越近。（用selectcase語(yǔ)句實(shí)現(xiàn)）2（10分）界面設(shè)計(jì)參見(jiàn)下圖:。猜數(shù)游戲界面掌握selectcase語(yǔ)句的使用，可自行用if語(yǔ)句改寫(xiě)。實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】二、循環(huán)結(jié)構(gòu)程序設(shè)計(jì)【實(shí)驗(yàn)3-4】求自然數(shù)N的階乘N！，運(yùn)行結(jié)果如下圖所示（10分）求階乘界面掌握f(shuō)or語(yǔ)句的使用方法，可用其它循環(huán)語(yǔ)句編寫(xiě)、對(duì)比。實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】PrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimsAsDouble3n=Val(Text1.Text)s=1Fori=1Tons=s*iNextiText2.Text=sEndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)3-5】編程實(shí)現(xiàn)如圖5-2所示的打印效果（10分）打印菱形界面掌握多重循環(huán)程序設(shè)計(jì)，可自行擴(kuò)展稱為等邊三角形、直角三角形。實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】PrivateSubCommand1_Click()DimnAsIntegerDimiAsInteger,jAsIntegern=InputBox("輸入圖案偶數(shù)行")Fori=1Ton/2Forj=1To2*i-1PrintTab(10-i+j);"*";NextjPrintNexti4Fori=n/2To1Step-1Forj=1To2*i-1PrintTab(10-i+j);"*";NextjPrintNextiEndSub方法2：PrivateSubCommand1_Click()DimnAsIntegerDimiAsInteger,jAsIntegern=InputBox("輸入圖案偶數(shù)行")Fori=1Ton/2PrintTab(10-i);string(2*i-1,"*");NextiFori=n/2To1Step-1PrintTab(10-i);string(2*i-1,"*");NextiEndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)3-6】素?cái)?shù)問(wèn)題：計(jì)算小于1000且最靠近1000的10個(gè)素?cái)?shù)之和。（10分）掌握素?cái)?shù)算法，可用其它循環(huán)語(yǔ)句編寫(xiě)、對(duì)比。實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】PrivateSubForm_Click()DimiAsInteger,jAsInteger,NumsAsInteger,TotalAsIntegerDimFlagAsBooleani=1000Print"這10個(gè)素?cái)?shù)分別是："WhileNums<10Flag=True'假設(shè)i是素?cái)?shù)Forj=2ToSqr(i)'驗(yàn)證以上假設(shè)是否正確IfiModj=0Then'發(fā)現(xiàn)i能被因子j整除，即i不是素?cái)?shù)5

Flag=FalseExitFor'修改標(biāo)志，否定原來(lái)的假設(shè)'循環(huán)可以提前跳出EndIfNextjIfFlag=TrueThenNums=Nums+1Total=Total+iPrinti;'根據(jù)標(biāo)志判斷是否為素?cái)?shù)'如果是，則計(jì)數(shù)器加1，'將素?cái)?shù)i累加到變量EndIfi=i-1'i變量遞減1WendPrint'換行Print"這10個(gè)素?cái)?shù)的總和"&TotalEndSub方法2：PrivateSubForm_Click()DimiAsInteger,jAsInteger,NumsAsInteger,TotalAsIntegerPrint"這10個(gè)素?cái)?shù)分別是："Fori=999To1Step-2Forj=2ToSqr(i)IfiModj=0ThenExitFor'驗(yàn)證以上假設(shè)是否正確'發(fā)現(xiàn)i能被因子j整除，即i不是素?cái)?shù)'循環(huán)可以提前跳出EndIfNextjIfj>Sqr(i)ThenNums=Nums+1Total=Total+iPrinti;'根據(jù)標(biāo)志判斷是否為素?cái)?shù)'如果是，則計(jì)數(shù)器加1，'將素?cái)?shù)i累加到變量IfNums=10ThenExitForEndIfNextPrint'換行Print"這10個(gè)素?cái)?shù)的總和"&TotalEndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】6

三、常見(jiàn)程序設(shè)計(jì)【實(shí)驗(yàn)3-7】編寫(xiě)程序計(jì)算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…當(dāng)?shù)趇項(xiàng)的值<10-5時(shí)計(jì)算結(jié)束結(jié)束。（10分）掌握Do…loop語(yǔ)句的使用實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】方法1：PrivateSubCommand1_Click()fm=1'第1項(xiàng)的分母c=1'第1項(xiàng)分母與第2項(xiàng)分母的差Dot=1/fm'第n項(xiàng)s=s+t'累加求和fm=fm+c'下一項(xiàng)的分母c=c+1'下一個(gè)分母差LoopWhilet>=0.00001MsgBoxsEndSub方法2：PrivateSubCommand2_Click()s=0n=1'第1項(xiàng)序號(hào)t=1'第1項(xiàng)DoWhilet>=0.00001fm=n*(n-1)/2+1'第n項(xiàng)的分母t=1/fm'第n項(xiàng)s=s+t'累加求和n=n+1'序號(hào)遞增1LoopMsgBoxs7

EndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)3-8】將200~300之間的素?cái)?shù)輸出到列表框中。（10分）掌握素?cái)?shù)算法實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】Fori=200To300Forj=2Toi-1Step1If(iModj=0)ThenExitForEndIfNextjIf(j>i-1)ThenList1.AddItemiEndIfNexti【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)3-9】編寫(xiě)程序，在窗體上輸出上三角形式的九九乘法表。（10分）8掌握多重For循環(huán)程序設(shè)計(jì)實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】PrivateSubCommand1_Click()Fori=1To9Forj=1ToiPrintTab(13*(j-1));i;"*";j;"=";i*j;NextjPrintNextiEndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)