程序设计

1编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m

答案： Dim y As Double Dim i As Integer For i = 1 To m

y = y + 1 / (2 * i) Next fun = y

2题目：(事件)双击窗体。(响应)编写代码功能如(图1)。 将结果存入变量S中

答案：---------------------- Dim i As Integer s = 1

For i = 1 To 10 s = s * i * i Next

Print (CStr(s))

3(事件)单击窗体。(响应)编写程序求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))

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

答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum

5编写函数fun，函数的功能是：求1到m之间的偶数之积。

答案：---------------------- Dim y As Double y = 1

Dim i As Integer

For i = 1 To m

If i Mod 2 = 0 Then y = y * i End If Next fun = y

6编写函数fun其功能是:判断一个整数w的各位 数字平方之和能否被5整除 , 可以被5整除则返回1 , 否则返回0 答案

Dim k As Integer, s As Integer Do

s = s + (w Mod 10) * (w Mod 10) w = Int(w / 10) Loop While w <> 0 If s Mod 5 = 0 Then k = 1 Else

k = 0 End If fun = k

7(事件)双击窗体。(响应)求出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

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))

9编写函数fun其功能是：根据整型形参m，计算如下公式的值: ' y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5) 答案

Dim y As Double Dim i As Integer For i = 0 To m

y = y + 1 / (i + 5) Next

Fun = y

10'题目：(事件)双击窗体。 (响应)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))

11(事件)双击窗体。(响应)求出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

12题目：编写函数fun其功能是：根据整型形参m，

'计算如下公式的值:

' y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1) 答案 Dim y As Double Dim i As Integer y = 1

For i = 1 To m

y = y + 1 / (2 * i + 1) Next fun = y

13'题目：(事件)单击窗体。 (响应)求100到500之间奇数的和，将结果输出 在窗体上并存入变量SUM中。 使用do...loop until语句完成程序

答案：---------------------- Dim i As Integer i=100 do

If i Mod 2 = 1 Then sum = sum + i End If i=i+1

loop until i>500 Print sum

本文来源：https://www.bwwdw.com/article/gzxt.html