[工学]第7章 用户界面设计6学时理论+4学时上机.ppt

课堂编程,练一练,提高你的编程能力: 编写程序，计算 S=1!+2!+…+100! 并输出计算结果 编程:如果国民生产总值按年增长8%计算,多少年后产值会翻番? 第7章 用户界面设计 7.1 常用控件 7.2 通用对话框 7.3 菜单设计 7.4 多重窗体 7.5 鼠标和键盘 7.6 应用程序向导 7.7 综合应用 第7章 用户界面设计7.1 常用控件 2.复选框(CheckBox) 上机题解答：4 , 6 , 7 Function ish(n$) As Boolean ish = True For i = 1 To Len(n) \ 2 If Mid(n, i, 1) Mid(n, Len(n) + 1 - i, 1) Then ish = False Exit Function End If Next i End Function 上机题解答：4 , 6 , 7 Function isws (m%) As Boolean For i = 1 To m / 2 If m Mod i = 0 Then s = s + i End If Next i If m = s Then isws = True Else isws = False End If End Function 上机题解答：4 , 6 , 7 Sub delestr (s1$, s2$) If InStr(s1, s2) 0 Then s1 = Replace(s1, s2, ) End Sub Private Sub Command1_Click() Dim s1$, s2$ s1 = Text1 s2 = Text2 Call delestr (s1, s2) Text3 = s1 End Sub 第7章 用户界面设计7.1 常用控件 2.复选框(CheckBox) 补充7.1.1 控件数组 1.控件数组的概念 控件数组是由一组相同类型的控件组成。它们共用一个控件名，具有相同的属性。 控件数组中的每个控件具有不同（唯一的）索引号(Index)，索引号从0开始。 2.建立控件数组 VB中建立控件数组主要有两种方法: 一种是在设计时建立， 一种是在运行程序时添加。 例1：建立含有4个单选按钮的控件数组，单击”计算”命令按钮，分别显示不同的“加”、“减”、“乘”、“除”运算操作。并将结果显示在label4中 例1 控件数组 Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) For i = 0 To 3 If Option1(i) = True Then opt = Option1(i).Caption End If Next i Select Case opt Case + Res = a + b Case - Res = a - b Case * Res = a * b Case / Res = Format(a / b, 0.00) End Select Label4 = Res End Sub 3.框架 (Frame) 课堂编程,练一练,提高你的编程能力: 统计1000以内能被3整除或能被8整除的数据个数,并计算它们的和。 有一张厚0.5mm、面积足够大的纸，将它不断的对折。问对折多少次后，其厚度可达珠穆朗玛峰的高度（8848m）。 综合设计实验 窗体间链接的语句为：Form2.show 菜单设计 见要求: （计算机技术基础（vb）》综合实验要求.doc） 小结 单选按钮、复选框和框架 滚动条 图形框和图像框 定时器 作业： 实验G 1，2，4，5 书上例7.7和例7.8 7.1.2 滚动条和进度条 滚动条属性： 滚动条事件： 综合设计实验 见要求: （计算机技术基础（vb）》综合实验要求.doc）综合实验报告格式-计算机技术基础_VB.doc 7.1.2 滚动条和进度条(复习) 滚动条属性： 滚动条事件： Private Sub HScroll1_Change() Dim i As Integer, n As Integer, s As Double s = 1 n = HScroll1.Value If n 0 Then For i = 1 To n