Sub test16()
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（ ）
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（ ）
| A．64 | B．13 | C．61 | D．62 |
如果要保持上程序的算法（输出结果）不变，下面说法正确的是( )
| A．这行If x < y Then t =" x:" x =" y:" y = t可去掉； |
| B．这行a =" x:" b = y可去掉，MsgBox (Str(a * b / s))改成MsgBox (Str(x * y / s))就可以了； |
| C．输出结果是a,b的最大公约数； |
| D．上面说法都错； |
Sub test3()双重循环运行 输出图形 与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （ ）
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （ ）
| A．33333 | B．55555 | C．12345 | D．54321 |
Sub test1()
a=320
a1="a\100"
a2=(a-100*a1)\10
a3="(a-100*a1-10*a2)"
B=100*a3+10*a2+a1
MsgBox B、
End sub
该程序的运行结果是 （ ）
a=320
a1="a\100"
a2=(a-100*a1)\10
a3="(a-100*a1-10*a2)"
B=100*a3+10*a2+a1
MsgBox B、
End sub
该程序的运行结果是 （ ）
| A．320 | B．32 | C．230 | D．23 |
对数组声明语句：Dim a(0 to 3,0 to 4) As Integer，下面说法不正确的是( )
| A．a(1,2)=50000,执行后系统会提示“溢出”错误 |
| B．a数组共有12个下标变量 |
| C．a(1,2)是a数组中的元素 |
| D．若j="1," a(1,0)=3则a(j-1,a(1,0))就是a(0,3) |
有以下程序段：
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )
| A．1 | B．4 | C．5 | D．6 |