C)14 D)15 (29)在窗体上画一个名称为 Command l的命令按钮,然后编写下列通用过程和命令按钮 的事件过程 Private Function fun( By Val m As Integer) If m mod 2=0 Then se End If End function Private Sub Command1 Click() Dim i As Integer, s As Integer For i=I To 5 s-StIun(I Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是() A)6 B)7 C)8 D)9 (30)阅读程序 Dim arr( )As Integer Private Sub Form Click() Dim iAs Integer, j As Integer ReDim arr(3, 2) For i=1 To 3 For i=1 To 2 ext i ReDim Preserve arr(3, 4) or ar(3J)=+9 Next J Print arr(3, 2)+arr(3, 4) End Sub 程序运行后,单击窗体,输出结果为()。 D)25 (31)在窗体上画一个名称为 Command1的命令按钮,然后编写下列事件过程: Option base 1 Private Sub Commandl Click( 二级Ⅴ isual basic语言程序设计试卷第6页(共10页)二级 Visual Basic 语言程序设计试卷 第 6 页（共 10 页） C）14 D）15 （29）在窗体上画一个名称为 Command1 的命令按钮，然后编写下列通用过程和命令按钮 的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer,s As Integer s=0 For i = 1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是（ ）。 A）6 B）7 C）8 D）9 （30）阅读程序： 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 （31）在窗体上画一个名称为 Command1 的命令按钮，然后编写下列事件过程： Option Base 1 Private Sub Command1_Click( )