程序设计

'题目：(事件)双击窗体。(响应)求出100~200之间，能被5整除，但不能被3整除的数。并求所有数之和，存入变量中SUM中。将结果输出到窗体

Private Sub Form_DblClick()

'**********Program**********

For i = 100 To 200

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

SUM = SUM + i

End If

Next i

Print SUM

'********** End **********

第二题

'题目：(事件)单击窗体。(响应)求10!的值，并将结果输出到窗体上。将结果存入变量SUM 中。使用for循环实现

Private Sub Form_Click()

'**********Program**********

SUM = 1

For i = 1 To 10

SUM = SUM * i

Next i

Print SUM

'********** End **********

第三题

'题目：(事件)单击窗体。(响应)求1!+2!+3!+4!+5!并将结果输出到窗体上结果存入变量S 中

Private Sub Form_Click()

'**********Program**********

For i = 1 To 5

SUM = 1

For j = 1 To i

SUM = SUM * i

Next j

s = s + SUM

Next i

Print s

'********** End **********

第四题

'题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。将结果存入变量J中。

Private Sub Form_Click()

'**********Program**********

For i = 1 To 100

j = j - 1 / i * (-1) ^ i

Print j

'********** End **********

第五题

'题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数"或"零"，并根据输入的数用消息框显示"正数"、"负数" 或"零"。

Private Sub Form_Click()

'**********Program**********

a = InputBox("输入一自然数:")

If a > 0 Then MsgBox "正数"

If a < 0 Then MsgBox "负数"

If a = 0 Then MsgBox "零"

'********** End **********

第六题

'题目： (事件)单击窗体。(响应)求出100以内所有奇数的和，并将结果输出到窗体上,并存入所给变量SUM中。

Private Sub Form_Click()

'**********Program**********

For i = 1 To 99 Step 2

Sum = i + Sum

Next i

Print Sum

'********** End **********

第七题

'题目：(事件)双击窗体。 (响应)求3+6+9+12+15+18+……+300的和，并将结果输出到窗体上。将结果存入变量 SUM中。

Private Sub Form_DblClick()

'**********Program**********

For i = 3 To 300 Step 3

SUM = i + SUM

Next i

Print SUM

'********** End **********

第八题

'题目： (事件)单击窗体。 (响应)求从100到1000之间所有是3的倍数的数之和，当和大于3000时，停止计算并输出和。请将结果输出到窗体上,并存入所给变量SUM中。使用for...next语句完成程序

'**********Program**********

Private Sub Form_Click()

For i = 100 To 1000

If i Mod 3 = 0 And SUM <= 3000 Then

SUM = SUM + i

End If

Next i

End Sub

'********** End **********

第九题

'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。

Private Sub Form_Click()

'**********Program**********

For i = 1 To 100

Sum = Sum + i

Next i

Print Sum

'********** End **********

第十题

'题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中

Private Sub Form_Click()

'**********Program**********

a = 2

b = 1

For i = 1 To 10

Print a / b

s = s + a / b

t = a

a = a + b

b = t

Next

Print s

End Sub

'********** End **********

第十一题

'题目：(事件)单击窗体。(响应)求数列1+3+3+9+27+……前6项的和，并将结果输出到窗体上。将结果存入变量SUM中。要求使用for...next循环

'**********Program**********

Private Sub Form_Click()

a = 1

b = 3

s = a + b

For i = 1 To 4

s = s + b * a

t = b

b = b * a

a = t

Next