本科课件-程序设计基础（完整）.ppt

组合框常用属性 ⑵Text属性 在Style属性设置为0或1时，Text属性返回或设置编辑框中的文本， Style属性为2时，Text属性返回列表框中选择的项目的文本。 添加或删除列表内容： 在设计模式下，可直接在属性窗口中编辑组合框的List属性，增加或删除列表项。 运行时则要使用AddItem，RemoveItem等方法添加、删除列表项，这些方法的使用与列表框控件中相同。 组合框的常用事件和方法 组合框的常用方法和列表框一样： Additem、RemoveItem、Clear方法分别用于添加一项到组合框控件中、从一个组合框控件中删除一项、清除组合框的所有列表项。 组合框的常用事件是Click事件，这个事件在单击组合框中的某个列表项时触发，其他常用事件和文本框一致。 【例】在下拉式组合框输入内容，将不重复的内容作为列表项加入。即在文本框中输入字符串，如果此字符串在组合框的列表项中不存在则添加，如果存在则放弃。 ⑴在窗体上布局一个Name属性为cmbAddItem的组合框，其style属性为0； ⑵在组合框的KeyPress事件中编程。 Private Sub cmbAddItem_KeyPress(KeyAscii As Integer) Dim bTag As Boolean If KeyAscii = 13 Then 用户按下回车键 bTag = False 遍历组合框的所有列表项，如果找到，则bTag为True For i = 0 To cmbAddItem.ListCount - 1 If cmbAddItem.Text = cmbAddItem.List(i) Then bTag = True Next i If Not bTag Then cmbAddItem.AddItem cmbAddItem.Text cmbAddItem.Text = End If End Sub 组合框示例 【例6.8】对于表6.4所示银行存款利率，设计一个查找程序。 存期 利率 存期 利率 活期 0.72 二年 4.68 三个月 3.33 三年 5.40 半年 3.78 五年 5.85 一年 4.14 6.4 数组应用示例 6.4.1 求最大值问题 6.4.2 统计计数问题 6.4.3 排序问题 6.4.4 查找问题 6.4.5 表格计算问题 6.4.6 控件数组应用问题 6.4.1 求最大值问题 数组应用示例 【例6.9】找出n个数中的最大值及其所在的位置。 假设A数组中的第一个元素，就是最大值，将其值保存在变量Max中，其位置保存于变量Pos中。然后，依次访问A数组的每一个元素，如果遇到比Max大的值就用该值取代Max的值，并将其位置赋给变量Pos，当扫描完A数组的所有元素后，变量Max和Pos的值即为所求结果。 程序设计： 窗体放置2个标签和1个命令按钮。该按钮的Click事件代码为： Private Sub Command1_Click() Dim i As Integer, Max As Integer Dim a(1 To 10) As Integer Dim outs1 As String Randomize (Timer) outs = 数组元素为： +Chr(13) For i = 1 To 10 a(i) = -100 + Int(51 * Rnd) outs = outs a(i) “ If i Mod 5 = 0 Then outs = outs + Chr(13) 控制换行 Next i Max = a(1) For i = 2 To 10 If a(i) Max Then Max = a(i) Next i Label1.Caption = outs Label2.Caption = 最大数为： Max End Sub 6.4.2 统计计数问题 数据的分类统计是实际应用中经常遇到的一类问题，比如高考结束时统计各分数段人数、统计一个单位各年龄段的人数、统计一段文字中各个字母出现的频率等等。 【例6.11】 随机产生1000个[0，9]间的整数，统计0、1、…、9各出现多少次？ 题目分析： 我们使用一维数组count(0 to 9)作为0、1、…、9的计数器，例如count(0)存储的值就是0的个数。程序的统计部分是一个For循环，循环1000次，每产生一个元素，count数组中的对应元素值加1。最后，输出count数组各元素的值。 如何统计0、1、…、9出现的次数？有的人可能想，使用选择结构进行判断。实际上，若产生0则count(0)加1，产生1则count(1)加1，如果产生