12.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是 A、2 B、3 C、4 D、5
A B C D
13.在窗体上画一个名称为Command1命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j) Next Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是 A、1 2 3 2 4 6 3 6 9 B、2 3 4 3 4 5 4 5 6 C、1 4 7 2 5 8 3 6 9 D、1 2 3 4 5 6 7 8 9
15.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1_Click() Dim x,y,z As Integer x = 5 y = 7 z = 0 Text1.Text = "" Call P1(x,y,z) Text1.Text = Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c = a + b End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的内容是____。 A、0 B、12 C、Str(z) D、没有显示