2022年VB程序设计例题-程序改错程序填空程序设计教学总结 .pdf

以下程序段用于输出杨辉三角:结果样式如图1 Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 *SPACE* 【 arr(I, 1) = 1 】Next I For I = 3 To n For j = 2 To I - 1 *SPACE* arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I *SPACE* 【print arr(I,j) 】Next j Print Next I End Sub Option 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:) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 14 页 - - - - - - - - - - x = Val(InputBox(Please input a single value:) If n 1 Or x 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 max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) *SPACE* If 【?】 Then m = a Else m = b End If *SPACE* If 【?】 Then max = m Else max = c 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 14 页 - - - - - - - - - - End If End Function - 【程序填空】- 题目：本程序执行功能为，输入系列字符串，按递减次序排列。（ 1）在文本框输入字符串，按回车键后存放到数组a（）中；（ 2）单击 排序 按钮（ Command1）时，进行递减次序排列，并在图形框控件显示。请在【】处填入正确的内容- Dim a() As String, n As Integer Private 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 i End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then *SPACE* ReDim 【?】*SPACE* a(n) = 【?】Text1.Text = n = n + 1 End If End Sub Option Explicit 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 14 页 - - - - - - - - - - - 【程序改错】- 题目 :下列程序进行-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 = result End Function Private Sub Form_Click() MsgBox jc(3) End Sub Option Explicit 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 14 页 - - - - - - - - - - - 【程序改错】- 题目 :给定三角形的三条边，计算三角形的面积。要求 程序首先判断给定的三条边能否构成三角形。- 注意：不可增加或删除程序行，也不可以更改程序结构- 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 i Then i = max End If sum = i Next i Print sum * End * Call cs(sum) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 14 页 - - - - - - - - - - End Sub Private Sub cs(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & out.txt For Output As #OUT Print #OUT, i Close #OUT End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 14 页 - - - - - - - - - - 文档编码：KDHSIBDSUFVBSUDHSIDHSIBF-SDSD587FCDCVDCJUH 欢迎下载 精美文档欢迎下载 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 14 页，共 14 页 - - - - - - - - - -