男,48岁,2年前因“胃溃疡穿孔”行胃大部切除术。近5个月常于清晨空腹时出现精神症状,进食后缓解。今
A.自主神经功能紊乱
B.营养不良
C.胃大部切除术后
D.胰岛素瘤
E.反应性低血糖
A.自主神经功能紊乱
B.营养不良
C.胃大部切除术后
D.胰岛素瘤
E.反应性低血糖
第1题
单击一次命令按钮之后,下列程序代码的执行结果为 private Sub Command1_Click() S=P(1) +P(1)+P(2)+P(3)+P(4) Print S: End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function
A.20
B.35
C.115
D.135
第2题
单击命令按钮时,下列程序代码的执行结果为:________________。
Public Sub Proc1(ByVal n As Integer, ByRef m AsInteger)
n = n Mod10
m = m Mod10
End Sub
Private Sub Command1_Click()
Dim x AsInteger, y As Integer
x = 34: y= 12
CallProc1(x, y)
Print x;y
End Sub
第3题
单击命令按钮时,下列程序代码的运行结果为 Private Sub Command1_Click() print MyFunc(20,18) End Sub Public Function MyFunc (m As Integer,n As Integer)As Integer Do While m <>n Do While m > n:m=m - n:Loop Do While m < n:n=n - m:Loop Loop MyFunc=m End FunCtion
A.0
B.2
C.4
D.6
第4题
单击命令按钮之后,下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S: End Sub
A.20
B.30
C.115
D.135
第5题
单击命令按钮时,下列程序代码的执行结果为 Private Sub Command1_Click() Print MyFunc(24,18) End Sub Public Function MyFunc(m As Integer,n As Integer)As Integer Do While m ◇ n Do While m>n:m=m—n:Loop DO While m<n:n=n-m:Loop Loop My Func=m End Function
A.2
B.4
C.6
D.8
第6题
单击命令按钮时,下列程序代码的执行结果为______。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x,y) Print x;y End Sub
A.12 34
B.2 34
C.2 3
D.12 3
第7题
单击命令按钮时,下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer,ByVa1 m As Integer) n=n Mod 10 m=m\ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End Sub
A. 12 34
B.2 34
C.2 3
D.12 3
第8题
4.运行下面程序,单击命令按钮,则输出结果为______________________________
Private sub Command1_Click()
a=80:b=30
a=a+b
b=a-b
a=a*b
Print b
End Sub
第9题
单击命令按钮时,下列程序的运行结果为
Private Sub Command1_Click()
Print Fun(23,18)
End Sub
Public Function Fun(m As Integer,n As Integer) As Integer
DO While m<>n
DO While m>n:m=m-n:Loop
DO While m<n:n=n-m:Loop
Loop
Fun=m
End Function
A.0
B.1
C.3
D.5
第10题
单击命令按钮时,下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12: y=34 Call Procl(x,y) Print x;y End Sub
A.12 34
B.2 34
C.2 3
D.12 3
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!