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

假定有如下的Sub过程： SubS (x As Single, y As Single) t = x x = t / y

题目
单选题
假定有如下的Sub过程： SubS (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（　） Dim a As Single Dim b As Singlea = 5: b = 4 S a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果（）。
A

54

B

11

C

1.254

D

1.251

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

第1题：

假定有如下的Sub过程：

Sub sfun（x As Single，y As Single）

t=x

x=t/y

y=t Mod y

End Sub

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

Private Sub Command1_Click（）

Dim a as single

Dim b as single

a=5

b=4

sfun a，b

MsgBox a & chr（10）+chr（13）& b

End Sub

打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为

A．1和1

B．1.25和1

C．1.25和4

D．5和4


正确答案：B

第2题：

（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（ ）。 Private Sub Commandl_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


正确答案：A
【解析】本题考查过程的调用，如果用Call语句调用子过程时，实际参数要放在括号中，如果不使用Call子句，则不必使用括号。本题参数调用时是按地址传递，因此Sun过程中变量的值改变也即改变了单击事件中的a、b变量值。
Sun a,b的执行过程是：t=x=5,x=t/y=1.25,y=t Mod y=1。

第3题：

在窗体上先后画两个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图1)，且将bananA、DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖曳到Picttne1中(见图2)。能实现此功能的事件过程是______。

A．Private Sub Form_DlagDrop(Source As Control,X As Single,Y As Single) bananA、Move Picture1.Left+X,Picture1.Top+Y End Sub

B．Private Sub banana_DragDrop(Source As Control,X As Single,Y As Single) SourcE．Move Picture1.Lefi+X,Picture1.Top+Y End Sub

C．Private Sub Picture1_DmgDrop(Source As Contro1,X As Single,Y AS Single) SourcE．Move Picture1.Left+X,Picture1.Top+Y End Sub

D．Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single) bananA、Move bananA、Let+X,banan.Top+Y End Sub


正确答案：C
解析：DragMode属性：用来设置自动或手动拖放模式：缺省值为0(手动方式)。为了让控件自动执行拖放操作，必须把它的属性设为1，该属性即可以在属性窗口中设置，也可以在程序中设置。
拖动意味着移动光标到对象上，按住鼠标，接着移动鼠标使对象在屏幕内滑动以重新定位对象。当释放鼠标按钮时，在拖动对象所在控件边界内放开鼠标会触发DragDrop事件。如果放开鼠标时对象不在一个控件的上面，那么对象定位于窗体本身。
如果一个对象在一个控件(或窗体)上被放开，并且在后者的DragDrop事件中没有放任何内容，那么“被放开”的对象将仍然在窗体上原先位置出现，不会出现其他事情。因此，拖动对象的DragDrop事件不是用来存放有关放开对象时执行某些指令的地方。而应将这些指令放到背景的DragDrop事件中或者拖动对象所放开的目标控件中。
一个DragDrop事件提供三条信息——DragDrop(Source as Comro1,X as Single,Y as Single)。Soume，是已经放开的图片、图标或控件。X和Y值，是放开事件所在目标对象的水平和垂直方向位置。

第4题：

下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：

Dim PaintStart As Boolean

编写如下事件过程：

Private Sub Form_Load()

DrawWidth=2

ForeColor=vbGreen

End Sub

Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single)

PaintStart=True

End Sub

Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)

If PaintStart Then

PSet(X，Y)

End If

End Sub

Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)

End Sub

Private Sub Form_DblClick()

Cls

End Sub


正确答案：PaintStart=False
PaintStart=False 解析：上述过程定义了一个布尔型变量PaintStart，当按下鼠标左键(触发MouseDown事件)时，由题意按下鼠标键表示能画图，所以该变量的值为Tine，而松开鼠标左键(触发MouseUp事件)时，该变量为False；如果变量PaintStart为True，则移动鼠标 (触发MouseMove事件)，将在窗体上绘出一个点；除鼠标事件外，上述程序还含有一个Load事件过程和一个DblClick事件过程，其中Load事件过程用来设置画点的大小和颜色，DblClick事件过程用来清除所画的图形，函数Pset是画点语句，用它可以在(x,y) 处画一个点。

第5题：

要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

A．Private Sub P1_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) Print X，Y End Sub

B．Private Sub P1_M0useDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture．Print X，Y End Sub

C．Private Sub P1_MouscMove(Button As integer，Shift As Integer，X As Single，Y As Single) P1．Print X．Y End Sub

D．Private Sub Form_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) P1．Print X．Y End Sub


正确答案：C
解析：鼠标在图片框中移动，对象应为图片框控件，而不是窗体，选项D)是错误的；鼠标移动触发的是MouseMove事件，选项B)是错误的；在图片框内显示坐标，Print的对象名为图片框，如果没有对象名，则默认输出到窗体上，所以正确的答案为C)。

第6题：

（ 25 ）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

A ）

Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Print X,Y

End Sub

B ）

Private Sub P1_MouseDown （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Picture.Print X,Y

End Sub

C ）

Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

E n d S u b

D ）

Private Sub Form_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

End Sub


正确答案：C

第7题：

有如下SUB过程:

Sub s(x As Single,y As Single)

t=x

x=t / y

y=t Mod y

End Sub

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

Private Sub Form_Click()

Dim a As Single

Dim b As Single

a=5

b=4

s a,b

Print a,b

End Sub

则程序运行后,单击命令按钮,输出的结果为【 】 。


正确答案：1.251
1.25,1 解析：调用s过程,传入"a=5,b=4"。t=5 , x=5/4, 故x=1.25;y=5%4,故y=1。返回并输出(1.25,1)

第8题：

对窗体编写如下事件过程： Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button =2 Then Print “AAAAA” End If End Sub Private Sub Form_ MouseUp (Button As Integer，Shift As Integer，X As Single，Y As Single) Print “BBBBB” End Sub 程序运行后，如果单击鼠标右键，则输出结果为______ 。

A．AAAAA BBBBB

B．BBBBB

C．AAAAA

D．BBBBB AAAAA


正确答案：A

第9题：

假定有如下的Sub过程： Sub sfun(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1 Click() Dim a as single Dim b as single a=5 b=4 sfun a,b MsgBox a & chr(10)+chr(13)&b End Sub 打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为( )。

A．1n1

B．1.25和1

C．1.25和4

D．5和4


正确答案：B
解析：在主过程中，变量a及变量b分别被赋值为5和4，然后调用SUB过程，在该过程中，变量x被赋值为a除以b的商(1.25)，而变量y则被赋值为a除以b的余数(1)，SUB过程结束后，参数返回，重新对变量a和b赋值，所以msgBox所显示的值应当为1.25和1，故选项B为正确答案。

第10题：

有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B． 1 1

C．2 2

D．1 2


正确答案：B
解析：考查考生对调用通用过程的掌握情况。
  [解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
  [错解分析] 调用通用过程可以返回多个参数值。
  [考点链接] 过程调用、参数传递。

更多相关问题
相关内容