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

你可能感兴趣的文章
python 利用pyspark读取HDFS中CSV文件的指定列 列名重命名 并保存回HDFS
查看>>
python 利用pyttsx3文字转语音
查看>>
python 利用已有Ner模型进行数据清洗合并
查看>>
python 到大数据开发工程师_如何成为一个大数据开发工程师?
查看>>
python 加密解密(base64, AES)
查看>>
Python 包管理器和 Node.js
查看>>
Python 单词字母顺序不变且所有倒排
查看>>
python 启动提示IDLE's subprocess didn't make conne...
查看>>
python 命令接口_实现“[命令][操作][参数]”样式的命令行接口?
查看>>
Python 和 OpenCV.如何检测图像中的所有(填充)圆形/圆形对象?
查看>>
Python 和 RabbitMQ - 聆听来自多个渠道的消费事件的最佳方式?
查看>>
python编辑器打不开_关于命令ride.py打不开RF,而是打开pycharm编辑器问题解决思路...
查看>>
python编译exe同时支持32位_第三周:同时管理64位和32位版本的Python,并用Pyinstaller打包成exe...
查看>>
Python 和Java 哪个更适合做自动化测试?
查看>>
Python编程:掌握高级语言程序设计。从零基础到精通,收藏这篇就够了!
查看>>
python 图片转ico
查看>>
python 图片转文字、语音转文字、文字转语音保存音频并朗读
查看>>
python 在包含类似字符\x16、\x12、\x某某的数组中将以\x开头的字符找出来的方法
查看>>
Python 在并行进程之间共享字典
查看>>
Python 垃圾收集器文档
查看>>