2017年发生的地理事件:[求助]我是个VB.NET菜鸟

这个是我补考的题目，大虾们帮我做

题1：执行下面的程序，单击窗体后在窗体上显示的SUM的值是（ ）；若将程序中的A语句和B语句的位置互换，再次执行程序，单击窗体后显示的SUM的值又是（ ）

private sub form_click()
dim sum as integer , i as integer
for i = 7 to 4 step -1
select case i
case 4,7
sum=sum+i 'A语句
case 3,5
sum=sum+2 'B语句
case else
sum=sum+1
end select
next i
Msgbox("sum="&sum)
end sub

题2.写出运行时执行下列过程的显示结果

sub Main()
for i=2 to 20
if i mod 2=1 and i mod 3=2 then console.write(i)
next i
console.writeline(i)
end sub

题3.写出运行时下列过程显示的结果

private function f1(n as integer) as integer
static i as integer
while i<=n
f1=f1+i:i=i+1
wend
end function
private function f2 (byval n1 as integer,n2 as integer) as integer
dim i as integer
do while n2 >=n1
f2=f2+n2:n2=n2-1
loop
end function
private sub main()
dim a as integer , b as integer
dim result as integer
result=f1(3)
console.writeline("result="&result)
result=f1(5)
console.writeline("result="&result)
a=5:b=8
result=f2(a,b)
console.writeline("result="&result)
result=f2(b,a)
console.writeline("result="&result)
end sub

题4.写出运行时下列过程的显示结果

sub main()
dim y,i as integer
Y=1
I=1
while I<=5
Y=y*I
I=I+1
end while
console.writeline("y="&Y)
end sub

题5.Msgbox的用法以及举例

题6.形式参数和实际参数的区别

我还会追加奖金的 请大家帮忙..