填空题

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ()
n = 6
f = 1
s = 0
For i = 1 To n
f = 【4】 s = s + f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1/2+1/3+…+1/n的值。请填空。

【参考答案】

1/i
<上一题 目录 下一题>
热门 试题

填空题
在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer, y As Integer) As Integer M = IIf(x＞y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2 b = 5 Print M(a, b) End Sub 程序运行后，单击命令按钮，输出结果为 【5】 。
填空题
在窗体上画一个名称为command 1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Colilinand1 Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next call Swap(a) For i = 1 To 10 Print a(i); Next End Sub Sub Swap(b() As Integer) n = 【6】 For i = 1 To n 2 t = b(i) b(i) = b(n) b(n) = t 【7】 Next End Sub 上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
相关试题