沈祥玖编的vb课后习题答案

实验题目：求和
实验目的：
1. 练习循环程序的编写；
2. 练习For语句的使用；
3. 练习子过程的定义和调用。
实验内容：
1. 编写程序，执行从1到选取任意数字（可设置一个很大的数字上限）之间的整数的累加运算。在窗体上设置一个水平滚动条滑块，可显示并设定要累加的选取数字。拖动滚动条可以选择不同的数字上限。
单击“总计”按钮，执行从1到选取的数字之间的整数的累加运算，并显示在文本框中，该文本框中不允许直接输入数字，单击“结束”按钮，可结束程序的执行。求和程序要求用子过程实现。
2. 在上述程序基础上，添加一个新的计算功能，求出刚才选定上限与1之间所有素数。同样用子过程实现。

以下代码放到用记事本保存到form1.frm

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 1575
Left = 1920
MultiLine = -1 'True
TabIndex = 4
Text = "Formx.frx":0000
Top = 1440
Width = 2055
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 375
Left = 120