商检机构依据《商检法》的有关规定,对非法定检验的进出口商品可以实施()。A.强制检验B.抽查检验C.
第1题
阅读程序:
Private Sub Form. Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,单击窗体,输出结果是()。
A.105
B.1
C.120
D.15
第2题
阅读程序:
Private Sub Command1_Click()
A=0
For j=1 to 15
a=a+j mod 3
Next j
Print a
End Sub
程序运行后,单击窗体,输出结果是
A )105
B)1
C)120
D)15
第3题
以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub
A.10
B.15
C.80
D.100
第4题
请阅读程序:
Private Sub Form. Click()
m=1
For i=4To 1 Step-1
Print Str(m);
m=m+1
For j=1 To i
Print"*":
Next j
Next i
End Sub
程序运行后,单击窗体,则输出结果是()。
A.1****
2***
3**
4*
B.4****
3***
2**
1*
C.****
***
**
*
D.*
**
***
****
第5题
请阅读程序: Private Sub Form. Click() m=1 For i=4To 1 Step-1 Print Str(m);
m=m+1 For j=1 To i Print"*": Next j Print Next i End Sub 程序运行后,单击窗体,则输出结果是()。
A.1**** 2*** 3** 4*
B.4**** 3*** 2** 1*
C.**** *** ** *
D.* ** *** ****
第6题
设有以下程序:Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为 ______。
A.100
B.50
C.120
D.70
第7题
设有以下程序:Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为 ______。
A.100
B.50
C.120
D.70
第8题
A.105
B.1
C.120
D.15
第9题
设有如下程序: Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后,单击窗体,则在窗体上显示的是______。。
A.4 3 2 1
B.5 4 3 2
C.6 5 4 3
D.7 6 5 4
第10题
阅读程序: Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer,i As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim arr(3,2)+arr(3,4) End Sub 程序运行后,单击窗体,输出结果为
A.21
B.13
C.8
D.25
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!