单项选择题

设工程文件包含两个窗体文件Form1．frm、Form2．frm及一个标准模块文件Modulel．bas。两个窗体上分别只有一个名称为Command1的命令按钮。Forml的代码如下：Public X As IntegerPrivate Sub Form Load() x=1：y=5End SubPrivate Sub Commandl_Click() Form2．ShowEnd SubForm2的代码如下：Private Sub Commandl_Click() Print Forml．x．yEnd SubModulel的代码如下：Public y As Integer运行以上程序，单击Forml的命令按钮Commandl，则显示Form2；再单击Form2上的命令按钮Commandl，则窗体上显示的是

A．1 5
B．0 5
C．0 0
D．程序有错

你可能感兴趣的试题

单项选择题

以下关于多重窗体程序的叙述中，错误的是

A．对于多重窗体程序，需要单独保存每个窗体
B．在多重窗体程序中，可以根据需要指定启动窗体
C．在多重窗体程序中，各窗体的菜单是彼此独立的
D．用Hide方法不仅可以隐藏窗体，而且还可以清除内存中的窗体

单项选择题

下列操作中不能向工程添加窗体的是

A．执行“工程”菜单中的“添加窗体”命令
B．单击工具栏上的“添加窗体”按钮
C．右击窗体，在弹出的菜单中选择“添加窗体”命令
D．右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令

单项选择题

设工程中有Form1、Form2两个窗体，要求单击Form2上的Command1命令按钮，Form2就可以从屏幕上消失，下面的事件过程中不能实现此功能的是．

A．Private Sub Commandl_Click()Form2．Hide End Sub
B．Private Sub Commandl_Click()Unload Me End Sub
C．Private Sub Commandl_Click()Form2．Unload End Sub
D．Private Sub Commandl_Click()Me．Hide End Sub

单项选择题

工程中有Form1、Form2两个窗体(Form1中有文本框Text1；Form2中有Text1文本框和Command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码：Form1中的代码如下：Private Sub Text1_DblClick() Text1=”VisualBasic” Form2．ShowEnd SubForm2中的代码如下：Private Sub Commandl_Click() Text1=Form1．Text1 Form1．ShowEnd Sub 下面关于程序的叙述中错误的是

A．双击Form1的Text1后，Textl中显示“VisualBasic”．弹出Form2
B．双击Form1的Text1后，Form2成为当前窗体
C．单击Form2的命令按钮，Form1成为当前窗体
D．Form2的Text1=Form1．Text1语句不能正确执行

单项选择题

设工程中有2个窗体：Forml和Form2，每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中，应进行的操作是

A．执行Form1中的语句：Form1．Text1=Form2．Text1
B．执行Form1中的语句：Text1=Form1．Text
C．执行Form2中的语句：Form1．Text1=Text1
D．执行Form2中的语句：Text1=Form1,Text1

单项选择题

设工程文件包含两个窗体文件Form1．frm、Form2．frm及一个标准模块文件Modulel．bas。两个窗体上分别只有一个名称为Command1的命令按钮。Forml的代码如下：Public X As IntegerPrivate Sub Form Load() x=1：y=5End SubPrivate Sub Commandl_Click() Form2．ShowEnd SubForm2的代码如下：Private Sub Commandl_Click() Print Forml．x．yEnd SubModulel的代码如下：Public y As Integer运行以上程序，单击Forml的命令按钮Commandl，则显示Form2；再单击Form2上的命令按钮Commandl，则窗体上显示的是

A．1 5
B．0 5
C．0 0
D．程序有错

单项选择题

以下叙述中错误的是

A．Sub Main是定义在标准模块中的特定过程
B．一个工程中只能有一个Sub Main过程
C．Sub Main过程不能有返回值
D．当工程中含有Sub Main过程时，工程执行时一定最先执行该过程

单项选择题

Visual Basic中的“启动对象”是指启动Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于Visual Basic“启动对象”的描述中，错误的是

A．“启动对象”可以是指定的标准模块
B．“启动对象”可以是指定的窗体
C．“启动对象”可以是Sub Main过程
D．若没有经过设置，则默认的“启动对象”是第一个被创建的窗体

单项选择题

以下关于VB文件的叙述中，正确的是

A．标准模块文件的扩展名是．frm
B．VB应用程序可以被编译为．exe文件
C．一个工程文件只能含有一个标准模块文件
D．类模块文件的扩展名为．bas

单项选择题

如果把程序的启动对象设置为：Sub Main，则Sub Main过程

A．只能写在Forml窗体中代码的最前面
B．可以写在Forml窗体中代码的任何位置
C．只能写在某个标准模块的代码中
D．可以写在仟何窗体或标准模块的代码中

单项选择题

以下叙述中，错误的是

A．标准模块不属于任何一个窗体
B．工程文件的扩展名为．vbg
C．窗体文件的扩展名为．frm
D．一个应用程序可以有多个窗体

单项选择题

以下关于键盘事件的叙述中，错误的是

A．按下键盘按键既能触发KeyPress事件，也能触发KeyDown事件
B．KeyDown、KeyUp事件过程中，大、小写字母被视作相同的字符
C．KeyDown、KeyUp事件能够识别Shift、Alt、Ctrl等键
D．KeyCode是KeyPress事件的参数

单项选择题

以下说法中正确的是

A．当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程
B．因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程
C．若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同
D．在KeyPress事件过程中，KeyAscii参数可以省略

单项选择题

以下可以判断是否在文本框(名称为Textl)内按下了回车键的事件过程是

A．Textl_Change
B．Textl_Click
C．Textl_KeyPress
D．Textl_GotFocus

单项选择题

向文本框中输入字符时，下面能够被触发的事件是

A．GotFocus
B．KeyPress
C．Click
D．MouseDown

单项选择题

下列事件的事件过程中，参数是输入字符ASCII码的是

A．KeyDown事件
B．KeyUp事件
C．KeyPress事件
D．Change事件

单项选择题

关于KeVPress事件，以下叙述中正确的是

A．在控件数组的控件上按键盘键，不能触发KeyPress事件
B．按下键盘上任一个键时，都能触发KeyPress事件
C．按字母键时，拥有焦点的控件的KeyPress事件会被触发
D．窗体没有KeyPress事件

单项选择题

文本框Textl的KeyDown事件过程如下：Private Sub Textl—KeyDown(KeyCode As Integer，Shift As Integer)…End Sub其中参数KeyCode的值表示的是发生此事件时

A．是否按下了Alt键或Ctrl键
B．按下的是哪个数字键
C．所按的键盘键的键码
D．按下的是哪个鼠标键

单项选择题

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Textl文本框中，则每输入一个字母

A．这3个事件都会触发
B．只触发KeyPress事件
C．只触发KeyDown、KeyUp事件
D．不触发其中任何一个事件

单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Textl)，并把窗体的KevPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form Load() Text1．Text=""：Text1．SetFocusEnd SubPrivate Sub Commandl_Click() Textl．Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii_ As Integer) SaveAll=SaveAll+Chr(KeyAscii)End Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为

A．vbVB
B．不显示任何信息
C．VB
D．出错

单项选择题

窗体上有一个Text1文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Sub 程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是

A．A
B．B
C．C
D．D

单项选择题

对于文本框Text1，能够获得按键的ASCII码值的事件过程是

A．Text1 KeyUp
B．Text1 KeyPress
C．Text1 Click
D．Text1 Change

单项选择题

将窗体的KeyPreview属性设为True，然后编写如下程序：Private Sub Form_KeyDown(KeyCode_ As Integer,Shift As Integer) Print Chr(KeyCodc)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KcyAscii)End Sub 运行程序时，按下字母键a，则窗体上显示的是

A．A A
B．A a
C．a A
D．a a

单项选择题

在窗体上画1名为Commandl的命令按钮和1名Textl的文本框，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)<>””Then ss=ss+Chr(KeyAscii) End Sub Private Sub Commandl_Click() Dim m As String，i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(ss，i，1) Next Text1．Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是

A．NUMBER 100
B．REBMUN
C．REBMUN 100
D．001 REBMUN

单项选择题

窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程： Private Sub Textl_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1．Text； End Sub 运行程序，并在文本框中输入“123”，则在窗体上的输出结果为

A．123
B．112
C．12123
D．112123

单项选择题

设窗体上有2个文本框Text1和Text2，并有下面的事件过程： Dim n Private Sub Textl_KeyPress(KeyAscii As Integer) If”A”<=Chr(KeyAscii)And Chr(KeyAscii)<=”Z”Then n=n+1 End If If KeyAscii=13 Then Text2．Text=nEnd Sub 程序运行时，在文本框Textl中输入“Visual Basic 6．0”并按回车键后，在文本框Text2中显示的是

A．2
B．9
C．13
D．16

单项选择题

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时 Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single，Y As Single) Print”VB Program” End Sub

A．用鼠标左键单击名称为“Commandl”的命令按钮时，执行此过程
B．用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C．用鼠标右键单击名称为“MouseDown”的控件时，执行此过程
D．用鼠标左键或右键单击名称为“Click”的控件时，执行此过程

单项选择题

设有窗体的Form MouseMove事件过程如下： Private Sub Form_MouseMove(Button As Integer，Shift As Integer,X As Single，Y As Single) If(Button And 3)=3 Then Print”检查按键” End IfEnd Sub 关于上述过程，以下叙述中正确的是

A．按下鼠标左键时，在窗体上显示“检查按键”
B．按下鼠标右键时，在窗体上显示“检查按键”
C．同时按下鼠标左、右键时，在窗体上显示“检查按键”
D．不论做何种操作，窗体上都不会显示

单项选择题

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

A．rivate 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 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

单项选择题

窗体的MouseUp事件过程如下： Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) End Sub 关于以上定义，以下叙述中错误的是

A．根据Shift参数，能够确定使用转换键的情况
B．根据X、Y参数可以确定触发此事件时鼠标的位置
C．Button参数的值是在MouseUp事件发生时，系统自动产生的
D．MouseUp是鼠标向上移动时触发的事件

单项选择题

命令按钮Commandl的MouseUp事件过程结构如下： Private Sub Commandl_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) …… End Sub 则以下叙述中错误的是

A．X、Y参数表示的是Commandl左上角在窗体中的位置
B．Button参数用于确定按下的鼠标键
C．Shift参数用于确定是否按下了Alt、Ctrl或Shift键
D．MouseUp表示抬起鼠标按键时触发的事件

单项选择题

有下面事件过程： Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single，Y As Single) IfButton=2 Then Forml．PSet(X，Y)’PSet方法可以在X，Y处画一个点 End If End Sub 程序运行后，产生的效果是

A．在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点
B．按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹
C．按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹
D．不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹

单项选择题

窗体上已有1个名称为Picturel的图片框，要求实现下面2个功能之一：(1)在窗体上移动鼠标时，立即将Picturel显示在鼠标位置(2)在窗体上单击鼠标时，立即将Picturel显示在鼠标位置下面不能实现上述任何功能的事件过程是

A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picturel．Move X，Y End Sub
B．Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) Picturel．Move X，Y End Sub
C．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picturel．CurrentX=X：Picturel．CurrentY=Y End Sub
D．Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single,Y As Single) Picturel．Move X，Y End Sub

单项选择题

编写如下程序： Private Sub Form_Click() Print”Welcome!” End Sub Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As S ingle，Y As Single) Print”欢迎!” End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) Print”热烈欢迎!” End Sub 程序运行后，单击窗体，输出结果为

A．欢迎!热烈欢迎!Welcome!
B．欢迎!Welcome!热烈欢迎!
C．Welcome!欢迎!热烈欢迎!
D．Welcome!热烈欢迎!欢迎!

单项选择题

下列操作说明中，错误的是

A．在具有焦点的对象上进行一次按下字母键操作，会引发KeyPress事件
B．可以通过MousePointer属性设置鼠标光标的形状
C．不可以在属性窗口设置MousePointer属性
D．可以在程序代码中设置MousePointer属性

单项选择题

窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为

A．Private Sub Label1_Click() Label1．Caption=Text1．Text End Sub
B．Private Sub Label1_Change() Label1．Caption=Text1．Text End Sub
C．Private Sub Textl+Click() Labell．Caption=Text1．Text End Sub
D．Private Sub Text1_Change0 Label1．Caption=Text1．Text End Sub

单项选择题

鼠标拖放控件要触发两个事件，这两个事件是

A．DragOver事件和DragDrop事件
B．Drag事件和DragDrop事件
C．MouseDown事件和KeyDown事件
D．MouseUp事件和KeyUp事件