在窗体上放置一个命令按钮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程序运行后，单击命令按钮，则在窗体上输出的内容为（　　）。

试卷相关题目

• 1下列程序的执行结果为（　　）。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

  开始考试点击查看答案
• 2有一个名称为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.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

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

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

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

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

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

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

  A.任何窗体或标准模块

  B.任何窗体或过程

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

  D.Sub Main 过程或任何窗体

  开始考试点击查看答案
• 5设工程文件包含两个窗体文件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，则窗体上显示的是（ ）。

  A.1 5

  B.0 5

  C.0 0

  D.程序有错

  开始考试点击查看答案