搜题请搜索小程序“爱下问搜题”
问题 选择题

I'm very happy that I didn't fail my Maths test ______. In fact I got one of the top scores in the class. [ ]

A. at all

B. after all

C. above all

D. in all

答案

答案：B

填空题

执行下面的程序，单击command1,窗体上显示的第一行是（），第二行是（）,第四行是（）,最后一行是（）

Option Explicit

Private Sub Command1_Click()

Dim n As Integer

n=5

Call test(n)

Print n

End Sub

Private Sub test(ByVal n As Integer)

Dim i As Integer,S As String

If n>0 Then

For i=l To n

S=S & CStr(i)

Next i

Print S

Call test(n-2)

Else

Print "0VER"

EndIf

EndSub
查看答案
填空题

执行下面的程序，消息框的输出结果是______。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) As Integer k=0 For i=1 To 10 a(i)=i Next i For i=1 To 5 p(i)=a(i*2) Next i For i=1 To 5 k=k+p(i)*a(i) Next i MsgBox k End Sub
查看答案