题目内容
（请给出正确答案）
提问人：网友wzh_2352802
发布时间：2022-01-07
[主观题]
下列程序的功能是在有序数组a（n)中删除一个值为x数组元素。请在 填上适当内容（字母小写）。 Private
下列程序的功能是在有序数组a(n)中删除一个值为x数组元素。请在 填上适当内容（字母小写）。 Private Sub Form_Load() Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 10, 13, 16, 19, 22, 25) n = UBound(a) x = 13 Print "删除前"; For i = 0 To n Print a(i); Next i For k = 0 To n ’ 查找欲删除的位置k If x = a(k) Then Exit For Next k If k ＞ n Then MsgBox ("Not Found"): Exit Sub For i = k + 1 To n ’ 将x后的元素左移 Next i n = n - 1 ReDim Preserve a(n) Print Print "删除后"; For i = 0 To n Print a(i); Next i End Sub
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
抱歉！暂无答案，正在努力更新中……
保存工程和窗体，窗体文件名为：昵称-4-3.frm;工程名为：昵称-4-3.vbp。将工程文件和窗体文件压缩成：昵称-4-3.rar，以附件形式提交。 提示： ①定义一个动态数组，动态数组大小在输入行数后用ReDim 重新定义； ②对下三角各元素进行设置：第一列及对角线上均为1，即： a(i,1)=1, a(i,i)=1; i=1 To n 其余每一个元素正好等于它上面一行的同一列和前一列的两个元素之和,即: a(i，j)=a(i-1，j-1)+a(i-1，j) 利用两重循环来实现。 ③利用Tab函数定每列的宽度，使得列对齐。
程序运行结果如下图所示：
保存工程和窗体，窗体文件名为：昵称-4-4.frm;工程名为：昵称-4-4.vbp。将工程文件和窗体文件压缩成：昵称-4-4.rar，以附件形式提交。 提示： (1)定义两个二维数组a(1 to 2,1 to 3)和 b（1 to 3,1 to 2); (2)a数组元素值可通过输入对话框InputBox函数输入，也可通过行(i)和列(j)的关系求得； (3)矩阵转置就是b(j,i)=a(i,j)。
