Section B
Directions: In this section, you will read 5 short conversations between a man and a woman. At the end of each conversation there is a question followed by 4 choices marked A, B, C and D. Choose the best answer to the question from the 4 choices by marking the corresponding letter with a single bar across the square brackets on your machine-scoring ANSWER SHEET.
Man: Yes, hello, this is Robert White calling. Could Dr. Jones see me on Tuesday morning instead of Tuesday afternoon? Woman: Tuesday morning? Let's see. It's that the only other time you could come? Question: What does the woman imply?
A.The doctor only has time on Tuesdays.
B.The doctor is busy on Tuesday morning.
C.The man must come more than one time.
D.The man must arrive on time.
第1题
在窗体上画一个命令按钮,其名称为Command1,然后编写下列代码:
Option Base l
Private Sub Command1 Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
程序运行后,单击命令按钮,其输出结果是()。
A.4321
B.1234
C.34
D.12
第2题
(23 )在窗体上画一个命令按钮,其名称为 command1, 然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
程序运行后,单击命令按钮后,其输出结果是
A ) 4321
B ) 1234
C ) 34
D ) 12
第3题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出的结果为
A.4321
B.12
C.34
D.1234
第4题
(10)在窗体上画一个命令按钮,其名称为 Command1,然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)
pos=0
neg=0
For k=1 To 10
If Arr(k)>0 Then
【10】
Else
【11】
End If
Next k
Print pos, neg
End Sub
以上程序的功能是,计算并输出数组 Arr 中 10 个数的正数之和 pos 与负数之和 neg,请填空。
第5题
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Prirate Sub Command1_Click() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 If x(i)>c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为______。
A.89
B.99
C.23
D.77
第6题
在窗体上画一个命令按钮,名称为 Command1, 然后编写如下代码:
Option Base 0
Private Sub Command1_Click()
Dim A (4)As Integer,B(4) As Integer
For k=0 To 2
A(k+1)=InputBox(“ 请输入一个整数 ”)
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输入结果为()。 A.0
B.2
C.3
D.4
第7题
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 If x(i)>c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ______。
A.89
B.99
C.23
D.77
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!