网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

在窗体上有一个命令按钮Commandl,编写事件代码如下:

Private SuB commandl_Click()

Dim a(10),p(3)As Integer

k=5

For i=1 To 10

a(i)=i+i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k =k+p(i)*2

Next i

MsgBox k

End SuB

打开窗体运行后,单击命令按钮,消息框中输出的结果是【 】。


参考答案

更多 “ 在窗体上有一个命令按钮Commandl,编写事件代码如下:Private SuB commandl_Click()Dim a(10),p(3)As Integerk=5For i=1 To 10a(i)=i+iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k =k+p(i)*2Next iMsgBox kEnd SuB打开窗体运行后,单击命令按钮,消息框中输出的结果是【 】。 ” 相关考题
考题 ( 10 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = i * iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) *2Next iMsgBox kEnd Sub打开窗体运行后,单击命令按钮,消息框中输出的结果是 【 10 】 。

考题 在窗体上有一个命令按钮Command1,编写事件代码如下:Private Sub Command1_Click()Dim a(10),P(3) As Integerk=5For i=1 To 10For i=1 To 3For i=1 To 3End Sub打开窗体运行后,单击命令按钮,消息框中输出的结果是( )。

考题 在窗体中有一个命令按钮Commandl,编写事件代码如下:Private Sub Commandl Click( ) Dim S As Integer s=p(1)q+p(2)q+p(3)+p(4) debu9.Print S End Sub Public Function P(N As Integer) Dim Sum As IntegerSum==0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后,单击命令按钮,输出的结果是( )。A.15B.20C.25D.35

考题 在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。A. 1B. 2C. 3D. 4

考题 在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码: Pfivate Sub Command 1 Click( )窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。A. 1B. 2C. 3D. 4

考题 在窗体上有一个命令按钮Commandl,编写事件代码如下:Private Sub Commandl Click( ) Dim X As Integer,Y As Integer x=12:y=32 Call Proc(x,Y) Debug.Print X;Y End Sub Public Sub proc(n As Integer,ByVal in As Integer) n=n Mod 10 m=m Mod 1O End Sub 打开窗体运行后,单击命令按钮,立即窗口上输出的结果是( )。A.232B.123C.22D.1232

考题 在窗体中有一个命令按钮Commandl,编写事件代码如下:Private Sub Command1_CliCk()Dim s As Integers=P(1)+P(2)+e(3)+P(4)debug.Print SEnd SUbPublic Function P(N AS Integer)Dim Sum As IntegerSum=0For i=1 To NSum=Sum+iNext iP=SumEnd Function打开窗体运行后,单击命令按钮,输出结果是A.15B.20C.25D.35

考题 在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。A)1B)2C)3D)4

考题 |在窗体中有一个命令按钮Commandl,编写事件代码如下: Private Sub Commandl_Click( ) Dim SAsIntegerS=P(1)+P(2)+P(3)十P(4)debu9.Print SEnd SubPublic Function PfN AS Integer)Dim Sum As IntegerSum=0Fori=l ToNSum=Sum+iNextiP=SumEnd Function打开窗体运行后,单击命令按钮,输出结果是( )。【程序设计综合知识】A.15B.20C.25D.35