-----------------------------------------------------------------------
黑客动画吧 http://www.hack58.com

致力于中国最专业的黑客安全站点

黑客动画吧，有你更精彩
-----------------------------------------------------------------------
大家好 我是傻小子 ,今天是第四课 仔细听课哦![呵呵]
本来打算刚才给大家讲的可是刚才论坛上有点事 所以就现在讲啦

今天给大家来讲一下数据存储形式中的 记录
那么 昨天我们已经给大家分类了 并且已经给大家讲解了 变量
大家都知道了 是分为4类 ① 变量②常量③数组④记录
今天给大家讲的呢 就是 记录  还有②常量③数组  我们等以后教程中需要的时间我们再来给大家讲解!

记录:又称"用户自定义数据类型",是由多个变量构成的结构化的数据类型.变量称作记录的成员.成员可以是不同数据类型的变量(包括记录类型)
例如，一个学生的学号、姓名、性别、年龄等项，都与某一个学生相互联系.如果将num（学号）、name（姓名）、sex（性别）、age（年龄）分别定义为互相独立的简单变量，是难以反映它们之间的内在联系的.应当把它们组织成一个组合项，在一个组合项中同时包含若干个类型不同（当然也可以相同）的数据项.

记录类型的定义
用Type...End Type语句定义(注意:只能在模块的声明部分使用) 所以我们要在通用下 使用
如:
Type Student
     Num As Integer  '成员名 As 数据类型  这是学号
     Name As String*20 姓名
     sex As String*1  性别
End Type  [Type 开始   End Type 结尾]  我们这里给大家来做一下 看我来 我们首先打上   Type Student

记录类型变量的命名规则同一般变量命名相似,但不能使用类型声明后缀(% & # @ ! $) 

定义记录类型变量
用Dim(或Public,Static)来声明拥有这种数据类型的变量.
如:Dim Student1,Student2 As Student
定义Student1和Student2为Student类型变量，即它们具有Student类型的结构
我们试一下

赋值
如:Student1.Sex="男"  我们还可以给xiaoqiang 进行赋值  例如赋值 他的年龄啊 性别啊 等等的 看我操作

还有 大家记住 这里呢 是 .不是 ,

   Student1.Name="王华"   我们来 看一下
  
记录数组
一个记录变量可以是一组数据（如一个学生的学号、姓名、成绩……等数据）.如果对一个班的学生的数据进行统计与处理，显然应该使用记录数组.记录数组与以前的数组不同之处在于每个数组元素都是一个记录类型的数据
这里呢 我们下节课再说

好 这里我们就讲完了

下面我们再来讲一下
Select Case语句

1.If......Then语句  这个大家都知道什么意思吧?英语啊..   If 如果   Then 那么  知道吧
2.If......Then......End If语句  这里大家看到没有  If 开始  End If 结尾 和我们这里是一样的
3.If......Then......Else语句
4.If......Then......ElseIf语句

5.Select Case语句
多重判断虽然可以用If…Then…Else来完成，但是判断的层次太多时，不仅编写困难，而且可读性差，不易维护。这种情况下，最好改用分情况选择语句Select Case语句

这里我们来做个示例  看我操作
我们都可以随便改名字的  看我改一下
由于输入密码的时间 我们要把密码用*号给代替 那我们就改下 Text2的一个属性了 呵呵 上节课已经给大家讲了
好的 我们来加入代码

呵呵 我说呢 少加了一个 还想藏起来

Private Sub Command1_Click()
Dim a As Integer
If Text2.Text <> "hack58" Then
Text2.SetFocus
Text2.Text = ""
Randomize
a = Int((6 * Rnd) + 1)
Select Case a
Case 1
Label1.Caption = "密码错误,请重新输入"
Case 2
Label1.Caption = "密码错误,请重新输入"
Case 3
Label1.Caption = "三次密码错误,你好好想想"
Case 4
Label1.Caption = "还是不对,我真让你败了"
Case 5
Label1.Caption = "你要郁闷死我啊,你脑子怎么长的"
Case 6
Label1.Caption = "我算是彻底复了你了"
Case 7
Label1.Caption = "你真的让我佩服的到家了"
End Select
Else
Label1.Caption = "" & Text1.Text & ",密码正确,你要干什么?"
End If
End Sub

那么好 代码都写好了 我们来测试一下到底行不行呢?

我们先在 密码这打上  hack58  看到没 显示了吧

我们来  换个别的 比如 shaxiaozi 吧  看到了吧  呵呵 就这么简单

好了 今天的课就讲到这里 我们明天继续

还是老样子

不懂的 加Q问我 364580582 

哦对。了 昨天我还建了一个VB群  16393594  有兴趣的加吧

我是黑吧  傻小子 大家 88888888888888