题目内容

体中有文本框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和Text2。运行程序，在Text1中输入整数m（m>0），单击"运行"按钮Command1，将m分解为质因子之积，并在Text2中给出结果。例如，18=233，输出结果为"2,3,3,"；28=227，输出结果为"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

急性腹膜炎最可靠的诊断依据是

A. 压痛、反跳痛
B. 发热、脉快和休克
C. 白细胞计数升高
D. 腹腔穿刺抽出浑浊液体

窗体中有文本框为Text1和Text2。运行程序时单击"运行"按钮Command1，在Text1中输入整数m（m>0），在Text2中显示输出m的全部除1和自身之外的因子。例如，20的因子有2,4,5,10，输出结果为"2,4,5,10,"；16的因子为2,4,8，输出结果为"2,4,8,"。事件代码如下：Private Sub Command1_Click() m = Val(Me!Text1) resule = "" k = 2 Do If m Mod k = 0 Then result = result & k & "," k = k + 1 Loop While 【】 Me!Text2 = resultEnd Sub程序【】处应填写的语句是

A. k > m
B. k < m
C. k >= m
D. k <= m

在窗体中变量m对应的文本框为Text1，"运行"按钮Command1对应的事件代码如下：Private Sub Command1_Click() Dim result As String m = Val(Me!Text1) result = "" For k = 1 To m For n = 1 To k + m - 1 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单击运行按钮后，输入m的值为5，程序的运行结果是

A. 由星号组成的高为5的等腰三角形
B. 由星号组成的高为5的等腰梯形
C. 由星号组成的边长为5的平行四边形
D. 由星号组成的边长为10的平行四边形