vb程序计算题不胜感激1.阅读下面的程序，写出执行结果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=3:b=3:c=2If(a>=b)and(a>c)ThenPrintaPrinta,b,cEndSub2.阅读下面的程序，分析并写出

Question

vb程序计算题不胜感激
1.阅读下面的程序，写出执行结果。
Sub selectPrint()
Dim a as Integer
Dim b as Integer
Dim c as Integer
a=3:b=3:c=2
If(a>=b)and(a>c)Then Print a
Print a,b,c
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

Answer 1

1.结果：
3
3 3 2
2.在一个数组中插入数值x，使x之前的数都比x小