Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x =

来源：学生作业帮编辑：大师作文网作业帮分类：数学作业时间：2024/11/10 22:04:50

Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = x + 1 For j = 0 To 3 If Not (j Mod 2)
Private Sub Form_click()
Dim x,i,j
x = 0
For i = 0 To 1
x = x + 1
For j = 0 To 3
If Not (j Mod 2) Then x = x + 1
Next j
Next i
Print "x="; x
End Sub运行后结果为10.怎么理解啊,

Dim x,i,j '定义三个变量
x = 0 'x初始化
For i = 0 To 1 '外循环两次
x = x + 1 'x+2
For j = 0 To 3 '0~3共4次 2*4=8次
If Not (j Mod 2) Then x = x + 1 '只有当not(-1)才不x+1,本题目不可能j mod 2=-1,所以循环8次,x+8
Next j
Next i
Print "x="; x 'x=10

Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = access下面程序运行后输出的是 Private Sub Form_Click() For i=1 To 4 x=1 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 Form_Click() x = 1 y = 5 z = 2 For k = x To y St Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n 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 1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x- Private Sub Command1_Click() n = 0 For i = 1 To 3 For j = -4 private sub command_click() for i=1 to4 x=3 for j=1to3 for k 英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max