VB程序设计例题程序改错程序填空程序设计

1、'以下程序段用于输出杨辉三角 : 结果样式如图 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程序改错】'题目：用自定义函数的方法求sum (x),求当-1 < xw 1时，'sum (x) =x/2 ! +xA2/3!+xA3/4!+ +xAn/(n+1)!,'当 x1 或 x-1 时，函数值为 0。当 n=0 时，输入数' 据错误。 X、N 都是由用户输入。'注意：不可增加或删除程序行，也不可以更改程序结构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数据输入 "）k = MsgBox(" 数据输入错误！ ", 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程序改错】'题目 :编程将一个数从已

5、经有序（设从小到大排序）的数组' 中删除，使数组还继续保持有序而且其余元素按照下' 标连续存放。'注意：不可增加或删除程序行，也不可以更改程序结构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(" 输入元素个数 ")*FOUND*Dim A(N) 改为 ReDim A(N)For i = 1 To NA(i) = InputB

6、ox(" 输入数组的第 " & i & " 个元素 ")Next iPrint " 删除某元素前的数组For i = 1 To NPrint A(i);Next iStart:X = InputBox(" 输入要删除的元素： ")For i = 1 To NIf X = A(i) Then P = i: Flag = 1Next iIf Flag = 0 Then MsgBox (" 没有此元素 "): 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 "删除元素后的数组For i = 1 To NPrint A(i);Next iEnd SubPrivate Sub Form_Click()程序设计】'题目： （事件 ）单击窗体。'（响应 ） 输出一个如图所示的由数字组成的倒三角形' 请将结果存入变量 S 中（ 要求利用 msgbox 函数 ' 显示结果，使用 for.next 语句完成程序 ） '注意：请在指定的事件内编写代码。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()程序设计】'题目： （事件 ）单击窗体。'（响应 ）求 100 到 500 之间奇数的和，将结果输出'在窗体上并存入变量 SUM 中。'使用 do.loop until 语句完成程序'注意：请在指定的事件内编写代码。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程序填空】'题目：下面的程序用于求三个数中最大数'请在【 ?】处填入正确的内容Private Sub Command1_Click()Dim a, b, c, max, min As Integera = Val(InputBox(" 请输入第一个数：")b = Val(InputBox(" 请输入第二个数：")c = Val(InputBox(" 请输入第三个数：&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 "最大数为： " maxPrint "最小数为： " minEnd Sub5 个数中最大值。F面过程max()用于求3个数中最大值，利用这个过程求IIPrivate Sub Form_Click()Print "5 个数 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程序填空】'题目：本程序执行功能为，输入系列字符串，按递减次序排列。'(1)在文本框输入字符串，按回车键后存放到数组a ()中；'( 2)单击 "排序 "按钮( Com

13、mand1 )时，进行递减次序排列，并在图形框控件显示。'请在【】处填入正确的内容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程序改错】'题目 :下列程序进行 -n 阶乘运算，当阶乘的值超过 ' 溢出报错，并将结果输出为 -1 。'注意：不可增加或删除程序行，也不可以更改程序结程序改错】'题目 :下列程序进行 -n 阶乘运算，当阶乘的值超过-21147483648-2

15、1147483648' 溢出报错，并将结果输出为 -1 。构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程序改错】'题目 :给定三角形的三条边，计算三角形的面积。要求 ' 程序首先判断给定的三条边能否构成三角形。'注意：不可增加或删除程序行，也不可以更改程序结构Private Sub Form_Click()Dim a As Single, b As Single, c As SingleDim s As Single, t As Singlestart:a = InputBox(" 输入 1 边长： "

17、;)b = InputBox(" 输入 2 边长： ")c = InputBox(" 输入 3 边长：")*FOUND*If a + b < c Or b + c < a ThenMsgBox （" 不能构成三角形，请重新输入个边 "）GoTo startEnd If*FOUND*t = (a + b) / 2*FOUND*s = Sqr(t - a) * (t - b) * (t - c)Print "该三角形的面积： " sEnd SubOption Explicit程序改错】题目：下面函数的功能是

18、：求变量 s(s=a+aa+aaa+aaaa+)' 的值。其中，a是一个0-9的数字，总共累加 a项。列如,' 当 a=3 时,s=3+33+333(共累加 3 项)。'注意：不可增加或删除程序行，也不可以更改程序结构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(" 请输入数字( 0-9)：")*FOUND*Calc (i)End SubOption Explicit程序设计】'题目：编写函数 fun 其功能是 ：判断一个整数 w 的各位' 数字平方之和能否被 5整除 , 可以被 5 整除则返 ' 回 1 , 否则返回 0'注意：请在指定的事件内编写代码。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