vb语言程序设计-vb第5章电子讲稿(编辑修改稿)

vb语言程序设计-vb第5章电子讲稿(编辑修改稿)内容摘要：

Show Sum = 0 Do While True 39。 条件为真，循环无终止进行下去 x = Val(InputBox(请输入要加入的数 (1表示结束 ), 输入数据 )) If x = 1 Then Exit Do End If Sum = Sum + x = Sum Loop MsgBox (累加运算结束 ) End Sub 以 1作为“终止循环标志” 例 设计一个 “ 加法器 ” 程序 中国最大的资料库下载 多重循环是指循环体内含有循环语句的循环 例 多重循环程序示例 程序运行结果 Private Sub Form_Load() 1 5 Show 1 6 For i = 1 To 3 „外循环 1 7 For j = 5 To 7 ‟内循环 2 5 Print i, j 2 6 Next j 2 7 Next i 3 5 End Sub 3 6 3 7 注意内、外循环层次要分清，不能交叉 多 重 循 环 中国最大的资料库下载 本例可采用 两重循环 来实现。 外循环控制输出 7行，内循环控制每行输出要求的字符数。 在进入内循环之前，使用 Print Tab()来对起始输出位置定位，退出内循环后，使用 Print来控制换行。 例 编一程序，输出下列所示的图形 中国最大的资料库下载 采用 Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 i)。 For j = 1 To 2 * i 1 Print Chr(i + 48)。 Next j Print Next i End Sub Print Chr(i+48)与 Print i有所不同 中国最大的资料库下载 (1)分析 ：设一元硬币为 a枚，二元硬币为 b枚，五元硬币为 c a+b+c=10 a+2b+5c=25 采用两重循环，外循环变量 a从 0～ 10，内循环变量 b从 0～ 10 (2)创建应用程序的用户界面 例 取一元、二元、五元的硬币共十枚，付给 25元钱，有多少种不同的取法 ? 中国最大的资料库下载 (3)编写程序代码 程序通过 Print方法把处理结果输出在标签的下方 Private Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 39。 确定开始显示的坐标 Print , 五元 , 二元 , 一元 n = 0 39。 记录解的组数 For a = 0 To 10 For b = 0 To 10 c = 10 b a If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 Print (。 n。 ), c, b, a End If Next b, a End Sub 中国最大的资料库下载 列表框和组合框都能为用户提供若干个选项，供用户从中任意选择 两种控件的特点是为用户提供大量的选项但又占用很少的屏幕空间，操作简单方便 中国最大的资料库下载 1. 列表框的用途 列表框 (ListBox)用于列出可供用户选择的项目列表，用户可从中选择一个或多个选项。 自动出现滚动条 表项 索引 2. 常用属性 (1)Name属性 (2)List属性：该属性是一个字 符型数组 , 用于存放列表框的表项 数组的下标从 0开始 图 ， (0)的值为 “教授”， (1)的值为“副教授” 列表框 中国最大的资料库下载 (3)ItemData属性 ：为每个表项设置一个对应的数值 (4)ListCount属性 ：返回列表框中表项的数目 (5)ListIndex属性 ：返回已选定表项的顺序号 (索引 )。 若未选定任何项，则 ListIndex的值为 1 (6)Text属性 ：存放当前选定表项的文本内容 (7)Selected属性 ：逻辑值，表示列表框中某一表项是否被选中 (8)Sorted属性 ：设置列表框中各表项在运行时是否按字母顺序排列 (9)MultiSelect属性 ：设置是否允许同时选择多个表项 中国最大的资料库下载 假设列表框 List1中有四个表项，并已选定第 2项，则 有： (0)的值为”教授” 个数 为 4 为 1 ”副教授” (1)为 True (0)为 False 采用以下方法，可为列表框 List1赋值： （ 1）在属性窗口中设置 （ 2）利用 AddItem赋值 (3) 利用 List属性赋值 “教授” (0)= “教授” “副教授” (1)= “副教授” “讲师” (2)= “讲师” “助。