博客
关于我
学生信息管理系统(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/

你可能感兴趣的文章
Nginx:NginxConfig可视化配置工具安装
查看>>
ngModelController
查看>>
ngrok | 内网穿透,支持 HTTPS、国内访问、静态域名
查看>>
ngrok内网穿透可以实现资源共享吗?快解析更加简洁
查看>>
ngrok内网穿透可以实现资源共享吗?快解析更加简洁
查看>>
NHibernate学习[1]
查看>>
NHibernate异常:No persister for的解决办法
查看>>
nid修改oracle11gR2数据库名
查看>>
NIFI1.21.0/NIFI1.22.0/NIFI1.24.0/NIFI1.26.0_2024-06-11最新版本安装_采用HTTP方式_搭建集群_实际操作---大数据之Nifi工作笔记0050
查看>>
NIFI1.21.0_java.net.SocketException:_Too many open files 打开的文件太多_实际操作---大数据之Nifi工作笔记0051
查看>>
NIFI1.21.0_Mysql到Mysql增量CDC同步中_日期类型_以及null数据同步处理补充---大数据之Nifi工作笔记0057
查看>>
NIFI1.21.0_Mysql到Mysql增量CDC同步中_补充_更新时如果目标表中不存在记录就改为插入数据_Postgresql_Hbase也适用---大数据之Nifi工作笔记0059
查看>>
NIFI1.21.0_NIFI和hadoop蹦了_200G集群磁盘又满了_Jps看不到进程了_Unable to write in /tmp. Aborting----大数据之Nifi工作笔记0052
查看>>
NIFI1.21.0_Postgresql和Mysql同时指定库_指定多表_全量同步到Mysql数据库以及Hbase数据库中---大数据之Nifi工作笔记0060
查看>>
NIFI1.21.0最新版本安装_连接phoenix_单机版_Https登录_什么都没改换了最新版本的NIFI可以连接了_气人_实现插入数据到Hbase_实际操作---大数据之Nifi工作笔记0050
查看>>
NIFI1.21.0最新版本安装_配置使用HTTP登录_默认是用HTTPS登录的_Https登录需要输入用户名密码_HTTP不需要---大数据之Nifi工作笔记0051
查看>>
NIFI1.21.0通过Postgresql11的CDC逻辑复制槽实现_指定表多表增量同步_增删改数据分发及删除数据实时同步_通过分页解决变更记录过大问题_02----大数据之Nifi工作笔记0054
查看>>
NIFI1.21.0通过Postgresql11的CDC逻辑复制槽实现_指定表多表增量同步_增加修改实时同步_使用JsonPath及自定义Python脚本_03---大数据之Nifi工作笔记0055
查看>>
NIFI1.21.0通过Postgresql11的CDC逻辑复制槽实现_指定表多表增量同步_插入修改删除增量数据实时同步_通过分页解决变更记录过大问题_01----大数据之Nifi工作笔记0053
查看>>
NIFI1.21.0通过Postgresql11的CDC逻辑复制槽实现_指定表或全表增量同步_实现指定整库同步_或指定数据表同步配置_04---大数据之Nifi工作笔记0056
查看>>