2010VB本科期末上機(jī)考試練習(xí)題答案

1、單擊窗體在窗體上輸出10個(gè)兩位隨機(jī)整數(shù)，并求出其平均數(shù)。運(yùn)行效果如下圖所示：PrivateSubForm_Click()Dima(10)AsInteger,iAsInteger,sAsIntegerFori=1To10a(i)=Int(Rnd*(99-10+1))+10s=s+a(i)Printa(i)NextiPrint"平均數(shù)為"&s/10EndSub2、隨機(jī)產(chǎn)生20個(gè)200～4005出其中的最大值。PrivateSubForm_Click()DimiAsInteger,a(20)AsInteger,maxAsIntegerPrint"原始數(shù)據(jù)為："max=0Fori=1To20a(i)=Int(Rnd*(400-200+1))+200Printa(i);IfiMod5=0ThenPrintIfmax<a(i)Thenmax=a(i)NextiPrint"最大值為："&maxEndSub3、產(chǎn)生20個(gè)兩位的隨機(jī)整數(shù)，輸出這20個(gè)數(shù)（以每行5個(gè)的形式輸出這20個(gè)數(shù)，其中的偶數(shù)用紅色顯示），找出其中的最大值和最小值，計(jì)算并輸出平均值。運(yùn)行效果如下圖所示：PrivateSubForm_Click()Dima(20)AsInteger,iAsInteger,maxAsInteger,minAsInteger,sAsIntegerPrint"原數(shù)組為："max=0min=100Form1.ForeColor=vbBlackFori=1To20a(i)=Int(Rnd*(99-10+1))+10Ifa(i)Mod2=0ThenForm1.ForeColor=vbRedElseForm1.ForeColor=vbBlackEndIfPrinta(i);先變色，再輸出IfiMod5=0ThenPrints=s+a(i)Ifmax<a(i)Thenmax=a(i)Ifmin>a(i)Thenmin=a(i)NextiPrintForm1.ForeColor=vbBlackPrint"max="&maxPrint"min="&minPrint"aver="&s/20EndSub4、產(chǎn)生10個(gè)隨機(jī)兩位正整數(shù)，放入一數(shù)組中，并按從小到大的順序排列。在窗體上輸出原數(shù)據(jù)及排列后的數(shù)據(jù)。運(yùn)行效果如下圖所示：PrivateSubForm_Click()Dima(10)AsInteger,iAsInteger,jAsInteger,bAsIntegerPrint"排序前的數(shù)據(jù)："Fori=1To10a(i)=Int(Rnd*(99-10+1))+10Printa(i);NextiPrintFori=1To9Forj=i+1To10Ifa(i)>a(j)Thenb=a(i)a(i)=a(j)a(j)=bEndIfNextjNextiPrint"排序后的數(shù)據(jù)："Fori=1To10Printa(i);NextiEndSub5、新建一個(gè)工程，完成應(yīng)用程序的設(shè)計(jì)。具體要求如下：（1）按照下圖所示在窗體上放置控件。建立一個(gè)文本框和兩個(gè)命令按鈕。（2）在文本框中輸入內(nèi)容，單擊“開始”后，把文本框中的字符按從小到大排列輸出在窗體上，按結(jié)束退出應(yīng)用程序。text1.Multiline=truetext1.ScrollBars=3文本框滾動(dòng)條PrivateSubCommand1_Click()Dima()AsString,iAsInteger,jAsInteger,bAsString,nAsIntegern=Len(Text1.Text)ReDima(1Ton)Fori=1Tona(i)=Mid(Text1.Text,i,1)NextiFori=1Ton-1Forj=i+1TonIfa(i)>a(j)Thenb=a(i)a(i)=a(j)a(j)=bEndIfNextjNextiFori=1TonPrinta(i);NextiEndSub6、建立一個(gè)5行5列二維數(shù)組，要求對(duì)角線為1，其余元素為0。運(yùn)行結(jié)果如圖所示。PrivateSubForm_Click()Dima(5,5)AsInteger,iAsInteger,jAsIntegerFori=1To5Forj=1To5Ifi=jOri+j=6Thena(i,j)=1Elsea(i,j)=0EndIfPrinta(i,j);NextjPrint放在Nextj下面換行效果NextiEndSub7、建立一個(gè)5行5列二維數(shù)組，要求右上三角元素（含對(duì)角線）為1，其余元素為0。PrivateSubForm_Click()Dima(5,5)AsInteger,iAsInteger,jAsIntegerFori=1To5Forj=1To5Ifi<=jThena(i,j)=1NextjNextiFori=1To5Forj=1To5Printa(i,j);NextjPrintNextiEndSub8、編制程序，用隨機(jī)函數(shù)產(chǎn)生20個(gè)兩位數(shù)的整數(shù)，存于4行5列的二維數(shù)組中，將數(shù)組按矩陣形式輸出到窗體，并求出其最大元素及最大元素的行、列坐標(biāo)。PrivateSubForm_Click()Dima(4,5)AsInteger,maxAsInteger,iAsInteger,jAsInteger,hAsInteger,lAsIntegerRandomizeFori=1To4Forj=1To5a(i,j)=Int(Rnd*(99-10+1))+10Printa(i,j);NextjPrintNextimax=a(1,1)h=1l=1Fori=1To4Forj=1To5Ifa(i,j)>maxThenmax=a(i,j)h=il=jEndIfNextjNextiPrint"最大元素為:";max;"位于第";h;"行";l;"列"EndSub9、編制通用函數(shù)過程，計(jì)算1+2+??+N的值。在窗體的Click事件中調(diào)用該函數(shù)。PrivateFunctionsum(nAsInteger)AsIntegerDimiAsIntegerFori=1Tonsum=sum+iNextiEndFunctionPrivateSubForm_Click()DimnAsIntegern=InputBox("請(qǐng)輸入N的值")Print"1+??+"&n&"的和是"&sum(n)EndSub10、編制通用函數(shù)過程，計(jì)算N！的值。在窗體的Click事件中調(diào)用該函數(shù)。PrivateFunctions(nAsInteger)AsDoubleDimiAsIntegers=1Fori=1Tons=s*iNextiEndFunctionPrivateSubForm_Click()DimnAsIntegern=InputBox("請(qǐng)輸入N的值")Prints(n)EndSub11、編制通用函數(shù)過程，用于判斷1個(gè)整數(shù)是否為素?cái)?shù)，若是則顯示true，若不是則顯示false。在窗體的Click事件中調(diào)用該函數(shù)。PrivateFunctionsushu(nAsInteger)AsBooleanDimiAsIntegerIfn<2Thensushu=FalseElseFori=2ToInt(Sqr(n))‘int求不大于這個(gè)數(shù)的最大整數(shù)int（3.5）=3int(-3.5)=-4sqr平方這個(gè)數(shù)如果能被自己的平方根整除那它一定是素?cái)?shù)IfnModi=0ThenExitForNextiIfi>Int(Sqr(n))Thensushu=TrueElsesushu=FalseEndIfEndIfEndFunctionPrivateSubForm_Click()Dimnasintegern=inputbox(“請(qǐng)輸入N的值”)printsushu(n)EndSub12、編制一個(gè)判斷奇偶數(shù)的FunctionClick事件中調(diào)用該函數(shù)，輸入一個(gè)整數(shù)，判斷其奇偶性。PrivateSubForm_Click()DimnAsIntegern=InputBox("請(qǐng)輸入要判斷的n的值")Ifa(n)=TrueThenPrintn&"是奇數(shù)"ElsePrintn&"是偶數(shù)"EndIfEndSubPrivateFunctiona(nAsInteger)AsBooleanIfnMod2=0Thena=FalseElsea=TrueEndIfEndFunction13、新建一個(gè)工程，完成應(yīng)用程序的設(shè)計(jì)，具體要求如下：（1）按照下圖所示在窗體上放置按鈕和控件。（2）取消窗體的最大化和最小化按鈕。（3）（4）同時(shí)可使用熱鍵Alt+L和Alt+B實(shí)現(xiàn)窗口放大或還原。（5）當(dāng)窗體大小改變后，總是讓命令按鈕位于窗口的中央。PrivateSubCommand1_Click()IfCommand1.Caption="最大化（&L）"ThenCommand1.Caption="最小化（&S）"Form1.WindowState=2ElseCommand1.Caption="最大化（&L）"Form1.WindowState=1EndIfEndSubPrivateSubForm_Load()Command1.Caption="最大化（&L）"EndSubPrivateSubForm_Resize()Command1.Left=(Form1.ScaleWidth-Command1.Width)/2Command1.Top=(Form1.ScaleHeight-Command1.Height)/2EndSub14、新建一個(gè)工程，完成“計(jì)算平均成績(jī)”應(yīng)用程序的設(shè)計(jì)。具體要求如下：（1）按照下圖所示在窗體上放置按鈕和控件。（2）在輸入或修改單科成績(jī)的同時(shí)計(jì)算平均分,即在"高數(shù)","英語"和"計(jì)算機(jī)"文本框內(nèi)容發(fā)生改變時(shí),就要立即重新計(jì)算平均分,并將計(jì)算結(jié)果在平均成績(jī)文本框中顯示。（3）平均成績(jī)”文本框不允許編輯，即不能手工修改。（4）發(fā)出錯(cuò)誤提示音。、PrivateSubForm_Load()Text4.Enabled=FalseEndSubPrivateSubText1_Change()DimaAsInteger,bAsInteger,cAsInteger,pAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)p=(a+b+c)/3Text4.Text=pEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSubPrivateSubText2_Change()DimaAsInteger,bAsInteger,cAsInteger,pAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)p=(a+b+c)/3Text4.Text=pEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0BeepEndSubPrivateSubText3_Change()DimaAsInteger,bAsInteger,cAsInteger,pAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)p=(a+b+c)/3Text4.Text=pEndSubPrivateSubText3_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0EndSub15、新建一個(gè)工程，完成“密碼檢驗(yàn)”程序的設(shè)計(jì)。具體要求如下：（12）文本框Text1，用于輸入密碼。文本框中輸入的字符顯示為*，并且最多可以接受73）窗體的下半部有一個(gè)標(biāo)簽控件Label24）當(dāng)在文本框中輸入1234567”，并按回車后，標(biāo)簽Label2顯示為“歡迎光臨！”；如果輸入1234567Label2同時(shí)清空文本框的內(nèi)容，允許再輸入一遍；如果第二次輸入的密碼仍然與“1234567”不吻合，標(biāo)簽Label2顯示為“非法用戶，請(qǐng)退出程序！”，文本框就不能使用了。PrivateSubForm_Load()Label1.Caption=輸入密碼后按回車"&vbCrLf&（提示：密碼1234567）"’換行輸入Text1.PasswordChar="*"文本框中輸入的字符顯示為*Text1.MaxLength=7最多可以接受7個(gè)字符EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)StaticnAsInteger記錄次數(shù)IfKeyAscii=13Then最后按回車進(jìn)行判斷IfText1.Text="1234567"ThenLabel2.Caption="歡迎光臨！"Label1.Visible=FalseText1.Visible=FalseElsen=n+1Label2.Caption="密碼不符，請(qǐng)?jiān)佥斎胍槐椋?Text1.Text=""Ifn>1Then第二次輸入Label2.Caption="非法用戶，請(qǐng)退出程序！"Text1.Enabled=FalseEndIfEndIfEndIfEndSub16、新建一個(gè)工程，完成“檢查口令”程序的設(shè)計(jì)。具體要求如下：（1）接著在第一個(gè)文本框中輸入用戶名，第二個(gè)文本框中輸入口令。（2）單擊“檢查口令”按鈕，檢查輸入的口令是否正確。若正確，則進(jìn)入如下的第二個(gè)窗體，在該窗體上裝有一幅圖片；否則顯示一個(gè)信息框，要求重新輸入，此時(shí)將調(diào)用“開始”按鈕的click事件過程，再一次在文本框中輸入口令，這樣允許重輸三次口令，超過三次，則口令文本框?qū)⑥D(zhuǎn)為不能編輯。（3）單擊“結(jié)束”按鈕，結(jié)束程序。DimnAsIntegerPrivateSubCommand1_Click()Text1.SetFocus獲得焦點(diǎn)Text1.Text=""Text2.Text=""EndSubPrivateSubCommand2_Click()IfText1.Text="user"AndText2.Text="pass"ThenMe.HideForm2.Show圖片顯示ElseText1.Text=""Text2.Text=""n=n+1Ifn>3ThenMsgBox"你是非法用戶"Text1.Enabled=FalseText2.Enabled=FalseElseMsgBox"口令錯(cuò)誤,請(qǐng)?jiān)俅屋斎?"CallCommand1_Click返回command1EndIfEndIfEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubform_load()Text1.Text=""Text2.Text=""Text2.PasswordChar="*"EndSub17、新建一個(gè)工程，完成“替換”程序的設(shè)計(jì)。具體要求如下：(1)窗體的標(biāo)題為“替換”。(2)窗體中有以下控件：一個(gè)文本框可以多行編輯，兩個(gè)文本框，兩個(gè)標(biāo)簽框，一個(gè)命令按鈕。(3)成另外一個(gè)內(nèi)容。單擊“替換”按鈕執(zhí)行。一.PrivateSubcommand1_Click()Dimlen1AsInteger,len2AsInteger,len3AsIntegerlen1=Len(Text1)len2=Len(Text2)len3=Len(Text3)DoWhilei<=len1-len2'所剩文本長(zhǎng)度IfText2=Mid(Text1,i+1,len2)Then'尋找需要替代的文本Text1.SetFocusText1.SelStart=i'在字符串中所選擇文本的起始點(diǎn)Text1.SelLength=len2'被選中的一段文本的字符數(shù)Text1.SelText=Text3'返回當(dāng)前選中文本i=i+len3'退出窗體len1=len1-len2+len3'最終文本長(zhǎng)度Elsei=i+1EndIfLoopEndSub二.PrivateSubcommand1_Click()Dimfind1AsInteger,nAsIntegerDofind1=InStr(Text1.Text,Text2.Text)返回text12.text在text1.text中首次出現(xiàn)的位置.若text2.text在text1.text中不存在則返回0Iffind1<>0ThenText1.SelStart=find1-1'在字符串中所選擇文本的起始點(diǎn)Text1.SelLength=Len(Text2)'被選中的一段文本的字符數(shù)Text1.SelText=Text3'返回當(dāng)前選中文本n=1'為了循環(huán)最后不跳出MsgboxElseIfn=0ThenMsgBox("沒有找到！")'因?yàn)閚的初始值為0,所以,沒有替代的文本時(shí),跳出MsgboxEndIfLoopWhilefind1<>0EndSub18、新建一個(gè)工程，完成“字體修飾”程序的設(shè)計(jì)。具體要求如下：（1）（2）框架Frame1中有一個(gè)復(fù)選框數(shù)組，可以選擇粗體，斜體對(duì)標(biāo)簽中的文字進(jìn)行修飾。（3）框架Frame2中有一個(gè)單選鈕框數(shù)組，可以選擇宋體或楷體對(duì)標(biāo)簽中的文字進(jìn)行修飾。（4）標(biāo)簽Label1VisualBasic程序設(shè)計(jì)“，宋體，常規(guī)，三號(hào)；文字對(duì)齊方式為居中。一.PrivateSubCheck1_Click(IndexAsInteger)SelectCaseIndexCase0IfCheck1(0).Value=1ThenLabel1.FontBold=TrueElseLabel1.FontBold=FalseEndIfCase1IfCheck1(1).Value=1ThenLabel1.FontItalic=TrueElseLabel1.FontItalic=FalseEndIfEndSelectEndSubPrivateSubOption1_Click(IndexAsInteger)IfOption1(0).Value=TrueThenLabel1.FontName="宋體"ElseLabel1.FontName="楷體"EndIfEndSub二.PrivateSubCheck1_Click(IndexAsInteger)IfCheck1(0).Value=1ThenLabel1.FontBold=TrueElseLabel1.FontBold=FalseEndIfIfCheck1(1).Value=1ThenLabel1.FontItalic=TrueElseLabel1.FontItalic=FalseEndIfEndSubPrivateSubForm_Load()Label1.FontName="宋體"Label1.Alignment=2Label1.FontSize=30Label1.AutoSize=TrueEndSub19、新建一個(gè)工程，完成“點(diǎn)餐”程序的設(shè)計(jì)。具體要求如下：（1）窗體的標(biāo)題為“點(diǎn)餐”。（2）窗體中有以下控件：一個(gè)框架控件作為容器，內(nèi)有三個(gè)復(fù)選框數(shù)組、對(duì)應(yīng)三個(gè)文本框數(shù)組、三個(gè)標(biāo)簽框、一個(gè)命令按鈕。（3）入；如果沒有選取大套餐，那么文本框不能編輯，并清空。（4）并用消息框顯示。PrivateSubForm_Load()Fori=0To2Check1(i).Value=0'清空復(fù)選框Text1(i).Enabled=False'文本框不可輸入NextiEndSubPrivateSubCheck1_Click(IndexAsInteger)IfCheck1(Index).Value=1Then同時(shí)獲得焦點(diǎn)'若當(dāng)前復(fù)選框被選中,文本框被啟用,Text1(Index).Enabled=TrueText1(Index).SetFocus'對(duì)應(yīng)文本框獲得焦點(diǎn)ElseText1(Index).Text=""Text1(Index).Enabled=FalseEndIfEndSubPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,sumAsIntegera=Val(Text1(0).Text)b=Val(Text1(1).Text)c=Val(Text1(2).Text)sum=a*18+b*23+c*28MsgBox"一共"&sum&"元",,"總價(jià)"EndSubPrivateSubText1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57Then'輸入非數(shù)字時(shí)彈出對(duì)話框,同時(shí)文本框重新獲得焦點(diǎn)KeyAscii=0BeepMsgBox"請(qǐng)輸入數(shù)字"Text1(Index).SetFocus'獲得焦點(diǎn)EndIfEndSub20、設(shè)計(jì)一個(gè)“家電提貨單”管理程序，程序運(yùn)行界面如下圖所示。具體要求如下：（1）單擊“確定”后，根據(jù)選擇的內(nèi)容將清單及總價(jià)在列表框中列出。（2）每選擇一種家電，光標(biāo)自動(dòng)定位在相應(yīng)的文本框中，取消選擇時(shí)，相應(yīng)的文本框自動(dòng)清空。（3）“清除”按鈕用于清空列表框中的項(xiàng)目。（4）所有文本框只接受數(shù)字。PrivateSubCheck1_Click(IndexAsInteger)IfCheck1(Index).Value=1ThenText1(Index).Enabled=TrueText1(Index).SetFocus'獲得焦點(diǎn)ElseText1(Index).Text=""Text1(Index).Enabled=FalseEndIfEndSubPrivateSubCommand1_Click()DimiAsInteger,sAsString,nAsString,tAsString,pAsIntegers=0Fori=0To4'復(fù)選框是否選中SelectCaseiCase0t="電視機(jī)"p=3580Case1t="微波爐"p=660Case2t="電冰箱"p=1850Case3t="DVD"p=2880Case4t="空調(diào)"p=5500EndSelectIfCheck1(i).Value=1AndText1(i).Text<>""ThenList1.AddItemt&Val(Text1(i).Text)&"臺(tái)"s=s+Val(Text1(i))*pn=n+Val(Text1(i))EndIfNextiIfs<>0ThenList1.AddItem"共:"&n&"臺(tái)"&"合計(jì)金額:"&s&"元"EndIfEndSubPrivateSubCommand2_Click()List1.Clear‘清除list1EndSubPrivateSubForm_Load()Fori=0To4Text1(i).Enabled=FalseNextiEndSubPrivateSubText1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenBeepKeyAscii=0EndIfEndSub21、設(shè)計(jì)一個(gè)“個(gè)人資料”輸入窗口，程序運(yùn)行界面如下圖所示。具體要求如下：（1）按照運(yùn)行界面設(shè)計(jì)窗體，其中“民族”用組合列表框顯示。（2）單擊“確定”按鈕，將個(gè)人資料信息輸出在“個(gè)人資料”框架的標(biāo)簽框中。PrivateSubForm_Load()'初始化民族組合框Combo1.AddItem"回族"Combo1.AddItem"漢族"Combo1.Text="漢族"EndSubPrivateSubCommand1_Click()DimsAsString,hAsStringIfOption1.ValueThen'判斷性別s=Option1.CaptionElses=Option2.CaptionEndIf'判斷愛好IfCheck1.Value=1Thenh=h&""&Check1.CaptionIfCheck2.Value=1Thenh=h&""&Check2.CaptionIfCheck3.Value=1Thenh=h&""&Check3.CaptionIfCheck4.Value=1Thenh=h&""&Check4.Caption'顯示Label4.Caption=Txtname.Text&""&s&""&Txtage&""&Combo1.Text&"愛好："&hEndSubPrivateSubCommand2_Click()EndEndSub22、新建一個(gè)工程，完成應(yīng)用程序的設(shè)計(jì)。具體要求如下：（1）按照下圖所示在窗體上放置按鈕和控件。（2）窗體上有兩個(gè)CheckBox，當(dāng)這兩個(gè)選項(xiàng)未被選定時(shí)，它們所在框架的其他控件不能使用。（3）如果單擊“確定”按鈕，則在按鈕下面的標(biāo)簽中顯示用戶所選擇的信息。PrivateSubForm_Load()Label3.BorderStyle=1Frame1.Caption=""Frame2.Caption=""Check1.Value=0Check2.Value=0Text1.Text=""EndSubPrivateSubCheck1_Click()IfCheck1.Value=1ThenText2.Enabled=TrueText1.Enabled=TrueElseText2.Enabled=FalseText1.Enabled=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenOption1.Enabled=TrueOption2.Enabled=TrueElseOption1.Enabled=FalseOption2.Enabled=FalseEndIfEndSubPrivateSubCommand1_Click()Label3.Caption=""IfCheck1.Value=1ThenLabel3.Caption=Label3.Caption+"計(jì)算機(jī):"+Chr(13)+Chr(10)Label3.Caption=Label3.Caption+combo1.Text+Text1+"臺(tái)"+Chr(13)+Chr(10)EndIfIfCheck2.Value=1ThenLabel3.Caption=Label3.Caption+"操作系統(tǒng)"+Chr(13)+Chr(10)IfOption1.Value=TrueThenLabel3.Caption=Label3.Caption+Option1.CaptionElseLabel3.Caption=Label3.Caption+Option2.CaptionEndIfEndIfEndSub23、（1）參照運(yùn)行時(shí)界面完成界面設(shè)計(jì)。（2）單擊“添加單詞”按鈕，將Text1中的單詞添加到列表框，并使Text1獲得焦點(diǎn)，3）單擊“刪除單詞”按鈕，刪除列表4）單擊“全部刪除”按鈕，刪除列表框中的全部表項(xiàng)。（5）單擊“退出”按鈕，結(jié)束該程序。PrivateSubCommand1_Click()IfText1.Text<>""ThenList1.AddItemText1.TextText1.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()Iflist1.listindex<>-1thenList1.removeitemlist1.listindexEndifEndSubPrivateSubCommand3_Click()List1.clearEndSubPrivateSubCommand4_Click()EndEndSub24、（1）參照運(yùn)行時(shí)界面完成界面設(shè)計(jì)。（2）列表框內(nèi)容中有四項(xiàng)，分別為“WordExcelPowerPointOutlook3Command1“沒有內(nèi)容，不予添加”。（4）單擊“刪除”按鈕（Command2），將選中表項(xiàng)刪除，如果沒有選擇要?jiǎng)h除的表項(xiàng)，則給出提示“請(qǐng)選擇輸出的項(xiàng)目”。PrivateSubForm_Load()List1.AddItem"word"List1.AddItem"excel"List1.AddItem"frontpage"List1.AddItem"outlook"Form1.Caption="添加和刪除"Form1.BorderStyle=1Command1.Caption="添加"Command2.Caption="刪除"Text1.Text=""EndSubPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox("沒有內(nèi)容,不予添加")ElseList1.AddItemText1.Text,0Text1.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()IfList1.ListIndex=-1Then為-1'如果沒有選中任何一項(xiàng),則該屬性值MsgBox("請(qǐng)選擇輸出的項(xiàng)目")ElseList1.RemoveItemList1.ListIndexEndIfEndSub25、（1）參照運(yùn)行時(shí)界面完成界面設(shè)計(jì)。（2）窗體的上邊有一個(gè)文本框Text1，文字內(nèi)容為“心想事成”，：宋體、常規(guī)、三3Combo13）右邊簡(jiǎn)單組合框Combo2，有四項(xiàng)內(nèi)容，分別是“常規(guī)、斜體、粗體、粗斜體”，單擊時(shí)對(duì)文本框的字型進(jìn)行設(shè)置。PrivateSubCombo1_Click()SelectCaseCombo1.TextCase"左對(duì)齊"Text1.Alignment=0Case"居中"Text1.Alignment=2Case"右對(duì)齊"Text1.Alignment=1EndSelectEndSubPrivateSubCombo2_Click()SelectCaseCombo2.ListIndexCase0Text1.FontBold=FalseText1.FontItalic=FalseCase1Text1.FontItalic=TrueCase2Text1.FontBold=TrueCase3Text1.FontBold=TrueText1.FontItalic=TrueEndSelectEndSub27、28、（1）參照運(yùn)行時(shí)界面完成界面設(shè)計(jì)。（2）能完成以下功能：?jiǎn)螕簟爱a(chǎn)生”按鈕，實(shí)現(xiàn)隨機(jī)產(chǎn)生10個(gè)兩位正整數(shù)，在左邊列表>”按鈕，把左邊列表框中的偶數(shù)全部移到右邊列表框中。PrivateSubForm_Load()List1.ClearList2.ClearEndSubPrivateSubCommand1_Click()'產(chǎn)生DimiAsIntegerRandomizeList1.ClearList2.ClearFori=1To10List1.AddItem(Int(Rnd*90)+10)NextiEndSubPrivateSubCommand2_Click()DimiAsIntegeri=0DoUntili>=List1.ListCountIfVal(List1.List(i))Mod2=0ThenList2.AddItemList1.List(i)List1.RemoveItemiElsei=i+1EndIfLoopEndSub29、（12）在兩個(gè)列表框控件的list中輸入一些內(nèi)容。（3）當(dāng)單擊“<”按鈕時(shí)，把list2中選中的一項(xiàng)放到list1中，并且在list2中刪除該項(xiàng)。（4）當(dāng)單擊“<<”按鈕時(shí)，把list2中所有的項(xiàng)放到list1中，并且清空list2。（5）當(dāng)單擊“結(jié)束”按鈕時(shí)，退出應(yīng)用程序。PrivateSubCommand1_Click()IfList1.ListIndex<>-1ThenList2.AddItemList1.Text'list2.AddItemList1.List(List1.ListIndex)ElseMsgBox"先選擇，再移動(dòng)"EndIfEndSubPrivateSubCommand2_Click()Fori=0ToList1.ListCount-1List2.AddItemList1.List(i)NextiList1.ClearEndSubPrivateSubCommand3_Click()DoWhileList2.ListCount<>0List1.AddItemList2.List(0)List2.RemoveItem0LoopEndSubPrivateSubCommand4_Click()IfList2.ListIndex<>-1ThenList1.AddItemList2.List(List2.ListIndex)ElseMsgBox"先選擇，再移動(dòng)"EndIfEndSubPrivateSubCommand5_Click()EndEndSub30、（1）參照運(yùn)行時(shí)界面完成界面設(shè)計(jì)。（2）左邊一個(gè)簡(jiǎn)單組合框，對(duì)文本框的字體進(jìn)行設(shè)置；有三項(xiàng)內(nèi)容，分別是“宋體、黑體、楷體_GB2312”。（3）右邊一個(gè)簡(jiǎn)單組合框，對(duì)文本框的文字大小進(jìn)行設(shè)置；大小范圍為8~20。PrivateSubForm_Load()Text1.Text="心想事成"Combo1.Text="宋體"Combo2.Text="9"EndSubPrivateSubCombo1_Click()Text1.FontName=Combo1.TextEndSubPrivateSubCombo2_Click()Text1.FontSize=Val(Combo2.Text)EndSub31、設(shè)計(jì)一個(gè)暢銷書排行榜程序，運(yùn)行界面如下圖所示。具體要求如下：（1）在左邊列表框中顯示排名前5名的暢銷書；（2）輸入新書名和名次，單擊“入榜”，添加到左邊列表框中相應(yīng)位置；（3）單擊“下榜”，將選擇的書從排行榜中刪除，如未選擇，則顯示“請(qǐng)先選擇！”；（4）單擊“清除”，可以刪除文本框中的輸入內(nèi)容，文本框2只允許輸入數(shù)字1~5；（5）單擊“結(jié)束”，退出程序運(yùn)行。PrivateSubForm_Load()list1.AddItem"西游記"list1.AddItem"紅樓夢(mèng)"list1.AddItem"史記"list1.AddItem"水滸"list1.AddItem"鏡花緣"EndSubPrivateSubCommand1_Click()'上榜DimbookAsString,indexAsIntegerbook=Text1.Textindex=Val(Text2.Text)'判斷是否已輸入書名和有效的排名Ifbook<>""Andindex>=0Andindex<=list1.ListCount-1Thenlist1.AddItembook,index-1EndIflist1.RemoveItemlist1.ListCount-1EndSubPrivateSubCommand2_Click()'下榜DimindexAsIntegerindex=list1.ListIndexIfindex<>-1Thenlist1.RemoveItemindexEndIfEndSubPrivateSubCommand3_Click()list1.ClearEndSubPrivateSubCommand4_Click()EndEndSub32、（1）參照運(yùn)行時(shí)界面完成界面設(shè)計(jì)。（2）單擊滾動(dòng)條左右箭頭時(shí)，標(biāo)簽上的字可以左右移動(dòng)，標(biāo)簽移動(dòng)范圍等于滾動(dòng)條的范圍。PrivateSubForm_Load()HScroll1.Max=Form1.Width-Label1.WidthHScroll1.Value=Label1.LeftEndSubPrivateSubHScroll1_Change()Label1.Left=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()CallHScroll1_ChangeEndSubPrivateSubCommand1_Click()'結(jié)束EndEndSubPrivateSubForm_Load()Label1.Left=0HScroll1.Min=0HScroll1.Max=(Form1.ScaleWidth-Label1.Width)/2'如果沒有下面兩句，點(diǎn)箭頭，會(huì)看不出反應(yīng)，點(diǎn)住不放，還是有效果的HScroll1.LargeChange=25HScroll1.SmallChange=20EndSubPrivateSubHScroll1_Change()Label1.Left=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()'Label1.Left=HScroll1.ValueCallHScroll1_ChangeEndSub33、（12）滾動(dòng)條的取值范圍均為10-40。（3）完成以下功能：根據(jù)設(shè)定字號(hào)改變標(biāo)簽框內(nèi)顯示文字的大小。要求水平滾動(dòng)條與文本框相關(guān)聯(lián)。PrivateSubForm_Load()HScroll1.Max=40HScroll1.Min=10Label1.FontSize=HScroll1.ValueForm1.Caption="改變字號(hào)"EndSubPrivateSubHScroll1_Change()Text1.Text=HScroll1.ValueLabel1.FontSize=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Text1.Text=HScroll1.ValueLabel1.FontSize=HScroll1.ValueEndSubPrivateSubText1_Change()DimiAsIntegeri=Val(Text1.Text)Ifi>=10Andi<=40ThenLabel1.FontSize=iHScroll1.Value=iEndIfEndSub34、（12）在屬性窗口中將標(biāo)簽（Label1）的標(biāo)題設(shè)為“祝您考試成功”，字體設(shè)置為“宋體”、字形為“粗體”、大小為“二號(hào)”、文字顏色為“紅色”，格式設(shè)置為在窗體中水平居中對(duì)齊。（3）單擊“開始”按鈕（Command1），標(biāo)簽文字在定時(shí)器控制下自動(dòng)交替以紅蘭兩種顏色顯示。同時(shí)“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。（4）單擊“停止”按鈕，標(biāo)簽文字停止閃爍，同時(shí)“停止”按鈕變?yōu)椤伴_始”按鈕。（5）定時(shí)器（Timer1）的時(shí)間間隔為0.3秒。PrivateSubForm_Load()Label1.Left=Form1.ScaleWidth/2-Label1.Width/2Label1.Top=Form1.ScaleHeight/2-Label1.Height/2Command1.Caption="開始"Timer1.Enabled=FalseLabel1.ForeColor=vbRedEndSubPrivateSubCommand1_Click()IfCommand1.Caption="開始"ThenCommand1.Caption="停止"Timer1.Enabled=TrueElseCommand1.Caption="開始"Timer1.Enabled=FalseEndIfEndSubPrivateSubTimer1_Timer()IfLabel1.ForeColor=vbRedThenLabel1.ForeColor=vbBlueElseLabel1.ForeColor=vbRedEndIfEndSub35、（12）在屬性窗口中將標(biāo)簽（Label1）的標(biāo)題設(shè)為“祝您考試成功”，字體設(shè)置為“宋體”、字形為“粗體”、大小為“二號(hào)”、文字顏色為“紅色”。（3）單擊“開始”按鈕，標(biāo)簽文字在定時(shí)器100到窗體外時(shí)，再從窗體的左邊進(jìn)入。同時(shí)“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。（4）單擊“停止”按鈕，標(biāo)簽“祝您考試成功”文字停止?jié)L動(dòng)。同時(shí)“停止”按鈕變?yōu)椤伴_始”按鈕。（5）定時(shí)器（Timer1）的時(shí)間間隔為0.1秒。IfCommand1.Caption="開始"ThenCommand1.Caption="停止"Timer1.Enabled=TrueElseCommand1.Caption="開始"Timer1.Enabled=FalseEndIfEndSubPrivateSubTimer1_Timer()IfLabel1.Left<Form1.WidthThenLabel1.Left=Label1.Left+100ElseLabel1.Left=-Label1.WidthEndIfEndSub36、（12Command1Label1）文字在定時(shí)器控制下字號(hào)自動(dòng)增加2。同時(shí)“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。（3）單擊“停止”按鈕，標(biāo)簽“歡迎光臨”文字停止放大。同時(shí)“停止”按鈕為“開始”按鈕。（4）要求標(biāo)簽文字在放大時(shí)保持水平居中。（5）定時(shí)器（Timer1）的時(shí)間間隔為0.2秒。PrivateSubCommand1_Click()IfCommand1.Caption="開始"ThenTimer1.Enabled=TrueCommand1.Caption="停止"ElseTimer1.Enabled=FalseCommand1.Caption="開始"EndIfEndSubPrivateSubForm_Load()Label1.Left=Form1.ScaleWidth/2-Label1.Width/2Label1.Top=Form1.ScaleHeight/2-Label1.Height/2Label1.ForeColor=vbRedEndSubPrivateSubTimer1_Timer()Label1.FontSize=Label1.FontSize+2Label1.Left=Form1.ScaleWidth/2-Label1.Width/2Label1.Top=Form1.ScaleHeight/2-Label1.Height/2EndSub37、（12Timer1用于顯示系統(tǒng)時(shí)間，時(shí)間間隔為1秒；Timer2用于判斷鬧鐘時(shí)間，時(shí)間間隔為0.5秒，Timer23Label1設(shè)置Label1的Font為：宋體、粗體、二號(hào)，背景白色，文字居中對(duì)齊，固定邊框。（4）窗體的下半部有一個(gè)標(biāo)簽Label2，標(biāo)題為“鬧鐘時(shí)間：”；Label2的右邊是文本框Text1。（5）在文本框中輸入鬧鐘時(shí)間并按回車后，啟動(dòng)判斷鬧鐘時(shí)間的定時(shí)器Timer2Label1Label1的背景色按紅白兩色交替變換。PrivateSubForm_Load()Timer1.Interval=1000Timer2.Interval=500Form1.Caption="電子鐘"Timer2.Enabled=FalseLabel1.BackColor=vbWhiteEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenTimer2.Enabled=TrueEndIfEndSubPrivateSubTimer1_Timer()Label1.Caption=TimeEndSubPrivateSubTimer2_Timer()IfLabel1.Caption>Text1.TextThenIfLabel1.BackColor=vbWhiteThenLabel1.BackColor=vbRedElseLabel1.BackColor=vbWhiteEndIfEndIfEndSub38、（12）窗體的左邊有一個(gè)框架Frame1，Option1（0Option1（1）、Option1（2），標(biāo)題分別為“1分鐘”、“5分鐘”、“10分鐘”。默認(rèn)選擇為1分鐘。（3）標(biāo)簽Label1，用于顯示倒計(jì)時(shí)的剩余的時(shí)間。（4）單擊“開始計(jì)時(shí)”按鈕（Command1）后，程序根據(jù)選擇的時(shí)間開始倒計(jì)時(shí)，5）當(dāng)剩余時(shí)間到0分0秒時(shí)，改為顯示“時(shí)間到！”。（6）定時(shí)器Timer1的時(shí)間間隔為1秒。DimXAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Enabled=FalseLabel1.Caption=""X=60Timer1.Interval=1000EndSubPrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0X=60Case1X=300Case2X=600EndSelectEndSubPrivateSubTimer1_Timer()IfX=0ThenLabel1.Caption="時(shí)間到!"Timer1.Enabled=FalseCommand1.Enabled=TrueFrame1.Enabled=TrueElseX=X-1Label1.Caption=Str(X\60)+"分"+Str(XMod60)+"秒"Command1.Enabled=FalseFrame1.Enabled=FalseEndIfEndSub39、設(shè)計(jì)一個(gè)“秒表計(jì)時(shí)”程序，運(yùn)行界面如下圖所示。具體要求如下：（1）標(biāo)簽Label1Caption初值設(shè)置為0Autosize設(shè)置為True，字體、字號(hào)、顏色等屬性自定。（2）定時(shí)器Timer1的Interval設(shè)置為1秒，Enabled初值設(shè)為False。（3）命令按鈕Command1的標(biāo)題設(shè)置為“計(jì)時(shí)開始”用來啟動(dòng)計(jì)時(shí)器，當(dāng)計(jì)時(shí)開幾秒。DimnAsIntegerPrivateSubCommand1_Click()DimhhAsInteger,mmAsInteger,ssAsIntegerIfCommand1.Caption="計(jì)時(shí)開始"ThenTimer1.Enabled=Truen=0Command1.Caption="停止"ElseTimer1.Enabled=Falsehh=n\3600mm=(nMod3600)\60ss=nMod60MsgBox"一共運(yùn)行了"&hh&"小時(shí)"&mm&"分"&ss&"秒"Command1.Caption="計(jì)時(shí)開始"Label1.Caption="0"EndIfEndSubPrivateSubTimer1_Timer()n=n+1Label1.Caption=nEndSub40、利用一個(gè)計(jì)時(shí)器、一個(gè)標(biāo)簽框和二個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表，運(yùn)行界面如下圖所示。單擊“開始”按鈕，秒表開始計(jì)時(shí)，單擊“結(jié)束”按鈕，秒表結(jié)束計(jì)時(shí)，并在標(biāo)簽框顯示運(yùn)行時(shí)間，如“運(yùn)行了0小時(shí)2分10秒”。DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseLabel1.Caption=運(yùn)行了"+Str(h)+小時(shí)"+Str(m)+分"+Str(s)+"秒"EndSubPrivateSubForm_Load()Form1.Caption="動(dòng)態(tài)秒表（小時(shí)：分：秒）"Command1.Caption="開始[&S]"Command2.Caption="結(jié)束[&E]"Label1.Alignment=2'居中對(duì)齊Label1.Caption="0:0:0"Timer1.Interval=1000Timer1.Enabled=Falsex=0EndSubPrivateSubTimer1_Timer()x=x+1h=x\3600m=(xMod3600)\60s=xMod60Label1.Caption=Str(h)+":"+Str(m)+":"+Str(s)EndSub41、設(shè)計(jì)一個(gè)“字幕升起”程序，運(yùn)行界面如下圖所示。具體要求如下：（1Label1）的標(biāo)題設(shè)為“歡迎使用VB”，字體設(shè)為“楷體”，大小為“三號(hào)”。（2）單擊“開