VB程序设计考试题目求解，高分求助！1、算出如下程序运行结果：（1）Forn=1to20ifnmod30thenm=m+n\3nextnprintm(2)Dima%,b%x=5y=6x=x+yy=x+yPrintx,y(3)dimx!,y!x=1.5y=0.5ifx0theny=x+yelseify>0.

Question

VB程序设计考试题目求解，高分求助！
1、算出如下程序运行结果：
（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个整数存放在一维数组中，编程序，求出最小数及其位置

Answer 1

1. (1) 42  (2)11    17   (3)  1.5   2

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