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

在窗体上添加一个命令按钮,编写事件过程:Private Sub Command1_Click()Dim a As Integer,b As

题目

在窗体上添加一个命令按钮，编写事件过程：

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=InputBox("Enter the First integer")

b=InputBox("Enter the Second integer")

Print b+a

End Sub

程序运行后，单击命令按钮，先后在两个输入对话框中分别345和678，则输出结果是( )。

A.1023

B.678345

C.678

D.345

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

第1题：

如果存在如下过程：

Private Function FMax（a（） As Integer）

Dim First As Integer, Last As Integer, i As Integer

First=LBound（A）

Last=UBound（A）

Max=a（First）

For i=First To Last

If a（i） > Max Then Max=a（i）

Next i

FMax=Max

End Function

在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

ReDim m（1 To 4） As Integer

m（1） =20: m（2） =30: m（3） =50: m（4） =100

c=FMax（m）

Print c

End Sub

单击命令按钮，其输出结果为 【12】 。


正确答案：
正确答案:  1.(100)  

第2题：

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．0

B．5

C．6

D．7


正确答案：B
解析：当一数字用函数Str(数字)转成字符串时，总会在前头保留一空位来表示正负。如果数字为正，返回的字符串包含一前导空格暗示有一正号。

第3题：

（ 11 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：

Private Sub Command1_Click( )

Dim x As Integer, y As Integer

x=12 : y=32

Call p(x, y)

MsgBox x*y

End Sub

Public Sub p (n As Integer, By Val m As Integer)

n=n Mod 10

m=m Mod 10

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为 ___________ 。


正确答案：

第4题：

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Dim m As Integer，n As Integer，p As Integer m=3：n=5：p=O Call Y(m，n，p) Print Str(p)End SubSub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i + jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．4

B．6

C．8

D．10


正确答案：C
解析：此程序考查了函数的调用，函数过程有3个形参，功能是将第一个和第二个形参的和赋给第三个形参，其中前两个形参是按值传递，不会影响实参的数值，即在调用函数过程的过程中，不变化实参的数值；而第三个形参是按址传递，传递的是实参的地址，这样实参会随着过程中形参的变化而变化，即改变实参的数值。在主调过程中定义了三个整型变量，分别赋值3、5、0，调用过程后m、n的数值仍然是3、5，而p的值不再是0而变为8，即m、n的和，这也是被调函数的作用。

第5题：

在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：

Private Sub Command1_Click()

Dim a As Integer,b As Integer

x=10

y=20

End Sub

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


正确答案：20
20 解析： 本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。

第6题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后，单击命令按钮，则窗体下显示的内容是______。

A．8

B．2

C．5

D．11


正确答案：A
解析：因为Subl过程的形参都是传值传送，所以在其内的所有计算结果都不将返回，并不影响对应的实参值，变量a的值并没有改变，仍然是8。

第7题：

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：

Private Sub Command1_Click()

Dim x As Integer,y As Integer,z As Integer

Call f(x,y,z)

End Sub

Sub f(a As Integer,b As Integer,c As Integer)

c=b*a

End Sub

打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。


正确答案：15
15

第8题：

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim m As Integer, n As Integer, p As Integer

m=3: n=5: p=0

Call Y（m, n, p）

Print Str（p）

End Sub

Sub Y（ByVal i As Integer, ByVal j As Integer, k As Integer）

k=i + j

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

A．4

B．6

C．8

D．10


正确答案：C

第9题：

在窗体上画一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b ＞＝ 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后，窗体上显示的结果是 ______。

A．101

B．6

C．5

D．4


正确答案：D
解析：事件发生时给变量b赋值1，然后执行For循环。先给a赋初值1，判断If后面的条件“b＞=10”为False，接着执行If语句，判断“b Mod 3=1”为“True”，执行语句“b=b+3”，第一次循环结束后，b=4，a=2。第二次循环结束后，b=7，a=3。第三次循环后，b=10， a=4。接着执行第四个循环，判断If后面的条件“b＞=10”为True，退出循环，a的输出值为4。

第10题：

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50


正确答案：B
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。

更多相关问题
相关内容