违法和不良信息举报 联系客服
免费注册 登录

在窗体上有一个命令按钮Command1,编写事件代码如下:Private Sub Command 1_Click()Dim x As Inte

题目

在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command 1_Click() Dim x As Integer，y As Integer x=12:y=32 Call Proe(X，Y) Debug.Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=in Mod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。

A．2 32

B．12 3

C．2 2

D．12 32

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Staticy As Integer Cls For i=0 To 2 x=x+y y=y+3 Next Printx,y End Sub 程序运行后，连续二次单击Command1按钮后，窗体上显示的是 ______。

A．9 9

B．36 18

C．30 12

D．63 27


正确答案：B
解析：本题考的是Static语句。 Static语句：在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用Static语句声明的变量的值。 本题中y是以Static声明的，它的值在离开Command1_Click事件后是不会丢失的，而x是一个局部变量，它只在过程中有用，．离开了过程就不起作用了。点了一次以后，y=9，点了二次以后，当i=0时，x=x+y=0+9=9， y=y+3=9+3=12．当i=1时，x=9+12=21，y=12+3=15；当i=2时，x=21/15=36，7=15+3=18。

第2题：

在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click(． Dim i, j, x For i = 1 To 20 Step 2 x = 0 For j = i To 20 Step 3 x = x + 1 Next j Next i Text1.Value = Str(x． End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是

A.1

B.7

C.17

D.400


正确答案：A
【解析】事件代码中有两个for循环，第一个for循环"Fori=1To20step2"变量i的初值为1，终值为20，步长为2，循环条件符合，执行语句"x=0"，为变量x赋值为0，从这里可以看出，无论循环执行多少次，在执行循环体时，x的值都将还原为0，通过这一点可知，最后一次循环的结果即为整个程序的运行值。再来看整个程序，第二个For循环"Forj=iTo20step3"，初值为i，终值为20，步长为3，那么可以知道，当i=1时，第二个循环执行7次;当i=3时，第二个循环执行6次，依次类推，当i=19时，第一个循环最后一次执行，那么把i=19代入到第二个循环中：当i=19时，j=19，x=0+1=1。此时j=j+3=19+3=22，22>20，循环条件不成立，循环结束。至此，第一个for循环和第二个for循环都运行结束，所以x=1，通过语句"Text1.Value=Str(x．"将字符1显示在窗体的文本框中。所以本题答案为A。

第3题：

在窗体上有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a As String * 10 Private Sub Command1_Click( ) a="1234" b=Len(a) Me. Lb1. Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。

A．4

B．5

C．10

D．40


正确答案：C
解析：首先定义a为字符串类型，长度为10，当单击命令按钮后将a的长度值赋予b，并且将b的值10通过标签显示出来。

第4题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command 1_ Click() Static y As Integer CIs For i=0 To 2 x=x +y y=y +3 Next Print x, yEnd Sub程序运行后，连续二次单击Command1按钮后，窗体上显示的是______。

A．9 9

B．36 18

C．30 12

D．63 27


正确答案：B
解析：本题考的是Static语句。Static语句：在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用Static语句声明的变量的值。本题中y是以Static声明的，它的值在离开Command1_ Click事件后是不会丢失的，而x是一个局部变量，它只在过程中有用，离开了过程就不起作用了。点了一次以后，y=9，点了二次以后，当i=0时，x=x+ y=0+9=9，y=y+3=9+3=12；当i=1时，x=9+12=21，y=12+3=15；当i=2时，X=21+15=36，v=15+3=18。

第5题：

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下： Private Sub Command1 Click（ ） Static x As Variant n=0 x=Array(1，2，3，4，5，6，7，8，9，10) While n<=4 x(n)=x(n+5) Print x(n)： n=n+1 Wend End Sub 运行程序，单击命令按钮Command1，窗体上显示的是（ ）。

A.1 2 3 4 5

B.6 7 8 9 10

C.2 3 4 5 6

D.6 2 3 4 5


正确答案：B
B。【解析】X是当作变量来声明，当作数组来使用，n=0，n<=4，因此n是5个值，x(n)=x(n+5)，x(n)是每个值加5，因此，是6，7，8，9，10。

第6题：

在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。

A．1

B．7

C．17

D．400


正确答案：A

第7题：

在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：

单击命令按钮后，标签显示的结果是( )。


正确答案：25
25

第8题：

在窗体上有一个命令按钮Command1，编写事件代码如下：

Private Sub Command1_Click()

Dim a(10)，P(3) As Integer

k=5

For i=1 To 10

For i=1 To 3

For i=1 To 3

End Sub

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


正确答案：201
201 解析： 本题考查的是VBA编程基础。经过第一个for循环，a(i)中a(1)～a(10)存的分别是1～10的平方。第二个循环后，p(i)中的p(1)存的是a(1)的值，p(2)中存的是a(4)的值，p(3)中存的是a(9)的值，经过最后一个循环之后，k的值应该为201。

第9题：

窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click()

x = InputBox("x=")

y = InputBox("y=")

Print x + y

End Sub

运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是( )。

A、 444

B、 123321

C、 123+321

D、 出错信息


正确答案：B

相关内容