认识VBWord格式文档下载.docx
- 文档编号:21301763
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:14
- 大小:77.88KB
认识VBWord格式文档下载.docx
《认识VBWord格式文档下载.docx》由会员分享,可在线阅读,更多相关《认识VBWord格式文档下载.docx(14页珍藏版)》请在冰豆网上搜索。
//执行加一操作
DimnAsInteger
n=27
n=n+1
MessageBox.Show(“valueofn+1=”&
n,”Variables”)
提示:
添加空白和注释,可以很大限度的增强代码的可读性。
5、数据类型
6、函数
需要函数有两个原因。
第一,它分解了程序,使之更易于理解。
第二,它使得代码的复用成为可能。
三、流控制
1、不区分大小写来比较字符串
IfString.Compare(name,”WINSTON”,True)=0thenMessageBox.Show(“Hello!
”,”IfDemo”)
Endif
以上代码中参数为true表示compare执行不区分大小写的比较。
2、if条件过于繁杂的情况下选择selectcase语句
Eg:
在ListBox控件中添加几项Items
DimnameAsString
Name=lstData.Items(lstData.Selectedindex)
DimfavouriteColorAsString
Selectcasename
Case“Darren”
favouriteColor=“madrasYellow”
case“Cathy”
…
Endselect
MessageBox.Show(name&
”’sfavouritecoloris”&
favouriteColor,”SelectDemo”)
3、SelectCase不区分大小写的语句
为了不区分大小写,必须将比较项转换为小写形式,可使用ToLower方法:
SelectCasename.ToLower改为大写即为ToUpper
没有满足case语句的条件时使用caseelse语句
Eg:
CaseElse
MessageBox.Show(“Idon’tknowthesexofthisperson.”,”SelectDemo”)
提示:
如果一个数据类型能在if语句中与“等于(=)”运算符使用,则它也能被使用到SelectCase中。
4、循环
——使用步长
forn=4to62step7
……
Next
——反向循环
forn=10to1step-1
——foreach……next用于在文件夹间循环
——Do……Loop循环
可以一直运行,知道满足某一特定的条件时结束
随机数生成代码
Forn=1To10
LstData.Items.Add(random.Next(25))
Next
**DoUntil……Loop循环
lstData.Items.Clear()
DimrandomAsnewRandom()
DimUntilRandomnumber=10//随机数生成数字直到生成10为止。
randomNumber=random.Next(25)
lstData.Items.Add(randomNumber)
Loop
**DoWhile……Loop循环
概念上讲正好与DoUntil……Loop相反
DoWhilerandomNumber<
15
15表示循环一直执行到随机数生成程序生成一个大于等于15的数停止。
适用于if语句的表达式都适用于Do……Loop语句
Do……Loop可以接受的表达式有:
Dowhilen>
10Andn<
100
或是:
DoUntil(n>
10andn<
100)orb=True
或是:
DoWhileString.Compare(StringA,StringB)>
——嵌套循环
Forn=1to2
Form=1to3
lstData.Items.Add(n&
”,”&
m)
NEXT
NEXT
——提前退出循环
Dimsubfolders()AsDirectoryInfo
Subfolders=NewDirectoryInfo(“C:
\”).GetDirectories
DimSubfoldersAsDirectoryInfo
ForeachSubfolderInSubfolders
lstData.Items.Add(Subfolder.FullName)
ifString.Compare(subfolder.FullName,”C:
\programfiles”,True)=0Then
MessageBox.Show(“Foundit”,”Loops”)
Exitfor
小结:
For循环迭代一个给定的次数,而派生的foreach循环可用于自动在数据中的项目中进行循环DoWhile循环当给顶的条件为True时迭代,而Dountil循环是给定的条件为True是结束迭代。
四、构建对象
对象就是存在的一切事物。
面向对象的核心概念是封装。
意思就是所有的概念都是以完整的方式包装起来,并且当你要求它做某事的时候不需要知道它的实际工作情况。
对象经常被称为黑盒。
你可以把软件对象假象为一个小塑料盒,盒子上面有按钮而边上有链接器。
方法和属性,方法就是让对象去做什么。
属性是用来描述对象特性的。
事件就是指对象知道如何让去做某事。
类定义了对象,有软件代码构成,它就相当于黑盒中的电路。
状态通常是作为属性来实现的。
行为是作为方法实现的。
添加一个颜色属性:
PublicClassCar
PublicColorAsString
此代码是告诉类我们想创建一个名为Color的公有属性,并设置该属性为字符串型。
而Public关键字是说明使用类是变量是可以访问的。
变量是被定义在PublicClass和EndClass之间的,而函数定义的外部变量称为成员变量。
创建构造函数:
——为了讨论构造函数,首先从_numberOfDoors成员中删除默认值5,并对Car.vb作如下改变:
PubicClassCar
PublicColorAsString
Private_speedAsInteger
Private_numberOfDoorsAsIngeter
——现在,添加下列方法已组成构造函数,一旦创建了Car对象则这个方法中的代码将被执行;
Private_speedAsInteger
Private_numberOfDoorsAsInteger
SubNew()
Color=”White”
_speed=0
_numberOfDoors=5
EndSub运行工程以后我们可以看到属性改变后的结果,并可以看到窗口中显示了汽车的详细资料。
这里设置_speed为0其实是多余的,因为这个值将出现(因为当车子启动时,所有的Integer变量都为0),但这样做是为使例子更完整。
——为了测试构造函数的动作,将创建一个单独的函数以显示汽车的详细资料,并对Module1.vb作如下改变:
ModuleModule1
SubMain()
DimmyCarAsCar
myCar=NewCar()
DisplayCarDetails(myCar)
Console.ReadLine()
EndSub
FunctionDisplayCarDetails(ByValmyCarAsCar)
Console.WriteLine(“Color:
”&
myCar.Color)
Console.WriteLine(“Numberofdoors:
myCar.NumberOfDoors)
Console.WriteLine(“Currentspeed:
myCar.Speed)
Console.WriteLine()
EndFunction
EndModule
五、Microsoft.NETFramework
公共语言运行时(CLR)是.NET的“心脏”。
它是用来携带.NET应用程序,并将它编译成本机的处理器代码,然后运行代码。
CLR扩大了功能的范围,以帮助应用程序正确的运行,有一下几方面的内容:
载入并执行代码:
从磁盘中载入MSIL代码并运行该代码
应用程序隔离:
增强程序的稳定性和安全性
内存管理
安全性
异常处理‘
交互操作
六、处理数据结构
数组是指仅有一种数据类型的数据列表
定义一个简单的数组:
PrivateSubbtnGo_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_
HandlesbtnGo.Click
Dimfriends(4)ofeachString
friends(0)=”Darren”
friends
(1)=”Edward”
friends
(2)=”Alex”
friends(3)=”Charlotte”
friends(4)=”Len”
lstFriends.Items.Add(friends
(2))
EndSub
数组中索引和大小会发生偏移是因为索引是基于零的,而通常人的逻辑比较倾向于从1开始计数。
Eg:
使用Foreach…Next处理数组
改变btnGo_Click事件的过程
。
Dimthrougheachfriend…
ForEachfriendNameInfriends
lstFriends.Items.Add(friendName)
Next
Eg:
将数组作为参数进行传递
将循环放入一个单独的函数中
‘defineanarraytoholdfriendsin…
Dimfriends(4)AsString
‘storethenameofeachfriend…
friends(0)=”Darren”
friends
(1)=”Edward”
friends
(2)=”Alex”
friends(3)=”Charlotte”
friends(4)=”Len”
EndSub
SubAddFriendsToList(ByValfriends()AsString)
‘gothrougheachfriend…
DimfriendNameAsString
ForEachfriendNameInfriends
‘addeachonetolist…
lstFriends.Items.Add(friendName)
改变btnGo_Click中的代码
…
Friends(4)=”Len”
‘showthefriends…
AddFriendsTOList(friends)
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
——排序数组
改变AddFriendsToList方法添加以下代码:
SubAddFriendsToList(ByValfriends()AsString)
‘sortit…
Array.Sort(friends)
‘gothrougheachfriend…
…
——反向搜查
ForEach…Next只能单向搜查数组。
如果想反向搜查数组,就必须使用标准的For…Next循环。
将AddFriendsToList代码改变成以下代码:
Array.Sort(friends)
DimupperBoundAsInteger=friends.Length-1
DimindexAsInteger
Forindex=upperBoundTo0Step-1
lstFriends.Items.Add(friends(index))
Next
——随机处理
'
///随机处理
'
sortit...
Array.Sort(friends)
howbigisthearay?
DimupperBoundAsInteger=friends.Length
createarandomizer...
DimrandomAsNewSystem.Random()
counttenitems...
DimnAsInteger
Forn=1To10
whichindex?
DimindexAsInteger=random.Next(upperBound)
lstFriends.Items.Add(index&
"
:
"
&
friends(index))
——UBound和LBound关键字能够返回数组所支持的最高的可能索引和最低的可能索引
'
//////////////upperandlower.../////////////////
MessageBox.Show("
Upperbound:
UBound(friends),"
ArrayDemo"
)
Lowerbound:
LBound(friends),"
sortit
——枚举
PublicClassForm1
InheritsSystem.Windows.Forms.Form
enum...
PublicEnumDayActionAsInteger
Asleep=0
GettingReadyForWork=1
TravelingToWork=2
AtWork=3
AtLunch=4
TravelingFromWork=5
RelaxingWithFriends=6
GettingReadyForBed=7
EndEnum
members...
PublicCurrentStateAsDayAction
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
setthehourtothecurrenthour...
Me.Hour=Date.Now.Hour
Hourproperty...
PublicPropertyHour()AsInteger
Get
ReturntrkHour.Value
EndGet
Set(ByValvalueAsInteger)
setthehour...
trkHour.Value=value
setthetext...
DimstatusTextAsString
statusText="
At"
value&
00,Lenis"
updatethedisplay...
txtState.Text=statusText
EndSet
EndProperty
PrivateSubtrkHour_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlestrkHour.Scroll
updatethehour...
Me.Hour=trkHour.Value
EndClass
——高级数据操作
动态数组
使用ReDim关键字
///SubbtnGo_Click
Dimfriends()AsString={"
Darren"
"
Edward"
Alex"
Charlotte"
Len"
}
makefriendsbigger!
ReDimfriends(6)
friends(5)="
zoe"
friends(6)="
Faye"
showthefriends...
AddFriendsToList(friends)
///AddFriendsToList
ForEachfriendNameInfriends
addit...
lstFriends.Items.Add("
["
friendName&
]"
使用PreServe关键字
ReDimPreServefriends(6)
十一、调试和异常处理
错误类型分为三种:
语法错误,最易于发现和确定的错误
执行错误,运行错误
逻辑错误,(语法错误)产生于意料之外或多于结果的错误,发生在配置完应用程序之后。
常见的执行错误有:
用零作为除数
访问不存在的文件
访问没有设置维数的数组
访问超过上限的数组
调用一段程序,给它传递错误的变元数目或错误类型的变元。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 认识 VB