请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码)。1．在考生文件夹下打开工程sjt

若A＝20，B＝80，C＝70，D＝30，则表达式A+B＞160 Or(B * C＞200 And Not D ＞60)的值是【 】。

在属性窗口中为对象设置属性值，应在程序的【 】阶段进行。

在考生文件夹下有一个工程文件sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数绝对值相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。如图2—1所示。

要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。

2．在考生文件夹下有一个工程文件sjt4.vhp，相应的窗体文件为sjt4.frm。在窗体上有2个命令按钮、1个标签和1个计时器，其名称分别为Command1、Command2、Label1和Tim er1，如图2—2所示。程序运行后，在命令按钮Command1中显示“开始”，在命令按钮

Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True)，同时把计时器的Interva1属性设置为50，Enabled属性设置为 False。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图2—3所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

试题所提供的程序如下：

Private Sub Form. Load()

Command1.Caption="开始"

Command2.Caption="停止"

Timer1.Interval=50

Timer1.Enabled=False

Label1.Caption="热烈欢迎"

Label1.AutoSize=True

Label1.FontSize=16

Label1.FontBold=True

End Sub

Private Sub Command1_Click()

Command1.Caption="继续"

'Timer1.Enabled=?

Command1.Enabled=False

Command2.Enabled=True

End Sub

Private Sub Command2_Click()

'Timer1.Enabled=?

Command2.Enabled=False

Command1.Enabled=True

End Sub

Private Sub Timer1_Timer()

If Label1.Left＜Width Then

'Label1.Left=?

Else

'Label1.Left=?

End If

End Sub

+vbQuestion,"提示"

Private Sub Command1 _Click( )

For i = 1 To 20

x=Int(【 】*200+ 100)

If【 】 = 0 Then

Print x

S = S +【 】

End If

Next I

Print "Sum = "; S

End Sub

”对话框，设置该对话框只用于找开文本文件，然后在富文本控件中显示打开的文件内容。

Private Sub Command1_Click ( )

CommonDialogFilter = 【 】

CommonDialogShowOpen

RichTextBoxFileName = 【 】

End Sub

执行以下程序段，并输入1.23，则程序的输出结果应是【 】。

N=Str(InputBox(“请输入一个实数：”))

p=IiaStr(N，".")

Print Mid(N，p)

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。

(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为 vbNew、vbOpen和vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图3-3所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。

(2)在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算”的命令按钮，如图3-4所示。要求程序运行后，单击命令按钮，将计算100-200之间所有素数之和，在文本框中显示结果，同时把结果存入文件out.txt中。 (在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回 False，考生可以把该模块文件添加到自己的工程中。)

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.txt文件。