VB程序設(shè)計(jì)例題程序改錯(cuò)程序填空程序設(shè)計(jì)

1、'以下程序段用于輸出楊輝三角 : 結(jié)果樣式如圖 1Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To narr(I, I) = 1I*SPACE*【 arr(I, 1) = 1 】 Next IFor I = 3 To nFor j = 2 To I - 1I*SPACE*arr(i, j) =arr(i-1,j-1)+arr(i-1,j)Next jNext IFor I = 1 To nFor j = 1 To II*SPACE*【 print arr(I,j) 】 Next j Prin

2、tNext IEnd SubOption Explicit程序改錯(cuò)】'題目：用自定義函數(shù)的方法求sum (x),求當(dāng)-1 < xw 1時(shí)，'sum (x) =x/2 ! +xA2/3!+xA3/4!+ +xAn/(n+1)!,'當(dāng) x1 或 x-1 時(shí)，函數(shù)值為 0。當(dāng) n=0 時(shí)，輸入數(shù)' 據(jù)錯(cuò)誤。 X、N 都是由用戶輸入。'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)Private Sub Command1_Click()Dim s As SingleDim n As Integer, x As Single, k As Integer n

3、 = Val(InputBox("Please input a integer value:")x = Val(InputBox("Please input a single value:")If n <= 0 Then數(shù)據(jù)輸入 "）k = MsgBox(" 數(shù)據(jù)輸入錯(cuò)誤！ ", vbRetryCancel + vbExclamation, "Exit SubEnd Ifs = Sum(x, n)Print sEnd SubFunction Sum(x As Single, n As Integer)Dim

4、i As Integer, ss As Long ss = 1Sum = 0If x > 1 Or x < -1 Then'* *FOUND *Exit Do 改為 Exit FunctionElse'* *FOUND *For i = 2 To n 改為 For i = 2 To n+1ss = ss * i '* *FOUND* *Sum = x A (i - 1) / ss 改為 Sum =sum+ x A (i - 1) / ssNext iEnd IfEnd FunctionOption Explicit程序改錯(cuò)】'題目 :編程將一個(gè)數(shù)從已

5、經(jīng)有序（設(shè)從小到大排序）的數(shù)組' 中刪除，使數(shù)組還繼續(xù)保持有序而且其余元素按照下' 標(biāo)連續(xù)存放。'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)Private Sub Form_Click()Dim A() As Integer, N As Integer, Flag As IntegerDim i As Integer, X As Integer, P As IntegerFlag = 0N = InputBox(" 輸入元素個(gè)數(shù) ")*FOUND*Dim A(N) 改為 ReDim A(N)For i = 1 To NA(i) = InputB

6、ox(" 輸入數(shù)組的第 " & i & " 個(gè)元素 ")Next iPrint " 刪除某元素前的數(shù)組For i = 1 To NPrint A(i);Next iStart:X = InputBox(" 輸入要?jiǎng)h除的元素： ")For i = 1 To NIf X = A(i) Then P = i: Flag = 1Next iIf Flag = 0 Then MsgBox (" 沒(méi)有此元素 "): GoTo Start For i = P To N - 1I*FOUND*A(i +

7、1) = A(i) 改為 A(i) = A(i+1)Next i*FOUND*N = N + 1 改為 N = N- 1Print "刪除元素后的數(shù)組For i = 1 To NPrint A(i);Next iEnd SubPrivate Sub Form_Click()程序設(shè)計(jì)】'題目： （事件 ）單擊窗體。'（響應(yīng) ） 輸出一個(gè)如圖所示的由數(shù)字組成的倒三角形' 請(qǐng)將結(jié)果存入變量 S 中（ 要求利用 msgbox 函數(shù) ' 顯示結(jié)果，使用 for.next 語(yǔ)句完成程序 ） '注意：請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫(xiě)代碼。Dim s As StringI

8、*Program*Dim i%, j%, w$IlliFor i = 10 To 1 Step -1For j = 0 To i - 1 w = w & CStr(j) Next w = w & vbCrLfNextMsgBox ws = w'* End * Call YZJ(s)End SubPrivate Sub YZJ(i As String)Dim OUT As Integer OUT = FreeFileOpen App.Path & "out.txt" For Output As #OUT Print #OUT, iClose #

9、OUTEnd SubPrivate Sub Form_Click()程序設(shè)計(jì)】'題目： （事件 ）單擊窗體。'（響應(yīng) ）求 100 到 500 之間奇數(shù)的和，將結(jié)果輸出'在窗體上并存入變量 SUM 中。'使用 do.loop until 語(yǔ)句完成程序'注意：請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫(xiě)代碼。Dim sum As LongI*Program*'* End *Call YZJ(sum)End SubPrivate Sub YZJ(i As Long)Dim OUT As IntegerOUT = FreeFileOpen App.Path & &qu

10、ot;out.txt" For Output As #OUTPrint #OUT, iClose #OUTEnd SubOption Explicit程序填空】'題目：下面的程序用于求三個(gè)數(shù)中最大數(shù)'請(qǐng)?jiān)凇??】處填入正確的內(nèi)容Private Sub Command1_Click()Dim a, b, c, max, min As Integera = Val(InputBox(" 請(qǐng)輸入第一個(gè)數(shù)：")b = Val(InputBox(" 請(qǐng)輸入第二個(gè)數(shù)：")c = Val(InputBox(" 請(qǐng)輸入第三個(gè)數(shù)：&qu

11、ot;)*SPACE*?】min = aI*SPACE*If b > max Then 【 ?】 If b < min Then min = bI*SPACE*If 【 ?】 Then max = cIf c < min Then min = cPrint "最大數(shù)為： " maxPrint "最小數(shù)為： " minEnd Sub5 個(gè)數(shù)中最大值。F面過(guò)程max()用于求3個(gè)數(shù)中最大值，利用這個(gè)過(guò)程求IIPrivate Sub Form_Click()Print "5 個(gè)數(shù) 34、124、68、73、352 的最大值是：max

12、1 = max(34, 124, 68)咲*SPACE*max1 =【 ?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)咲*SPACE*If 【?】 ThenElsem = b End If咲*SPACE*If 【?】 Thenmax = mElsemax = cEnd IfEnd Function程序填空】'題目：本程序執(zhí)行功能為，輸入系列字符串，按遞減次序排列。'(1)在文本框輸入字符串，按回車(chē)鍵后存放到數(shù)組a ()中；'( 2)單擊 "排序 "按鈕( Com

13、mand1 )時(shí)，進(jìn)行遞減次序排列，并在圖形框控件顯示。'請(qǐng)?jiān)凇尽刻幪钊胝_的內(nèi)容Dim a() As String, n As IntegerPrivate Sub Command1_Click()n = n - 1For i = 0 To n - 1 imin = i咲*SPACE*For j = 【 ?】 To n咲*SPACE*If a(imin) 【?】 Then imin = jNext j t = a(i)咲*SPACE*【?】 a(imin) = tNext iFor i = 0 To nMe.Picture1.Print a(i)Next iEnd SubPrivat

14、e Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then咲*SPACE*ReDim 【 ?】咲*SPACE*a(n) = 【?】Text1.Text = "" n = n + 1End IfEnd SubOption Explicit程序改錯(cuò)】'題目 :下列程序進(jìn)行 -n 階乘運(yùn)算，當(dāng)階乘的值超過(guò) ' 溢出報(bào)錯(cuò)，并將結(jié)果輸出為 -1 。'注意：不可增加或刪除程序行，也不可以更改程序結(jié)程序改錯(cuò)】'題目 :下列程序進(jìn)行 -n 階乘運(yùn)算，當(dāng)階乘的值超過(guò)-21147483648-2

15、1147483648' 溢出報(bào)錯(cuò)，并將結(jié)果輸出為 -1 。構(gòu)I*FOUND*Private Function jc(ByVal n As Integer) As Integer Dim I As IntegerDim result As Longresult = 1I = 1 Do While I <= nIf result < 2114748348 / I ThenI*FOUND*result = resultElselblerr.Caption = " 溢出 "I*FOUND*jc = -IExit FunctionEnd IfLoop jc = r

16、esult End FunctionPrivate Sub Form_Click()MsgBox jc(3)End SubOption Explicit程序改錯(cuò)】'題目 :給定三角形的三條邊，計(jì)算三角形的面積。要求 ' 程序首先判斷給定的三條邊能否構(gòu)成三角形。'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)Private Sub Form_Click()Dim a As Single, b As Single, c As SingleDim s As Single, t As Singlestart:a = InputBox(" 輸入 1 邊長(zhǎng)： "

17、;)b = InputBox(" 輸入 2 邊長(zhǎng)： ")c = InputBox(" 輸入 3 邊長(zhǎng)：")*FOUND*If a + b < c Or b + c < a ThenMsgBox （" 不能構(gòu)成三角形，請(qǐng)重新輸入個(gè)邊 "）GoTo startEnd If*FOUND*t = (a + b) / 2*FOUND*s = Sqr(t - a) * (t - b) * (t - c)Print "該三角形的面積： " sEnd SubOption Explicit程序改錯(cuò)】題目：下面函數(shù)的功能是

18、：求變量 s(s=a+aa+aaa+aaaa+)' 的值。其中，a是一個(gè)0-9的數(shù)字，總共累加 a項(xiàng)。列如,' 當(dāng) a=3 時(shí),s=3+33+333(共累加 3 項(xiàng))。'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)Public Function Calc(a As Integer)Dim s As LongDim t As LongDim i As Integers = a*FOUND*For i = 2 To a咲*FOUND*t = t + a s = s + tNext iCalc = sPrint sEnd FunctionPrivate Sub Comma

19、nd1_Click()Dim i As Integeri = InputBox(" 請(qǐng)輸入數(shù)字( 0-9)：")*FOUND*Calc (i)End SubOption Explicit程序設(shè)計(jì)】'題目：編寫(xiě)函數(shù) fun 其功能是 ：判斷一個(gè)整數(shù) w 的各位' 數(shù)字平方之和能否被 5整除 , 可以被 5 整除則返 ' 回 1 , 否則返回 0'注意：請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫(xiě)代碼。Private Function fun(w As Integer) As BooleanI*Program*'* End *End FunctionPrivat

20、e Sub Form_Load()ShowPrint fun(50)WWJTEnd SubPrivate Sub WWJT()Dim i As IntegerDim s As StringDim l As IntegerDim d As DoubleDim a(10) As StringDim fIn As IntegerDim fOut As IntegerfIn = FreeFileOpen App.Path & "in.dat" For Input As #fIn fOut = FreeFileOpen App.Path & "out.dat" For Output As #fOutFor i = 1 To 10 Line Input #fIn, a(i) l = Val(a(i) P