题目内容

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=j10
Next
Print s
End Sub

A. 4321
B. 1234
C. 34
D. 12

查看答案

搜索结果不匹配？点我反馈

更多问题

如果在c盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open"c:\studata."For Append As #1之后，将

A. 删除文件中原有内容
B. 保留文件中原有内容,并在文件尾填加新内容
C. 保留文件中原有内容,并在文件头填加新内容
D. 以上均不对

在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:
Private Sub Form_load()
Text1.Text=″″
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是

A. 在文本框Text1中输出45
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值

有如下函数过程:
Function Fun(By Val x As Ingeger, ByVal y As Integer)As Integer
Do While … y ＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程,该程序的运行结果是
Private Sub Command1
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,b)
Print x
End Sub

A. 0
B. 25
C. 50
D. 100

SECTION 2 (10 points)
Listen to the following short statements and then choose one of the answers that best fits the meaning of each statement. There are 10 questions in this section, 1 points for each question. You will hear the recording only ONCE.
听力原文：If he should fail to come in time, ask Bob to work in his place.
Under what circumstances would Bob replace him？

A. If he fell at that time.
B. If he failed the exam.
C. If he didn't come in time.
D. If he asked in time.