(22)有如下程序: Private Sub Form Click Dim i As Integer sum As Integer 0 For i =2 To 10 If i mod 2<>0 And i mod 3=0 Then sum sum t i End if Next i Print sum End sub 程序运行后,单击窗体,输出结果为 A)12B)30C)24D)18 (23)在窗体上画一个名称为Tex1的文本框和一个名称为 Command1的 命令按钮,然后编写如下事件过程 Private Sub Command1 Click Dim array1(10, 10)As Integer Dim i As integer, j As Integer For i =1 to 3 Forj=2 To 4（ 22 ）有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为 A ） 12 B ） 30 C ） 24 D ） 18 （ 23 ）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的 命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4