VB程序设计的题目，高手帮我看下。阅读下面的程序，写出执行结果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=3:b=3:c=2If(a>=b)and(a>c)ThenPrintaPrinta,b,c

Question

VB程序设计的题目，高手帮我看下。
阅读下面的程序，写出执行结果。
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、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

Answer 1

第一题
3
3 3 2
第二题
14