甲型肝炎的主要传播方式是
A.血液传播
B.飞沫传播
C.唾液传播
D.粪口传播
E.垂直传播
第1题
有如下程序: Private Sub command1_Click() a=1:b=1 Print"a=";a;",b=";b Call mult((a),b) Print "a=";a;",b=";b 语句 End Sub Sub mult(x,y) K=2 * k y=3 * k Print "x=";x;",y=";y End Sub 运行后,标有“语句”的Print语句的输出结果是【 】。
第2题
下面程序运行后,窗体中显示______。Private Sub Command1_ Click() a$ = "*": b$ = "$ for k = 1 To 3 x$ = String$(Len(a$) +k, b$) Print x$; Next k PrintEnd Sub
A.*** ** ***
B.*$*$*$
C.1*$2*$3*$
D.$$$$$$$$$
第3题
第4题
阅读下列程序。
Option Base 1
Private Sub Form. _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j<>k then x(j,k)=k
Next k
Next i
Call fun(x())
End Sub
Private Sub fun(x())
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】。
第5题
执行以下程序段后,窗体显示的内容为()。 Private Sub Form_Click() a = 75 If a >= 60 Then k = k + 4 ElseIf a >= 70 Then k = k + 3 ElseIf a >= 80 Then k = k + 2 ElseIf a >= 90 Then k = k + 1 End If Form1.Print "k=", k End Sub
A、k = 1
B、k = 2
C、k = 3
D、k = 4
第6题
编写如下事件过程: Private Sub Form_Click() k=2 Ifk>=1 Then A=3 Ifk>=2 Then A=2 Ifk>=3 Then A=1 Print A End Sub 程序运行后,单击窗体,输出的结果为 ______。
A.1
B.2
C.3
D.出错
第7题
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j<>k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】
第8题
A.sub(1,97);
B.sub(2,'97');
C.n=sub(3,'a');
D.sub(4,"a");
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!