计算机二级
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Privme Sub Command1_Click( )n=5f=1s=0For i=1 To nf=f【 】s=s+fNextPrint sEnd Sub该事件过程的功能是计算的值。请填空。
题目
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Privme Sub Command1_Click( )
n=5
f=1
s=0
For i=1 To n
f=f【 】
s=s+f
Next
Print s
End Sub
该事件过程的功能是计算
的值。请填空。
相似问题和答案
第1题：
在窗体上画一个名称为Coml的命令按钮，然后编写如下事件过程：
该事件过程的功能是计算s=l 1/2！ 1/3 1 … 1/n!的值。请填空。
(1/i)【解析】本题考查循环的知识。本程序首先置q为1，sum为0；经过l0次循环使q每次都乘以1/i，实现了1/n!的求法；每次循环后都加q，把结果再赋给$tllTl，循环结束，slim的值即为所求。
第2题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是
A． 11
B．10
C．9
D．8
解析：本题的结果取决于函数f，而f的作用是如果参数为偶数返回实值，如果为奇数则返回1。
第3题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Funcdonf(m As Integer) If m Mod2=0 Then f=m E1Se f=1 End If End FunCdOn Private Sub Cmnmalldl_CUCk() Dimi As Integer S=0 Fori=1 To 5 s=s+f(i)
A．11
B．10
C．9
D．8
第4题：
在窗体上画一个名称为Com1的命令按钮，然后编写如下事件过程：
Private Sub Com1_Click()
n=10
q=1
sum=0
For i=1 To n
Next
Print sum
End Sub
该事件过程的功能是计算s=1+1/2!+1/3!+…+1/n!的值。请填空。
(1/i) 解析： 本题考查循环的知识。本程序首先置q为1，sum为0；经过10次循环使q每次都乘以1/i，实现了1/n!的求法；每次循环后都加q，把结果再赋给sum，循环结束，sum的值即为所求。
第5题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Privfite Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f 【 】
s=s+f
Next
Ptint S
End Sub
该事件过程的功能是计算s=1+2!+1/3!+...+1/n!的值。请填空。
*(1/i) 或 /i 解析：本程序首先置f为1，s为0；经过5次循环使f每次都乘以1/i,实现了1/n!的求法，每次循环后都加 f，把结果再赋给s，循环结束，s的值即为所求。
第6题：
（7）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a$="National Computer Rank Examination"
n=Len(a$)
s=0
For i=1 To n
b$=Mid(a$, i, 1)
If b$="n" Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是 【7】 。
（7）【答案】4
【解析】此题实际上是从左自右逐个提取a$中的字符，判断是不是等于“n”，统计其中“n”的个数。
第7题：
（ 8 ）在窗体上画一个名称为 “ Command1 ” 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As String
a = "123456789"
For i = 1 To 5
Print Space(6 - i); Mid$(a, 【 8 】 , 2 * i - 1)
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
第8题：
布窗体上画一个名称为Command l的命令按钮，然后编写如下事件过程：
Private Sub Command l-Click ()
n=5
f=l
s=o
For I =l To n
f=f【 】
s= s +f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1／2!+l+3!+…+l/ n!的值。请填空。
*(1/i)或 /i 解析：本程序首先置f为1，s为0；经过5次循环使f每次都乘以l/i实现了l/n的求法，每次循环后都加 f，把结果再赋给s，循环结束，s的值即为所求。
第9题：
在窗体上画一个名称为 \"Command1\" 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim a As String
A="123456789"
For i=1 To 5
Print Space（6-i）;Mid $ （a,______ ,2*i-1）
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
MiD $( 字符串，起始位置 \[ ，个数 \]) 函数用于取出字符串从指定位置开始的含指定个数字符的字符串。本题 MiD $ 的作用在于依次取出字符串居中位置的 1 、 3 、 5 、 7 、 9 个字符。故取字符串起始位置为 6-i ，即依次为 5 、 4 、 3 、 2 、 1 。