当X分别为0，6，12时，表达式(X<5 or X>=6)andnot(X>=6)的值分别为（   ）。

A．true，false，false

B．true，true，false

C．false，true，false

D．false，true，true

假设x=1,y=2,下面有四个程序段，运行后结果为x=2,y=1的是（   ）

④x="x-" y y= x+y x= y－x

③t =" x" x= y y= t

②x =" x" + y y= x－y x= x－y

①x = y y =x

 

A．④

B．②④

C．②③④

D．①③④

X = 9
For i =" 3" To 9 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
For i =" 22" To 2 Step 2
If (X / 2) >=" i" Then X =" X" + 2
Next i
MsgBox (X + i)
该程序的运行结果是（   ）

A．39

B．15

C．34

D．12

S=0
C=0
Do While C <100  
C=C+1
S=S+C
Loop
MsgBox (Str(C) + Str(S))
该程序的运行结果是（  ）

A．99 4950

B．1  4950

C．100 5050

D．101 5151

模拟剪刀石头布的游戏，骰子是一个正六面体，用1~3这3个数分别代表剪刀、石头、布这三种情况，使用RND随机函数可以表示为（  ）

A．INT（RND（3）+1）

B．INT（RND*2+1）

C．INT（RND（2）+1）

D．INT（RND*3+1）

For i =" 1" To 4 step 1
If i Mod 2=" 0" Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
该程序的运行结果是（   ）

A．-25

B．-75

C．15

D．25

Function LEAP( Y  As Integer) As Integer
If  Y  Mod 400 =" 0" Or Y Mod 4 =" 0" And Y Mod 100 <> 0 Then LEAP =" 1" Else LEAP =" 0"
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Y1  As Integer
If  KeyAscii =" 13" Then
Y1 = Val(Text1.Text) ' 在text1中输入年份y1
Text2.Text =" Str(28" + LEAP(Y1)) ' 在text2中输出该年的二月份天数
End If
End Sub
以上程序运行后，在Text1中输入 2001，在 Text2中显示的是（  ）

A．28

B．29

C．30

D．31

读程序，写出下列程序的输出结果（共6题，每题只有一个正确答案，每题2分，共12分）
s = 1
For j =" 10" To -10 Step -2
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是(    )

A．20

B．10

C．11

D．21

某VB事件过程如下：
Private Sub Command1_Click()
Dim a as Integer
a=Val(Text1.text)    ‘将文本框中的数字文本转换成数值
a=2*a+1
Text1.text = Str(a)
End Sub
程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（   ）

A．7

B．5

C．3

D．1

为使左右框内的Visual Basic程序段实现相同的功能，可在左框内划线处填写的代码是：（   ）

A．g=2

B．g=6

C．g=g+1

D．g=g+2