vb程序設(shè)計(jì)編程考試題及答案

1、VB程序設(shè)計(jì)編程考試題及答案1.輸入輸入3個(gè)數(shù)，輸出最大的數(shù)個(gè)數(shù)，輸出最大的數(shù)PrivateSubcomm1_click()DimmaxFi=1To3n=Val(InputBox(“輸入第“maxEndSub2.有一元二次方程：有一元二次方程：aX2bXc=0，依次輸入，依次輸入a，b，c，判斷此方程是否有實(shí)根，判斷此方程是否有實(shí)根PrivateSubComm1_Click()Dimabcna=Text1b=Text2c=Text3n=

2、bb4acIfn=0ThenLabel4=“方程有根“ElseLabel4=“方程無(wú)根“EndIfEndSub3.輸入一個(gè)百分制的成績(jī)，若大于等于輸入一個(gè)百分制的成績(jī)，若大于等于60，則用消息框彈出，顯示，則用消息框彈出，顯示“恭喜！成績(jī)通過(guò)！恭喜！成績(jī)通過(guò)！”，若小于若小于60，則彈出消息框，顯示，則彈出消息框，顯示“抱歉！成績(jī)沒(méi)有通過(guò)！抱歉！成績(jī)沒(méi)有通過(guò)！PrivateSubFm_Load()Text1=““EndSubPrivat

3、eSubComm1_Click()Dimnn=Text1Ifn=60ThenVal(MsgBox(“恭喜！成績(jī)通過(guò)！“))ElseVal(MsgBox(“抱歉！成績(jī)沒(méi)有通過(guò)！“))EndIfEndSubEndIfr=mModnDoWhiler0m=nn=rr=mModnLoopPrint“mn的最大公約數(shù)是：“nEndSub8.編程求編程求200400范圍內(nèi)范圍內(nèi)5的倍數(shù)或的倍數(shù)或7的倍數(shù)之和。的倍數(shù)之和。(一個(gè)數(shù)如果同時(shí)是一個(gè)數(shù)如果同

4、時(shí)是7和5的倍數(shù)，的倍數(shù)，則只能加一次。則只能加一次。。PrivateSubComm1_Click()Fi=200To400IfiMod5=0iMod7=0ThenSum=SumiEndIfNextiFi=200To400IfiMod5=0iMod7=0ThenSum=SumiEndIfNextiPrint“倍數(shù)之和=”SumEndSub9.計(jì)算計(jì)算100~300之間所有能被之間所有能被3和7整除的數(shù)之和整除的數(shù)之和PrivateSub