填空题

执行下面程序，第一行输出结果是 【12】 ，第二行输出结果是 【13】 。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A)
End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x＜10 Then
Call Sub1(x)
End If
x=x,2+1
Print x
End Sub

【参考答案】

[12]23 [13]47
<上一题 目录 下一题>
热门 试题

填空题
下面程序运行后，窗体中显示 【14】 。 Private Sub Command1_Click) ( ) aS = * :b$ = $ For k = 1 To 3 x$ =Strings (Len(a$) +k,b$ ) Print x $; Next Print End Sub
填空题
忆知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在 【10】 和 【11】 处填处所需的内容，使产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如： 1 2 3 4 1 2 3 4 1 2 3 4 l 2 3 4 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Private Sub Command1_Click() Dim a(4，4) For k=1 To 4 For j=1 To 4 a(k，j)=j Print a(k，j)； Next Print Next For k=2 To 4 For j=1 To 【10】 t=a(j，k) a(j，k)= 【11】 a(k,j)=t Next Next For k=1 To 4 Print a(k，1)；a(k，2)；a(k，3)；a(k，4) Next End Sub
相关试题