一般国产设备的保修期及索赔期为()个月,有合同规定者按合同执行。
A.6~12
B.12~18
C.9~12
D.18~24
第1题
Private Sub Form_Activate() For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后,窗体上显示的结果为【 】。
第2题
3下面程序的运行结果是()。
Option Base 1
Private Sub Commandl_Crick()
Dimx,y(3,3)
x=Array(1,2,3,4,5,6,7,8,9)
Fori=1 To 3
Forj=1 To 3
y(i,j)=(i*j)
If(j>=i)Then Printy(i,j);
Nextj
Nexti
End Sub
第3题
编写如下事件过程: Private Sub Form_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是()。
A.642
B.246
C.2
D.6
第4题
有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
第5题
有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
第6题
3有如下程序,输出结果为()。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(A) a(i)=i*a(i) Nexti Printi,LBound(a),UBound(a),a(i) End Sub
A.4 0 4 25
B.5 0 4 25
C.不确定
D.程序出错
第7题
设有命令按钮Commandl的单击事件过程,代码如下: Private Sub Commandl_Click() Dima(3,3)As Integer Fori=1 To 3 Forj=1 To 3 a(i,j)=i*j+i Next j Nexti Sum=0 Fori=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub
A.20
B.7
C.16
D.17
第8题
有以下程序: Option Base 1 Dimair()As Integer Private Sub Form_Click() Dimi As Integer,j As Integer ReDimalt(3,2) Fori=1 To 3 Forj=1 To 2 alt(i,j)=i*2+j Nextj Nexti ReDimPreservearr(3,4) Forj=3 To 4
A. 8 13
B.0 13
C. 7 12
D.0 0
第9题
下面程序运行后的结果是()。 Private Sub Form_Click() Dim s As Integer,k As Integer,i As Integer,n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A.6
B.72
C.144
D.432
第10题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:
Private Sub Commandl_Click()
Dimi As Integer,j As Integer
Dima(10,10)As Integer
Fori=1 To 3
Forj=1 To 3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Nexti
End Sub
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!