UC知道两道程序分析题，急求答案～！题不难～！
来源：百度知道 编辑：UC知道 时间：2024/06/28 12:42:14
1.阅读下面的程序，写出执行结果。
Private Sub Form_load()
Form1.show
d=0
For a=1 to 2
For b=1 to a
For c=b to 5
d=d+1
Next c
Next b
Next a
Print d
End Sub
2.阅读下面的程序，分析并写出其功能。
Sub Insert(a() As Single, ByVal x As Single)
Dim m As Integer, n As Integer
n=1
Do While n<20 And x>a(n)
n=n+1
Loop
For m=20-1 to n Step-1
a(m+1)=a(m)
Next m
a(n)=x
End Sub
各位大侠帮帮忙咯～明天就要交卷了！
三楼：是不是说把一个数组中缺少的自然数按顺序补全、最高到20是么？
Private Sub Form_load()
Form1.show
d=0
For a=1 to 2
For b=1 to a
For c=b to 5
d=d+1
Next c
Next b
Next a
Print d
End Sub
2.阅读下面的程序，分析并写出其功能。
Sub Insert(a() As Single, ByVal x As Single)
Dim m As Integer, n As Integer
n=1
Do While n<20 And x>a(n)
n=n+1
Loop
For m=20-1 to n Step-1
a(m+1)=a(m)
Next m
a(n)=x
End Sub
各位大侠帮帮忙咯～明天就要交卷了！
三楼：是不是说把一个数组中缺少的自然数按顺序补全、最高到20是么？
第一题：输出d的值为14
第二题：好像是这样
在下标为20的数字数组a()中，从第二个成员开始，找到第一个小于等于参数x的成员在数组中的位置，把x插入其后，其余成员依次往后拖，最后一个成员将被挤出数组，如果没找到，则成员次序保持不变，并将最后一个成员赋值为x
只能说好像是这样
第一题：
结果是14
d=5+5+4
第二题看蒙了………
第一题是14
赞成lyglay 的观点
之前我说的是错的