'编写函数过程，函数的功能是：计算从1开始到n的
'自然数中偶数的平方的和，计算结果作为函数值返回
'要求在主调过程中输入n的值，并输出最终结果。
'计算从1开始到n的'自然数中偶数的平方的和
Function sn(n As Integer) As Integer
s = 0
For i = 2 To 【1】 Step 2
s = s +【2】
Next i
【3】
End Function
Private Sub Form_Click()
Dim n As Integer, s As Integer
n = InputBox("输入n")
s = 【4】 '调用函数sn求1到n的平方和
Print s
End Sub
'自然数中偶数的平方的和，计算结果作为函数值返回
'要求在主调过程中输入n的值，并输出最终结果。
'计算从1开始到n的'自然数中偶数的平方的和
Function sn(n As Integer) As Integer
s = 0
For i = 2 To 【1】 Step 2
s = s +【2】
Next i
【3】
End Function
Private Sub Form_Click()
Dim n As Integer, s As Integer
n = InputBox("输入n")
s = 【4】 '调用函数sn求1到n的平方和
Print s
End Sub
举一反三
- '编写子过程，函数的功能是：计算从1开始到n的自然数中偶数的平方的和，计算结果作为函数值返回 '要求在主调过程中输入n的值，并输出最终结果。 '子过程fun完成计算从1开始到n的'自然数中偶数的平方的和 Sub fun(n As Integer, ss As Integer) s = 0 For i = 1 To 【1】 If 【2】 Then s = s + i ^ 2 Next i 【3】 End Sub Private Sub Form_Click() Dim n As Integer, sum As Integer n = InputBox("输入n") 【4】'调用子过程fun求1到n的平方和 Print sum End Sub
- 函数Sum的功能是求正整数n的各位数字之和。要求单击按钮时，调用该函数对用户输入的数进行各位数字求和，并输出到窗体上。请将程序补充完整。 Function sum(【1】) As Integer Dim s As Integer s = 0 Do While n <> 0 d = n Mod 10 s = s + d n = n 10 Loop 【2】 End Function Private Sub Command1_Click() Dim m As Integer, s As Integer m = InputBox("请输入数") s =【3】 Print m & "的各位数字之和为" &【4】 End Sub
- 编写如下程序： Private Sub Command1_Click() Dim n As Integer : Static s As Integer For n = 1 To 3 s = s + n Next Print s End Sub 程序运行后，第三次单击命令按钮Command1时，输出结果为
- 运行下列程序，单击窗体显示的结果为（ ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub
- 运行下面的程序，第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub