Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print BBBB End If End Sub 程序运行后，为在窗体上输出 “BBBB”，应执行操作为()。

相似题目

• 在以下事件过程中，Private表示（）。 Private Sub txtName_Change（） EndSub

  A . 此过程可以被任何其它过程调用 B . 此过程只可以被本窗体模块中的其它过程调用 C . 此过程不可以被任何其它过程调用 D . 此过程是一个不可用过程

  查看最佳答案

• 如果在定义Sub过程时没有使用Private、Public和Static关键字，则所定义的过程是（）.

  A . 可能是公有的，也可能是私有的 B . 公有的 C . 静态的 D . 私有的

  查看最佳答案

• 有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。

  A . 定义一个数据处理方法 B . 定义一个数据输入方法 C . 定义一个事件过程 D . 定义一个数据类型

  查看最佳答案

• 下列程序输出结果为（ ）。 Private Sub Command1_Click() a%=10 b%=5 Change a,b Print a,b End Sub Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub

  查看最佳答案

• 设有以下程序片段 ： Public x% Private y$ Private Sub Command1_Click() Dim a …… End Sub Private Sub Command2_Click() Static b …… End Sub 在 Command1_Click 过程中无法访问的变量是 ________ 。

  查看最佳答案

• 设有如下程序代码 ： Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。

  查看最佳答案

• 如果窗体模块 A 中有一个过程 ： Private Sub Proc( ) …… End Sub 则下面叙述中 错误的是 ________ 。

  查看最佳答案

• 以下程序的循环次数是（ ）。Private Sub Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd Sub

  查看最佳答案

• 下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

  查看最佳答案

• 在窗体上设计如下两个事件过程： Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer)Print Chr（KeyCode) End Sub Private Sub Form_KeyPress（KeyAscii As Integer)Print Chr（KeyAscii) End Sub 在程序运行后，按“a”键（不按住Shift

  查看最佳答案

• 下列程序: Private Sub Form_Click （）

  A．1 B．12345678910 C．10 D．显示出错信息

  查看最佳答案

• 有如下代码: Private Sub Command1_Click（）

  A．1 B．2 C．3 D．4

  查看最佳答案

• Private Sub Command1_Click（）

  a=Val（InputBox（"请输入a的值="））b=Val（InputBox（"请输入a的值="））x=a+bIfa＞bThen x=a-bEnd IfPrint xEnd Sub若运行时从键盘输入a和b分别为3和4，则程序输出的结果为（） A．1 B． 7 C． 10 D． 11

  查看最佳答案

• 编写如下事件过程；Private Sub Form_MouseDown（Button As Integer,Shift As Integer,X AS Single

  编写如下事件过程； Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X AS Single， Y As Single) If Shif=6 And Button=2 Then Print"BBBB" End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为______。 A．同时按下Shift键和鼠标左键 B．同时按下Shift键和鼠标右键 C．同时按下Ctrl、Alt键和鼠标左键 D．同时按下Ctrl、Alt键和鼠标右键

  查看最佳答案

• 在窗体中添加一个命令按钮，编写如下程序：Private Sub Sub1（p，m，n)p=p+1：m=m+1：n=n+1Print "sub1：

  在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为 A．Sub： 2 6 4 Main： 2 6 4 B．Sub： 2 6 4 Main： 2 6 4 C．Sub： 2 6 4 Main： 1 2 3 D．Sub： 2 6 4 Main： 2 2 3

  查看最佳答案

• 当按下鼠标左键触发下面事件发生时,参数Button的值是 。 Private Sub Form _ MouseDow n （） End Sub

  A．0 B．1 C．2 D．4

  查看最佳答案

• 执行下面的程序段后，结果是（）。Private Sub Form_Click（）Dim mIf m Then Print m Else Print m+1End Sub

  A．A.0 B．B.1 C．C.’’ D．D.False

  查看最佳答案

• 程序执行结果s的值是 【7】 。 Private Sub sub1（Byval p As Integer) p=p*2 End Sub Private Sub Command1_ Click（) Dim i As Integer i=3 Call sub 1 （i) if i＞4 then i=i mod 2 Print cstr（i) End Sub

  查看最佳答案

• 单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click（) BT 4 End Sub Private Sub BT（x As Integer) x=x*2+1 If x＜6 Then Call BT（x) End If x=x*2 Print x； End Sub Ａ) 15 Ｂ) 16 Ｃ) 17 Ｄ) 18

  A．15 B． 16 C． 17 D． 18

  查看最佳答案

• 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click（）

  A．Right B．Left C．Val D．Mid

  查看最佳答案

• 窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面事件过程： Private Sub Command1_Click（) Timer1.Enabled=True End Sub Private Sub Form_Load（) Timer1.Interval=5 Timer1.Enabled=False End Sub Private Sub Timer1_Timer（

  A．命令按钮每5毫秒向左移动一次 B． 命令按钮每5毫秒向右移动一次 C． 命令按钮每5秒向左移动一次 D． 命令按钮每5秒向右移动一次

  查看最佳答案

• 在窗体中有一个文本框Test1，编写事件代码如下：Private Sub Form_Click（）

  A．1 B．2 C．3 D．4

  查看最佳答案

• 在窗体上有一个列表，然后编写如下两个事件过程： Private Sub Form_Click（) List1.RemoveItem 1:List1.RemoveItem 2 List1RemoveItem 3 End Sub Private Sub Form_Load（) List1.AddItem"ItemA":List1.AddItem"ItemB’P List1.AddItem"ItemC

  查看最佳答案

• 下列程序的执行结果为（）。 Private Sub Commandl_Click（) Dim X As Integer，y As Integer x=12：y=20 Call Value（x，y) Print X；y End Sub Private Sub Value（ByVal m As Integer，ByVal n As Integer) m=m * 2：n=n-5 Print m；n

  A．SetWarning B．SetValue C．MsgBox D．Beep

  查看最佳答案