歷年vb題目整理(帶答案)

1、1、算法描述：求的1100之間所有偶數(shù)的和'注：請不要更改原程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼'Function func() (1) i As Integer dim func = (2) 0 For i = 2 To 100 Step (3) 2 func = func + i Next iEnd Function2、操作要求: 順序查找單詞“name” ： 輸入10個不同的單詞給數(shù)組，查找單詞“name”是否在數(shù)組中；如果在，輸出單詞在數(shù)組中的位置，否則，輸出“不在數(shù)組中”。 Sub main() Dim i As Integer Dim b

2、uzai As Boolean '定義數(shù)組d,下界為1,上界為10,數(shù)據(jù)類型為string，在dim后完善語句 Dim (1) d(1 To 10) As String '輸入10個單詞，在for語句后完善i的初始值與終值 For i =(2) 1 to 10 '輸入每個單詞給數(shù)組元素，在賦值號左側(cè)添加變量 (3) = InputBox("Please input word " & i) d(i) Next i buzai = True i = 0 While buzai = True And i < 10 '順序查找單詞，數(shù)組

3、下標(biāo)增1，在賦值號右側(cè)添加表達(dá)式i =(4) i+1 '判斷數(shù)組元素是否為單詞"name",在if語句后添加判斷條件 If (5) Then d(i) = "name" buzai = False End If Wend If buzai = False Then MsgBox "在數(shù)組中的位置為：" + Str(i) Else MsgBox "不在數(shù)組中" End IfEnd Sub3、小王今年26歲，資助了一名貧困大學(xué)生，'他想從明年開始每年比上一年多資助一名貧困大學(xué)生。'編程求解小王到

4、多少歲，就能資助到n名甚至更多大學(xué)生？Function func(n) stu = 1 age = 26'請完善下面兩條語句 Do While stu < Val(n) age = age + (1) 1 stu = (2) + age 25 stu Loop func = ageEnd FunctionSub Main() If Command = "assess" Then Open "in.txt" For Input As #1 Line Input #1, n Close #1 Open "out.txt" F

5、or Output As #1 Print #1, func(n) Close #1 Else '請完善大學(xué)生數(shù)n的輸入語句 (3) = InputBox("請輸入大學(xué)生數(shù) n:", "Input") n MsgBox func(n) End IfEnd Sub4、操作要求: 設(shè)計一個VB學(xué)習(xí)指導(dǎo)程序的窗口運行界面，界面設(shè)計如下圖。要求（1）打開“C:MyExam工程1.vbp”，設(shè)置窗體Form1屬性值：將該窗體標(biāo)題命名為“VB學(xué)習(xí)指導(dǎo)”；（2）添加一個標(biāo)簽控件Label1，并設(shè)置如下屬性值：該控件填充內(nèi)容“VB學(xué)習(xí)指導(dǎo)”；字體為隸書，字形為粗

6、體，字號為三號，字體顏色為調(diào)色板中第5行第7列，并居中對齊；（3）對標(biāo)簽控件Label2（請輸入口令：），設(shè)置如下屬性值： 根據(jù)字體大小自動調(diào)整；（4）添加一個文本框控件Text1，并設(shè)置如下屬性值： 文本框高度為650，寬度為2215； 文本框內(nèi)容為空；（5）添加一個命令按鈕Option2，并設(shè)置如下屬性值： 將該按鈕標(biāo)題命名為“退出”； 字體為黑體，字號為四號； 按鈕寬度1575，高度735；（5）保存并提交。5、操作要求: 打開"C:MyExam工程1.vbp”，補(bǔ)充完成程序。實現(xiàn)當(dāng)從鍵盤上輸入x的值后，求函數(shù)y的值(當(dāng)x<0時,y=|3x+1|;當(dāng)x>=0時，y=

7、4x+1)。如:輸入-2后,輸出結(jié)果:5.Function func(x)If x < 0 Then func = (1) abs(3*x+1)Else func = (2) 4*x+1End IfEnd Function6、操作要求: 打開“C:MyExam工程1.vbp”補(bǔ)充完成程序并保存！該程序的功能是：從鍵盤上輸入兩個數(shù)a和b，比較a和b的大小，并輸出較小的數(shù)。Function func(a, b)If (1) Then a<bfunc = aElse If (2) Then a>b func = b Else func = "兩數(shù)相等" End

8、IfEnd IfEnd Function7、操作要求: 輸入a、b、c的值，判斷一元二次方程 ax2+bx+c=0是否有解，如果無解則輸出“無解” ，如果兩個解相同則輸出“兩解相同”，否則輸出“兩解不同”。Function f(a, b, c)'請完成其它的判斷語句 If b * b - 4 * a * c < 0 Then f = "無解" If b * b - 4 * a * c = 0 Then (1) f="兩解相同" (2) If b * b - 4 * a * c > 0 Then f = "兩解不同"

9、End FunctionSub Main() If Command = "assess" Then Open "in.txt" For Input As #1 Line Input #1, a Line Input #1, b Line Input #1, c Close #1 Open "out.txt" For Output As #1 Print #1, f(a, b, c) Close #1 Else a = InputBox("請輸入 a", "Input") b = InputBox

10、("請輸入 b", "Input") '請完成變量c的輸入語句 (3) c = InputBox("請輸入 c", "Input") MsgBox f(a, b, c) End IfEnd Sub8、操作要求: 打開“C:MyExam工程1.vbp”補(bǔ)充完成程序并保存！該程序的功能是： 求實數(shù)x的絕對值。Function func(x) If x >= 0 (1) then func = x Else func = (2) -x (3) end ifEnd Function9、操作要求: 打開“C:M

11、yExam工程1.vbp”進(jìn)行以下操作后并保存！填空完成程序，計算N!的值并在窗體上打印出結(jié)果，如輸入：3，則輸出：6。（注：N!=1×2××N）Function func(n)Dim i As Integer(1) func=1For i = 1 To (2) nfunc = func * i '計算N!Next iEnd Function10、操作題：“提示信息”界面設(shè)計，如下圖所示，要求（1）打開“C:MyExam工程1.Vbp”，對窗體Form1設(shè)置如下屬性值：窗體標(biāo)題為“提示信息”；背景色為調(diào)色板第1行第7列。（2）添加一個標(biāo)簽控件Label，并

12、設(shè)置如下屬性值：標(biāo)簽標(biāo)題為“要繼續(xù)嗎？”（注：“？”為中文標(biāo)點符號）；標(biāo)簽高度為495，寬度為1935；字體為楷體_GB2312，字形為常規(guī)，字號為三號，字體顏色為調(diào)色板第5行第8列，背景類型為0。（3）添加一個按鈕控件CommandButton，并設(shè)置如下屬性值：         按鈕標(biāo)題為“否”；                 字號

13、為小四。（4）保存并提交。11、操作要求: 輸入10位同學(xué)的英語成績存放在數(shù)組score中，利用選擇排序算法按照從大到小的順序進(jìn)行排序 。' 算法描述：'輸入10位同學(xué)的英語成績存放在數(shù)組score中'利用選擇排序算法按照從大到小的順序進(jìn)行排序 '定義數(shù)組score,下界為1,上界為10,數(shù)據(jù)類型為Single Dim (1) score(1 To 10) As SingleFunction f() 'i為排序的次數(shù)，應(yīng)該排序9次，為i添加初值和終值 For i =(2) 1 To 9 Min = score(i): m = i 'j為每次排序的

14、數(shù)的范圍，應(yīng)從i+1開始直到第10個數(shù)，為j添加初值和終值 For j =（3） i + 1 To 10 If score(j) > Min Then Min = score(j): m = j Next j '以k為中間變量，編寫交換score(i)和score(m)的語句 k = score(i) score(i) = score(m) （4） score(m) = k Next i st = "排序后的數(shù)列為：" For i = 1 To 10 st = st + Str(score(i) + " " Next i f = stEnd

15、 FunctionSub Main() Dim i As Integer, m As Integer, k As Integer, j As Integer Dim st As String If Command = "assess" Then Open "in.txt" For Input As #1 Dim x As String For i = 1 To 10 Line Input #1, x score(i) = Val(x) Next i Close #1 Open "out.txt" For Output As #1 Pr

16、int #1, f() Close #1 Else For i = 1 To 10 '輸入10位同學(xué)的英語成績，在賦值號左側(cè)添加變量 （5） = InputBox("請輸入第" & i & "個數(shù)據(jù)") score(i) Next i MsgBox f() End IfEnd Sub12、購物問題：購物滿1000元，打7折，800到1000元，打8折，500到800元，打9折。 Private sub command1_click() X=val(text1.text) If x>=1000 then (1) Y=0.7*x

17、 Elseif (2) then x>=800 Y=0.8*x Elseif x>=500 then (3) Y=0.9*x Else Y=x End if Text2.text=y End sub13、十進(jìn)制轉(zhuǎn)化成二進(jìn)制問題：將一個十進(jìn)制數(shù)轉(zhuǎn)化為二進(jìn)制數(shù)。 Function func(x)Dim bin(32),j,strStr=”j=0do while (x>0)bin(j)=(1) x mod 2(2) x=x2j=j+1loopdo while (j<>0)str=str&bin(j-1)j=(3) j-1loopfunc=strend funct

18、ion14、水仙花數(shù)問題：水仙花數(shù)是滿足下面條件的一組三位的正整數(shù)，它們滿足條件：每一位上數(shù)字的立方之和恰好等于它自己。例如：153就是一個水仙花數(shù)，13+53+33=153，請找出所有的水仙花數(shù)及個數(shù)。參考程序代碼如下：方法一：Private Sub Command1_Click() Dim sum As Integer Dim i, a, b, c As Integer List1.Clear Sum=0 For i = 100 To 999 a = i 100 求得百位上的數(shù)字 b = i 10 Mod 10 求得十位上的數(shù)字 c = i Mod 10 求得個位上的數(shù)字 If a 3 +

19、 b 3 + c 3 = i Then 判斷是否滿足條件 List1.AddItem (Str(i) sum = sum + 1 統(tǒng)計個數(shù) End If Next i Label1.Caption = "個數(shù)：" + Str(sum)End Sub方法二：Private Sub Command1_Click() Dim sum As Integer Dim i, j, k As Integer List1.Clear Sum=0 For i = 1 To 9 百位數(shù) For j = 0 To 9 十位數(shù) For k = 0 To 9 個位數(shù) If i 3 + j 3 + k 3 = 100 * i + 10 * j + k Then 是否滿足條件 List1.AddItem (Str(100 * i + 10 * j + k) sum = sum + 1 統(tǒng)計個數(shù) End If Next k Next j Next i Label1.Caption =