某企业将预收的货款计入“预收账款”科目，在收到款项的当期不确认收入，而在实际发出商品时确认收入，这主要体现的会计基本假设是()。

设有如下程序：

Private Sub Form. Click（）

Dim ary(1 To 5)As Integer

Dim i As Integer

Dim sum As Integer

For i=1 To 5

ary(i)=i+l

sum=sum+ary(i)

Next i

Print sum

End Sub

程序运行后，单击窗体，则在窗体上显示的是（）。

A.15

B.16

C.20

D.25

设有如下程序：

Private Sub Form_Click()

Dim ary(1 To 5)As Integer

Dim i As Integer

Dim sum As Integer

For i=1 To 5

ary(j)=i+1

sum=sum+ary(i)

Next 1

Print sum

Eud Sub

程序运行后，单击窗体，则在窗体上显示的是

A．15

B．16

C．20

D．25

设有如下程序：

Private Sub Form. Click（）

Dim s As Long，f As Long

Dim n As Integer，i As Integer

f=1

n=4

For i=1 To n

f=f*i

s=s+f

Next i

Print s

End Sub

程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

设有如下程序：

Private Sub Form. Click（）

Dim i As Integer，x As String，y As String

x="ABCDEFG"

For i=4 To 1Step-1

y=Mid(X，i，i)+y

Next i

Print y

End Sub

程序运行后，单击窗体，输出结果为（）。

A.ABCCDEDEFG

B.AABBCDEFG

C.ABCDEFG

D.AABBCCDDEEFFGG

设有如下程序： Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______。

A．ABCDE 20 10

B．10 20 ABCDE

C．ABCDE 10 20

D．出错信息

设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。

A．4 3 2 1

B．5 4 3 2

C．6 5 4 3

D．7 6 5 4

假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。

A．81 4

B．56 3

C．28 1

D．243 5

设有如下程序： Option Base 1 Private Sub Form. Click（） Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a，i) Next i End Sub Sub f(ta（）As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是（）。

A.程序有错，因为在过程f的定义中数组参数格式不正确

B.程序可正常运行，输出内容的第一行是一个字母“A”

C.程序可正常运行，输出内容的第一行是一个字母“B”

D.程序可正常运行，输出内容的第一行是数字65

设有如下程序： Private Sub Form. Click（） Cls a$="1234j6" For i=1 To 6 Print Tab(12-i)；________ Next i End Sub 程序运行后，单击窗体，要求结果如图所示，则在______处填入的内容为（）。

A.Left(a$，i)

B.Mid(a$，8-i，i)

C.Right(a$，i)

D.Mid(a$，7，i)

有如下程序： Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

A． 25

B．26

C．27

D．28