VisualBasic程序设计课件第7讲应用程序接口设计及代码编写.ppt

* 2．字符串函数 （1）Len(x)返回x代表的字符串的长度。 （2）Trim(x)去掉字符串x前面的空格。 （3）Left(x,n)返回字符串x从左边算起n个长度的字符序列。 （4）Right(x,n)返回字符串x从右向左的n个字符序列。 （5）Mid(x,n,m)返回字符串从左边第n个字符开始m个长度的字符序列。 （6）Str(x)将数值型数据x转化为字符串。这个函数的返回值总会在前头保留一个空格，因此多数情况下与Trim函数结合使用，去掉首部空格。 * （7）Val(x)将数字字符串转化为数值型数据。 （8）Chr(x)返回数值x(0~255)所对应的Ascii码。比如Chr(13)、Chr(10)分别表示回车、换行。 （9）Asc(x)返回字符串x首字符的Ascii码值。 （10）UCase(x)和Lcase(x)分别返回大写和小写字符串。 * 3．日期函数 （1）Date返回当前系统日期 （2）Time返回当前系统时间 （3）Year(x)返回x表示的日期中的年份。类似的还有Month、Day、WeekDay等。 * 4．格式化函数 ‘以系统设置的长时间格式返回当前系统时间。MyStr = Format(Time, Long Time)? 以系统设置的长日期格式返回当前系统日期。MyStr = Format(Date, Long Date)? MyStr = Format(MyTime, “h:m:s”) ‘ 返回 “17:4:23”。 MyStr = Format(MyTime, hh:mm:ss AMPM) 返回 05:04:23 PM。MyStr = Format(MyDate, dddd, mmm d yyyy) 返回 Wednesday, Jan 27 1993。 * MyStr = Format(5459.4, “##,##0。00”) ‘ 返回 “5,459.40”。 MyStr = Format(334。9, “###0。00”) ‘ 返回 “334.90”。 MyStr = Format(5, “0。00%”) ‘ 返回 “500.00%”。 MyStr = Format(HELLO, ) 返回 hello。 MyStr = Format(This is it, ) 返回 THIS IS IT。 * 五、流程控制语句 1．顺序结构 2．选择结构 3 ．循环结构 * 选择结构 （1）If…Then…Else语句 （2)多重分支语句（Select Case） * 循环结构 For…Next循环语句 Do…Loop语句 Do While 条件 …… Loop Do ……Loop While 条件 Do ……Loop Until 条件 * 开发演示 1．弹出式菜单设计，运行结果如图1所示。 * 2．时钟程序。利用Now、Time、Year、Month和Day等时钟函数和Timer控件开发，可显示当前系统的年、月、日和时间，其中Timer控件的Interval属性为1000，每秒钟执行一次。运行结果如图5所示。 * 3．排序程序。本程序主要练习列表框和循环语句的用法，利用文本框、列表框以及循环语句开发“冒泡”排序程序，运行结果如图6所示。程序的基本逻辑是： （1）在文本框Text1中输入一个数字，然后点击“添加”按钮，使用列表框控件的AddItem方法，将该数字添加到列表框控件List1中。依此添加若干数字。 （2）点击“排序”按钮，通过循环结构对List1控件中的项目进行排序，将结果添加到List2中。 * * 本讲结束！ 人有了知识，就会具备各种分析能力， 明辨是非的能力。 所以我们要勤恳读书，广泛阅读， 古人说“书中自有黄金屋。 ”通过阅读科技书籍，我们能丰富知识， 培养逻辑思维能力； 通过阅读文学作品，我们能提高文学鉴赏水平， 培养文学情趣； 通过阅读报刊，我们能增长见识，扩大自己的知识面。 有许多书籍还能培养我们的道德情操， 给我们巨大的精神力量， 鼓舞我们前进。 * * 第7讲　应用程序接口设计　　　　及代码编写 （3） * 同学们好，我们现在学习VB程序设计课程的第7讲。 上一讲我们讲解了界面设计的一些知识，但程序只要界面是不行的，必须有代码程序才能运转起来。 * 代码就像一条线，把所有的窗体、控件等界面元素串在一起，从而可以使得窗体、控件通过事件驱动机制连接为一个有机整体。 本讲主要讲解代码设计基础 * 本讲内容简介 变量 常量 运算符和表达式 常用函数 流程控制语句 * 一、变量的声明 变量就是其值可变的量，当我们使用Dim语句声明一个变量时，实际