在当今中国，流行音乐以其势不可挡的冲击力席卷了文化市场，夺去了大部分听众。诚然，流行音乐以它通俗易懂的歌词和琅琅上口的旋律抓住了多数年轻人的心。但不能否认，在另一方面，听众远离古典音乐的原因还在于他们在心理上认为这种音乐过于高雅，是贵族、绅士们的艺术，可望而不可及。 作者对两种音乐的观点是()。

9）设有如下程序：

Private Sub Form_Click()

Cls

a$="ABCDFG"

For i=1 To 6

Print Tab(12-i); 【9】

Next i

End Sub

程序运行后，单击窗体，结果如图所示，请填空。

设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是

A．6

B．5

C．4

D．3

设有如下程序：

Private Sub Form—Click()

Cls

a$=“ABCDFG”

For i=1 T0 6

Print Tab(12-i)；【 】

Nexti

End Sub

程序运行后，单击窗体，结果如图所示，请填空。

设有如下程序：

Private Sub Form_Click()

Dim i As Integer，x As String,Y As String

x=”ABCDEFG”

For i=4 To 1 Step-1

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

Next i

Print y

End Sub

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

A．ABCCDEDEFG

B．AABBCDEFG

C．ABCDEFG

D．AABBCCDDEEFFGG

设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，"000，000.00") End Sub 程序运行后，单击窗体，输出结果为【 】。

设有如下程序：

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

设有如下程序： Option Base 0 Private Sub Form_Click（） Dim a Dim i 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 a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是【 】。程序进行后，单击窗体，输出结果为【 】。

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n>2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i 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．54 3 2

C．6 5 4 3

D．7 6 5 4