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

　　vb程序计算题不胜感激

　　1.阅读下面的程序，写出执行结果。

　　SubselectPrint()

　　DimaasInteger

　　DimbasInteger

　　DimcasInteger

　　a=3:b=3:c=2

　　If(a>=b)and(a>c)ThenPrinta

　　Printa,b,c

　　EndSub

　　2.阅读下面的程序，分析并写出其功能。Subinsert(a()AsSingle,ByValxAsSingle)

　　Dimmasinteger,nasinteger

　　n=1

　　DoWhilena(n)

　　n=n+1

　　Loop

　　Form=20-1TonStep–1

　　a(m+1)=a(m)

　　Nextm

　　a(n)=x

　　EndSub