计算机综合应用.ppt

计算机综合应用,课程内容,VB程序设计中的若干问题（4学时）数组（4学时）过程（4学时）常用标准控件（2学时）菜单设计和文件（2学时）文件（2学时）数据库应用（4学时）总复习（2学时）,第一单元VB程序设计中的若干问题,1.1VB程序设计中的基本知识VB集成开发环境VB常用术语数据类型运算符与表达式常用内部函数,一、VB集成开发环境,基本考点,如何打开VB应用程序?答：直接打开工程文件。此时，系统会自动装入与该工程有关的窗体、标准模块等文件。VB的三种工作模式答：设计、运行和中断VB程序的保存答：窗体文件（.frm）和工程文件（.vbp）VB程序的两种执行方式答：解释方式和编译方式,生僻考点,在中断状态下可以运行代码,也可以在运行状态中作为输出结果的窗口称为().A.本地窗口B.立即窗口C.观察窗口D.栈窗口,送分题,在“工程资源管理器”窗口顶部有3个按钮，分别是“【1】”、“查看对象”和“切换文件夹”按钮。代码窗口上方有2个下拉列表,左边的称为【1】,右边的称为过程/事件下拉列表.【对象下拉列表】属性窗口分为4个部分,分别是【1】,属性显示方式,属性列表,属性说明.如果属性窗口被关闭,按键盘上的【1】键可以打开属性窗口,也可以使用工具栏中的窗口属性按钮,或使用视图菜单中的属性窗口命令,建立VB应用程序的步骤:,设计用户界面设置对象属性编写程序代码运行调试程序保存和编译文件,二、VB常用术语,对象属性方法事件事件过程窗体控件,基本考点,对象是什么？答：对象是既包含数据，又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体。对象的三要素答：属性、事件和方法，其中方法表示对象能完成的动作或操作,它是一种通用的过程和函数，编写好并被封装在对象中,供用户直接调用.VB是面向对象的程序设计语言，它的两个基本特点为可视化设计和事件驱动的编程机制。,三、数据类型,VB常用基本数据类型,求N!，若N超出7，则应使用长整型或者单精度类型。,字符型数据要用英文的双撇号括起来。,日期型数据往往要用#括起来。,考点解析（选择题158题）,设DimTestDateAsDate,为变量TestDate正确赋值的表达方式是().A.TestDate=#1/1/2002#B.TestDate=#1/1/2002#C.TestDate=date(1/1/2002)D.TestDate=Format(m/d/yy,1/1/2002),A,1、常量,直接常量数值常量：就是常数，包括整数、长整数、单精度数和双精度数实型常量。字符型常量：是用两个双撇号括起来的一串字符。逻辑常量：只有真和假两个值。日期常量：用两个#把日期和时间的值括起来就表示日期常量。符号常量：如ConstPI!=3.1415926系统常量：vbcrlf,VbCrlf和Chr(13)用圆括号改变运算的优先级。用标准数学函数时，自变量应写在一对括号内；三角函数的自变量应使用弧度；表达式从左到右在同一基准线上书写，无高低大小之分。,考点解析,表达式4+56*7/8Mod9的值是().A:4B:5C:6D:7表达式25.28Mod6.99的值是().A:1B:5C:4D:出错注意：对整除和求余运算，若运算项为非整数，则进行整除和求余运算前计算机会自动四舍五入把它们转化为整数。,B,C,关系表达式,用关系运算符连接两个表达式所组成的式子叫关系表达式。关系表达式的结果是一个布尔类型的值，即True和False。关系运算符=、=、bc后，窗体上显示的是（）A.TrueB.FalseC.1D.出错信息,B,a=5,数据输入(InputBox函数)格式：=InputBox(，)功能：在程序运行的时候，输入数据。注意：函数的返回值是一个字符串。x=InputBox(输入姓名,输入框演示,猪八戒),二、输入函数inputbox,三、MsgBox函数和MsgBox过程,函数:变量=MsgBox(,按钮,标题)过程:MsgBox提示,按钮,标题注意：若程序中需要返回值，则使用函数，否则可使用语句。,按钮值如下：函数返回所选按钮整数值：,1.3控制语句的基本格式,赋值语句If语句SelectCase语句ForNext语句WhileWend语句DoLoop语句,一、赋值语句,格式:变量名=表达式对象名.属性名=表达式作用:先计算赋值号右边表达式的值，然后将此值赋给赋值号左边的变量或对象属性。常用的赋值语句形式(1)累加：sum=sum+x(2)计数：n=n+1(3)交换两个变量的值：t=a:a=b:b=t,二、if语句,1、单行if语句的基本形式形式(1)：IfThen功能:如果成立，则执行形式(2)：IfThenElse功能:如果成立，则执行，否则执行,ifx0Theny=x,ifx=0Theny=1Elsey=-1,单行if语句的整个语句必须在一行结束。,二、if语句,2、块if语句的基本形式形式1：IfThenEndIf,注意：（1）在块结构中，IF与EndIf成对出现。（2）Then后面的语句必须放在下一行书写。,形式2：IfThenElseEndIf,二、if语句,2、块if语句的基本形式IfThenElseIfThenElseIfThenElseEndIf,只有第一个满足条件的分支可以被执行到。,读程序写结果,输入数据为：1）-52）893）74）234,PrivateSubForm_Click()x=Val(InputBox(“输入一个数”)Ifx10Theny=-10ElseIfx100Theny=1Elsey=-1EndifprintyEndSub,输出结果为：1）102）-103）-14）-10,二、if语句,3、IIF函数,格式：变量=IIf（，),相当于:Ifthen变量=Else变量=Endif,例：Max=IIF(ab,a,b),4、if语句的嵌套,If语句的嵌套格式：IfThenIfThenELSEEndIfELSEEndIf,Endif总是与它最接近的If配对。,读程序写结果,输入数据为：1）52）-323）0,输出结果为：1）12）03）-1,PrivateSubForm_Click()y=0;x=Val(InputBox(输入一个数)ifx=0Thenifx0Theny=1elsey=-1EndifprintyEndSub,三、SelectCase语句,SelectCaseCaseCaseCaseElseEndSelect,表达式列表的形式,：与同类型的下面四种形式之一：(1)表达式A(2)一组枚举表达式(用逗号分隔)2,4,6,8(3)表达式1To表达式260To100(4)Is关系运算符表达式Is=60,考点解析（选择题367）,多分支选择结构的CASE语句中“变量值列表”不能是（）。A.常量值的列表，如CASE1，3，5B.变量名的列表，如CASEX，Y，ZC.TO表达式，如CASE10TO20D.IS关系表达式，如CASEIS20,B,案例抽奖游戏,设置4个奖项，5%的可能抽一等奖，10%的可能抽二等奖，20%的概率抽三等奖，65%的概率抽安慰奖。单击开始按钮后，图片框中随机变换4种图片，单击抽奖按钮，图片停止变化，并显示相应的文字内容，,四、ForNext语句,一般形式：For循环变量=初值To终值Step步长循环体ExitForNext循环变量,考点解析,由Fork=10to0step3:nextk循环语句控制的循环次数是().A.12B.0C.-11D.-10循环结构ForI%=-1to17Step2共执行循环体()次.A.5B.6C.8D.9,B,D,五、WhileWend语句,一般形式为：while条件语句块Wend,求1+2+3+100PrivatesubForm_Click()sum=0:i=1whilei=100sum=sum+iwendPrintsumEndsub,wendPrintsumEndsub,i=i+1,六、DoLoop语句,格式有4种：1、2：Do循环体ExitDoLoopWhile|Until循环条件3、4：DoWhile|Until循环条件循环体ExitDoLoop,七、循环嵌套,循环中包含一个完整的循环。注意:使用循环嵌套时层次不能交叉；嵌套结构的内、外层循环变量不能使用同名的循环变量，但并列结构的循环允许使用同名循环变量。,例、计算1！+2！+20！PrivateSubForm_Click()DimsumAsSinglesum=0Forn=1To20t=1Fori=1Tont=t*iNextisum=sum+tNextnPrintsumEndSub,常用算法,累加和、累乘积素数穷举法迭代法（递推法）数字分离打印图形最大公约数、最小公倍数,累加和,1、计算并显示1到100之间能被3整除且个位为6的所有数，并将这些满足条件数的和存入变量sum中。2、设m=1*2*3*.*n，求使m大于200000的最小的n，并将结果输出到窗体上，同时存入变量中。,二、素数,素数的定义：只有1和它本身两个因数的数。素数的判断：根据这个数因数的个数来判定，如果只有1和它本身两个因数，就是素数；除了1和它本身，还有别的因数（即至少有三个因数)，这个数就不是素数。,用2、3、4、m-1中的所有的n都不能整除m，这时才可说m是素数。只要有任何的一个n(在2，m-1之间）能整除m，m就不是素数。,二、素数,Fori=2Tom-1ifmModi=0ThenPrintm;IsnotNexti,常见错误：Fori=2Tom-1ifmModi0ThenPrintm;“Is”Nexti,flag=0,flag=1,Ifflag=1Thenprintm;是素数Elseprintm;不是素数Endif,Form=2To100,Nextm,PrintmEndif,:Ifm2Thenflag=0,例1打印100以内的所有素数,PrivateSubForm_Click()Fori=2To100k=1Forj=2Toi-1IfiModj=0Thenk=0NextjIfk=1ThenPrinti;NextiEndSub,Forj=2Toi-1IfiModj=0Thenk=0NextjIfk=1ThenPrinti;NextiEndSub,:ExitFor,j=i,ExitFor,例1打印100以内的所有素数,PrivateSubForm_Click()Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrinti;NextiEndSub,Fori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrinti;NextiEndSub,Int(Sqr(i),i/2,s=0,s=s+i,t=1,t=t*i,EndSub,Prints,Printt,之和,之积,1020,10,20,判断素数的其他写法,PrivateFunctionprime(nAsInteger)DimiAsInteger(1)Ifnn；(2)m除以n得余数r；(3)若r=0，则n为最大公约数结束；否则执行(4)；(4)mn，nr，再重复执行(2)。m,n的最小公倍数为m和n的乘积除以它们的最大公约数。,题目：以下程序段用于实现：输入两个正整数m和n，求其最大公因数和最小公倍数。PrivateSubForm_Click()Dima%,b%,num1%,num2%,tempnum1=InputBox(请输入一个正整数)num2=InputBox(请输入一个正整数)If【?】Thentemp=num1:num1=num2:num2=tempEndIfa=num1:b=num2DoWhile【?】temp=aModba=b【?】LoopPrint最大公因数为：;aPrint最小公倍数为：;num1*num2/aEndSub,num1num2,b0,b=temp,用辗转相除法求两个整数的最大公约数（习题集78页40题）。Functiongcd(ByvalmAsInteger,ByvalnAsInteger)AsIntegerDimrAsIntegerr=mModnDoWhiler0*FOUND*n=mn=r：r=mModnLoop*FOUND*gcd=rEndFunctionPrivateSubForm_Click()Dima%,b%,c%a=InputBox(输入一个整数)b=InputBox(输入一个整数)a=Val(a)：b=Val(b)*FOUND*Callgcd(a,b)Printa,b,cEndSub,m=n,n,c=,六、递推法,“递推法”又称为“迭代法”，其基本思想是每次都从旧值的递推出新值，并由新值代替旧值。典型算法斐波那契数列小球落地人口增长猴子吃桃子,38我国现有人口13亿，设人口年增长率q为0.8%，多少年后我国人口超过26亿，将年份n打印在窗体上。要求使用DoWhile循环PrivateSubForm_Click()DimnAsInteger*Program*End*EndSub,x=13DoWhilex=26x=x*1.008n=n+1LoopPrintn,39、利用递推法求猴子吃桃子。小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一半多一个；以后每天都吃剩余桃子的一半多一个，到第7天早上要吃时只剩下一个了，问小猴那天共摘下了多少个桃子，要求使用For循环，用变量x表示桃子数量，i表示天数。分析：先从最后一天推出倒数第二天的桃子，再从倒数第二天的桃子推出倒数第三天的桃子设第n天的桃子为xn，那么它是前一天的桃子数的xn-1的一半减1，即xn=（xn-1+1）2PrivateSubF