第一题：
1、 新建一个窗体。
2、 窗体属性设置如下：
3、窗体布局如下。
4、 双击窗体，打开**窗口并输入如下**：
private sub form_click()
dim x as integer: dim y as integer
x = 0: y = 0
do while x <=100
y = y + x
x = x + 1
loopprint "和为：" str(y)
print "循环变量的值为：" str(x)
end sub
5、再制作一个同样的窗体，双击窗体输入如下**：
private sub form_click()
dim x as integer: dim y as integer
x = 0: y = 0
for x = 1 to 100 step 1
y = y + x
next x
print "和为：" str(y)
print "循环变量的值为：" str(x)
end sub
6、单击“文件-保存工程”菜单项，分别以和文件名保存在d:\vb\4的目录下。
第二题：1、 新建一个窗体。
2、 窗体属性设置如下：
3、 窗体布局如下。
4、 双击窗体，打开**窗口并输入如下**：
private sub form_click()
dim x as single: dim y as integer
x = 1for y = 1 to 25 step 1
x = x + 1 / 2 * y)
next y
print x
end sub
5、 单击“文件-保存工程”菜单项，以和为名分别将窗体文件和工程文件保存在d:\vb\4的目录下。
第三题：1、 在新建的窗体上画2个命令按钮、3个标签和3个文本框。
2、 命令按钮、文本框及标签的属性设置如下：
3、 各控件布局如下：
4、双击窗体，打开**窗口并输入如下**：
private sub command1_click()
dim x as integer: dim max as integer: dim min as integer:
dim sum as integer: dim m(0 to 9) as integer
randomize
for x = 0 to 9 step 1
m(x) =int(rnd * 10) +1
print m(x);
next x
for x = 0 to 9
if max < m(x) then
max = m(x)
end if
next x
= maxmin = max
for x = 0 to 9
if min > m(x) then
min = m(x)
end if
next x
= minfor x = 0 to 9 step 1
sum = sum + m(x)
next= sum / 10
end sub
private sub command2_click()
endend sub
5、 单击“文件-保存工程”菜单项，以和文件名保存在d:\vb\4的目录下。
五、实验调试与结果分析。
第一题：开始的时候输入的循环语句的**如下。
do while x < 100
x = x + 1
y = y + x
loop运行后得到的结果是，循环变量少1，与所要求的结果不一致，将**做如下调试：
do while x < 100
y = y + x
x = x + 1
loop运行后得到的结果是，和值减少了100，与所要求的结果不一致，再将**做如下调试：
do while x <=100
y = y + x
x = x + 1
loop运行后得到正确的结果。
用for循环语句没有出现类似的错误。
第二题：开始的时候用for循环输入如下**。
private sub form_click()
dim x as integer: dim y as integer
for y = 1 to 25 step 1
x = x + 1 / 2 * y)
next y
print x
end sub
运行后得到的结果是，与预期结果不符，分析得知是在定义变量x的数据类型时出错，故将**做如下调试：
private sub form_click()
dim x as single: dim y as integer
for y = 1 to 25 step 1
x = x + 1 / 2 * y)
next y
print x
end sub
运行后得到的结果是，发现比预期的结果少1,分析得知是没有给变量x一个初始值，而变量x 的初始值默认是0，故将**做如下的调试：
private sub form_click()
dim x as single: dim y as integer
x=1for y = 1 to 25 step 1
x = x + 1 / 2 * y)
next y
print x
end sub
运行后得到正确的结果。
第三题：开始时显示10个随机数的**如下：
for x = 0 to 9 step 1
m(x) =int(rnd * 10) +1
print m(x)
next x
运行后出现的结果是。
发现结果是竖着输出的，而要求的是横着输出，于是在print m(x)后面加一个分号，使后一次的结果与前一次的结果紧密输出，调试后得到正确的显示结果。
六、总结。do…loop语句的主要语法为：
do（while条件）
语句块。loop
执行时，先计算while后的条件是否为true，如果是则继续执行下面的语句块，当执行到loop关键词时，返回到循环开始处再次检查条件是否成立，成立则继续往下执行，如果不成立则退出循环，执行loop后面的语句。
do…loop语句中也可以省略while条件句，等同于条件恒为真，会一直反复执行循环，可能造成“死循环”的现象，为了防止死循环的发生，可以在循环体的适当位置使用exit do 语句，当程序执行到这个语句时，会立即结束循环，跳到loop下面的语句去执行。
也可以把while条件放到后面去，其语法为：
do语句块（循环体）
loop while 条件。
该语法可以保证循环至少被执行一次，防止不循环的发生。
此外，do…loop语句还可以改为直到型循环形式。
do until 条件。
语句块。loop
同样可以将until条件放到loop后面以保证循环至少被执行一次。
for…next语句语法为：
for 计数器变量=初始值 to 终止值 （step 增量）
语句块（循环体）
next 计数器变量。
该语句的执行过程如下：
1、 先给计数器变量赋初始值。
2、 根据增量的正负，确定初始值与终止值的关系，判断是否满足循环执行的条件，满足则执行语句块然后执行第3步，不满足则结束循环，转到第5步。
3、 执行语句块后，将计算器变量的值加上增量值后，仍赋给计算器变量。
4、 转到第2步继续循环。
5、 执行next语句后的下一个语句。
for…next循环语句的循环次数为：
int（（终止值—初始值）/步长+1）
vb课后作业
课后作业。1 控件的使用户能够移动控件并调节其大小。a.拖曳柄b.标题栏c.工具箱d.工程资源管理器。2 将命令按钮的什么属性设置为true，当用户按下 esc 键时可以激发对应命令按钮的click事件。3 在 编辑中有命令按钮的cmdok click 事件，则命令按钮的名称是什么？4 使用什么方法...
VB课后作业
四 实验步骤。第一题 1 在新建的窗体上画1个命令按钮。2 命令按钮的属性设置如下 3 控件布局如下。4 双击命令按钮，打开 窗口并输入如下 private sub command1 click dim a 3 as integer dim i as integer print 输入的数据为 for...
vb实验课后作业
实验名称 算术运算符的简单应用 实验目的 进一步熟悉visual basic 6.0的友好界面，掌握常用控件的布局与使用，理解并熟练应用八个算术运算符号，并创建一个名为 将一个三位正整数逆序输出 的应用程序。实验要求 在第一个textbox中任意输入一个三位的正整数，在第二个textbox中显示其逆...