当前位置:首页 > 生活百科

vb编程入门代码大全(vba编程基础知识)

栏目:生活百科日期:2025-05-04浏览:0

1、下列代码,则是对逻辑运算不清楚造成
If A=true Then
C= Not B
Else
C= B
End If
 可以:
C=A XOR B
2、如果加上下列代码:
If C=true then
D=28
Else
D=29
End IF
D=Iif((A XOR B),28,29)
3、布尔赋值,常被人忽略,如:
If A= 13 then
B=True
Else
B=False
End If
 可以:
B = A = 13
 或者:
B = (A = 13)
 我更喜欢用后者,这样代码易于看懂。
4、字串有效性检测:
If IsNull(StrOrg) or StrOrg=”” then
 可以:
If Len(StrOrg && “”)&<>0 then
5、字串重复次数
RepeatCount=Ubound(Split(StrOrg,StrFind))
 同样,如果要对字串有效性判断:
RepeatCount=Iif((Len(StrOrg && “”)=0), 0, Ubound(Split(StrOrg,StrFind))
6、有时需要判断字串数组中是否有这一元素,这时最好不用数组,而用分隔符字串,于是:
If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then
 则表明,此元素不存在。
7、对数组初始化,最好用变体,这样,也是一行语句,如:
IntArr=Array(12,28,29,30,31,52,24,60)
 注意,此时需要用变量后缀。上面代码,如要定义为长整型,则
IntArr=Array(12&&,28&&,29&&,30&&,31&&,52&&,24&&,60&&)
 要将IntArr 定义为变体
8、判断大小:
IntMax = Iif((IntA > IntB), IntA, IntB)
IntMin = Iif((IntA &< IntB), IntA, IntB) 9、按索引的Select Case Function GetChoice(Ind As Integer) GetChoice = Choose(Ind, &“Speedy&”, &“United&”, &“Federal&”) End Function 10、按表达式的Select Case(这种转换要求不能有Case Else的才可以这样,否则会出错) Function MatchUp (CityName As String) Matchup =tch(CityName = &“London&”, &“English&”, CityName _ = &“Rome&”, &“Italian&”, CityName = &“Paris&”, &“French&”) End Function 11、使用Iif,前面已有 Function CheckIt (TestMe As Integer) CheckIt = IIf(TestMe > 1000, “Large”, “Small”)
End Function
12、字串动态数组是否已初始化
If Len(Join(StrArr))=0 then
 字串动态数组未初始化。
13、指定只读CombBox的当前值,如果能确认这个值就在其中,一定不会错,则:
Combbox=CurValue
 注意,不可以写成:
Combbox.text=CurValue
 前者实际是写 _default 这个属性,而后者则是写Text 因为只读,则会导致错误
14、如果有下列代码:
Select Case CombBox.text
Case “London”
Call FuncStrLang(3)
Case “Rome”
Call FuncStrLang(5)
……
End Select
 则可以用ItemData属性,即:
“London” 的 Itemdata=3
“Rome” 的 Itemdata=5
 于是:
Call FuncStrLang(CombBox.ItenData)
15、如果有下列代码:
Select Case CombBox.text
Case “London”
Call ClsCity.CityIntr_London
Case “Rome”
Call ClsCity.CityIntr_Rome
……
End Select
 只要:
CallByName ClsCity, “CityIntr_” && CombBox.text, vbMethod
16、复制数组到另一变量中:
Dim iOrgArr(30) as Integer
Dim iDesArr as Variant
……
iDesArr = iOrgArr
 即主变体直接取数组指针,则所有元素都复制了过去。
17、如果有下列代码:
Do While Not RsAdo.Eof
If len(DesStr)&<>0 then
DesStr=DesStr && VbTab
End if
DesStr=RsAdo!Rec_id
RsAdo.MoveNext
loop

“vb编程入门代码大全(vba编程基础知识)” 的相关文章

pdf文件怎么解密,pdf 在线解密方法

有时我们从某些网站上下载下来一些PDF文件,其中有些PDF文件无法打开阅读,或者我们想要对PDF文件进行打印或编辑等操作的时候提示我们需要输入口令密码之类的权限...

excel如何插入斜线并添加文字(销售数据图表分析)

我们在职场当中经常需要制作表格,这时候就必然需要制作Excel斜线表头,这令一帮职场朋友感到头痛!那么有什么简便的方法可以帮助我们快速的制作表头呢?不用担心今天...

microsoft project 2016安装步骤(project软件使用教程)

微软开发的Project软件是项目管理人员不可或缺的计划管理工具,也是项目管理者必不可少的一项基本功。它不单纯是一个软件,通过它,可以让你更接地气的理解项目管理...

喜茶和奈雪的茶:从交叉线走向平行线

配图来自Canva奶茶作为一种风靡全球的饮品,自17世纪以来就有“奶茶经济”的出现,至今已经有300多年的历史。而在上个世纪末,奶茶也从中国台湾推向了内地市场。...

flashftp使用教程(怎么设置flashftp和应用)

谈起FlashFXP我想很多做网站的人士都不会感到陌生,它是一款FXP/FTP软件,它的功能十分强大,因此有很多人会下载它,但是下载了之后却不知道如何使用,那么...

华为手机相册怎么拼图制作(音乐相册制作教程)

华为手机相册你肯定在用,但除了最近删除、智能搜索之外,你还知道手机相册的其他功能吗?这里就分享一个,相册中隐藏的实用剪辑功能,按下这个开关,还能把照片制作成音乐...

互联网营销渠道有哪些,互联网新型营销模式介绍

企业要快速的传播商品信息,比较好的一种方式就是通过网络广告推广来实现,而随着企业对网络广告推广落实措施的了解,企业也可以根据自己具体的需求来选择合适的网络推广方...

c语言学习系统软件(教你一文吃透C语言)

作为一门古老的编程语言,大家熟知它不仅是因为拥有48年的发展历程,更主要还是因为当下大部分程序员走入编程世界第一个学习的语言就是C语言。而近年来高速发展的物联网...

云服务器和vps有什么区别(云服务器跟虚拟主机的使用方

这几年云服务器很火爆,厂商经常做活动,那么和之前的vps有什么区别呢?虚拟主机是放置网站的,云服务器和vps是虚拟服务器,本质上没有区别的,属于一台100%可控...

oppo手机怎么调字体大小(设置手机字体大小三步曲)

爸妈那一辈,现在眼睛也花了,使用手机时总是会看不清上面的字,怎么办?其实手机的字体是可以调节大小的,小编这就来告诉你们如何操作,学会了就可以帮家里的长辈设置咯,...