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

1、精選優(yōu)質(zhì)文檔-傾情為你奉上'以下程序段用于輸出楊輝三角:結(jié)果樣式如圖1'Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To n arr(I, I) = 1 '*SPACE* 【arr(I, 1) = 1】Next IFor I = 3 To n For j = 2 To I - 1'*SPACE* arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next jNext IFor I = 1 To n For j = 1 To I'*SPACE

2、* 【print arr(I,j)】 Next j PrintNext IEnd SubOption Explicit'-'【程序改錯(cuò)】'-'題目：用自定義函數(shù)的方法求sum（x），求當(dāng)-1x1時(shí)，' sum（x）=x/2！+x2/3!+x3/4!+xn/(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 Single Dim n As

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

4、nction Sum(x As Single, n As Integer) Dim i As Integer, ss As Long ss = 1 Sum = 0 If x > 1 Or x < -1 Then '*FOUND* Exit Do 改為 Exit Function Else '*FOUND* For i = 2 To n 改為 For i = 2 To n+1 ss = ss * i '*FOUND* Sum = x (i - 1) / ss 改為 Sum =sum+ x (i - 1) / ss Next i End IfEnd Functi

5、onOption Explicit'-'【程序改錯(cuò)】'-'題目:編程將一個(gè)數(shù)從已經(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 Integer Dim i As Integer, X As Integer, P As Integer Flag = 0 N = InputBox("

6、;輸入元素個(gè)數(shù)") '*FOUND* Dim A(N) 改為 ReDim A(N) For i = 1 To N A(i) = InputBox("輸入數(shù)組的第" & i & "個(gè)元素") Next i Print "刪除某元素前的數(shù)組" For i = 1 To N Print A(i); Next i Start: X = InputBox("輸入要?jiǎng)h除的元素：") For i = 1 To N If X = A(i) Then P = i: Flag = 1 Next i I

7、f Flag = 0 Then MsgBox ("沒有此元素"): GoTo Start For i = P To N - 1 '*FOUND* A(i + 1) = A(i) 改為 A(i) = A(i+1) Next i '*FOUND* N = N + 1 改為 N = N- 1 Print "刪除元素后的數(shù)組:" For i = 1 To N Print A(i); Next iEnd SubPrivate Sub Form_Click()'-'【程序設(shè)計(jì)】'-'題目：(事件)單擊窗體。'

8、(響應(yīng))輸出一個(gè)如圖所示的由數(shù)字組成的倒三角形' 請(qǐng)將結(jié)果存入變量S中(要求利用msgbox函數(shù)' 顯示結(jié)果，使用for.next語句完成程序)'-'注意：請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫代碼。'- Dim s As String'* Program * Dim i%, j%, w$ w = "" For i = 10 To 1 Step -1 For j = 0 To i - 1 w = w & CStr(j) Next w = w & vbCrLf Next MsgBox w s = w '* End * Ca

9、ll YZJ(s)End SubPrivate Sub YZJ(i As String) Dim OUT As Integer OUT = FreeFile Open App.Path & "out.txt" For Output As #OUT Print #OUT, i Close #OUTEnd SubPrivate Sub Form_Click()'-'【程序設(shè)計(jì)】'-'題目：(事件)單擊窗體。' (響應(yīng))求100到500之間奇數(shù)的和，將結(jié)果輸出' 在窗體上并存入變量SUM中。' 使用do.loop u

10、ntil語句完成程序'-'注意：請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫代碼。'- Dim sum As Long'* Program * '* End * Call YZJ(sum)End SubPrivate Sub YZJ(i As Long) Dim OUT As Integer OUT = FreeFile Open App.Path & "out.txt" For Output As #OUT Print #OUT, i Close #OUTEnd SubOption Explicit'-'【程序填空】'-&#

11、39;題目：下面的程序用于求三個(gè)數(shù)中最大數(shù)'請(qǐng)?jiān)凇?】處填入正確的內(nèi)容'-' Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox("請(qǐng)輸入第一個(gè)數(shù)： ") b = Val(InputBox(" 請(qǐng)輸入第二個(gè)數(shù)： ") c = Val(InputBox("請(qǐng)輸入第三個(gè)數(shù)： ") '*SPACE* 【?】 = a min = a '*SPACE* If b > max Then 【?】 I

12、f b < min Then min = b '*SPACE* If 【?】 Then max = c If c < min Then min = c Print "最大數(shù)為：" max Print "最小數(shù)為：" min End Sub'下面過程max()用于求3個(gè)數(shù)中最大值，利用這個(gè)過程求5個(gè)數(shù)中最大值。'Private Sub Form_Click()Print "5個(gè)數(shù)34、124、68、73、352的最大值是："max1 = max(34, 124, 68)'*SPACE*max1

13、 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)'*SPACE*If 【?】 Then m = aElse m = bEnd If'*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function'-'【程序填空】'-'題目：本程序執(zhí)行功能為，輸入系列字符串，按遞減次序排列。'（1）在文本框輸入字符串，按回車鍵后存放到數(shù)組a（）中；'（2）單擊"排序"按鈕（Command

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

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

16、可以更改程序結(jié)'-'【程序改錯(cuò)】'-'題目:下列程序進(jìn)行-n階乘運(yùn)算，當(dāng)階乘的值超過-' 溢出報(bào)錯(cuò)，并將結(jié)果輸出為-1。構(gòu)'-'*FOUND*Private Function jc(ByVal n As Integer) As Integer Dim I As Integer Dim result As Long result = 1 I = 1 Do While I <= n If result < / I Then '*FOUND* result = result I = I + 1 Else lblerr.Cap

17、tion = "溢出" '*FOUND* jc = -I Exit Function End If Loop jc = resultEnd FunctionPrivate Sub Form_Click() MsgBox jc(3)End SubOption Explicit'-'【程序改錯(cuò)】'-'題目:給定三角形的三條邊，計(jì)算三角形的面積。要求' 程序首先判斷給定的三條邊能否構(gòu)成三角形。'-'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)'-Private Sub Form_Click() Dim a

18、 As Single, b As Single, c As Single Dim s As Single, t As Single start: a = InputBox("輸入1邊長(zhǎng)：") b = InputBox("輸入2邊長(zhǎng)：") c = InputBox("輸入3邊長(zhǎng)：") '*FOUND* If a + b < c Or b + c < a Then MsgBox ("不能構(gòu)成三角形，請(qǐng)重新輸入個(gè)邊") GoTo start End If '*FOUND* t = (a + b

19、) / 2 '*FOUND* s = Sqr(t - a) * (t - b) * (t - c) Print "該三角形的面積：" sEnd SubOption Explicit'-'【程序改錯(cuò)】'-'題目:下面函數(shù)的功能是：求變量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 Int

20、eger) Dim s As Long Dim t As Long Dim i As Integer s = a '*FOUND* t = 1 For i = 2 To a '*FOUND* t = t + a s = s + t Next i Calc = s Print sEnd FunctionPrivate Sub Command1_Click() Dim i As Integer i = InputBox("請(qǐng)輸入數(shù)字（0-9）:") '*FOUND* Calc (i)End SubOption Explicit'-'【程序

21、設(shè)計(jì)】'-'題目：編寫函數(shù)fun其功能是:判斷一個(gè)整數(shù)w的各位' 數(shù)字平方之和能否被5整除 , 可以被5整除則返' 回1 , 否則返回0'-'注意：請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫代碼。'-Private Function fun(w As Integer) As Boolean'* Program *'* End *End FunctionPrivate Sub Form_Load() Show Print fun(50) WWJTEnd SubPrivate Sub WWJT() Dim i As Integer Dim s As

22、 String Dim l As Integer Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & "in.dat" For Input As #fIn fOut = FreeFile Open App.Path & "out.dat" For Output As #fOut For i = 1 To 10 Line Input #fIn, a(i) l = Val(a(i) Print #