It is those people who ______ most angry at what is going on at university campuses.A．isB．

下列根据此段程序的运算的结果正确的是()。 Dim × As Single Dim y As Single If ×< 0 Then y＝3 Elself ×< l Then y＝2 * x Else：y＝-4 * x 十 6 End If

A．当x=2时，y=-2

B．当x=-1时，y＝-2

C．当x=0．5时，y＝4

D．当x=-2.5时，y=ll

下面程序段的运算结果正确的是()。 Dim x As Single Dim y As Single If x ＜ 0 Then y=3 Elself x ＜ 1 Then y=2*x Else: y= -4 * x+6 End If

A．当x=2时，y=-2

B．当x=1时，y=3

C．当x=0.5时，y=-4

D．当x=-2.5时，y=11

有如下程序。

Private Sub Command1_Click()

Dim a As Single

Dim b As Single

a=5: b=4

Call Sub1(a, b)

End Sub

Sub Sub1(x As Single, y As Single)

t=x

x=t \ y

y=t Mod y

End Sub

在调用运行上述程序后,a和b的值分别为

A．0 0

B．1 1

C．2 2

D．1 2

下列程序执行后，变量x的值为()。 Dim a, b, c, d As Single Dim x As Single a=10 b=30 c=400 If b＞a Then d=a:a=b:b=d End If If b＞c Then x=b Else If a＞c Then x=c Else x=a End If

A．10

B．30

C．400

D．430

有如下程序： Private Sub Command1 Click() Dim a As Single Dim b As Single a=5：b=4 Call S(a，B)End Sub Sub S(x As Single，y As Single) t=x x=t\y y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B．1 1

C．2 2

D．1 2

有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b)End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为

A．0 0

B．1 1

C．0 2

D．1 2

有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 (a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B．1 1

C．2

D．1 2

有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B． 1 1

C．2 2

D．1 2

下列程序段的执行结果为______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i,j) Next Next Print x

A．3

B．4

C．5

D．6

阅读下列程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为

A．0

B．20

C．40

D．无任何输出