VB程序设计例题-程序改错程序填空程序设计.doc

以下程序段用于输出杨辉三角:结果样式如图1Private 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* 【print arr(I,j)】 Next j PrintNext IEnd SubOption Explicit-【程序改错】-题目：用自定义函数的方法求sum（x），求当-1x1时， sum（x）=x/2！+x2/3!+x3/4!+xn/(n+1)!， 当x1或x-1时，函数值为0。当n=0时，输入数 据错误。X、N都是由用户输入。-注意：不可增加或删除程序行，也不可以更改程序结构-Private Sub Command1_Click() Dim s As Single Dim n As 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("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入") Exit Sub End If s = Sum(x, n) Print sEnd SubFunction 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 FunctionOption Explicit-【程序改错】-题目:编程将一个数从已经有序（设从小到大排序）的数组 中删除，使数组还继续保持有序而且其余元素按照下 标连续存放。-注意：不可增加或删除程序行，也不可以更改程序结构-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("输入元素个数") *FOUND* Dim A(N) 改为 ReDim A(N) For i = 1 To N A(i) = InputBox("输入数组的第" & i & "个元素") Next i Print "删除某元素前的数组" For i = 1 To N Print A(i); Next i Start: X = InputBox("输入要删除的元素：") For i = 1 To N If X = A(i) Then P = i: Flag = 1 Next i If 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 "删除元素后的数组:" For i = 1 To N Print A(i); Next iEnd SubPrivate Sub Form_Click()-【程序设计】-题目：(事件)单击窗体。 (响应)输出一个如图所示的由数字组成的倒三角形 请将结果存入变量S中(要求利用msgbox函数 显示结果，使用for.next语句完成程序)-注意：请在指定的事件内编写代码。- 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 * Call 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()-【程序设计】-题目：(事件)单击窗体。 (响应)求100到500之间奇数的和，将结果输出 在窗体上并存入变量SUM中。 使用do.loop until语句完成程序-注意：请在指定的事件内编写代码。- 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-【程序填空】-题目：下面的程序用于求三个数中最大数请在【?】处填入正确的内容- Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox("请输入第一个数： ") b = Val(InputBox(" 请输入第二个数： ") c = Val(InputBox("请输入第三个数： ") *SPACE* 【?】 = a min = a *SPACE* If b > max Then 【?】 If b < min Then min = b *SPACE* If 【?】 Then max = c If c < min Then min = c Print "最大数为：" max Print "最小数为：" min End Sub下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。Private Sub Form_Click()Print "5个数34、124、68、73、352的最大值是："max1 = max(34, 124, 68)*SPACE*max1 =【?】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-【程序填空】-题目：本程序执行功能为，输入系列字符串，按递减次序排列。（1）在文本框输入字符串，按回车键后存放到数组a（）中；（2）单击"排序"按钮（Command1）时，进行递减次序排列，并在图形框控件显示。请在【】处填入正确的内容-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 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-【程序改错】-题目:下列程序进行-n阶乘运算，当阶乘的值超过-21147483648 溢出报错，并将结果输出为-1。-注意：不可增加或删除程序行，也不可以更改程序结-【程序改错】-题目:下列程序进行-n阶乘运算，当阶乘的值超过-21147483648 溢出报错，并将结果输出为-1。构-*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 < 2114748348 / I Then *FOUND* result = result I = I + 1 Else lblerr.Caption = "溢出" *FOUND* jc = -I Exit Function End If Loop jc = resultEnd FunctionPrivate Sub Form_Click() MsgBox jc(3)End SubOption Explicit-【程序改错】-题目:给定三角形的三条边，计算三角形的面积。要求 程序首先判断给定的三条边能否构成三角形。-注意：不可增加或删除程序行，也不可以更改程序结构-Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim s As Single, t As Single start: a = InputBox("输入1边长：") b = InputBox("输入2边长：") c = InputBox("输入3边长：") *FOUND* If a + b < c Or b + c < a Then MsgBox ("不能构成三角形，请重新输入个边") GoTo start End If *FOUND* t = (a + b) / 2 *FOUND* s = Sqr(t - a) * (t - b) * (t - c) Print "该三角形的面积：" sEnd SubOption Explicit-【程序改错】-题目:下面函数的功能是：求变量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 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("请输入数字（0-9）:") *FOUND* Calc (i)End SubOption Explicit-【程序设计】-题目：编写函数fun其功能是:判断一个整数w的各位 数字平方之和能否被5整除 , 可以被5整除则返 回1 , 否则返回0-注意：请在指定的事件内编写代码。-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 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 #fOut, fun(l) Next Close #fIn Close #fOut End SubPrivate Sub Form_Click()-【程序设计】-题目： (事件)单击窗体。 (响应)如果一个数的真因子之和等于这个数本身， 则称这样的数为“完全数”。例如，整数 28的真因子为1、2、4、7、14，其和是28。 因此28是一个完全数。请编写一个程序， 求出500以内最大的完全数。并存入变量SUM中。 使用for.next语句完成程序-注意：请在指定的事件内编写代码。- Dim sum As Integer* Program * Dim i%, a&, max&For i = 1 To 500max = i For j = 1 To 500 If i Mod j = 0 Then Print j End If Next j If i = a + j Then Print i End If If max > i Then i = max End If sum = i Next i Print sum * End * Call cs(sum)End SubPrivate Sub cs(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & "out.txt" For Output As #OUT Print #OUT, i Close #OUTEnd Sub