VB程序设计考试题目求解，高分求助！
（1）For n = 1 to 20
if n mod 3<>0 then m = m+n\3
next n
print m
(2) Dim a%, b%
x=5
y=6
x=x+y
y=x+y
Print x , y
(3)
dim x!,y!
x=1.5
y=0.5
if x<>0 then
y=x+y
elseif y>0.5then
y=x
else
y=x*y
end if
print x,y
2、 编写以下几个程序
（1）求两自然数m,n的最小公倍数。已知三角形的三个边分别为a、b、c，求三角形面积。
（2）编写窗体上命令按钮command1的click事件过程，完成如下功能：
a、定义一个大小为100的数组A，其元素数值为随机产生的0~1000之间的数。
B、编写一个子过程，将A（1）和A（100）交换、A（2）和A（99）交换、A（3）和A（98）交换，……，A（50）和A（51）交换。
C、输出数组A，每行5个元素。
（3）有50个整数存放在一维数组中，编程序，求出最小数及其位置 展开
(1) 42 (2)11 17 (3) 1.5 2
(1)a.最小公倍数
private sub command1_click()
dim m%,n%,r%,t%
m=inputbox("输入m=")
n=inputbox("输入n=")
x=m:y=n
if m<n then t =m:m=n"n=t
do
r=m mod n
m=n
n=r
loop while r<>0 ' 最大公约数为 m
msgbox "最小公倍数为：" & x*y/m ' 最小公倍数= m*n/ m
b. private sub command1_click()
dim a!,b!,c! ,p! ,s&
a=val(text1.text)
b=val(text2.text)
c=val(text2.text)
p=(a+b+c)/2 '周长的一半
s=sqr(p*(p-a)*(p-b)*(p-c)) '海伦定理
msgbox "面积是"& s
(2).a.
dim a%(1 to 100)
randomize
for i = 1 to 100
x=int(rnd*1000)
a(i)=x
next
b.
sub sub1(a())
dim t%,i%
for i =1 to 50
t=a(i)
a(i)=a(100-i+1)
a(100-i+1)=t
next i
end sub
c. for i =1 to 100
print a(i),
if i mod 5=0 then print
next
(3) private sub command1_click()
dim a %(50) ,k%,min %
for i=1 to 50
x=int(rnd*50)
a(i)=x
next
min=a(1)
for i=2 to 50
if min>a(i) then min=a(i):k=i
next
print "最小数为："; min
pirnt "位置是:";k
end sub
第一题答案为什么是42，能解释一下吗
For n = 1 to 20if n mod 30 then m = m+n\3next nprint m(1)n=1时，m=0+1\3=0
n=2时，m=0+2\3=0
n=3时，条件不满足，不执行
n=4时，m=0+4\3=1
n=5时，m=1+5\3=2
n=6时，条件不满足，不执行
n=7时，m=2+7\3=4
n=8时，m=4+8\3=6
n=9时，条件不满足，不执行
n=10时，m=6+10\3=9
n=11时，m=9+11\3=12
n=12时，条件不满足，不执行
n=13时，m=12+13\3=16
n=14时，m=16+14\3=20
n=15时，条件不满足，不执行
n=16时，m=20+16\3=25
n=17时，m=25+17\3=30
n=18时，条件不满足，不执行
n=19时，m=30+19\3=36
n=20时，m=36+20\3=42
n=21时，循环结束。
