在上一节，我们制作了一个 style 为 0 的列表程序，现在我们来制作一个 style 为 1 的列表程序。
虽然仅仅是 style 的改变，但整个程序发生了完全的变化。本节中的程序更为科学，而且只需改动几行**，同样适合上一节的程序。
在编制本节程序前，我们有必要对 for ··next ··循环结构语句做个了解。
一、for 循环语句：
在实际生活中，我们经常会遇到一些操作并不复杂，但需要重复多次处理的情况，如人口统计、银行利率的计算等，为此，visual basic 提供了循环语句来专门解决此类情况。
循环语句的具体情况，我们将在以后的章节中阐述，本节我们只是针对 for 循环语句做个大致的了解。
1、for ··next ··语句的一般格式：
for 变量 = start to end [step]
［需要循环的语句］
［exit for］
next 变量。
说明：1）、for 后的“变量”与 next 后的“变量”为同一个，“变量”应该是数值类型的。
2）、start 代表的是循环的初始值，end 代表的是循环的终值。假设从 1 到 100 进行循环，那么，循环初值是 1 ，终值是 100 ；假设从 1 到 50 进行循环，那么初值是 1 ，终值是 50 。
3）、to 是循环中的关键字，表示从初值到终值的范围，不能省略。
4）、step 是步长值，代表变量的增量，既可以是正数（递增循环），也可以是负数（递减循环），但不能为 0 ，如果步长值为 1 即默认状态，可以省略不写。
5）、需要循环的语句，既可以是一个，也可以是多个语句，但必须放在 for 与 next 之间。
6）、exit for：当程序执行到此处，自动退出本层循环。
7）、需要循环的语句与 exit for 都可以省略，这时表示的是一个无内容的空循环，主要做为程序延迟使用。
2、示例一：
编写一个程序，用来计算 1 到 100 间所有整数的和是多少。
1）、程序界面与控件属性：
程序界面与控件属性如图一，为了让大家看得更为清楚，我们将标签控件的 boderstyle 属性设为 1 。
图一。2）、程序功能：
用户点击“开始”按钮（cmdstart）开始计算，完成后将结果用标签（lblshow）显示出来。
3）、书写**：
开始”按钮的点击事件：
private sub cmdstart_click()
x = 0for y = 1 to 100
x = x + y
next y
= "最后的结果是：" x
end sub
说明： 到 100 中所有整数的和可以这样来看：1＋2＋3＋··100 ，即 100 次相加，那么这重复的 100 次相加可以通过 for 循环来完成。
2）、程序中 y 只是用来决定循环次数的变量，通常的，我们会利用其他变量来编写程序，这里的 x 就是一个求和累加器，它的初值是 0 ，终值则是我们最后需要的数值。
3）、x = x +y ，是指变量 x 与 y 相加后将新的值赋给 x 。当 x 为初始的 0 时，y 进入第一次循环即 y = 1 ，x + y = 1 ；系统将 x = 1 记录下来，然后进入第二次循环即 y =2 ，x + y = 3 （1 + 2），然后将 x = 3 记录下来并进入第三次循环，以此类推。这就将 1＋2＋3＋··100 的最终值算了出来。
4）、经过第一百次循环，程序执行 next y 后的语句，即将最后结果用标签显示出来。
3、示例二：
计算 1 到 100 间所有奇数的和。
只需将上例中的“开始”按钮的循环程序加上步长值即可。**如下：
private sub cmdstart_click()
x = 0for y = 1 to 100 step 2
x = x + y
next y
= "最后的结果是：" x
end sub
二、列表程序二：
1、程序界面：
最终的程序界面如图二：
图二。跟上一节的内容相比，带复选框的选择是通过勾选复选项前面的复选框来确定一个表项是否被选中的，它可以一次选中多个表项并一次移动多个表项。
上一节的程序，一次只能移动一个表项。
2、前后两种程序的区别：
上一节的程序中，对单个表项进行移动，首先加入了是否选中的判断，然后再进行移动；全部移动，首先对目标框清零，再进行移动。它们虽然比较好理解，但程序的有效性却不佳。
本节的程序，对单个与全部表项进行移动，都采用循环法，可以一次移动多个表项。
3、程序**：
1）、窗体的载入事件（form_load）跟上一节一样：
private sub form_load()
"刘德华""张学友"
"郭富城""黎明"
"谭咏麟""梅艳芳"
"张曼玉"end sub
2）、向右按钮的点击事件（cmdright）：
private sub cmdright_click()
dim x as integer
while > 0
for x = 0 to - 1
if = true then
xexit for
end if
next x
wendend sub
3）、全部向右按钮的点击事件（cmdallright）
private sub cmdallright_click()
dim x as integer
for x = 0 to - 1
next x
end sub
4）、以此类推，输入向左按钮（cmdleft）与全部向左按钮（cmdallleft）的点击事件，最后按 f5 键运行程序。
VB教程习题10答案
教程习题10参 一 选择题。1.microsoft access数据库文件的扩展名是 a dbfb accc mdbd db 答案 c2.将一 框和数据控件相关联，需要设定 框的 属性。a recordsource b datafield c datasource d recordsettype 答...
教程 10 表单标签
checked，是设定此一栏为预设选取值。3.复选表单 利用type checkbox 就会产生复选表单，复选表单通常是好几个选项一起摆出来供使用者点选，一次可以同时选好几个，故为复选表单。其有下列可设定之属性 name 名称 是设定此一栏的名称，程序中常会用到。value 内容 是设定此一栏的内容...
10步CSS教程
css教程 十步学会用css建站。规划 首先需要规划 本教程将以下图为例构建 其基本布局见下图 主要由五个部分构成 1 main n igation 导航条，具有按钮特效。width 760px height 50px 2 header 头部图标，包含 的logo和站名。width 760px he...