题目内容
（请给出正确答案）
提问人：网友flashman2008
发布时间：2022-01-07
[单选题]
设有如下程序： Private Sub Command1_Click（) Dim sum As Double, x As Double sum = 0 n = 0 x=inputbox（"请输入一个数：") For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub该程序通过For循环计算一个表达式的值，这个表达式是（）。
A.1+1/2+ 2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
参考答案
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
查看官方参考答案
网友提供的答案
共位网友提供了参考答案，
查看全部
- · 有4位网友选择 B，占比50%
- · 有3位网友选择 C，占比37.5%
- · 有1位网友选择 A，占比12.5%
代码如下：Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(text1) ‘语句A y = Val(text2) ‘语句B text3.Text = Str(x + y) ‘语句C End Sub
