单项选择题

窗体中有文本框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=sumEnd 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)
<上一题 目录 下一题>
热门 试题

单项选择题
窗体中有文本框Text1。运行程序，输入大于0的整数m，单击按钮Command1，程序显示由星号组成的高度和上底均为m的等腰梯形形。例如，当m=5时，显示图形如下。 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *事件代码如下。Private Sub Command1_Click() m = Val(Me!Text1) result = For k = 1 To m For n = 1 To 【 】 If n < m - k + 1 Then result = result & Else result = result & * End If Next n result = result + Chr(13) Next k MsgBox result, , 运行结果 End Sub程序【 】处应填写的语句是
A．k + 2 * m - 2
B．k + 2 * m
C．k + m - 1
D．k + m
单项选择题
窗体中有文本框为Text1和Text2。运行程序，在Text1中输入整数m（m>0），单击 运行 按钮Command1，将m分解为质因子之积，并在Text2中给出结果。例如，18=2*3*3，输出结果为 2,3,3, ；28=2*2*7，输出结果为 2,2,7, 。事件代码如下：Private Sub Command1_Click() m = Val(Me!Text1) resule = k = 2 Do While m > 1 If m Mod k = 0 Then result = result & k & , m = m k Else 【 】 End If Loop Me!Text2 = resultEnd Sub程序【 】处应填写的语句是
A．k = k + 1
B．k = 1
C．m = m - k
D．m = m / k
相关试题