private sub command（）_click（） for i=2 to10 for j=2 to

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/18 14:04:45

private sub command（）_click（） for i=2 to10 for j=2 to
private sub command（）_click（）
for i=2 to10
for j=2 to i/2
if imod j then exit for
next j
if j>sqr(i) then debug.print i
end sub
答案为 2 3 5 7 求详解

If I mod J = 0 Then Exit For语句的功能是当I能被J整除的时候推出循环,I=2,J=2,I/2=1,J从2到1,不满足条件,退出；执行If J > sqr (I) Then Debug .Print I；因为J> sqr (I),所以Then Debug .Print I ,此时I=2,；I=3,I/2=1.5,打印输入I；I=4,I mod J = 0.退出for循环,但J > sqr (I)也不成立；I=5,J=3,J > sqr (I)成立,输出5…….

private sub command（）_click（） for i=2 to10 for j=2 to 解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1 Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a Private Sub Command1_Click() For i = 1 To 3 For j = 1 To i F Private Sub Command1_Click() n = 0 For i = 1 To 3 For j = -4 Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 Private Sub Command1_Click() Dim i,j As Integer For i = 3 To Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3& 求解一道VB private sub command1_click() for i = 1 to 4 x=4 for j SOS!Private Sub Command1_Click()/s=0/For j=1 To 20/If j Mod Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = private sub command_click() for i=1 to4 x=3 for j=1to3 for k