m = Val(Text1.Text) n = Val(Text2.Text) s = 0
For i = m To n flag = True
For j = 2 To i - 1 If i Mod j = 0 Then flag = False Exit For End If Next j
If flag Then s = s + i End If Next i
Text3.Text = Str(s)
EndSub （4）保存工程 选择“文件”→“保存工程”命令，或者单击工具栏的“保存工程”按钮保存窗体
文件和工程文件。
（5）生成可执行文件 选择“文件”→“Dsg0403.exe”命令，生成可执行程序文件。
，
4．打开工程文件Dsg0404.vbp，在标题为“动画设置”的窗体Form1上，添加一个标 题为空、带有边框的标签Label1，其高度为400、宽度为400、左边距为100；然后再添加 两个标题分别为“移动”和“停止”的命令按钮Command1和Command2；最后添加一个计 时器控件Timer1，其事件间隔时间为1秒，计时器处于非激活状态。程序运行时，单击“移动”按钮，Label1每隔1秒向右移动100；单击“停止”按钮，Label1停止移动并退回到左 边距为 100 的位置，运行界面如图 4-7 所示。完成上述功能后，以原文件名保存窗体 （Dsg0404.frm）和工程（Dsg0404.vbp）。
（a）移动
图 4-7 动画设置的运行界面
（b）停止
- 34 -
【操作步骤】
（1）创建用户界面 选择“文件”→“打开工程”命令，在“打开工程”的对话框中选择“Dsg0404.vbp”
工程文件。接着在窗体Form1上添加一个标签、两个命令按钮和一个计时器，然后用鼠标调整各个控件的大小和位置，调整后的控件布局如图4-8（a）所示。
（2）设置对象属性 根据设计要求，按表 4-4 所示的值设置各个控件对象的属性，设置后的界面如图4-8（b） 所示。
表 4-4 动画设置的对象属性设置
对象 窗体 Form1 对象名称 Caption 属性 属性值 动画设置
- 35 -
Caption Label1 Height Width Left 标签 命令按钮 命令按钮
Command1 Command2 Caption Caption 空 405 405 100 移动 停止 续表 属性 属性值 对象 对象名称 计时器 Timer1 Interval Enabled 1000 False
（a）控件布局
图 4-8 动画设置的设计界面
（b）属性设置
（3）编写程序代码
①在“移动”按钮的Click事件过程中编写代码。
Private SubCommand1_Click()
Timer1.Enabled = True
EndSub
②在“停止”按钮的Click事件过程中编写代码。
Private SubCommand2_Click()
Timer1.Enabled = False Label1.Left = 100
EndSub
③在计时器的Timer事件过程中编写代码。
Private SubTimer1_Timer()
Label1.Move (Label1.Left + 100)
EndSub （4）保存工程 选择“文件”→“保存工程”命令，或者单击工具栏的“保存工程”按钮保存窗体
文件和工程文件。
- 36 -
，
（5）生成可执行文件 选择“文件”→“Dsg0404.exe”命令，生成可执行程序文件。
5．打开工程文件Dsg0405.vbp，在标题为“求和运算”的窗体Form1上，添加一个标 题为“10”、带有边框的标签Label1；接着再添加一个水平滚动条HScroll1，其最大值为100，最小值为1，当前值为10；然后再添加一个标题为“求和”的命令按钮Command1；最后添 加一个文本内容为空的文本框 Text1。程序运行时，当拖动 HScroll1 滑块时，滑块的当前值显示在Label1中，如图4-9（a）所示；单击“求和”按钮，以Label1中的值为n，计算表达式
1+(1+2)+(1+2+3)+?+(1+2+3+?+n)之和，并在 Text1 显示计算结果，如图4-9（b） 所示。完成上述功能后，以原文件名保存窗体（Dsg0405.frm）和工程（Dsg0405.vbp）。
（a）拖动滑块
图 4-9 求和运算的运行界面
（b）求和
【操作步骤】
（1）创建用户界面 选择“文件”→“打开工程”命令，在“打开工程”的对话框中选择“Dsg0405.vbp” 工程文件。接着在窗体Form1上添加一个标签、一个水平滚动条、一个命令按钮和一个文本 框，然后用鼠标调整各个控件的大小和位置，调整后的控件布局如图4-10（a）所示。
（2）设置对象属性
根据设计要求，按表 4-5 所示的值设置各个控件对象的属性，设置后的界面如图4-10（b） 所示。
表 4-5 求和运算的对象属性设置
对象 窗体 对象名称 Form1 Caption Caption BorderStyle 属性 属性值 标签 Label1 Min HScroll1 Max Value 水平滚动条 命令按钮 文本框 Command1 Text1 Caption Text 求和运算 10 1-fixed4321-single 1 100 10 求和 空
- 37 -
（a）控件布局
图 4-10 求和运算的设计界面
（b）属性设置
（3）编写程序代码
①在水平滚动条的Scroll事件过程中编写代码。
Private SubHScroll1_Scroll()
Label1.caption=hscroll1.value
EndSub
②在“求和”按钮的Click事件过程中编写代码。
Private SubCommand1_Click()
Dim sum As Double, fac As Double, n As Integer Dim i As Integer, j As Integer n = Val(Label1.Caption) sum = 0
For i = 1 To n fac = 1
For j = 1 To i fac = fac + j Next j
sum = sum + fac Next i
Text1.Text = Str(sum)
- 38 -
三
EndSub
（4）保存工程 选择“文件”→“保存工程”命令，或者单击工具栏的“保存工程”按钮
，保存窗体
文件和工程文件。
（5）生成可执行文件 选择“文件”→“Dsg0405.exe”命令，生成可执行程序文件。
- 39 -