2024年2月8日发(作者：)

.

程序设计

第一题、

题目：（事件）单击窗体

（响应）求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

.