CALL SUB（N，N）
CALL SUB（X，X）
CALL SUB（N，X*X）
CALL SUB（11，X）
有如下程序，该程序的执行结果是【 】。Private Sub Command1_lick()For i= 1 To 4x= 4For j =1 To 3x =3For k=1 To 2X= K+5Next kNext jNext iPrint xEnd Sub
点击查看答案
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim aS，b$，c$，k％a=”ABCD”b=”123456”c=””k=1Do While k<=Len(a) Or k<=Len(b)If k<=Len(a)Thenc=c&Mid(a，k，1)End IfIf k<=Len(b)Thenc=c&Mid(a，k，1)End Ifk=k+1LoopPrint cEnd Sub运行程序，单击命令按钮，输出结果是( )。A．123456ABCDB．ABCDl23456C．D6C584A321D．A182C3D456
阅读下列程序。Option Base 1Private Sub Form. Click()Dim x(3,3)For j=l to 3For k=l to 3If j=k then x(j,k)=lIf j＜＞k then x(j,k)=kNext kNext jCall fun(x())End SubPrivate Sub fun(x() )For j=1 to 3For k=1 to 3Print x(j,k);Next kNext jEnd Sub运行程序时，输出结果为【 】
阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。
以下程序的输出结果是【 】。main(){ int x=0；sub(&x，8，1)；printf(“%d\n”，x)；}sub(int *a，int n，int k){ if(k＜＝n)sub(a，n/2，2*k)；*a+=k；}
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。A．400B．20C．441D．出错信息
在窗体中添加一个名称为Cmd1的命令按钮，然后编写如下事件代码： Private Sub Cmd1_Click() a=125 If a＞60 Then k=1 ElseIf a＞70 Then k=2 ElseIf a＞80 Then k=3 ElseIf a＞90 Then k=4 EndIf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。A．1B．2C．3D．4
