vb編程題目及答案

1、1.輸入3個數，輸出最大的數2.有一元二次方程：aX2bXc=0，依次輸入a，b，c，判斷此方程是否有實根3.輸入一個百分制的成績，若大于等于60，則用消息框彈出，顯示“恭喜！成績通過！”，若小于60，則彈出消息框，顯示“抱歉！成績沒有通過！”4.輸入一年份，判斷它是否為閏年，并顯示有關信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）5.輸入學生的百分制成績，轉換輸出為五級制成績，90～100分轉換為優(yōu)秀

2、，80～89轉換為良好，70～79轉換為中等，60～69轉換為及格，0～60轉換為不及格。6.隨機產生一個三位正整數，然后逆序輸出，產生的數與逆序數同時顯示。例如，產生246，輸出是642。7.輸入兩個整數，求它們的最大公約數。8.編程求200400范圍內5的倍數或7的倍數之和。(一個數如果同時是7和5的倍數，則只能加一次。。9.計算100~300之間所有能被3和7整除的數之和10.分別統(tǒng)計1100中，滿足3的倍數、7的倍數的數各有多少

3、。11.某次歌曲大獎賽，有7個評委。如果分別輸入7個評委對某個參賽者的打分數，按照去掉一個最高分和一個最低分的計算辦法，求出該參賽者的平均得分。12.輸入一串字符，統(tǒng)計其中字母A(不區(qū)分大小寫)出現的次數。13.我國目前有13億人口，按人口年增長率0.8%計算，多少年后我國人口將超過26億。14.小猴有桃若干，第一天吃掉一半多一個；第二天吃剩下桃子的一半多一個；以后每天都吃尚存桃子的一半多一個，到第7天只剩一個，問小猴原有桃多少？15.

4、求100以內的素數16.百元買百雞問題。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞方案。17.編程求斐波那契數列前11項。（斐波那契數列：F(0)=f(1)=1F(n)=F(n1)F(n2)n=2）18.將輸入的字符串以反序顯示。例如：輸入“ASDFGT”，顯示“TGFDSA”19.隨機產生10個[30100]內的整數，求最大值及所對應的下標20.隨機產生10個[30100]內的整數，求最大值、最小值和平均值。21.隨機

5、產生10個[30100]內的整數，求最小值及所對應的下標。22.隨機生成一個整型的二維數組，范圍在[1020]之間，以下三角形式輸出該數組。23.隨機產生10個1~100的正整數放入數組，顯示產生的數，求最大值、最小值、平均值。24.利用隨機函數生成一個44的矩陣(即二維矩陣)范圍是[2050]內的整數輸出該矩陣所有數據之和25.已知有序數組a()，編程插入x（x的值為14）。數組a中的元素分別為12，6，4，89，75，63，100，

6、20，31。26.編寫一函數，計算Double類型一維數組所有元素的平均值。27.用函數過程求表達式1121314…1n的和.28.編一子過程ProcMin求一維數組a中的最小值，子過程的形參自己確定。29.編一個函數，求一維數組a中的最大值，函數的形參自己確定。30.編寫一個過程計算并輸出區(qū)間[100，1000]內所有素數的和(要求判斷素數使用過程（函數或子過程）來實現。調用該過程。(提示：只能被1和自身整除的自然數稱為素數。)(注：

7、本答案第一行代碼應在題目之后，自行調整)MsgBox(“恭喜！成績通過！“)ElseMsgBox(“抱歉！成績沒有通過！“)EndIfEndSubPrivateSubComm14_Click()4.輸入一年份，判斷它是否為閏年，并顯示有關信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）yes=Val(InputBox(“year“))IfyesMod4=0yesMod100=90MsgBox(“優(yōu)秀“)C