若仅把Frame1的Enabled属性设为False，则op1、op2仍可用
对于上图，op1.Value自值为True
对于上图，执行op1.Value＝False命令，则“往返”单选按钮被选中
对于上图，执行op1.Value＝0命令，程序出错
第1题：
在考生文件夹中有一个工程文件execise100.vbp及窗体文件execise100.frm。请在名为 Form1的窗体上绘制两个框架(如下图所示)其名称分别为Frame1和Frame2，标题分别为“交通工具”和“到达目标”。在Frame1中绘制两个单选按钮，名称分别为Opt1和Opa，标题分别为“飞机”和“火车”。在Frame2中绘制两个单选按钮，名称分别为Opt3和opt4，标题分别为“大连”和“哈尔滨”。然后绘制一个命令按钮，其名称为Cmd1，标题为“确定”。再绘制一个标签，其名称为Lab1，宽度为3000，高度为375。
不得修改窗体文件中已经存在的程序。在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的“关闭”按钮。最后按原文件名并在原文件夹中保存修改文件。
第2题：
在窗体上画一个名称为Label1、标题为“Visual Basic考试”的标签，两个名称分别为Conmmnd1和Com— mand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。
编写如下程序： Private Sub Form_Load( ) Timer1.Enabled=False End Sub Private Sub Command1_Click( ) Timer1.Enabled=True End Sub PrivateSubCommand2_Click( ) Fimerl.Enabled=False End Sub Private SubTimer1_Timer( ) If Label1.Left＜Width Then Label1.Left=Label1.1eft+20 Else Label1.Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是
A．标签的移动方向为自右向左
B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C．当标签全部移出窗体后，将从窗体的另—端出现并重新移动
D．标签按指定的时间间隔移动
第3题：
A、Enabled属性为假，则该命令按钮颜色为浅色
B、Visibled 属性为真，则该命令按钮颜色为浅色
C、Visibled 属性为真，则该命令按钮不可见
D、Enabled属性为假，表示该命令按钮无效
E、Visibled 属性为假，则该命令按钮不可见
第4题：
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Conlmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图16-7所示。 编写如下程序： Private Sub Form_Load() Timer1. Enabled=False End Sub Private Sub Command1_Click() Timer1. Enabled=True End Sub Private Sub Command2_Click() Timer1. Enabled=False End Sub Private Sub Timer1_Timer() If Label1. Left＜Width Then Label1. Left=Label1. Left+20 Else Label1. Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是______。
A．标签的移动方向为自右向左
B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D．标签按指定的时间间隔移动
第5题：
在窗体中添加～个命令按钮(名称为Commandl)，然后编写如下代码：
窗体打开运行后，如果单击命令按钮，则消息框的输出结果为（ ）。
A. 0
B. 9
C. a=9
D. False
第6题：
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。
在考生文件夹下有一个工程文件sjt5.vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1和op2，标题分别为“求200到300之间能被7整除的数之和”和“求200到300之间能被3整除的数之和”，如图27-5所示。
请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。
第二步：编写程序代码。
程序提供的代码：
Private Function fun(a As Integer) As Integer
s% = 0
For i% = 200 To 300
If Int(i% / a) = i% / a Then
s% = s% + i%
End If
Next
fun = s%
End Function
Private Sub Form_Unload(Cancel As Integer)
Open "out5.txt" For Output As #1
Print #1 Opl.Value Op2.Value Textl.Text
Close #1
End Sub
参考答案
Private Function fun(a As Integer) As Integer
s% = 0
For i% = 200 To 300
If Int(i% / a) = i% / a Then
s% = s% + i%
End If
Next
fun = s%
End Function
Private Sub C1_Click()
If Opl.Value Then
Text1 = fun(7)
End If
If Op2.Value Then Text1 = fun(3)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "out5.txt" For Output AS #1
Print #1 Opl.Value Op2.Value Text1.Text
Close #1
End Sub
第三步；调试并运行程序。
第四步：按题目要求存盘。
第二步：编写程序代码。
程序提供的代码：
Private Function fun(a As Integer) As Integer
s% = 0
For i% = 200 To 300
If Int(i% / a) = i% / a Then
s% = s% + i%
End If
Next
fun = s%
End Function
Private Sub Form_Unload(Cancel As Integer)
Open "out5.txt" For Output As #1
Print #1, Opl.Value, Op2.Value, Textl.Text
Close #1
End Sub
参考答案
Private Function fun(a As Integer) As Integer
s% = 0
For i% = 200 To 300
If Int(i% / a) = i% / a Then
s% = s% + i%
End If
Next
fun = s%
End Function
Private Sub C1_Click()
If Opl.Value Then
Text1 = fun(7)
End If
If Op2.Value Then Text1 = fun(3)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "out5.txt" For Output AS #1
Print #1, Opl.Value, Op2.Value, Text1.Text
Close #1
End Sub
第三步；调试并运行程序。
第四步：按题目要求存盘。
第7题：
为使标题栏上的这两个按钮消失，而保留其他按钮，没置窗体属性时，正确的是
A．ControlBox=True、MaxButton=False、MinButton=True
B．ControlBox=False、MaxButton=True、MinButton=True
C．ControlBox=True、MaxButton=False、MinButton=False
D．ControlBox=False、MaxButton=False、MinButton=False
第8题：
在考生文件夹下有一个工程文件sjt5.vbp，在该过程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1、Op2，标题分别为“求500到600之间能被 7整除的数之和”、“求500到600之间能被3整除的数之和”(如图3—1所示)。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
② 编写程序代码。
题目提供给考生的代码：
Private Function fun(a As Integer)As
Integer
s%=0
For i%＝500 To 600
If Int (i%/a)＝i%/a Then
s%＝s%+i%
End If
Next
fun=s%
End Function
Private Sub Form_Unload(Cancel As Integer)
Open "out5.txt"For Output As #1
Print #1Op1. ValueOp2. ValueText1. Text
Close #1
End Sub
参考代码：
Private Sub C1_Click()
If Op 1. Value Then
Text1. Text＝fun(7)
ElseIf Op2.Value Then
Text1.Text＝fun(3)
End If
End Sub
③ 按题目要求存盘并进行相应的操作。
② 编写程序代码。
题目提供给考生的代码：
Private Function fun(a As Integer)As
Integer
s%=0
For i%＝500 To 600
If Int (i%/a)＝i%/a Then
s%＝s%+i%
End If
Next
fun=s%
End Function
Private Sub Form_Unload(Cancel As Integer)
Open "out5.txt"For Output As #1
Print #1,Op1. Value,Op2. Value,Text1. Text
Close #1
End Sub
参考代码：
Private Sub C1_Click()
If Op 1. Value Then
Text1. Text＝fun(7)
ElseIf Op2.Value Then
Text1.Text＝fun(3)
End If
End Sub
③ 按题目要求存盘并进行相应的操作。
第9题：
在窗体上画一个名称为Labell、标题为“ViSBalBasic考试”的标签，两个名称分别为 Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。
编写如下程序： Private Sub Form Load() Timerl.Enabled = False End Sub Private Sub Command1 Click() Timer1.Enabled = True End Sub Private Sub Command2 Click() Timerl.Enabled = False End Sub Private Sub Timerl Timer() If Labell．Left＜Width Then Labell.Left = Labell.Left+20 Else Labell.Left = 0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是
A．标签的移动方向为自右向左
B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动
D．标签按指定的时间间隔移动
第10题：
在窗体上画两个单选按钮(名称分别为Optionl、Option2，标题分别为“宋体”和“黑体”)、1个复选框(名称为Checkl，标题为“粗体”)和1个文本框(名称为Text1．Text属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是（ ）
