专升本VB程序设计教案2011

专升本VB程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 教案 中职数学基础模块教案 下载北师大版¥1.2次方程的根与系数的关系的教案关于坚持的教案初中数学教案下载电子教案下载 2011 好老师培训学校 2011年重庆市普通专升本考试培训资料 内部资料、严禁复制 程序语言设计知识点总结 一、 顺序程序设计 1、数据的输入VB数据输入数据的两种方式(input box和text) 1. 文本框(text)的输入格式:a=Val(text1.text) text1.text的返回值为string类型，根据题目的要求，如果想通过text1得到一个字符串则不需要进行转换， 如果想通过text1得到数值型数据则需要通过函数Val()进行转换。 2. input box输入数据的格式为:a=Val(input box(“提示信息”，”标题栏”，默认值))。 同text，input box的返回值也为string类型。 2、数据的输出VB中数据输出有两种方式(print和msgbox) 1. print 输出对象格式[对象名].print[ 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式列表] [,|;| ] spc(n)函数，表示插入由n个空格构成的字符串。 tab(n)函数，从左端开始右移动n列 ;(分号)，光标定位在上一个显示字符之后 ,(逗号)，光标定位在下个打印区域的开始位置，每个打印区域14列。 2. msgbox函数格式:msgbox 提示[,按钮[+图标]][,标题] 例:1求圆的面积(公式S=ΠR2)R从键盘通过text实现输入 2、输入球的半径，求球的体积和表面积。 3、输入三角形的三边长a,b,c，利用海伦公式求该三角形的面积。 area,s(s,a)(s,b)(s,c)海伦公式，其中s = (a+b+c)/2 4、求ax2+bx+c=0方程的根，其中a,b,c由键盘输入，设b2-4ac>0。 2bbac,4令 pq,,,,22aa求根公式为: 则x1=p+q x2=p-q 二、 选择结构,分支结构,程序设计 1. 关系运算符和关系表达式 大于(>)小于(<)大于等于(>=)小于等于(<=)等于(=) 不等于(< >) 关系表达式的结果只有false和true，也就是关系只有成了和不成立的情况。 a=10,b=5,c=1 f=a>b>c f=? 2. 逻辑运算符和逻辑表达式 逻辑与(AND) 逻辑或(OR ) 逻辑非(NOT) 运算规则 1 好老师预祝大家都能考出好成绩 好老师培训学校 2011年重庆市普通专升本考试培训资料 内部资料、严禁复制 以下实例中a=False，b=True a and b a, b中有一个表达式的值为假，则整个表达式的结果即为假。 f= a && b f=? a=? b=? a or b a, b中有一个表达式的值为真，则整个表达式的结果即为真 not a 表达式a的值为0，则整个表达式的结果为1，反之亦然 if条件语句 If ( 条件 ) then 基本形式 if(条件) then 语句1 语句1 Else 语句2 End if End if 或者if(条件)then 语句1 else 语句2 或者 If(条件) then 语句1 条件成立，则执行语句1;条件不成立则执行语句2，不再执行语句1 嵌套形式 if(条件) then 语句1 else if(条件)then 语句2 else if(条件)then 语句3 Else….. 语句n End if End if End if End if 例1、输入一个正整数判断该数是奇数还是偶数并输出判断结果 例2、编程求n的绝对值 例3、将用户输入的小写英文字母转换为大写，大写转换成小写 例4、输入一个数，判断该数是否是是水仙花数，并输出判断结果。所谓的水仙花，是指一个三位数，它的每 个位上的数字的三次幂之和等于它本身。例如:1^3 + 5^3 + 3^3 = 153就是水仙花数。 例5、输入三角形的三边长a,b,c，判断能否构成三角形，如果能构成三角形则利用海伦公式求该三角形的面 积，否则输出输入错误～ area,s(s,a)(s,b)(s,c)海伦公式，其中s = (a+b+c)/2。 三、 循环结构程序设计 2 好老师预祝大家都能考出好成绩 好老师培训学校 2011年重庆市普通专升本考试培训资料 内部资料、严禁复制 1. Do………loop 循环 使用形式:一般用于循环次数不确定的情况 形式一 Do do while 表达式 循环体 循环体 loop while 表达式 loop 当表达式成立时，执行循环体中的语句，循环体执行结束后再次判断表达式，成立，继续执行;成立，停止，循环结束。 形式二 Do do until 表达式 循环体 循环体 loop until 表达式 Loop 当表达式不成立时，执行循环体中的语句，循环体执行结束后再次判断表达式，成立，继续执行;不成立，停止，循环结束。 ,111,6用公式:求的值，直到最后一项小于,,，,，10为止。、 例11...,4357 例2、输入一个数，判断该数是否为回文数，并输出判断结果。所谓的回文数，是指该数顺读和倒读都一样的数。例如，123321就是回文数。 2nnxx,6xfxx()1...,，，，，,102!!n!n例3、编写程序，计算表达式:，直到为止。例如x=2.5，则函数值为:12.182494。 357(21)，，nn,1S,,，,,...(1)n2222246(2)，n例4、编写程序，计算表达式:， 21，，n，，,3,1022，n，，直到为止，并输出计算结果。 11111,6S,，，，，,...10n，,n，,1!3!5!(21)!(21)!n例5、编写程序，计算表达式:，直到 为止，并输出计算结果。 2. for循环 for循环主用用于循环次数已知的情况下，使用较多的循环形式 for i=1 to 10 step n 循环体 next i s,，，，，123...100的和1、。 3 好老师预祝大家都能考出好成绩 好老师培训学校 2011年重庆市普通专升本考试培训资料 内部资料、严禁复制 2、求1-100之间奇数的和。 3、输出100以内能被5整除的偶数或奇数。 33334、。 s,，，，，123...100的和 5、输入一个正整数～判断该数是否为素数～并输出判断结果。 6、输出所有的水仙花数。 7、求N!=1×2×3×4…×N。,一种循环算法～另外一种递归算法。, 11118、计算并输出下列多项式的值: ,1，，，，？，Snn234 111119、设计完成如下表达式计算的程序: ,,，,，，,1...Snnn,234212 10、编写程序～其功能是:计算并输出下列多项式的值: 1111 ,，，，？？，Sn1!2!3!n! 11、编写程序～其功能是:计算并输出 ,1，(1，2)，(1，2，3)，？？，(1，2，3，？n)Sn 12、编写程序～其功能是:计算并输出下列多项式的值:～并输出结果。 S,log(1)，log(2)，？，log(n) 111S,1，，，？，13、编写程序～计算表达式:。 1，21，2，31，2，3，？，n 2341n，,，，，，...14、编写程序～计算表达式: Sn123n四、 数组 1(一维数组的定义 dim a(10)as integer dim b(10 to 20) as integer 2. 数组的引用和赋值 数组在引用时下标从0开始 如果在通用程序段中有option base 1 则默认下标从1开始 赋值: 1.逐一赋值 a(1)=1 a(2)=2 ……. 2.循环赋值 for i=1 to 10 a(i)=val(text1.text) next i 循环输出 4 好老师预祝大家都能考出好成绩 好老师培训学校 2011年重庆市普通专升本考试培训资料 内部资料、严禁复制 for i=1 to 10 print a(i); next i 逆序: for i=10 to 1 step -1 print a(i); next i 数组的循环赋值相当于对数组进行循环遍历 例:1.编程实现将1，2，3，4，5，…..10,输入到数组a[10]中，然后将这些数字逆序输出 2.从键盘上输入10个数，然后找出其中的最大值和最小值以及最大值和最小值的下标 3.二维数组 dim a(1 to 3,1 to 4) as integer 二维数组在理解上可以借助矩阵来理解，看成是由3行4列的矩阵构成的。 对于二维数组的操作可以借助循环的嵌套来实现，利用一个循环来控制二维数组的行，另外一个 循环来控制二维数组的列。 for i=1 to 3 for j=1 to 4 a(i,j)=val(text1.text) next j next i 例:1.从键盘输入10个数，将他们按照从大到小的顺序输出(冒泡和选择去做) 2.编程求菲波拉基数列的前20项的和(1，1，2，3，5，8，……) 3.求3*4矩阵中元素的最大值和最小值 4.打印输出九九乘法表 五、 字符串的处理 常用函数 (1)删除空格函数 Ltrim(s)删除字符串s的前导空格 Rtrim(s)删除字符串s的后置空格 Trim(s)删除字符串s前后的空格 (2)取子串函数 left(s,n)从字符串s的左端取n个字符所组成的字符串 5 好老师预祝大家都能考出好成绩 好老师培训学校 2011年重庆市普通专升本考试培训资料 内部资料、严禁复制 right(s,n)从字符串s的右端取n个字符所组成的字符串 Mid(s,n,m)返回字符串s从第n个字符开始的m个字符构成的字符串 (3)其他函数 Len(s)返回字符串s的长度 Lcase(s)将字符串s中的所有字符都转换成小写 Ucase(s)将字符串s中的所有字符都转换成大写 Instr(x,y)字符串查找函数，返回字符串y在字符串x中第一次出现的位置。 Rnd 随即函数返回[0,1)区间的双精度随机数。 产生[n,m]区间正整数的表达式:Int(Rnd*(m-n+1)+n) 例: 1.利用文本框text输入一字符串，将改字符串逆序输出。 2.用户输入的字符串，统计字符串中大写字母的个数,数字字符的个数 六、子过程、函数过程和自定义函数 1.子过程和函数过程的区别 子过程和函数过程最明显的区别就是返回值问题。子过程没有返回值;函数过程有返回值 2.自定义函数 在写自定义函数时首先要确定自定义函数实现的功能，是否有返回值,是否有参数传递,以及 返回值类型等问题 例:用自定义函数实现找出两数的最大值 Private Sub Form_Click() Dim a%, b% a = Val(InputBox("请输入第一个数字")) b = Val(InputBox("请输入第二个数字")) Print max(a, b) End Sub Function max(x%, y%) As Integer max = IIf(x > y, x, y) End Function 例:1.自编函数实现判断n是否为素数，并在主函数中测试 Private Sub Command1_Click() n = Val(Text1.Text) p = isprime(CInt(n)) 6 好老师预祝大家都能考出好成绩 好老师培训学校 2011年重庆市普通专升本考试培训资料 内部资料、严禁复制 If p = 1 Then Print n & "是素数～" Else Print n & "不是素数～" End If End Sub Function isprime(n As Integer) f = 1 For i = 2 To n - 1 If n Mod i = 0 Then f = 0 Exit For End If Next i isprime = f End Function 2.求n的阶乘，分别用递归，函数调用来实现 函数调用 Private Sub Command1_Click() n = Val(Text1.Text) p = fact(CInt(n)) Print p End Sub Function fact(n As Integer) fact = 1 For i = 1 To n fact = fact * i Next i End Function 7 好老师预祝大家都能考出好成绩