VB程序设计题库(共46题)

第一题、

题目：（事件）单击窗体

     （响应）求50以内所有偶数的和，并在窗体上输出来。

             将结果存入变量S中。

代码：Dim I As Integer

      For i = 2 To 50

         If (i Mod 2)=0 Then

             S=s+i

         End If

      Next

      Print (CStr(s))

第二题

题目：（事件）双击窗体

     （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中

代码：Dim i,j As Integer

      Dim k As Long

      k=1

      s=0

      For i =1To 10

         For j=1 To i

            k=k*j    

         Next

         s=s+k

         k=1

      Next

      Print(CStr(s))

第三题

题目：（事件）单击窗体

     （响应）求100以内偶数的和，并将结果输出在窗体上。

             将结果存入变量SUM中

代码：Dim i As Integer

        For i =1 To 100

           If i Mod 2 =0 Then

              Sum=sum+i

           End If

      Next

      Print sum

第四题

题目：（事件）单击窗体

     （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果

             并将结果输出到窗体上。将结果存入变量M中。

代码：Dim i,j As Integer

      Dim s As Long

      For i =10 To 15

         s=1

         For j = i To i +2

            s=s*j

         Next

         m=m+s

Next

Print (CStr(m))

第五题

题目：（事件）双击窗体

     （响应）求100以内奇数的和，并将结果输出在窗体上。

             将结果存入变量SUM中。

代码：Dim i As Integer

      For i=1 To 100

         If i Mod 2 = 1 Then

            sum = sum + i

         End If

      Next

      Print sum

第六题

题目：（事件）单击窗体

     （响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,

             结果输出在窗体上

代码：Dim s As Single

      For i=1 To 10

      a=i*i

      Sum =1/a + Sum

      Next

      Print Sum

第七题

题目：（事件）双击窗体

     （响应）求1+1*2+1*2*3+….+1*2*3*….*10,

             并将结果存到变量S中

代码：Dim s As Long

      j=1

      For i = 1 To 10

      j= j*i

      Sum = Sum + j

      Next

      Print Sum

第八题

题目：（事件）单击窗体

     （响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。

             将结果存入变量J中

代码：Dim j As Single

      Dim i As Single

      j=0

      For i = 1 To 100

      k=(-1)^(i+1)/i

      j=k+j

      Next i

      Print j

第九题

题目：（事件）双击窗体

     （响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。

代码：Dim s As Long

      s=20

      For s= 21 To 263

      b=s+1

      Sum=Sum+b

      Next

      Print Sum

第十题

题目：（事件）单击窗体

     （响应）求出100以内所有素数的和，并将结果输出

到窗体上，并存入所给变量SUM中

代码：Dim sum As Integer

For i = 1 To 100

For j = 2 To i - 1

Exit For

Next j

Next i

If i Mod j = 0 Then

End If

If j - i Then

sum = sum + i

End If

Print sum

第十一题

题目：（事件）单击窗体

     （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果

             并将结果输出到窗体上。将结果存入变量M中。

代码：Dim m As Long

      For i = 1 To 6

      t =(i+9)*(i+10)*(i+11)

      m=m+t

      Next

      Print m

第十二题

题目：（事件）单击窗体

     （响应）求10~20之间所有素数的乘积并输出在窗体上。

             将结果存入变量L中

代码：Dim l As Long

      l=1

      For i=10 To 20

      For j=2 To i-1

      If i Mod j = 0 Then 

      Exit For

      End If

      Next j

      If j = i Then 

      l=l*i

      End If

      Next i 

      Print l

第十三题

题目：（事件）单击窗体

     （响应）求50以内所有偶数的和，并在窗体上输出来。

代码：Dim s As Integer

      s = 0  

      For i = 2 To 50 Step 2

      s = s + i

      Next i

      Print s

第十四题

题目：（事件）单击窗体

     （响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…….的前十项，并求其和。

代码：Dim s As Single

      Dim a ()

      Dim b ()

      Dim c ()

      a(1) = 2

      b(1) = 1

      c(1) = a(1) / b(1) 

      a(2) = 3

a(2) = 2

a(2) = a(2) / b(2) 

      s=s+c(1)+c(2)

      For i = 3 To 10

      a(i)=a(i-1)+a(i-2) 

      b(i)=b(i-1)+b(i-2)

      c(i)= a(i)/ b(i)

      s = s+c(i)

      Next

      Print s

第十五题

题目：（事件）单击窗体

     （响应）求200~300之间既能被3整除又能被7整除的数。

             并求出所有数之和存入变量SUM中。

代码：Dim sum As Integer

      sum = 0

      For i = 200 To 300

      If i Mod 3 = 0 And i Mod 7 = 0 Then

      sum = sum +i

      End If

      Next

      Print sum

第十六题

题目：（事件）双击窗体

     （响应）求出100~200之间，能被5整除，但不能被3整除的数。

             并求出所有数之和，存入变量SUM中

代码：Dim sum As Integer

      sum=0

      For i = 100 To 200

If i Mod 5 = 0 And i Mod 3<> 0 Then

      sum = sum +i

      End If 

      Next

      Print sum

第十七题

题目：（事件）双击窗体

     （响应）求1!+2!+3!+4!+5!并将结果输出到窗体上。

             结果存入变量S中

代码：Dim s As Integer

      s = 0

      t = 1

      For i = 1 To 5

      t = i*t

      Sum = sum + t

      Next 

      Print Sum

第十八题

题目：（事件）双击窗体

     （响应）求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。

             将结果存入变量SUM中

代码：Dim sum As Integer 

      sum = 0 

      For i = 3 To 300 Step 3

      sum= sum +i

      Next i 

      Print sum

      第二种方法：当step为2的时候：

      Dim s As Integer

      Dim i As Integer

      For i=2 To 50 Step 2

      s = s+i

      Next i

      Print s

第十九题

题目：（事件）单击窗体

     （响应）求10!的值，并将结果输出在窗体上。

             将结果存入变量SUM中

代码：Dim sum As Long

      Dim i As Integer

      sum = 1

      For i = 1 To 10

      sum = i*sum

      Next

      Print sum

第二十题

题目：（事件）单击窗体

     （响应）求出100以内所有素数的和，并将结果输出到窗体上，

并存入所给变量SUM中

代码：Dim i As Integer 

      Dim j As Integer 

      Dim k As Integer 

      Dim b As Boolean

      b = False

      For i = 2 To 100

         b = False

         j = CInt(Sqr(i))

         For k = 2 To j

            If i Mod k = 0 Then

               b=True

            End If

         Next

         If b = False Then

            sum=sum+i

         End If 

       Next

       Print sum

第二十一题

题目：（事件）单击窗体

     （响应）求200~300之间既能被3 整除又能被7整除的数。并求出所有数之和

             存入变量SUM中

代码：Dim i As Integer

      For i =201 To 300

      If ((i Mod 3)=0)And((i Mod 7)=0) Then 

         Print(CStr(i))

         sum = sum +i

      End If

      Next

      Print sum

第二十二题

题目：（事件）单击窗体

     （响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。

             将结果存入变量S中

代码：Dim i As Integer

      s=0

      For i = 1 To 10

         s = s + 1/(i^i)

      Next

      Print(s)

第二十三题

题目：（事件）单击窗体

     （响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…..的前10项，并求其和。

代码：Dim i ,j,k,m As Integer

      s=o

      i=2

      j=1

      For k = 1 To 10

      m = j

      Print （CStr(i)）& “/” & CStr(j)

      j = i

      i=i+m

      s=s+i/j

      Next

第二十四题

题目：（事件）单击窗体

     （响应）一球从100米高度自由落下，每次落地返回。原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。

代码：Dim j,i As Integer

      s=0

j=100

For i = 2 To 10

j=j / 2

s=s+2*j

Next

s=100+s

Print(CStr(s))

第二十五题

题目：（事件）双击窗体

     （响应）s=20+21+22+…+263,求s的值，并将结果存储到变量s 中。

代码：Dim i As Integer

      i = 20 

while i <=263

      s=s+i

      i=i+1

      Wend

      Print(CStr(s))

第二十六题

题目：（事件）双击窗体

     （响应）求 s=1+1*2+1*2*3+…+1*2*3*…*10，并将结果存到变量S中

代码：Dim i,j As Integer

      Dim k As Long

      k = 1

      s=0

      For i = 1 To 10

      For j = 1 To i

      k = k*j

Next

s=s+k

k=1

Next

Print(CStr(s))

第二十七题

题目：（事件）单击窗体。

     （响应）求出1000-9999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。并求出所有这样的数的和存入SUM中。

代码：Dim i As Integer

      Dim j As Integer

For i = 1000 To 9999

j= Val(Mid(Trim( Str(i)), 2, 2))

If j ^ 2 = i Then

Print i,

sum = sum + i

End If

Next

第二十八题

题目：（事件）双击窗体

     （响应）把一元钞票换成一分、二分、和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中

代码：Dim i, j,k As Integer

For i = 1 To 100

For j = 1 To 50

For k = 1 To 20

If ((i+2*j +k*5)=100) Then

Print (CStr(i))

Print (CStr(j))

Print (CStr(k))

 n=n+1

End If

Next

Next

Next

第二十九题

题目：（事件）单击窗体。

     （响应）编写代码功能如（图1）。将结果存入变量S中。

Dim i As Integer

For i = 1 To 10

s = s + i*i

Next

Print(CStr(s))

第三十题

题目：（事件）双击窗体。

     （响应）编写代码功能如（图1）。将结果存入变量S中。

Dim i As Integer

s=1

For i = 1 To 10

s = s * i*i

Next

Print(CStr(s))

第三十题

题目：（事件）双击窗体。

     （响应）求1!+2!+3!+4!+5!并将结果输出到窗体上，结果存入变量S中

Dim i, j, k,s As Integer

For i = 1 To 5

k=1

For j =1 To i

k=k*j

Next

s=s+k

Next

Print(CStr(s))

第三十题

题目：（事件）双击窗体。

     （响应）编写程序求10*11*12+11*12*13+…+15*16*17的结果，并将结果输出到窗体上。并将结果存入变量M中。

Dim i, j As Integer

      Dim s As long

For i = 10 To 15

s=1

For j =i To i + 2

s = s*j

Next

m = m + s

Next

Print(CStr(s))

第三十一题

题目：（事件）单击窗体。

     （响应）生成一个一维数组（10个数组元素依次为：15、23、72、43、96、23、3、65、88、17），写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中。

Dim a

Dim i, s As Integer

a = array(15,23,72,43,96,23,3,65,88,17)

Max = a(0)

Min = a(0)

s = 0

For i = 0 to 90

If a(i)>max Then

max = a(i)

End If

If a(i)min = a(i)

End If

s = s + a(i)

Next

aver = Int(s/10)

Print (CStr(max))

Print (CStr(min))

Print (CStr(aver))

第三十二题

题目：（事件）单击窗体。

     （响应）在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中。

代码：Dim i,j,s As Integer

      For i = 100 To 200

      For j = 2 To Sqr(i)

      If (i Mod j) = 0 Then

      Print(CStr(i))

      sum = sum + i

      Exit For

      End If

      Next

      Next

      Print sum

第三十三题

题目：（事件）双击窗体。

     （响应）求出100~200之间能被5整除，但不能被3整除的数。并求所有数之和，存入变量SUM中。

代码：Dim i As Integer

      For i = 100 To 200

If ((i Mod 5)=0) And ((i Mod 3)<>0) Then

      Print (CStr(i))

      Sum = sum + i

      End If

      Next

第三十四题

题目：（事件）单击窗体。

     （响应）求50以内所有偶数之和，并在窗体上输出来。将结果存入变量S中。

代码：Dim i As Integer

      For i = 2 To 50

      If (i Mod 2)=0 Then

      s = s + i

      End If 

      Next

      Print(CStr(s))

第三十五题

题目：（事件）双击窗体。

     （响应）求出50以内所有奇数的和，将结果存入变量SUM中。

代码：Dim i As Integer

      For i = 1 To 50

      If i Mod 2 = 1 Then

      Sum = sum +i

      End If

      Next

      Print sum

第三十六题

题目：（事件）：单击窗体。

     （响应）：求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。

代码：Dim i As Integer

Dim j As Integer

Dim b As Boolean

l = 1

b = False

For i = 10 To 20

For j = 2 To i - 2

If i Mod j = 0 Then

b = True

End If

Next

If b = False Then

l = l * i

End If

b = False

Next

Print Str(l)

第三十七题

题目：（事件）：单击窗体。

     （响应）：求1!+2!+3!+…+10!的值，并在窗体上输出。结果存入变量L中。

代码：Dim i As Integer

Dim s As Long

Dim j As Integer

s = 1

b = False

For i = 1 To 10

s = s * i

l = l + s

Next

Print Str(l)

第三十八题

题目：（事件）：单击窗体。

     （响应）：求1-1/2+1/3-1/4+…+1/99-1/100的值。将结果存入变量J中。

代码：Dim i As Integer

For i = 1 To 100

Next

If i Mod 2 = 1 Then

j = j + 1 / i

Else

End If

If i Mod 2 = 0 Then

j = j - 1 / i

End If

Print j

第三十九题

题目：（事件）：单击窗体。

     （响应）：求1+2+3+4+…+100的值，并把结果输出在窗体上。结果存入变量SUM中。

代码：Dim i As Integer

For i = 1 To 100

Sum = Sum + i

Next

Print Sum

第四十题

题目：（事件）：双击窗体。

     （响应）：求1+2+3+5+8+13+….的前20项和，并将结果在窗体上输出。将结果存入变量SUM中。

代码：Dim i As Integer

Dim j(1 To 20) As Integer

For i = 1 To 20

If i < 3 Then

j(i) = 1

Else

j(i) = j(i - 1) + j(i - 2)

End If

Sum = Sum + j(i)

Next

Print Sum

第四十一题

题目：（事件）：双击窗体。

     （响应）：求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中。

代码：Dim i As Integer

For i = 1 To 100

If i Mod 2 = 1 Then

Sum = Sum + i

End If

Next

Print Sum

第四十二题

题目：（事件）：单击窗体。

     （响应）：求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中。

代码：Dim i As Integer

For i = 1 To 100

If i Mod 2 = 0 Then

Sum = Sum + i

End If

Next

Print Sum

第四十三题

题目：（事件）：双击窗体。

     （响应）：求1+5+10+15+…+500的和，并将结果输出在窗体上。将结果存入变量SUM中。

代码：Dim i As Integer

For i = 1 To 500

If i Mod 5 = 0 Then

Sum = Sum + i

End If

Next

Print Sum

第四十四题

题目：（事件）：双击窗体。

     （响应）：求3+6+9+12+15+18+….+300的和，并将结果输出在窗体上。将结果存入变量SUM中。

代码：Dim i As Integer

For i = 1 To 500

If i Mod 3 = 0 Then

Sum = Sum + i

End If

Next

Print Sum

第四十五题

题目：（事件）：单击窗体。

     （响应）：求10!的值，并将结果输出在窗体上。将结果存入变量SUM中。

代码：Dim i As Integer

Sum = 1

For i = 1 To 10

Sum = Sum * i

Next

Print Sum

第四十六题

题目：（事件）：单击窗体。

     （响应）：求数列1+3+3+9+27+…前6项的和，并将结果输出在窗体上。将结果存入变量SUM中。

代码：Dim i As Integer

Dim j(1 To 6) As Integer

For i = 1 To 6

If i < 3 Then

j(i) = 3 ^ (i - 1)

Else

j(i) = j(i - 1) * (i - 2)

End If

Sum = Sum + j(i)

Next

Print Sum