填空题
执行下面程序,第一行输出结果是
【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
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
能够将文本框控件隐藏起来的属性是 【9】 。
点击查看答案&解析
填空题
忆知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在 【10】 和 【11】 处填处所需的内容,使产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如:1 2 3 41 2 3 41 2 3 4l 2 3 41 1 1 12 2 2 23 3 3 34 4 4 4Private Sub Command1_Click()Dim a(4,4)For k=1 To 4For j=1 To 4a(k,j)=jPrint a(k,j);NextPrintNextFor k=2 To 4For j=1 To 【10】 t=a(j,k)a(j,k)= 【11】 a(k,j)=tNextNextFor k=1 To 4Print a(k,1);a(k,2);a(k,3);a(k,4)NextEnd Sub
点击查看答案&解析
相关试题
假定在工程文件中有一个标准模块,其中定义...