音乐性杂音最常见于（)A.二尖瓣狭窄B.室间隔缺损C.房间隔缺损D.感染性心内膜炎E.肺动脉瓣狭窄

阅读程序:

Option Base 1

Dim arr()As Integer

Private Sub Form_Click()

Dim i As Integer, j As Integer

ReDim arr(3,2)

For i = 1 To 3

For j = 1 To 2

arr(i,j)=i*2+j

Next

Next

ReDim Preserve arr(3,4)

For j=3 To 4

arr(3,j)=j+9

Next

Print arr(3,2)+arr(3,4)

End Sub

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

A．21

B．13

C．8

D．25

阅读程序： Option Base 1 Private Sub Form_Click() Dim arr Sum Sum=0 arr=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+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

阅读程序： Option Base 1 Private Sub Form_Click() Dim art,Sum Sum=0 art=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+art(i) End If Next i Pdnt Sum End Sub 程序运行后，单击窗体，输出结果为()。

A．13

B．14

C．27

D．15

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。

A． 21

B．13

C．8

D．25

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next Next ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Next Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub

A．20

B．441

C．400

D．出错信息