第3大題程序設(shè)計(jì)及答案

1、1、* 編寫程序：輸入一元二次方程的系數(shù)a,b,c 的值，求解一元二次方程的根。Private Subd1_Click()Dim a#, b#, c#a = Val(InputBox(參數(shù) a=)b = Val(InputBox(參數(shù) b=)c = Val(InputBox(參數(shù) c=)Call root(a, b, c)End SubPrivate Sub root(x#, y#, z#)Dim t#, x1#, X2#t = y * y - 4 * x * zIf t 0 Thenx1 = (-y + Sqr(t) / (2 * x )X2 = (-y - Sqr(t) / (2 * x)

2、Pr實(shí)根; x1=; x1, x2=; X2Elsex1 = -y / (2 * x): X2 = Sqr(Abs(t) / (2 * x)Pr虛根, x1= & x1 & + & X2 & iEnd IfEnd Sub2、* 編寫程序：已知 x、y、z 分別是 09 中的一個(gè)數(shù)，求x、y、z 的值，使得下列成立：xxz+yzz=532。（其中 xxz 和yzz 不表示乘積，而是由 x、y、z 組成的三位數(shù)）。Private SubDim x, y, zd1_Click()For x = 1 To 9For y = 1 To 9For z = 1 To 9If (100 * x + 10 *

3、x + z) + (100 * y + 10 * z+ z) = 532ThenPrx, y, z;End IfNext zNext yNext xEnd Sub3、* 編寫程序：* 計(jì)算并輸出下面級數(shù)前 n 項(xiàng)（n=50）的部分和。1*2+2*3+3*4+4*5+n*(n+1)+Private SubDim i Asd1_Click()eger, n Aseger, sum Asegern = Val(Text1.Text)For i = 1 To nsum = sum + i * (i + 1)Next iPrsumEnd Sub4、* 編寫程序：編程計(jì)算 123456n的值，n由用戶輸入

4、Private Subd1_Click()Dim s Aseger, a Aseger, i Asegern = Val(Text1.Text)s = 0: a = 1For i = 1 To ns = s + i * aa = -aNext iPrsEnd Sub5、* 編寫程序：編程計(jì)算 1+(1+2)+(1+2+3)+（1+2+3+n），n 由用戶輸入。Private Subd1_Click()n = Val(Text1.Text)Sum = 0For i = 1 To nsum1 = 0For j = 1 To isum1 = sum1 + jNext jSum = Sum + sum

5、1Next iPrSumEnd Sub6* 編寫程序： * 計(jì)算并輸出下面級數(shù)前n 項(xiàng)（n=30）的部分和。1/(1*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)+ Private SubDim i Asd1_Click()eger, n Aseger, sum AsegerFor i = 1 To 30sum = sum + i * (i + 1)k = 1 / sum w = w + kNext iPrwEnd Sub7、* 編寫程序： * 求出斐波數(shù)列前 20 項(xiàng)中的奇數(shù)項(xiàng)的和。* 提示：前兩項(xiàng)為：0，1，從第 3 項(xiàng)開始，每一項(xiàng)均為其前兩項(xiàng)的和（即：0+1+1+2+3+5

6、+.）。Private Subd1_Click()Dim a%, b%, c%, d%a = 0: b = 1For d = 1 To 18c = a + ba = bb = cIf d Mod 2 = 1 ThenSum = Sum + cEnd IfNextPrSumEnd Sub8* 編寫程序：設(shè)計(jì)一個(gè)程序，隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時(shí)顯示。Private Subd1_Click()Dim yRandomizeX =(Rnd * 900 + 100)PrXy= strreverse(x)pryEnd Sub法y = X Mod 10 &(X / 10) Mo

7、d 10 &(X /呵呵還有100)也可以實(shí)現(xiàn)逆序排列還有法 For i = 0 To 2y = y & Mid(X, 3 - i, 1)Next iPry也可以啊 O(_)O9、* 編寫程序：計(jì)算并在窗體上輸出數(shù)字 8 的平方根和立方根。Private Subd1_Click()x = 8 (1 / 2)y = 8 (1 / 3)Prx; yEnd Sub10、* 編寫程序：設(shè)計(jì)一個(gè)程序，輸出在指定范圍內(nèi)的 3 個(gè)隨機(jī)數(shù)，范圍通過文本框輸入。Private Subd1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c =(a + (b - a +

8、1) * Rnd)d =(a + (b - a + 1) * Rnd)e =Pr(a + (b - a + 1) * Rnd)c & , & d & , & eEnd Sub11* 編寫程序：輸入x、y、z 三個(gè)數(shù)，按從小到大的次序顯示。Private Subd1_Click()x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)If z x Thent = z: z = x: x = t End IfIf z y Thent = z: z = y: y = tEnd IfIf y x Thent = y: y = x: x = t

9、End IfPrx & , & y & , & zEnd Sub12* 編寫程序：求 100 至 999 之間的最大的三個(gè)素?cái)?shù)。Private SubDim n Asd1_Click()eger, i Aseger,jAseger,n1AsegerDim flag Asn1 = 1For n = 900flag = TrueTo100 Step-1For i = 2 To(Sqr(n)If nMod i = 0Thenflag ExitEnd= False ForIfNextIf flag ThenDo While n1= 0.0001pi = pi + tn = n + 2s = -st =

10、 s / nWendpi = pi * 4PrpiEnd sub16、* 編寫程序：利用隨機(jī)函數(shù)產(chǎn)生 20 個(gè)（50，100）（不包括50，100）范圍內(nèi)的隨機(jī)整數(shù)，顯示它們當(dāng)中的最大值、最小值和平均值。Private Sub Form_Click()Dim a, max, min, sum, averagesum = 0max = 20min = 50For i = 1 To 20a = (Rnd * 50) + 50 sum = sum + aIf a max Then max = aPraNextPrmaxPrminaverage = sum / 20PraverageEnd Sub17

11、、* 編寫程序：* 使重循環(huán)，在窗體上輸出“九九乘法表”的上三角。Private Subd2_Click()Dim I Aseger,J AsegerMe.ClsForForI = 1J = ITo 9To 9PrFormat(I * J, I &x & J & = );NextPrPrSpace(7 * I); NextEnd Sub18、* 編寫程序：在文本框中輸入小時(shí)、分、秒，化成共有多少秒，然后輸出總秒數(shù)。Private Subd1_Click()Dim h%, m%, s%, x!h = Val(Text1.Text): m = Val(Text2.Text)s = Val(Text

12、3.Text)x = h * 3600 + m * 60 + sLabel1.Caption = 共計(jì)秒數(shù) & Str(x) & 秒End Sub19、* 編寫程序：在文本框中輸入弧度值，將弧度換算為角度值（度、分、秒）的形式并輸出，要求秒數(shù)保留三位小數(shù)。Private Subd1_Click()hudu = Val(Text1.Text)a = Fix(hudu * 180 / 3.14)b = Fix(hudu * 180 / 3.14 - a) * 60)c = Fix(hudu * 180 / 3.14 - a) * 60 - b) *60)d = Fix(c)PrFormat(c,

13、#,000)Pra & 度 & b & 分 & c & 秒End Sub20、* 編寫程序：利用 InputBox和MsgBox完成小時(shí)、分、秒的輸入，總秒數(shù)的輸出。Private Subd1_Click()Dim a, b, c, da = InputBox(小時(shí)數(shù))b = InputBox(分鐘數(shù))c = InputBox(秒數(shù))d = 3600 * a + 60 * b + ce = MsgBox(總秒數(shù) & d)End Sub21、* 編寫程序：在文本框中輸入長、寬、高，求長方體的表面積并輸出。Private SubDim a, b, c, dd1_Click()a = Val(Tex

14、t1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = 2 * (a * b + b * c + a * c)Pr長方體的表面積 & = & dEnd Sub22、* 編寫程序：某公司每年的銷售收入均比前一年增長 10 個(gè)百分點(diǎn)，按此增長率，需要多少年可以實(shí)現(xiàn)銷售收入翻兩番的目標(biāo)？Private Sub Form_Click()Dim i As SingleDim s Aseger 設(shè)s 為所求年數(shù),定義為整型,結(jié)果由窗體輸出i = 1s = 0Do While i = 4i = i * (1 + 0.1)s = s + 1LoopPrs=; sEn

15、d Sub23、* 編寫程序： *有現(xiàn)金 8000 元年利率為 7.5%，設(shè)，多少年后可以超過 4 萬元。* （不問如果這些錢如果存入計(jì)復(fù)利）24、* 編寫程序：利用 InputBox 和 MsgBox 完成 3 種商品的單價(jià)、數(shù)量的輸入，總金額的輸出。25* 編寫程序：在文本框中輸入 3 種商品的單價(jià)、數(shù)量，計(jì)算并輸出所用的總金額。Private Subd1_Click()Dim a1!, b1!, c1!Dim a2%, b2%, c2%Dim x!a1 = Val(Text1.Text): a2 = Val(Text2.Text)b2 = Val(Text3.Text): b2 = Va

16、l(Text4.Text)c3 = Val(Text5.Text): c2 = Val(Text6.Text)x = a1 * a2 + b1 * b2 + c1 * c2text7.Text = xEnd Sub注：text1 為第一種商品的單價(jià)，text2 為第一種商品的數(shù)量，其它依此類推，text7 為總計(jì)金額o(_)o26、* 編寫程序：利用文本框輸入一個(gè)年份，編程判定該年份是否是閏年。判定條件是：能被 400 整除，或者能被 4 整除但不能被 100 整除的年份是閏年。在文本框中輸入年份，使用 pr輸出是否為閏年。Private Subd1_Click()Dim i Aseger,

17、s Asegers =(Text1.Text)If s Mod 400 = 0 Or (s Mod 4 = 0 And s Mod 100 0)ThenPr閏年ElsePr不是閏年End IfEnd Sub27、* 編寫程序：百錢買百雞。公元前 5 世紀(jì)，我國數(shù)學(xué)家張丘建在算經(jīng)中提出“百雞問題”：雞翁一值錢五，雞母一值錢三，雞雛三值錢一。百錢買百雞，問雞翁、雞母、雞雛各幾何？Private Subd1_Click()For x = 0 To 30For y = 0 To 33If 5 * x + 3 * y + (100 - x - y) / 3 = 100 ThenPrx,y,100 - x

18、 - yEndIfNextyNextx注：X 代表公雞，Y 代表母雞28、* 編寫程序：有一階梯，如果每步跨 2 階，最后余 1 階；每步跨 3 階，最后余 2 階；每步跨 5 階，最后余 4 階；每步跨 6 階，最后余 5 階；每步跨 7 階，正好到達(dá)階梯頂。問階梯至少有多少階？Private Subd1_Click()x = 0Do Until x Mod 2 = 1 And x Mod 3 = 2 And x Mod 4 = 3 And xMod 5 = 4 And x Mod 6 = 5 And x Mod 7 = 0 x = x + 1LoopPrxEnd Sub29、*編寫程序：輸

19、出所有的“水仙花數(shù)”，所謂的“水仙花數(shù)”是指一個(gè) 3 位數(shù)，其各位數(shù)字立方和等于該數(shù)本身。例如，153 是一水仙花數(shù)，因?yàn)?153=13+53+33。Private Subd1_Click()For a = 1 To 9For b = 1 To 9For c = 1 To 9If a 3 + b 3 + c 3 = a * 100 + b * 10 + c ThenPra, b, cEnd IfNext cNext bNext aEnd Sub30、* 編寫程序：輸出以下圖形：*Private Subd1_Click()For i = 1 To 4PrTab(25 - i);For j = 1

20、 To 2 * i - 1Pr*;Next jPrNext iEnd Sub31、* 編寫程序：* 打印出以下圖案。*Private Subd1_Click()Dim i AsegerMe.Clsn = 4For i = 1 To nPrTab(n - i + 1); String(2 * i - 1, *)NextFor i = n - 1 To 1 Step -1PrNextTab(n - i + 1); String(2 * i - 1, *)End Sub32、* 編寫程序：* 打印出以下圖案。*+*+*+*+*+*+*+*+*+*Private Subd1_Click()Dim i

21、AsegerMe.Clsn = 4For i = 1 To nPrTab(25 - i);For j = 1 To 2 * i - 1If j Mod 2 = 0 ThenPr+;ElsePr*;End IfNext jPr Next iFor i = 3 To 1 Step -1PrTab(25 - i);For j = 1 To 2 * i - 1If j Mod 2 = 0 ThenPr+;ElsePr*;End IfNext jPrNext iEnd Sub33、*編寫一個(gè)圖形輸出的程序*Private Subd1_Click()Dim i AsegerMe.Clsn = 5For i

22、 = n To 1 Step -1PrNextTab(n - i + 1); String(2 * i - 1, *)For i = 2 To nPrTab(n - i + 1); String(2 * i - 1, *)NextEnd Sub34、* 編寫程序：* 打印出以下圖案。*Private Subd1_Click()For i = 1 To 5For j = 1 To iPr*;Next jPrNext iEnd Sub35、* 編寫程序，輸出下列三角形：4444444333332221Private Subd1_Click()For i = 4 To 1 Step -1PrTab(

23、10 - i);For j = 2 * i - 1 To 1 Step -1PrTrim(Str(i);Next jNext iEnd Sub36、* 編寫程序：* 打印出以下圖案。1222333334444444333332221Private Subd1_Click()For i = 1 To 4PrTab(10 - i);For j = 1 To i * 2 - 1PrTrim(Str(i);Next jNext iFor i = 3 To 1 Step -1PrTab(10 - i);For j = 2 * i - 1 To 1 Step -1PrTrim(Str(i);Next j Next iEnd Sub37、* 編寫程序：*打印出以下圖案。1121123211234321123211211Private SubFor i = 1 To 4d1_Click()PrTab(25 - i);For j = 1 To iPrTrim(S