采用循环程序可以解决一些按一定规则重复执行的问题。例.pptVIP

(1)创建应用程序的用户界面和设置对象属性  用户先在左列表框(List1)选择一个或多个选修课，当单击“显示”按钮时，在右列表框(List2)中将显示出用户选中的所有课程。单击“清除”按钮时，将清除右列表框中的内容 (2)编写程序代码 例5.14 设计一个选课程序 MultiSelect属性值为2 例5.14 Private Sub Form_Load() List1.AddItem 电子商务 List1.AddItem 网页制作 List1.AddItem Internet简明教程 List1.AddItem 计算机网络基础 List1.AddItem 多媒体技术“ End Sub Private Sub Command1_Click() 显示按钮单击事件 List2.Clear 清除列表框的内容 For i = 0 To List1.ListCount - 1 逐项判断 If List1.Selected(i) Then 真时为选定 List2.AddItem List1.List(i) End If Next i End Sub Private Sub Command2_Click() 清除按钮单击事件 List2.Clear End Sub 允许从已有的选项中进行选择，还允许输入列表中不包括的内容 列表框和文本框的组合 具有列表框和文本框的大部分属性和方法。独有的一些属性： (1)Style属性：该属性取值为0，1或2，分别决定了组合框的三种不同类型  下拉组合框(Dropdown Combo) 简单组合框(Simple Combo) 下拉列表框(Dropdown List) 5.3.2 组合框  (2)Text属性：该属性是用户所选定项目的文本或直接从文本框输入的文本 (1)创建应用程序的用户界面和设置对象属性  窗体上含有Combo1，Combo2，Combo3三个组合框，其Style属性从左至右分别为0、1和2，即除了“内存”容量大小只能从列表中选择外，其余内容既可以从列表中选择，也可以由用户输入。 在属性窗口中输入相关数据 例5.15a 在窗体上设置3个组合框，用于选择微机部分配置， 包括CPU/主频、硬盘及内存。 Style=0 下拉组合框 Style=1 简单组合框 Style=2 下拉列表框 图片框 设计界面 运行界面 例5.15a (2)编写程序代码 Private Sub Form_Load() Combo1.Text = Combo1.List(0) Combo2.Text = Combo2.List(0) Combo3.Text = Combo3.List(0) End Sub Private Sub Command1_Click() “确定”按钮的事件过程 Picture1.Cls Picture1.Print 微机的基本配置 Picture1.Print String(20, =) Picture1.Print CPU：; Combo1.Text Picture1.Print 硬盘(GB)：; Combo2.Text Picture1.Print 内存(MB)：; Combo3.Text End Sub 5.4 程序举例 例5.16 打印“九九乘法表” 两重循环； 采用Print直接在窗体上输出结果 例5.16 打印“九九乘法表”