博客
关于我
学生信息管理系统(VB 干货篇三)
阅读量:741 次
发布时间:2019-03-21

本文共 2558 字,大约阅读时间需要 8 分钟。

<div>引言</div>

最近一直在学生信息管理系统徘徊不前,不敢进入机房。分析其主要原因是之前的知识学的有点Low,不敢前进,怕进到机房也是停着,所以一直徘徊在这里。因此最近总结了很多VB中的基础知识。比如:常用的函数(因为每次都能在代码中看到,但是就是不理解是什么含义,更不知道怎么使用);一些优化学生系统的代码段等。
正文
一、VB中的常用函数
1. ASC(X),Chr(X):转换字符字符码
[格式]: P=Asc(X)返回字符串X的第一个字符的字符码
P=Chr(X)返回字符码等于X的字符
[范例]: (1)P=Chr(65)
'输出字符A,因为A的ASCII码等于65
(2)P=Asc("A")
'输出65
2. Len(X):计算字符串X的长度
[格式]: P=Len(X)
[说明]: 空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2 Bytes,但也算一个字符。
[范例]: (1)令X='' (空字符串)
Len(X)输出结果为0
(2)令X="abcd"
Len(X)输出结果为4
(3)令X="VB教程"
Len(X)输出结果为4
3. Mid(X)函数:读取字符串X中间的字符
[格式]: P=Mid(X,n)
由X的第n个字符读起,读取后面的所有字符。
P=Mid(X,n,m)
由X的第n个字符读起,读取后面的m个字符。
[范例]: (1) X="abcdefg"
P=Mid(X,5)
结果为:"efg"
(2) X="abcdefg"
P=Mid(X,2,4)
结果为:"bcde"
4. StrReverse:反转字符串
[格式]: P=StrReverse(X)
[说明]: 返回X参数反转后的字符串
[范例]: (1)X="abc"
P=StrReverse(X)
输出结果:"cba"
5. Ucase(X),Lcase(X):转换英文字母的大小写
[格式]: P=Lcase(X)
'将X字符串中的大写字母转换成小写
P=Ucase(X)
'将X字符串中的小写字母转换成大写
[说明]: 除了英文字母外,其他字符或中文字都不会受到影响。
[范例]: 令 X="VB and VC"
则Lcase(X)的结果为"vb and vc"
Ucase(X)的结果为"VB AND VC"
6. InStr函数:寻找字符串
[格式]: P=InStr(X,Y)
从X第一个字符起找出Y出现的位置
P=InStr(n,X,Y)
从X第n个字符起找出Y出现的位置
[说明]: (1)若在X中找到Y,则返回值是Y第一个字符出现在X中的位置。
(2) InStr(X,Y)相当于InStr(1,X,Y)。
(3)若字符串长度,或X为空字符串,或在X中找不到Y,则都返回0。
(4)若Y为空字符串,则返回0。
7.MsgBox函数介绍
MsgBox是vb中的一个函数,功能是弹出一个对话框,等待用户单击按钮,并返回一个Integer值的表示用户单licked哪一个按钮
语法: MsgBox(Prompt[,Buttons], [Title], [Helpfile, Context])
[参数]:
Prompt: 必选。字符串表达式,在对话框中的消息。Prompt的最大长度约为1024个字符,由所用字符的字节大小决定。如果Prompt包含多行,可以通过回车符、换行符或两者的组合(如Chr(13) & Chr(10),即vbCrLf)将各行分隔开。
Buttons: 可选。数值表达式,指定对话框中的按钮数量及形式、图标样式(及声音)。缺省按钮及消息框的强制性等。如果省略,缺省值为0。
Title: 可选。字符串表达式,对话框标题栏中的内容。如果省略,应用程序标题(App.Title)显示在标题栏中。
Helpfile: 可选。字符串表达式,提供对话框的上下文相关帮助的帮助文件。如果提供了Helpfile,Context也必须提供。
Context: 可选。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了Context,Helpfile也必须提供。
MsgBox函数返回值: 请参见以下表格
二、优化学生系统中常用的代码段
1. 调整文本框空格的代码
Private Sub txtname_Click()
Dim s As String
s = txtName.Text
s = Replace(s, " ", "")
txtName.Text = s
End Sub
2. 只能输入汉字的代码
Private Sub txtDirector_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 And KeyAscii < 13 And KeyAscii > 8 Then KeyAscii = 0
End Sub
3.限制特殊字符的代码
Private Sub txtClassroom_KeyPress(KeyAscii As Integer)
If ((KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8)) = false Then KeyAscii = 0
End Sub
三、其他常用代码示例
EOF:End of File的缩写。在C语言中或其他精确的标准函数库中表示文件结束符。在while循环中,以EOF作为文件结束标志。这种以EOF作为文件结束标志的文件必须是文本文件。在文本文件中,数据是以字符的ASCII代码值形式存储的。由于ASCII代码值的范围是0~127,不会出现-1,因此可以用EOF作为文件结束标志。
BOF:Beginning of File,一个好运的开始。在作业系统中,BOF用于表示资料源的第一条记录之前的内容,通常用于记录集为空的情况。
总结
学习本来就是一个循序渐进的过程,点点积累,点点总结,一天一天地细细入微,你最终会完全掌握它。

转载地址:http://fhlgz.baihongyu.com/

你可能感兴趣的文章
Openlayers实战:自定义放大缩小,显示zoom等级
查看>>
Openlayers实战:自定义版权属性信息
查看>>
Openlayers实战:输入WKT数据,输出GML、Polyline、GeoJSON格式数据
查看>>
Openlayers实战:选择feature,列表滑动,定位到相应的列表位置
查看>>
Openlayers实战:非4326,3857的投影
查看>>
Openlayers高级交互(1/20): 控制功能综合展示(版权、坐标显示、放缩、比例尺、测量等)
查看>>
Openlayers高级交互(10/20):绘制矩形,截取对应部分的地图并保存
查看>>
Openlayers高级交互(11/20):显示带箭头的线段轨迹,箭头居中
查看>>
Openlayers高级交互(12/20):利用高德逆地理编码,点击位置,显示坐标和地址
查看>>
Openlayers高级交互(13/20):选择左右两部分的地图内容,横向卷帘
查看>>
Openlayers高级交互(14/20):汽车移动轨迹动画(开始、暂停、结束)
查看>>
Openlayers高级交互(15/20):显示海量多边形,10ms加载完成
查看>>
Openlayers高级交互(16/20):两个多边形的交集、差集、并集处理
查看>>
Openlayers高级交互(17/20):通过坐标显示多边形,计算出最大幅宽
查看>>
Openlayers高级交互(18/20):根据feature,将图形适配到最可视化窗口
查看>>
Openlayers高级交互(19/20): 地图上点击某处,列表中显示对应位置
查看>>
Openlayers高级交互(2/20):清除所有图层的有效方法
查看>>
Openlayers高级交互(20/20):超级数据聚合,页面不再混乱
查看>>
Openlayers高级交互(3/20):动态添加 layer 到 layerGroup,并动态删除
查看>>
Openlayers高级交互(4/20):手绘多边形,导出KML文件,可以自定义name和style
查看>>