VB編程題目和答案

1、1. 輸入3個數(shù)，輸出最大的數(shù)2. 有一元二次方程：aX2+bX+c=0，依次輸入a, b, c,判斷此方程是否有實根3. 輸入一個百分制的成績，若大于等于60,則用消息框彈出，顯示"恭喜！成績通過！ ”, 若小于60,則彈出消息框，顯示“抱歉！成績沒有通過！”4. 輸入一年份，判斷它是否為閏年，并顯示有關信息。（判斷閏年的條件是：年份能被4 整除但不能被100整除，或者能被400整除）5. 輸入學生的百分制成績，轉換輸岀為五級制成績，90100分轉換為優(yōu)秀，8089轉換 為良好，7079轉換為中等，6069轉換為及格，060轉換為不及格。6. 隨機產生一個三位正整數(shù)，然后逆序輸岀，

2、產生的數(shù)與逆序數(shù)同時顯示。例如，產生 246,輸出是642。7. 輸入兩個整數(shù)，求它們的最大公約數(shù)。& 編程求200-400圍5的倍數(shù)或7的倍數(shù)之和。（一個數(shù)如果同時是7和5的倍數(shù)，則只 能加一次。9. 計算100-300之間所有能被3和7整除的數(shù)之和10. 分別統(tǒng)計1-100中，滿足3的倍數(shù)、7的倍數(shù)的數(shù)各有多少。11. 某次歌曲大獎賽，有7個評委。如果分別輸入7個評委對某個參賽者的打分數(shù)，按照去 掉一個最高分和一個最低分的計算辦法，求出該參賽者的平均得分。12. 輸入一串字符，統(tǒng)計其中字母A（不區(qū)分大小寫）出現(xiàn)的次數(shù)。13. 我國目前有13億人口，按人口年增長率0.8%計算，多少年

3、后我國人口將超過26億。14. 小猴有桃若干，第一天吃掉一半多一個；第二天吃剩下桃子的一半多一個；以后每天都 吃尚存桃子的一半多一個，到第7天只剩一個，問小猴原有桃多少？15. 求100以的素數(shù)16. 百元買百雞問題。假泄小雞每只5角，公雞每只2元，母雞每只3元，編程求解購雞方 案。17. 編程求斐波那契數(shù)列前11項。（斐波那契數(shù)列:F（0）=f（l）=l, F（n）=F（n-l）+F（n-2） n>=2 ）18. 將輸入的字符串以反序顯示。例如：輸入“ASDFGT”，顯示“TGFDSA”19. 隨機產生10個30,100的整數(shù)，求最大值及所對應的下標20. 隨機產生10個30.100的

4、整數(shù)，求最大值、最小值和平均值。21. 隨機產生10個30.100的整數(shù)，求最小值及所對應的下標。22. 隨機生成一個整型的二維數(shù)組，圍在10,20之間，以下三角形式輸岀該數(shù)組。23. 隨機產生10個1100的正整數(shù)放入數(shù)組，顯示產生的數(shù)，求最大值、最小值、平均值。24. 利用隨機函數(shù)生成一個4X4的矩陣（即二維矩陣），用是20.50的整數(shù)，輸出該矩陣所有數(shù) 據(jù)之和25. 已知有序數(shù)組a（）,編程插入x （x的值為14）。數(shù)組a中的元素分別為12, 6, 4, 89, 75, 63, 100, 20, 31。26. 編寫一函數(shù)，計算Double類型一維數(shù)組所有元素的平均值。27. 用函數(shù)過程求

5、表達式l+l/2+1/3+1/4+.+l/n的和.28. 編一子過程ProcMin,求一維數(shù)組a中的最小值，子過程的形參自己確左。29. 編一個函數(shù)，求一維數(shù)組a中的最大值，函數(shù)的形參自己確定。30. 編寫一個過程計算并輸岀區(qū)間100, 10001所有素數(shù)的和（要求判斷素數(shù)使用過程（函數(shù) 或子過程）來實現(xiàn)。調用該過程。（提示：只能被1和自身整除的自然數(shù)稱為素數(shù)。）（注：本答案第一行代碼應在題目之后，自行調整）Private Sub Command 1 l_Click()4.輸入3個數(shù)，輸出最大的數(shù)Dim max%XI = VaKI 叩 inBox(”i 叩 ui”)X2 = Val(I 叩 u

6、tBoxf/'input0)x3 = Val(InputBox(,*input,*)max = X1If max <= X2 Thenmax = X2End IfIf max <= x3 Thenmax = x3End IfMsgBox (H3個數(shù)之中的最大數(shù)max J & max)End SubPrivate Sub Command 12_Click()2 有一元二次方程：aX2+bX+c=0,依次輸入a. b. c.判斷此方程是否有實根a = Val(InputBox('*i nputH»B = VaKInputBoxC'i nput*

7、)c = VaKInputBoxfi nputK)s = B A 2 4*a*cIf a o 0 ThenIfs = O ThenMsgBox C兩個相等實根”)Elself s > 0 ThenMsgBox C兩個不相等實根JElself s<0 ThenMsgBox C兩個不相等虛根”)End IfElseMsgBox C 無解”)End IfEnd SubPrivate Sub Command 13_Click()3 輸入一個百分制的成績.若大干等干60,則用消息框彈岀，顯示”恭喜！成績通過！ ”，若小于60,則 彈岀消息框，顯示"抱歉！成績沒有通過！X = VaK

8、InputBoxC'i npu 廣)IfX>= 60 ThenMsgBox C恭喜!成績通過！ ”)ElseMsgBox C抱歉!成績沒有通過！ ”)End IfEnd SubPrivate Sub Command 14_Click()4 輸入一年份，判斷它是否為閏年并顯示有關信息。(判斷閏年的條件是：年份能被4整除但不能被100整除.或者能被400整除)yes = Val(I 叩 utBox(,yearM)If yes Mod 4 = 0 And yes Mod lOOoOOr yes Mod 400 = 0 ThenMsgBox (yes & ”是閏年”)ElseMs

9、gBox (yes &”不是閏年“)End IfEnd SubPrivate Sub Command 15_Click()5 輸入學生的百分制成績.轉換輸出為五級制成績，90100分轉換為優(yōu)秀.8089轉換為良好，70 79轉換為中等，60-69轉換為及格.060轉換為不及格。score = Val(InputBoxC，inputH)Select Case scoreCase Is >= 90MsgBox (”優(yōu)秀“)Case Is >= 80MsgBox C 良好”)Case Is >= 70MsgBox (”中“)Case Is >= 60MsgBox C*

10、及格”)Case ElseMsgBox (”不及格”)End SelectEnd SubPrivate Sub Command 16_Click()6.隨機產生一個三位正整數(shù)，然后逆序輸出.產生的數(shù)與逆序數(shù)同時顯示。例如，產生246.輸出是642。a645”n = Len(a)For i = 1 To Int(n / 2)c = Mid(a, i. 1)Mid(a, i, 1) = Mid(a. n - i + L 1)Mid(a, n - i + 1. 1) = cNext iMsgBox (a)End SubPrivate Sub Command l_Click()7輸入兩個整數(shù).求它們的

11、最大公約數(shù)m = Val(InputBox(ninput m 值”)n = VaI(InputBox(Hinput n 值J)If n > m Thent = nn = mm = tEnd Ifr = in Mod nDo While r <>0m = nn = rr = m Mod nLoopMsgBox C&大公約數(shù)=“&n)End SubPrivate Sub Command2_Click()8 編程求200-400 m 5的倍數(shù)或7的倍數(shù)之和。(一個數(shù)如果同時是7和5的倍數(shù).則只能加一次。Dim suml%, sum2%suml = 0: sum2 =

12、 0For i = 200 To 400IfiMod5 = 0Thensuml = suml + iElself i Mod 7 = 0 Thensum2 = sun2 + iEnd IfDebug.Prinl i. suml. sum2Next iMsgBox (M5 的倍數(shù)之和 sum=M & suml)MsgBox (M7 的倍數(shù)之和 sum=M & sum2)End SubPrivate Sub Command3_Click()9 汁算100300之間所有能被3和7整除的數(shù)之和Dim sum%sum = 0For i= 100 To 300Ifi Mod 3 = 0An

13、d i Mod 7 = 0Thensum = sum + iEnd IfNext iMsgBox (Msum=H & sum)End SubPrivate Sub Command4_Click()IO.分別統(tǒng)it 1-100中，滿足3的倍數(shù)、7的倍數(shù)的數(shù)各有多少m = 0: n = 0For i = 1 To 100IfiMod3 = 0Thenn = n + 1Elself i Mod 7 = 0 Thenm = m + 1End IfNext iMsgBox C3的倍數(shù)個數(shù)&n)MsgBox Cl的倍數(shù)個數(shù)&m)End SubPrivate Sub Command5

14、_Click()11某次歌曲大獎賽.有7個評委。如果分別輸入7個評委對某個參賽者的打分數(shù).按照去掉一個最商分 和一個最低分的計算辦法，求岀該參賽者的平均得分Dim sum%, max%, min%sum = 0: max = 0: min = 999Fori = lTo7X = Val(InputBox(Hi 叩 ui”)If max <= X Tlienmax = XEnd IfIf min >= X Thenmin = XEnd Ifsum = sum + XNext iAvg = (sum max min) / 5MsgBox CjSiWj 分=” & max)Msg

15、Box最低分=H & min)MsgBox總和="& sum)MsgBox C平均分&Avg)End SubPrivate Sub Command 10_Click()12.輸入一串字符.統(tǒng)汁其中字母A(不區(qū)分大小寫)出現(xiàn)的次數(shù)。Dim ch As Stringch = "ASDEAS”n = 0For i = 1 To Len(ch)st = Mid(ch. i. 1)IfUCase(st) = MAH Thenn = n + 1End IfNext iMsgBox (K字符串中出現(xiàn)A字符的系數(shù)” & n)End SubPrivate Su

16、b Command6_Click()13.我國目前有13億人口，按人口年増長率0.8%訃算.多少年后我國人口將超過26億。n = 0X=13Do While X <= 26X = X* 1.008n = n+ 1LoopMsgBox (n)End SubPrivate Sub Command7_Click()14.小猴有桃若干，第一天吃掉一半多一個：第二天吃剩下桃子的一半卷一個：以后每天都吃尚存桃子的一半多一個，到第7天只剩一個.問小猴原有桃多少？X = 1For i = 6To 1 Step -1X = (X+ 1)*2Next iMsgBox (X)End SubPrivate Su

17、b Command8_Click()*15.求100以的素數(shù)For i = 1 To 100flag= 1For j = 2 To i - 1IfiModj=OThenflag = 0End IfNext jIf flag = 1 ThenMsgBox (i &”是素數(shù) JEnd IfNext iEnd SubPrivate Sub Command9_Click()16百元買百雞問題“假定小雞每只5角.公昭每只2元.母雞每只3元，編程求解購雞方案°n = 0ForX = OTo33For y = 0 To 50z= 100-X-yIf3*X + 2*y + 0.5*z= 10

18、0 ThenPrint X. y. zEnd IfNext yNext XEnd SubPrivate Sub Conunand20_Click()*17.編程求斐波那契數(shù)列前11項。(斐波那契數(shù)列：F(O)=f(l)=l, F(n)=F(n-l)+F(n-2)n>=2 )Dim f( 11) As Integerf(0)= 1f(i)= 1For i = 2To 10f(i) = f(i- l) + f(i-2)Next iFor i =0To 10Print f(i);Next iEnd SubPrivate Sub Command? 1 ClickO18.將輸入的字符串以反序顯示。

19、例如：輸入"ASDFGT"，顯示TGFDSA0Dim s(10) As StringFor i = 0 To 9s(i) = InputBoxCi 叩ui”)Next iFor i = 9 To 0 Step -1Print s(i)Next iEnd SubPrivate Sub Command22_Click()19.隨機產生10個30.100的整數(shù).求最大值及所對應的下標Dim a(10) As Integer, max%For i = 0 To 9a(i) = Int(Rnd 71 +30)Next imax = a(0)maxi = 0For i = 1 To 9

20、If a(i) >= max Thenmax = a(i)maxi = iEnd IfNext iMsgBox (”max=” & max)MsgBox (Mmaxi=M & maxi)End SubPrivate Sub Command23_Click()20.隨機產生10個30.100的整數(shù),求最大值、最小值和平均值。Dim a( 10) As Integer, max%, min%For i = 0 To 9a(i) = Int(Rnd *71 +30)Next imax = a(0)min = a(0)For i = 1 To 9If a(i) >= max

21、 Thenmax = a(i)Elsemin = a(i)End Ifsum = sum + a(i)Next iMsgBox (Mmax=M & max)MsgBox (Mmin=M & min)MsgBox (Mavg=H & sum / 10)End SubPrivate Sub Command 17_Click()21.隨機產生10個30.100的整數(shù)，求最小值及所對應的下標。Dim a(10) As IntegerFor i = 0 To 9a(i) = Int(Rnd * 71 +30)Next imin = a(0)Mini = 0For i = 1 To

22、 9If a(i) <= min Thenmin = a(i)Mini = iEnd IfNext iMsgBox (Mmin=M & min)MsgBox& Mini)End SubPrivate Sub Command 18_Click()22.隨機生成一個整型的二維數(shù)組.鬧在10.20之間.以下三角形式輸岀該數(shù)組。Dim a( 10,10) As IntegerFor i = 0 To 9For j =0To9a(ij) = InKRnd *11 + 10)Next jNext iFor i = 0 To 9For j =0To iPrint a(i.j),Next

23、 jPrintNext iEnd SubPrivate Sub Command 19_Click()23.隨機產生10個l100的正整數(shù)放入數(shù)組，顯示產生的數(shù).求最大值、最小值、平均值。Dim a(IO) As Integer, max%, min%For i = 0 To 9a(i) = Int(Rnd 100+1)Print a(i)Next imax = a(0)min = a(0)For i = 1 To 9If a(i) >= max Thenmax = a(i)Elsemin = a(i)End Ifsum = sum + a(i)Next iMsgBox (Mmax=M &

24、amp; max)MsgBox (Mmin=M & min)MsgBox (Mavg=H & sum / 10)End SubPrivate Sub Command24_Click()*24.利用隨機函數(shù)生成一個4X4的矩陣(即二維矩陣)，囤是20.50的整數(shù)輸出該矩陣所有數(shù)據(jù)之和Dim a(4,4) As IntegerDim sum%, i%J%For i = 0 To 3For j = 0 To 3a(ij) = Int(Rnd *31 + 20)sum = sum + a(i. j)Next jNext iFor i = 0 To 3For j =0To 3Print

25、a(i.j).Next jPrintNext iMsgBox (Ksum=H & sum)End SubPrivate Sub Command25_Click()25. 已知有序數(shù)組a(),編程插入x (x的值為14)。數(shù)組a中的元素分別為12, 6. 4, 89, 75, 63, 100,20, 31。Dim a(), iMin%. n%, i%J%, t%a = Array(2,6.4, 89. 75.63, 100.20,31)X= 14n = UBound(a)For i = 0 To n - 1iMin = i獲得數(shù)組的下標上界進行nl輪比較對第i輪比較時.初始假定第i個元素

26、最小For j = i + 1 To n在數(shù)組i+1n個元素中選垠小元素的下標If a(j) < a(iMin) Then iMin = jNext jt = a(i)* i+1a(i) = a(iMin)a(iMin) = ti+ln個元素中選出的最小元素與第i個元素交換Next iFor k = 0 To n查找欲插入數(shù)x在數(shù)組中的位迓If X < a(k) Then Exit ForNext kReDim Preserve a(n + 1)For i = nTok Step-1數(shù)組增加一個元素*數(shù)組元素后移一位.騰出位宜a(i + 1) = a(i)Next ia(k) = XFor i = 0 To n + 1Print a(i):NextEnd SubPrivate Sub Command26_Click()26. 編寫一函數(shù)，計算Double類型一維數(shù)組所有元素的平均值。Dim a(), n%, s!a = Array( 1.4, 7. 9, 12, 23. 56)n = UBound(a)s = suml(aO)MsgBox (°sum=M & s)MsgBox (Havg=H & s/n)End SubPrivate S