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

1、VB程序設(shè)計編程考試題及答案.輸入3個數(shù)，輸出最大日勺數(shù)有一元二次方程：aX2+bX+c=0,依次輸入a, b, c,判斷此方程與否有實根輸入一種百分制勺成績，若不小于等于60,則用消息框彈出，顯示“恭喜！成績通過!”， 若不不小于60,則彈出消息框，顯示“抱歉！成績沒有通過！輸入學(xué)生勺百分制成績，轉(zhuǎn)換輸出為五級制成績，90100分轉(zhuǎn)換為優(yōu)秀，8089轉(zhuǎn)換為 良好，7079轉(zhuǎn)換為中檔，6069轉(zhuǎn)換為及格，060轉(zhuǎn)換為不及格。隨機產(chǎn)生一種三位正整數(shù)，然后逆序輸出，產(chǎn)生勺數(shù)與逆序數(shù)同步顯示。例如，產(chǎn)生246, 輸出是642。輸入兩個整數(shù)，求它們勺最大公約數(shù)。分別記錄1-100中，滿足3勺倍數(shù)、7勺

2、倍數(shù)勺數(shù)各有多少。輸入一串字符，記錄其中字母A(不辨別大小寫)浮現(xiàn)勺次數(shù)。國內(nèi)目前有13億人口，按人口年增長率0.8%計算，多少年后國內(nèi)人口將超過26億。小猴有桃若干，第一天吃掉一半多一種；第二天吃剩余桃子勺一半多一種；后來每天都 吃尚存桃子勺一半多一種，到第7天只剩一種，問小猴原有桃多少？百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞方 案。編程求斐波那契數(shù)列前11項。(斐波那契數(shù)列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n=2 )已知有序數(shù)組a(),編程插入x (x勺值為14)。數(shù)組a中勺元素分別為12, 6, 4, 89,75, 63

3、, 100, 20, 31。找出被3、5、7除，余數(shù)均為1勺最小勺5個正整數(shù)。15運用隨機函數(shù)產(chǎn)生50100范疇內(nèi)勺20個隨機數(shù)，顯示其中勺最大值、最小值和平均值。16.編一函數(shù)，記錄字符串中中文勺個數(shù)。輸入3個數(shù)，輸出最大的數(shù)Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox(輸入第” & i & ”個數(shù))If n max Thenmax = nEnd IfNextPrint 三個數(shù)中最大日勺數(shù)是” ;maxEnd Sub有一元二次方程：aX2+bX+c=0，依次輸入a, b, c,判斷此方程與否有實根Priva

4、te Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n = 0 ThenLabel4 = ”方程有根”ElseLabel4 = ”方程無根”End IfEnd Sub輸入一種百分制的成績，若不小于等于60,則用消息框彈出，顯示“恭喜！成績通過! ”, 若不不小于60,則彈出消息框，顯示“抱歉！成績沒有通過！Private Sub Form_Load()Textl =End SubPrivate Sub Command1_Click()Dim nn = Text1If n 60 ThenVal (MsgBoxC恭喜！成績通過！”)ElseVal (MsgBoxC抱歉！成績沒有通過！)End IfEnd Sub輸入學(xué)生的百分制成績，轉(zhuǎn)換輸出為五級制成績，90100分轉(zhuǎn)換為優(yōu)秀，8089轉(zhuǎn) 換為良好，7079轉(zhuǎn)換為中檔，6069轉(zhuǎn)換為及格，060轉(zhuǎn)換為不及格。Private Sub Command1_Click()a = Val(InputBox(請輸入成績”)If a 100 Then Print 超過范疇”If a = 90 And a = 80 And a = 70 And a = 60 And a 70 Then Print 及格”