34、设工程文件包含两个窗体文件Form1．frm、Form2．frm 及一个标准模块文件Module1．bas ，两个窗体上分别只有一个名称Co mmand1的命令按钮。 Form1的代码如下： Public X As Integer Private Sub Form＿load（） x＝1 y ＝5 End Sub Private Sub Co mmand1＿Click（） Form2．Show End Sub Form2的代码如下： Private Sub Co mmand1＿Click（） Print Form1．x，y End Sub Module1的代码如下： Public y As Integer 运行以上程序，单击Form1的命令按钮Co mmand1，则显示Form2；再单击Form2上的命令按钮Co mmand1，则窗体上显示的是（ ）。 A．1 5 B．0 5 C．0 0 D．程序有错
35、在Visual Basic 工程中，可以作为"启动对象"的程序是（ ）。 A．任何窗体或标准模块 B．任何窗体或过程 C．Sub Main 过程或其他任何模块 D．Sub Main 过程或任何窗体
36、将文本框的Pass wordChar 属性设置为一个星号＊，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是 （ ）。 A．文本框的Multi Li ne 属性值为True B．文本框的Looked 属性值为True C．文本框的Multi Li ne 属性值为False D．文本框的Looked 属性值为False
37、有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是在坐标X，Y 处画一个点）： Di mc mdmave As Boolean Private Sub Form＿MouseDown （Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝True End Sub Private 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 If End Sub Private Sub Form＿Mouse Up（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝False End Sub 此程序的功能是（ ）。 A．每按下鼠标键一次，在鼠标所指位置画一个点 B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 D．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
38、在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序： Private Sub Form＿Load（） Command2．Enabled ＝False Check1．Value ＝1 End Sub 刚运行程序时，看到的窗体外观是（ ）。 A． B． C． D．
39、下列程序的执行结果为（ ）。 Private Sub Co mmand1＿Click（） Di mp As Integer ，q As Integer p ＝12：q ＝20 Call Value（p ，q） Print p ；q End Sub Private Sub Value（ByVal m As Integer ，ByVal n AsInteger） m＝m＊2：n ＝n －5 Print m；n End Sub A．20 12 20 15 B．12 20 12 25 C．24 15 12 20 D．24 12 12 15
40、在窗体上放置一个命令按钮Co mmand1，并编写下列单击事件的程序： Option Base 1 Private Sub Co mmand 1＿Click（） Di mc As Integer ，d As Integer d ＝0 c ＝6 X＝Array（2，4，6，8，10，12） For i ＝1To 6 If X（i）＞c Then d ＝d ＋X（i） c ＝X（i） Else d ＝d －c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的内容为（ ）。 A．10 B．12 C．16 D．20
