vb編程題目大全及答案1.題目：使用VB編寫(xiě)一個(gè)簡(jiǎn)單的計(jì)算器程序，實(shí)現(xiàn)加、減、乘、除四則運(yùn)算。答案：```vbDimnum1AsDoubleDimnum2AsDoubleDimresultAsDoubleDimoperationAsStringnum1=Val(InputBox("請(qǐng)輸入第一個(gè)數(shù)字："))operation=InputBox("請(qǐng)輸入運(yùn)算符（+、-、、/）：")num2=Val(InputBox("請(qǐng)輸入第二個(gè)數(shù)字："))SelectCaseoperationCase"+"result=num1+num2Case"-"result=num1-num2Case""result=num1num2Case"/"Ifnum2<>0Thenresult=num1/num2ElseMsgBox("除數(shù)不能為0")ExitSubEndIfCaseElseMsgBox("無(wú)效的運(yùn)算符")ExitSubEndSelectMsgBox("結(jié)果是："&result)```2.題目：編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)字符串的反轉(zhuǎn)。答案：```vbDimstrAsStringDimreversedStrAsStringstr=InputBox("請(qǐng)輸入一個(gè)字符串：")reversedStr=StrReverse(str)MsgBox("反轉(zhuǎn)后的字符串是："&reversedStr)```3.題目：使用VB編寫(xiě)一個(gè)程序，計(jì)算并輸出1到100之間所有偶數(shù)的和。答案：```vbDimsumAsIntegerDimiAsIntegersum=0Fori=1To100IfiMod2=0Thensum=sum+iEndIfNextiMsgBox("1到100之間所有偶數(shù)的和是："&sum)```4.題目：編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)一個(gè)簡(jiǎn)單的猜數(shù)字游戲。程序隨機(jī)生成一個(gè)1到100之間的整數(shù)，用戶(hù)有5次機(jī)會(huì)猜測(cè)這個(gè)數(shù)字，每次猜測(cè)后程序會(huì)提示用戶(hù)猜大了還是猜小了，直到猜中為止。答案：```vbDimsecretNumberAsIntegerDimguessAsIntegerDimattemptsAsIntegersecretNumber=Int((100-1+1)Rnd+1)attempts=0Doguess=Val(InputBox("猜一個(gè)1到100之間的數(shù)字："))attempts=attempts+1Ifguess>secretNumberThenMsgBox("猜大了，再試一次。")ElseIfguess<secretNumberThenMsgBox("猜小了，再試一次。")ElseMsgBox("恭喜你猜對(duì)了！你用了"&attempts&"次機(jī)會(huì)。")ExitDoEndIfLoopUntilattempts=5Ifattempts=5ThenMsgBox("游戲結(jié)束，正確答案是："&secretNumber)EndIf```5.題目：使用VB編寫(xiě)一個(gè)程序，計(jì)算并輸出1到100之間所有能被3整除的數(shù)。答案：```vbDimiAsIntegerFori=1To100IfiMod3=0ThenPrintiEndIfNexti```6.題目：編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)一個(gè)簡(jiǎn)單的文本編輯器，能夠?qū)崿F(xiàn)文本的插入、刪除、查找功能。答案：```vbDimtextAsStringDimeditAsStringDimfindAsStringDimpositionAsIntegertext=InputBox("請(qǐng)輸入一段文本：")edit=InputBox("請(qǐng)輸入要編輯的文本：")'插入功能Ifedit<>""Thentext=Left(text,position)&edit&Mid(text,position+1)EndIf'刪除功能Ifedit<>""Thentext=Replace(text,edit,"")EndIf'查找功能position=InStr(text,edit)Ifposition>0ThenMsgBox("找到文本："&edit&"，位置："&position)ElseMsgBox("未找到文本："&edit)EndIf```7.題目：使用VB編寫(xiě)一個(gè)程序，實(shí)現(xiàn)一個(gè)簡(jiǎn)單的日歷，用戶(hù)可以輸入年份和月份，程序輸出該月的日歷。答案：```vbDimyearAsIntegerDimmonthAsIntegerDimdaysAsIntegerDimfirstDayAsIntegeryear=Val(InputBox("請(qǐng)輸入年份："))month=Val(InputBox("請(qǐng)輸入月份："))'計(jì)算該月的天數(shù)SelectCasemonthCase1,3,5,7,8,10,12days=31Case4,6,9,11days=30Case2If(yearMod4=0AndyearMod100<>0)Or(yearMod400=0)Thendays=29Elsedays=28EndIfCaseElseMsgBox("無(wú)效的月份")ExitSubEndSelect'計(jì)算該月第一天是星期幾firstDay=Weekday(DateSerial(year,month,1))'輸出日歷Fori=1TodaysPrintFormat(DateSerial(year,month,i),"ddd")&""&iNexti```8.題目：編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)一個(gè)簡(jiǎn)單的通訊錄，能夠添加、刪除、查找聯(lián)系人。答案：```vbDimcontactsAsCollectionDimnameAsStringDimphoneAsStringDimcontactNameAsStringSetcontacts=NewCollection'添加聯(lián)系人name=InputBox("請(qǐng)輸入聯(lián)系人姓名：")phone=InputBox("請(qǐng)輸入聯(lián)系人電話(huà)：")contacts.AddArray(name,phone),name'刪除聯(lián)系人contactName=InputBox("請(qǐng)輸入要?jiǎng)h除的聯(lián)系人姓名：")OnErrorResumeNextcontacts.RemovecontactNameIfErr.Number=0ThenMsgBox("聯(lián)系人刪除成功")ElseMsgBox("聯(lián)系人刪除失敗")EndIfOnErrorGoTo0'查找聯(lián)系人contactName=InputBox("請(qǐng)輸入要查找的聯(lián)系人姓名：")OnErrorResumeNextDimcontactInfoAsVariantcontactInfo=contacts.Item(contactName)IfNotIsEmpty(contactInfo)ThenMsgBox"姓名："&contactInfo(0)&vbCrLf&"電話(huà)："&contactInfo(1)ElseMsgBox"未找到聯(lián)系人"EndIfOnErrorGoTo0```9.題目：使用VB編寫(xiě)一個(gè)程序，實(shí)現(xiàn)一個(gè)簡(jiǎn)單的時(shí)鐘，顯示當(dāng)前時(shí)間，并每秒更新一次。答案：```vbDimcurrentTimeAsStringDoWhileTruecurrentTime=Time$PrintcurrentTimeSleep1000Loop```10.題目：編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)一個(gè)簡(jiǎn)單的文件瀏覽器，能夠列出指定目錄下的所有文件和文件夾。答案：```vbDimdirectoryPathAsStringDimfileSystemAsObjectDimfolderAsObjectDimfileAsObjectdirectoryPath=InputBox("請(qǐng)輸入目錄路徑：")SetfileSystem=CreateObject("Scrip