聽力原文：M：I came across David last Wednesday. You know he's now consulting in the health
W：Well, he called rile once before he left for Seattle. He's always been ahead of the curve in his work choices.
Q：What does the woman imply？
(13)
A．David has made a wrong choice to work in Seattle.
B．David should have consulted her opinion before quitting.
C．David will suffer setbacks in his work choices.
D．David likes to be a trend-setter in work choices.
AI搜題
NEW
搜題
第1題
下列程序段，運行后窗體上輸出結果是()。
Private Sub Command1_Click()
a=5:b=4:c=3:d=2
x=3＞2*b Or a=c And b＜＞c Or c＞d
Printx
End Sub
A．1
B．True
C．False
D．2
第2題
下列程序段運行后窗體上輸出結果為()。 Private Sub Command1 Click() a=5：b=4：c=3：d=2 X=3＞2*b Or a=c And b＜＞C Or c＞d Print X End Sub
A．1
B．True
C．False
D．2
第3題
窗體上有一個按鈕和一個列表框，執行下列程序后的輸出結果為【 】。
Private Sub Command1_Click()
List1.Addltem"China"
List1.Addltem"USA"
List1.Addltem"Japan"，1
Print List1.List(2)
End Sub
第4題
窗體上有一個按鈕和一個列表框，執行下列程序后，輸出的結果為 Private Sub Command1_Click() List1.AddItem "Visual" List1.AddItem "Basic" List1.AddItem "Programming", 1 Print list1.List(2) End Sub
A．Visual
B．Basic
C．Programming
D．2
第5題
在窗體上添加一個命令按鈕(名為Command1)，然后編寫如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打開窗體運行后，單擊命令按鈕，消息框的輸出結果為()。
第6題
運行下列程序，最后在窗體中輸出【 】。
Private Sub command1_Click()
a=65 : b = 17
a = a Mod b ^ 2
a = a \ 4
Print a
End Sub
第7題
在窗體上畫一個命令按鈕，其名稱為Command1。程序運行后，單擊命令按鈕，輸出結果為 ()。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i, "*") Print x Next i End Sub Private Sub Command1_Click() p1 (3) End Sub
A．* * * * * *
B．* * * * * *
C．* * *
D．* * * * * *
第8題
在窗體上畫一個命令按鈕，其名稱為Command1。程序運行后，單擊命令按鈕，輸出結果為()。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i，"*") Print x Next i End Sub Private Sub Command1_Click() p1(3) End Sub
A．*** ** *
B．* ** ***
C．* * *
D．******
第9題
在窗體上添加一個命令按鈕，名稱為Command1，然后編寫如下程序：
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打開窗體運行后，單擊命令按鈕，則消息框的輸出結果為_______。
第10題
單擊窗體上的命令按鈕Command1，程序的輸出為【 】。 Private Sub Command1_Click() a="AbC" b="dEF" c=UCase(A)+LCase(B) Print Asc(C) End Sub
