题目内容 (请给出正确答案)
[主观题]

有如下事件过程: PrivateSubCommand1_Click() DimiAsInteger Fori=1To2 DC Nexti EndSu

有如下事件过程:

Private Sub Command1_Click()

Dim i As Integer

For i=1 To 2

DC

Next i

End Sub

Sub DC()

Dim x As Integer, m As String

Static y, n

x=x + 1

y=y + 1

m=m &"*": n=n & "#"

Print x, y, m, n

End Sub

程序运行后,输出的结果是()。

A.1 1 * #

1 1 * #

B.1 1 * #

1 2 * #

C.1 1 * #

1 1 * ##

D.1 1 * #

1 2 * ##

提问人:网友casepk 发布时间:2022-01-06
参考答案
查看官方参考答案
如搜索结果不匹配,请 联系老师 获取答案
更多“有如下事件过程: PrivateSubCommand1_Cl…”相关的问题
第1题
有如下事件过程:Prirate Sub Form_Click()A$="123": B$="456"x=Val(A$)+Val(B$)Print x\100End S

有如下事件过程: Prirate Sub Form_Click() A$="123": B$="456" x=Val(A$)+Val(B$) Print x\100 End Sub 程序运行后,单击窗体,则窗体上显示的内容是______。

A.123

B.3

C.5

D.579

点击查看答案
第2题
若在某窗体模块中有如下事件过程:Privam Sub Command1_Click(Index As Integer)......End Sub则

若在某窗体模块中有如下事件过程: Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是______。

A.此事件过程与不带参数的事件过程没有区别

B.有—个名称为Command1的窗体,单击此窗体则执行此事件过程

C.有一个名称为Command1的控件数组,数组中有多个不同类型控件

D.有—今名称为Command1的控件数组,数组中有多个相同类型控件

点击查看答案
第3题
若在某窗体模块中有如下事件过程 PrivateSubCommand1_Click(IndexASInteger)……EndSub则

若在某窗体模块中有如下事件过程

Private Sub Command1_Click(Index AS Integer)

……

End Sub

则以下叙述中正确的是()。

A. 此事件过程与不带参数的事件过程没有区别

B. 有1个名称为Command1的窗体,单击此窗体则执行此事件过程

C. 有1个名称为Command1的空件数组,数组中有多个不同类型控件

D. 有1个名称为Command1的空件数组,数组中有多个相同类型控件

点击查看答案
第4题
有如下事件过程: SubABD(x%,y%,z%) z%=x%+y% EndSub PrivateSubCommand1_Click() a%=30

有如下事件过程:

Sub ABD(x%, y%, z%)

z%=x% + y%

End Sub

Private Sub Command1_Click()

a%=30: b%=40

Call ABD(a%, b%, c%)

Print c%

End Sub

运行上面的程序,单击命令按钮,输出结果为()。

A.70

B.70.0

C.7.0E+1

D.显示错误信息

点击查看答案
第5题
有如下事件过程:Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值"

有如下事件过程: Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a)b = InputBox("请输入b值") b = Val(b)a=a*b Loop Print a End Sub 程序运行后,依次输入数值30,20,10,-1后,输出结果为()。

A.6000

B.-10

C.200

D.-6000

点击查看答案
第6题
有如下事件过程。 Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)If (Button An

有如下事件过程。

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

If (Button And 3)=3 Then

Print "OK"

End If

End Sub

程序运行后,为了在窗体上输出"OK",应当按下的鼠标键是

A.左键

B.右键

C.同时按下左键和右键

D.按什么都不显示

点击查看答案
第7题
有如下事件过程:Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)If (Button And

有如下事件过程:

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

If (Button And 3) =3 Then

Print "OK"

End If

End Sub

程序运行后,为了在窗体上输出“OK”,应当按下的鼠标键是

A.左键

B.右键

C.同时按下左键和右键

D.按什么键都不显示

点击查看答案
第8题
有如下Sub过程: Sub Sun(x As Single, y As Single) t=x x=t/y y=t Mod yEnd Sub在窗体上的命令

有如下Sub过程: Sub Sun(x As Single, y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上的命令按钮Command1中,编写如下事件过程,执行该事件过程调用Sun过程,结果为()。 Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a, b Print a; b End Sub

A.1.25 1

B.5 4

C.4 5

D.1 1.25

点击查看答案
第9题
有如下函数过程:FunctiOngyS(By Val X As Integer,ByValy As Integer)As IntegerDOWhiley<>0remi

有如下函数过程: FunctiOngyS(By Val X As Integer,ByValy As Integer)As Integer DOWhiley<>0 reminder=x Mody X=y y=reminder Loop gys=x End FunctiOn 以下是调用函数的事件过程,该程序的运行结果是,()。 PriVate Sub Command7_Click() Dim

A.0

B.25

C.50

D.100

点击查看答案
第10题
有如下事件过程:Private Sub Commandl_Click()b=10Do Until b=-1a=InputBox(“请输入a的值”)a=Val

有如下事件过程: Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入a的值”) a=Val(A) b=InputBox(“请输入b的值”) b=Val(B) a=a*b Loop Pdnt a End Sub 程序运行后,依次输入数值30,20,10,-1,输出结果为()。

A.6000

B.-10

C.200

D.-6000

点击查看答案
账号:
你好,尊敬的用户
复制账号
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改
欢迎分享答案

为鼓励登录用户提交答案,简答题每个月将会抽取一批参与作答的用户给予奖励,具体奖励活动请关注官方微信公众号:简答题

简答题官方微信公众号

警告:系统检测到您的账号存在安全风险

为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!

微信搜一搜
简答题
点击打开微信
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
微信搜一搜
简答题
点击打开微信