设工程文件包含两个窗体文件Form1．frm、Form2．frm 及一个标准模块文件Module1．bas ，两个窗体上分别只有一个名称Co mmand1的命令按钮。Form1的代码如下：Public X As IntegerPrivate Sub Form＿load（）x＝1y ＝5End SubPrivate Sub Co mmand1＿Click（）Form2．ShowEnd SubForm2的代码如下：Private Sub Co mmand1＿Click（）Print Form1．x，yEnd SubModule1的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮Co mmand1，则显示Form2；再单击Form2上的命令按钮Co mmand1，则窗体上显示的是（ ）。

试卷相关题目

• 1在设计窗体时双击窗体的任何地方，可以打开的窗口是（　　）。

  A.代码窗口

  B.属性窗口

  C.工程资源管理器窗口

  D.工具箱窗口

  开始考试点击查看答案
• 2已知a＝5，b ＝／，c ＝12，下列表达式的值为True 的是（　　）。

  A.a＞b And c ＜a

  B.a＞b Or c ＜a

  C.a＞b Xor c ＜a

  D.a＞a Eqv c ＜a

  开始考试点击查看答案
• 3如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（　　）。

  A.任何时刻最多只有一个窗体是活动窗体

  B.不能把标准模块设置为启动模块

  C.用Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体

  D.如果工程中含有Sub Main 过程，则程序一定首先执行该过程

  开始考试点击查看答案
• 4声明一个变量为局部变量应该用（　　）。

  A.Global

  B.Private

  C.Static

  D.Public

  开始考试点击查看答案
• 5设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是（　　）。

  A.Menu1．Enabled ＝True

  B.Menu1．Enabled ＝False

  C.Menu1．Visi ble ＝True

  D.Menu1．Visi ble ＝False

  开始考试点击查看答案
• 6在Visual Basic 工程中，可以作为"启动对象"的程序是（　　）。

  A.任何窗体或标准模块

  B.任何窗体或过程

  C.Sub Main 过程或其他任何模块

  D.Sub Main 过程或任何窗体

  开始考试点击查看答案
• 7将文本框的Pass wordChar 属性设置为一个星号＊，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（　　）。

  A.文本框的Multi Li ne 属性值为True

  B.文本框的Looked 属性值为True

  C.文本框的Multi Li ne 属性值为False

  D.文本框的Looked 属性值为False

  开始考试点击查看答案
• 8有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是在坐标X，Y 处画一个点）：Di mc mdmave As BooleanPrivate Sub Form＿MouseDown （Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝TrueEnd SubPrivate Sub Form＿Mouse Move（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） If c mdmave Then Form1．Pset（X，Y）End IfEnd SubPrivate Sub Form＿Mouse Up（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝FalseEnd Sub此程序的功能是（　　）。

  A.每按下鼠标键一次，在鼠标所指位置画一个点

  B.按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失

  C.不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

  D.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

  开始考试点击查看答案
• 9下列程序的执行结果为（　　）。Private Sub Co mmand1＿Click（）Di mp As Integer ，q As Integerp ＝12：q ＝20 Call Value（p ，q）Print p ；qEnd SubPrivate Sub Value（ByVal m As Integer ，ByVal n AsInteger）m＝m＊2：n ＝n －5Print m；nEnd Sub

  A.20 1220 15

  B.12 2012 25

  C.24 1512 20

  D.24 1212 15

  开始考试点击查看答案
• 10在窗体上放置一个命令按钮Co mmand1，并编写下列单击事件的程序：Option Base 1Private Sub Co mmand 1＿Click（）Di mc As Integer ，d As Integerd ＝0c ＝6X＝Array（2，4，6，8，10，12）For i ＝1To 6If X（i）＞c Thend ＝d ＋X（i）c ＝X（i）Elsed ＝d －cEnd IfNext iPrint dEnd Sub程序运行后，单击命令按钮，则在窗体上输出的内容为（　　）。

  A.10

  B.12

  C.16

  D.20

  开始考试点击查看答案