【文档说明】VB期末复习课件.ppt，共(36)页，959.500 KB，由小橙橙上传

转载请保留链接：https://www.ichengzhen.cn/view-3258.html

以下为本文档部分文字说明：

2011年6月28日15：00~17：00课室：A2105工业设计及重修生A3401会计1班A3402会计2班闭卷考试带学生证，校园卡备查。考试题型：填空题选择题阅读程序写出结果程序填空题程序设计题常量、变量和数据类型是

程序设计语言所包含的元素。注意vb常用的数据类型，占字节数、表示形式以及操作方式。常量：即保持不变的数值。变量：即可以随时在程序中改变的数值。变量在使用之前需要先说明。有3种方式：显式说明、隐式说明和强制显式说明。例：ConstB=3B=4PrintB例：Opt

ionExplicitDimaasstring*3Dimx%,c&,d!,y#,e$Staticnumaslongdimname1asvariant第2章基本数据类型与表达式出错提示运算符与表达式。一个表达式可

能含有多种运算，表达式的运算顺序：函数运算→算术运算→关系运算→逻辑运算括号优先，同级将从左到右进行运算。逻辑运算：not→and→or→xor→eqv→imp★给出表达式后求值或者根据描述写出表达式例：已知x=2,y=4,z=6求表达式：n

ot(x>y)orx+y+z<50and100/z<y的值。xmod3=0andxmod4=0例：设x即能被3整除，也能被4整除，写出表达式。TrueX<=AORX>=B例：设x小于等于a，或者大于等于b，写出表达式。例：把数学式子写成vb表达式。Sin(15*3.14159/180

)/Sqr(x+y)常用内部函数可以通过分类来记忆：转换函数、数学函数、字符串函数、时间/日期函数和随机函数。了解函数的功能、参数的格式以及函数值的数据类型。例：生成某个范围内的随机整数Int((99-10+1)*Rnd+10)→Int(90*Rnd+10)‘10到99Int

((9-0+1)*Rnd+0)→Int(10*Rnd)‘0到9,1位随机整数Int((9-1+1)*Rnd+1)→Int(9*Rnd+1)‘1到9Int((100-0+1)*Rnd+0)→Int(101*Rnd)‘0到100顺序结构分支结构循环结构第3章程序流程控制例：Com

bo1.List(0)="王中强"&"学生"Text1.fontsize=hscroll1.valueX=InputBox("输入半径","输入信息",10,2000,3000)Y=MsgBox("继续吗？",vbYesNo

,"提示信息")Y=MsgBox("继续吗？",4,"提示信息")MsgBox"输入完成!"顺序结构语句赋值语句、数据输入、数据输出、对象的方法语句、注释、结束、暂停语句等。输出语句：Print注意:输出对象、输出某控件对象的属性值。Picture

1.Print“学生：",list1.list(3)Printlabel1.captionPrinttext1.textPrintcombo1.textPrintcombo1.list(4)Print注意数据项

的分隔符、语句末尾符号。格式化函数。Form1.Print"汉字";Tab(6);"abcde";Spc(1);"123456678"Print"s1=";50,Print"s2=";30PrintFormat(1234

.5,"$###,###.##")+"元"PrintFormat(1234.5,"$000,000.00")+"元"PrintFormat(1234.5,"$###,##0.00元")单分支IF…Then语句双分支IF…Then…Else语句多分支IF…Then…Elsei

f…语句多分支情况SelectCase语句IF语句的嵌套无论分支多少,仅选其一执行分支结构语句注意：单行结构与块结构写法的区别。Ifname="admin"Thenmsgbox"通过“X=1EndifIfname=“admin”Thenmsgbox“通过”:X=1For…Next语句While…

Wend语句Do…Loop语句DoWhile…Loop语句DoUntil…Loop语句Do…LoopWhile语句Do…LoopUntil语句嵌套循环不能交叉循环体的算法，进入循环的条件，结束循环的条件。循环结构语句Dowhilea=true…lo

opDountila=false…loopWhilea=true…WendPrivateSubCommand1_Click()Dimi%,j%,s%fori=1to3s=1forj=1tois=s+s*jnextjprintsnextiEndsub例1：2262624PrivateSu

bForm_Click()Dimi%,x!,y!Fori=1To4x=i*i+2SelectCasexCase6,18y=x/2+6Case10To15y=x*xCaseis>18y=x*2CaseElsey=0EndSelectPrint“x=”;x;“y=”;yNex

tEndSub例2：PrivateSubForm_Click()Dimx%,y%X=inputbox("输入准考证号：")Ifx>=1001andx<=1140thenSelectCasexCase1001to1052y="101"Case1053to1110y="102"例3

：多分支情况SelectCase语句的应用。学生考试，输入准考证号，能查出相应课室号码。已知考生考试课室安排如下：准考证号1001~10521053~11101111~1140教室号码101102103

Case1111To1140y="103"EndSelectPrint“准考证号";x;"考试教室";yElsePrint"准考证号输入错误！"EndIfEndSub第4章常用控件窗体是VB应用程序中的顶层对象，窗

体上的控件是子对象，窗体是父对象。窗体事件被触发的顺序：开始：Initialize→Load→Activate结束：QueryUnLoad→UnLoad→Terminate方法：print，cls，move，show等。引用时，当前窗体可以省略窗体名。16种控件：常用属性，常用事件，支持的方法属

性的设置：属性窗口设置和用赋值语句设置。每种控件用来干什么的？涉及到的重要属性有哪些。常用事件：什么时候、什么动作会触发该事件。在什么事件中写过程代码。控件的方法：注意写法：对象的名称.方法例：指定文

本框text1接受数据输入。Text1.SetFocus例：在图片框输出“*****”。Picture1.Print“*****”本章的实验作业例1：设计一个计时程序，用户单击command1按钮，计时开始，在文

本框中显示秒数，单击command2按钮，则计时停止。OptionExplicitDimiAsIntegerPrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=FalseText1.FontSize

=20Text1.Text=""EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()i=0Timer1.Enabled=TrueEndSub计时器开始工作

计时器停止工作PrivateSubTimer1_Timer()i=i+1Text1.Text=iEndSub例2：模拟秒表计时程序。OptionExplicit____________________PrivateSubForm_Load()Command2.Ena

bled=FalseText1.Text="":Text2.Text="":Text3.Text=""EndSubPrivateSubCommand1_Click()time1=Now‘当前系统时间Text1.Text=Format(time

1,"hh:mm:ss")Text2.Text="":Text3.Text=""Command1.Enabled=________Command2.Enabled=________EndSubDimtime1AsvariantFalseTruePrivat

eSubCommand2_Click()Dimtime2AsvariantDimtime3AsVarianttime2=Nowtime3=time2-time1Text2.Text=Format(time2,"hh:mm:ss")Text3

.Text=Format(time3,"hh:mm:ss")Command1.Enabled=TrueCommand2.Enabled=False‘单击后按钮不可用EndSub使用数组先说明。定义数组的名称、维数和数组元素的数据类型。元素的个数和位置由下标决定。第5章数组与记录例：A(3)

AsIntegerB(-1to2,-2to2)AsDouble实际中通过输入数组元素的个数来确定数组的大小，就要先定义一个可调数组，当确定了数组的大小后重定义数组。例：Dims()asinteger…n=inp

utbox(“输入n=”)Redims(1ton)2维数组M×N元素的输入：Fori=1Tom‘外层循环：行Forj=1Ton‘内层循环：列s(i,j)=InputBox(“s(“&Str(i)&”,”&str(j)&”)=”)NextjNexti2维数组M×N元素的输出：Fori=1

TomForj=1TonPrint“s(“;i;”,”;j;”)=”;s(i,j)；Nextjprint‘换行Nexti应用：在一维数组中求最小值、最大值、排序、求和等等。在二维数组中求和，求平均值、判断数组元素的大小等。PrivateSubCommand1_Click

()Dimx(1To8)AsIntegerDimi%,j%,t%,min%Randomize‘随机数列初始化Fori=1To8‘用随机数初始化数组，10至99x(i)=Int(90*Rnd)+10NextiFori=1To8Printx(i);‘输出一行原始序列NextIPrin

t‘换行例：编写一个事件过程，使用随机函数产生8个两位整数放在一维数组X中，输出原始序列，对数组中的数据用选择排序法从小到大顺序排列并输出结果。Fori=1To7'对数组排序t=iForj=i+1To8‘寻找最小元素Ifx(j)<x(t)Thent=jNextjIft<>i

Then'交换数组元素min=x(i)x(i)=x(t)x(t)=minEndIfNextiFori=1To8'输出排序后序列Printx(i);NextIPrint‘换行EndSubPrivateSubCommand1_Click()Dima(1To9)AsIntegerD

imb(1To3,1To3)AsIntegerDimi%,j%Fori=1To9a(i)=iNextiFori=1To3Forj=1To3b(i,j)=a(i*j)Ifj<=iThenPrintb(i,j),NextjPrintNextiEndS

ub例：写出结果。1a(1)=1a(2)=2…a(9)=9b(1,1)=1b(1,2)=2b(1,3)=3b(2,1)=2b(2,2)=4b(2,3)=6b(3,1)=3b(3,2)=6b(3,3)=91

2124124312436答案：1243692.在过程中说明变量或数组为记录类型。Dimxasydy‘一行数据Dims(1to10)asydy‘一张表数据自定义记录类型1.定义记录类型：PrivateTypeydynoAsInte

gerxyAsString*5cjAsIntegerEndType运动员号学院成绩1423理学院12.51428理学院12.31476化工学院12.61455信息学院13.11333法学院12.51346文学院12.11379化工学院14.21328理学院11.83.使用记录变量或记录

数组时要采用记录元素。Printx.no，x.xy，x.cj，s(1).no，s(2).no，s(1).xy调用：CallAre(Ch，Kw)或者Arex，y第7章过程子过程：PrivateSubAre(x！,byvaly！)……EndSubPublicFun

ctionfact(Byrefn%)AsLong……：fact=……EndFunction函数过程：调用例如：Print“结果：”；fact(3)+fact(5)注意复习讲课例子及实验练习例：在窗体上打印图案，要求用子过程实现打

印一个三角形图案。在command1_chick()事件过程中调用两次子过程来实现整个图案的打印。分析：子过程的两个形参：打印字符str打印行数n。PrivateSubtr(ByValStr$,ByValn%)DimIAsInteger,JAsIntegerForI=1To

n‘打印n行ForJ=1ToI‘每行打印字符PrintStr;NextJPrint‘换行NextIEndSubPrivateSubCommand1_Click()tr"%",3‘调用子过程tr"*",5‘调用子过程EndSubPrivateSubtr(ByValStr$,ByValn%)Dim

IAsInteger,JAsIntegerForI=1Ton‘打印n行ForJ=1Ton+1-i'每行打印字符PrintStr;NextjPrint‘换行NextIEndSubPrivateSubCommand1_Click()tr"%",3‘调用子过程tr"*",5‘调用

子过程EndSubPrivateSubtr(ByValStr$,ByValn%)DimIAsInteger,JAsIntegerForI=1Ton‘打印n行PrintTab(n+1-i);'定位For

J=1To2*i–1'每行打印字符PrintStr;NextJPrint‘换行NextIEndSubPrivateSubCommand1_Click()tr"%",3‘调用子过程tr"*",5‘调用子过程E

ndSub例：程序填空题。下面程序由一个事件过程Form_click()和一个自定义函数过程Mean()组成。事件过程的功能首先是产生由前N个自然数的平方所组成的数组:D(1)=1*1D(2)=2*2D(2)=2*2…D(N)=N*N并

求出数组元素的算术平均值，在窗体上输出。求平均值由自定义函数过程Mean()完成。该函数的参数为数组D()，PrivateSubForm_Click()Dimd()AsSingleDimiAsInteger,n

AsIntegern=InputBox("N=")_____________Print"所产生的";n;"个数是:"Fori=1Tond(i)=i*iPrintd(i)NextiPrintPrint"他们的平均值是:"Pri

nt_________EndSubPrivateFunction_mean(d()AsSingle)_______Dimi%,n%,x%n=_________Fori=1Tonx=x+d(i)Nextimean=x/nEndFunction

AsSingleReDimd(1Ton)mean(d())求数组下标范围的函数LBound(d)下界UBound(d)上界UBound(d)说明变量语句的位置决定了变量的作用域：过程级(局部)、文件级(模块)、工程级(全局)DimxAsInte

gerPrivateSubForm_Click()x=100Calls1:PrintxCalls2:PrintxEndSubPrivateSubs1()DimxAsIntegerx=x+200:PrintxEndSubPrivateSubs2()x=x+200:PrintxEndSub例

：注意：不同作用域的同名变量。第8章文件顺序文件的读写、随机文件的读写打开文件读/写文件关闭文件Open语句读（磁盘→内存）写（内存→磁盘）Close语句顺序写：Write#语句、Print#语句顺序读：Input#语句、LineInput#语句随机写：Put#语句随机读：G

et#语句