单项选择题

窗体中有文本框为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

<上一题目录下一题>

热门试题

单项选择题

窗体中有文本框Text1、Text2和Text3。运行时在Text1中输入整数m，在Text2中输入整数n（m<n），单击按钮Command1，计算m到n之间（含m和n）全部奇数之和，然后在Text3中输出结果。事件代码如下：Private Sub Command1_Click() m = Val(Me!Text1) n = Val(Me!Text2) sum = 0 For【】To n Step 2 sum = sum + k Next k Me!Text3 = sumEnd Sub程序【】处应填写的语句是

A．k = IIf(m Mod 2 = 1, m, m + 1)
B．k = IIf(m Mod 2 <> 1, m, m + 1)
C．k = IIf(m Mod 2 > 1, m, m + 1)
D．k = IIf(m Mod 2 < 1, m, m + 1)

单项选择题

在窗体中变量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的平行四边形

相关试题