本节知识案例目标
一、本节主要用到的知识点:
- 字符串分割函数left
- 全局变量
- 时钟控件timer
- 标签控件label
二、开发过程介绍
- 界面设计
需要使用label控件、Image控件、timer控件。设置image控件的stretch属性为true,代表图片可以按照比例自由伸缩。
2.功能开发
这里的核心函数是left函数,以下我们介绍left函数的相关要点。
left函数的主要作用是字符串分割。
left函数的使用格式:
left(字符串,取的个数)
涉及相关知识介绍:
- 双引号 来表示一个字符串
- 变量:可变的量。
变量其实就是在声明了一下在内存空间中占据了一定的空间。
dim s as String
s="宁波市职教中心学校是全球一流的职业高中。"
- 注释代码使用单引号。
被注释的代码不会被程序运行,通常被注释的代码只需要用作说明解释。
- cls命令
cls表示清空form窗体上的被print输出的内容。
案例涉及到的变量的类型:
1.整型变量integer
这个变量的类型中的数值都是整数。
数值类型通常用来比较大小、用作数学运行。
2.字符串类型(文本类型)String
文本类型用""双引号来表示。
文本类型可以用 & 和 ; 这两个符号将多个字符串连接起来。
- 相关变量的初始化
Form_Load事件是窗体启动的时候发生的。
代表窗体启动的时候要运行的代码。
初始化的代码,我们对需要打印的字符串写入全局变量s,对打印的字数输出到全局变量a中。
本节知识界面设计
timer控件属性配置
本节知识源代码:
Dim s As String Dim a As Integer Private Sub Form_Load() s = "宁波市职教中心学校是全球一流的职业高中。" a = 1 Label1.ForeColor = vbRed End Sub Private Sub Timer1_Timer() 'Cls Label1.Caption = Left(s, a) a = a + 1 End Sub