'自然数中偶数的平方的和，计算结果作为函数值返回
'要求在主调过程中输入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 --- i*i;i^2 --- sn=s --- sn(n)
举一反三
- '编写子过程，函数的功能是：计算从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
内容
- 0
有如下事件过程 Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S End Sub Public Function P(n As Integer) Static sum For i=1 To n sum=sum+i Next I P=sum End Function 单击命令按钮后，程序执行的结果是
- 1
设有如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜ 10 Then Call，GetArray(a， n) End If End Sub Private Sub GetArray(b() As Integer， n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) /2 =b(i) \2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是 A: 数组b中的偶数被保存在数组c中 B: 程序运行结束时，在窗体上显示的是c数组中元素的个数 C: GetArray过程的参数n是按值传送的 D: 如果输入的数据大于10，则窗体上不显示任何信息
- 2
编写函数，函数的功能是：计算n门课程的平均值，计算结果作为函数值返回。 '要求在主调过程中将5门课的成绩存入数组中，并在主调过程中输出5门课程的平均值。 '（若5门课程的成绩是：92，76，69，58，88，则函数的值为76.6。） Private Sub Form_Click() Dim a(1 To 5) As Integer, ave As Single b = Array(0, 92, 76, 69, 58, 88) For i = 1 To 5 a(i) = b(i) Next i ave = 【1】 Print ave End Sub Function pj(x%(), n%) As Single pj = 0 For i = 1 To 【2】 pj = pj + 【3】 Next i pj = 【4】 End Function
- 3
某人设计了下面的函数fun,功能是返回参数a中数值的位数 Function fun(a As Integer) As Integer Dim n% n = 1 Do While a 10 >= 0 n = n + 1 a = a 10 Loop fun = n End Function 在调用该函数时发现返回的结果不正确,函数需要修改,下面的修改方案中正确的是
- 4
设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Clnt(Rnd()*100) Ifb(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是( )。 A: 数组b中的偶数被保存在数组C中 B: 程序运行结束时，在窗体上显示的是c数组中元素的个数 C: GetArray过程的参数n是按值传送的 D: 如果输入的数据大于10，则窗体上不显示任何信息