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
该程序的运行后列表框输出的第三行是 （  ）

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

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的算法，下列能正确描述S的算式是（  ）
①变量S的初值是0，变量T的初值是1，循环变量A的初值为1；
②循环变量A从1循环到100，且步长为2，做第③步中的2个语句；
③ T="-T:" S=S+A*T
④输出变量S的值

A．1+3+5+7…+100	B．1+3+5+7…+99
C．1-3+5-7…-99	D．-1+3-5+7…+99

理论上，Fix((Timer() Mod 60)*Rnd()+Asc(“F”)- Asc(“A”))的最小值和最大值分别是：（    ）

A．0,60

B．5,63

C．5,64

D．5,65

有以下程序段：
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

Sub test7()
For i =" 1" To 6
S =" S" + (-1) ^ i  *2 ^ i
Next i
MsgBox (S)
End sub
该程序的运行结果是（   ）

A．126

B．-126

C．-42

D．42

Function f(x As Long, y As Long) As Long
Dim t As Long, r As Long
If x < y Then t =" x:" x =" y:" y = t
r =" x" Mod y
Do While r <> 0
x =" y:" y = r
r =" x" Mod y
Loop
f = y
End Function
-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a As Long, b As Long
x = Val(InputBox("x="))
y = Val(InputBox("y="))
a =" x:" b = y
s =" f(x," y)
MsgBox (Str(a * b / s))
End Sub
当x=20，y=6时，以上程序运行后，输出结果是（   ）

A．2

B．120

C．30

D．60

Sub test12()
S=0
Do While c <=5
C ="C" + 1
S=S+C
Loop
MsgBox (STRC、 + STR(S))
End Sub
该程序的运行结果是（  ）

A．5  15

B．6  15

C．5  21

D．6  21

有关下列语句说法不正确的是（   ）
① If a="b=c" Then  Msgbox(“这三个数相等”)  Else  Msgbox(“这三个数不相等”) 
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox  (a+b=c)

A．语句①能运行，但逻辑上有错误

B．语句②能运行，且无任何逻辑错误

C．语句③不能运行

D．语句④不能运行