生产、销售的劣药被使用后造成中度残疾的,应认定为
A.足以严重危害人体健康
B.对人体健康造成严重危害
C.对人体健康造成特别严重危害
D.后果特别严重
E.对人体健康造成特别重大损害
第1题
在窗体中添加一个命令按钮,编写如下程序: Private Sub Test(p,m,n) p=p+1:m=m+1:n=n+1 Print "Sub: ";p;m;n End Sub Private Sub Command1.Click() a1=1:b=2:c1=3 Call Test((a,b1+3,(c1)) Print "Main:";a1;b1;c1 End Sub 程序运行后,输出结果为
A.Sub: 2 6 4 Main: 2 6 4
B.Sub: 2 6 4 Main: 2 6 4
C.Sub: 2 6 4 Main: 1 2 3
D.Sub: 2 6 4 Main: 2 2 3
第2题
在窗体中添加一个命令按钮,编写如下程序:
Private Sub Sub1(p,m,n)
p=p+1:m=m+1:n=n+1
Print "sub1:";p;m;n
End Sub
Private Sub Command1_Click()
a1=1:b=2:c1=3
Call Sub1(a,b1+3,c1)
Print"Main:";a1;b1;c1
End Sub
程序运行后,输出结果为
A.Sub: 2 6 4 Main: 2 6 4
B.Sub: 2 6 4 Main: 2 6 4
C.Sub: 2 6 4 Main: 1 2 3
D.Sub: 2 6 4 Main: 2 2 3
第3题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub sub1(p,m,n) p=p + 1 : m = m + 1 : n =n + 1 Print p;m;n End Sub Private Sub Command1_Click() x=6 : y=4 : z=2 Call sub1(x,y+1,(z)) Print x;y;z End Sub 程序运行后,单击命令按钮,则窗体上第二行显示的内容是
A.7 6 3
B.7 4 2
C.6 4 2
D.4 6 3
第4题
在窗体中添加一个命令按钮,编写如下程序: Private Sub Sub1(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub1:";p;m;n End Sub Private Sub Command1_Click() a1=1:b=2:c1=3 Call Sub1(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后,输出结果为
A.Sub: 2 6 4 Main: 2 6 4
B.Sub: 2 6 4 Main: 2 6 4
C.Sub: 2 6 4 Main: 1 2 3
D.Sub: 2 6 4 Main: 2 2 3
第5题
在窗体中添加一个命令按钮,编写如下程序: Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后,输出结果为
A.Sub:2 6 4 Main:2 6 4
B.Sub:2 6 4 Main:2 6 4
C.Sub:2 6 4 Main:1 2 3
D.Sub:2 6 4 Main:2 2 3
第6题
在窗体中有一个命令按钮Commandl,编写事件代码如下:
Private Sub Command1_CliCk()
Dim s As Integer
s=P(1)+P(2)+e(3)+P(4)
debug.Print S
End SUb
Public Function P(N AS Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后,单击命令按钮,输出结果是
A.15
B.20
C.25
D.35
第7题
在窗体中有一个命令按钮Commandl,编写事件代码如下:
Private Sub Command1_CliCk()
Dim s As Integer
s=P(1)+P(2)+e(3)+P(4)
debug.Print S
End SUb
Public Function P(N AS Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后,单击命令按钮,输出结果是
A.15
B.20
C.25
D.35
第8题
在窗体中添加一个名称为Com1的命令按钮,然后编写如下程序:
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Com1_Click()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
End sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为()。
第9题
在窗体中添加一个名为Command1的命令按钮,然后编写如下程序:
Private Sub s(By Val p As Integer)
p=p*2
End Sub
Prirate Sub Command1_Click()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
MsgBox I
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!