如何制做网上通讯录我有20多位好
制作电子通讯录
一、完善电子通讯录
1、运行设计好电子通讯录,提醒学生程序一运行,ListBox中就列出姓名,讲解Form_load()事件及用程序代码在ListBox中添加项目的方法(可顺便提一下,也可用属性设置的方法在列表框中添加项目):可用“列表框名称。 AddItem 项目”在列表框中添加项目。
Private Sub Form_Load()
List1。AddItem“刘保权”
List1。AddItem“阮宏政”
End Sub
2、讲解ListBox的Click事件,演示编写程序代码,分析代码,讲解选择结构、条件语句及其应用,并归纳出何类问题用选择结构,以及选择结构程序的设...全部
制作电子通讯录
一、完善电子通讯录
1、运行设计好电子通讯录,提醒学生程序一运行,ListBox中就列出姓名,讲解Form_load()事件及用程序代码在ListBox中添加项目的方法(可顺便提一下,也可用属性设置的方法在列表框中添加项目):可用“列表框名称。
AddItem 项目”在列表框中添加项目。
Private Sub Form_Load()
List1。AddItem“刘保权”
List1。AddItem“阮宏政”
End Sub
2、讲解ListBox的Click事件,演示编写程序代码,分析代码,讲解选择结构、条件语句及其应用,并归纳出何类问题用选择结构,以及选择结构程序的设计方法。
要实现单某人姓名,即显示此的信息,必须编写列表框的Click事件的程序代码。编写程序代码时,可用列表框的“ListIndex”属性确定选择某人,同时为了保证选择某人,就显示某人信息,应采用选择结构,使用条件语句的某种格式。
Private Sub List1_Click()
if stindex=0 then
text1。text=”0566-2029708”
text2。text=”lbq@ ”
image1。
Stretch=Ture
image1。Picture=Loadpicture(“c:\progrme files\Common Files”
&”\Microsoft Shared\Clipart\cagcat50\bd06784_。
wmf”)
end if
if stindex=1 then
text1。text=”0566-2029418”
text2。text=”yuanhongzheng@ ”
image1。
Stretch=Ture
image1。Picture=Loadpicture(“c:\progrme files\Common Files”
&”\Microsoft Shared\Clipart\cagcat50\bd07175_。
wmf”)
end if
End Sub
3、知识介绍:
(1)列表框“ListIndex”属性:表示被选中的项目在列表中排在第几位,排序号从0开始。例如:List1。ListIndex=2表示选中的列表框中的第3项。
文本框的“Text”属性:表示文本框中包含的文本。如:text1。text=“0561-4954399”表示在Text文本框中显示“0561-4954399”。
图像框的Stretch属性:表示是否调整图形的大小以适应图像框,Stretch属性值为True时,调整图形的大小适应图像框,为False时,调整图像框的大小以适应图形。
LoadPicture函数的作用是装载图片。
(2)VB的语句是必须写在一行里的,不过后来版本的VB里如许用分行符“_”把一个长语句分成若干行来存放。
(3) If 语句用于测试条件,根据测试结果执行不同的操作。
格式如下:
If 表达式 Then
。。。
Else
。。。
End If
或:If 表达式 Then 语句1;语句2;。
。。
例:If Pass = "1234" Then
Ok = True
Else
Ok = False
End If
Select Case 语句
Select Case 语句用于对一个表达式的值进行多种处理。
格式如下:
Select Case 表达式
Case 值1
。。。
Case 值2
。。。
Case Else
。
。。
End Select
(4)赋值语句
在VB中赋值语句有两种:
1、对普通变量的赋值:
变量 = 表达式
如:Dim A As Integer
A = 100 * 20
2、对对象变量的赋值
Set 变量 = 表达式
如:Dim Ex As DataBase
Set Ex = OpenDateBase (" b")
(5)运算符:
+:加法运算,也适合于字符串的之间的合并运算。
-:加法运算。
*:乘法运算。
/:除法运算。
\:整除运算。
Mod:求余运算。例如:a Mod b表示a被b整除以后的余数。
^:幂运算。A^B表示以A为底的B次方。
关系运算
关系运算也称比较运算,它表示不等式的真或假,VB共提供六种运算符,分别是=(等于),>(大于),=(大于等于),(不等于)。
逻辑运算
逻辑运算是对真或假的运算,我将列表说明:
A
B
Not A
非
And
与
Or
或
Xor
异或
Eqv
相等
Imp
蕴含
T
T
F
T
T
F
T
T
T
F
F
F
T
T
F
F
F
T
T
F
T
T
F
T
F
F
T
F
F
F
T
T
T――True F――False
。
收起