窗体中有文本框Text1、Text2和Text3。运行程序时,输入整数m和n(n>0),单击按钮Command1计算下列表达式的值: SUM=m+(m-1)/2+(m+2)/3+(m-3)/4+…+(m+(-1)n+1(n-1))/n 在Text3

admin2015-07-01  26

问题 窗体中有文本框Text1、Text2和Text3。运行程序时,输入整数m和n(n>0),单击按钮Command1计算下列表达式的值:
    SUM=m+(m-1)/2+(m+2)/3+(m-3)/4+…+(m+(-1)n+1(n-1))/n
在Text3给出结果,事件代码如下:
Private Sub Command1_Click()
Dim sum As Double
m=Val(me!Text1)
n=Val(me!Text2)
sum=0
For k=1 to n
  sum=sum+(【   】)/k
Next k
Me!text3=sum
End Sub
程序【】处应填写的语句是:

选项 A、m + IIf(k Mod 2 = 0, -k + 1, k - 1)
B、m + IIf(k Mod 2 = 0, k - 1, -k + 1)
C、IIf(k Mod 2 = 1, m - k + 1, m + k - 1)
D、IIf(k Mod 2 < 0, m + k - 1, -m + k - 1)

答案A

解析  本题是求解一个表达式的值。从题目中我们可以看出分母从1取值一直到m,第k个项,如果k是奇数,则是m+(k-1),否则是m-(k-1)。所以本题就是找出满足条件的表达式(注:iff(x,y,z)函数中若x为真,则返回y,否则返回z)。因此,只有A选项满足。因此,本题应选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/qbgp777K
0

最新回复(0)