预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共25页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

第 2 章第2章程序设计基础2.1数据类型数值型数据其他类型数据其他类型数据2.2常量与变量2.2.2变量(1)“值可变”:当将某个数据存放到一个变量时,就把变量中原有的值“冲”掉,换成新的值。 例如,以下2个赋值语句: a=3 a=8 同一变量在不同时刻可以取不同的值 (2)“取之不尽”:在运算过程中,如果没有改变该变量的值,那么,不管使用变量的值进行多少次运算,其值始终保持不变。 例如 x=5 a=3+x′x的值始终保持为5 b=x*x–4*x五类表达式:算术表达式、字符串表达式、日期表达式、关系表达式和逻辑表达式 1.算术表达式: 运算符及其优先级:^(乘方)→-(求负)→*/→\→Mod→+-示例:5*x^10+x/6–x^(1/3) 15Mod6 2.字符串表达式:运算符有两个:&和+ ”计算机”&”网络”结果为”计算机网络” 3.日期表达式: #8/8/2001#-#6/3/2001#结果为66 #12/1/2000#-32结果为#10/30/2000#1+2*14Mod17\6/2=?内部函数是由VB系统提供 函数调用的一般格式为:函数名(参数1,参数2,…)返回函数值 例如: y=Sqr(289)Sqr是内部函数名,289为参数,运行时该语句调用内部函数Sqr来求289的平方根,其计算结果由系统返回给变量y VB的内部函数大体上分为四大类:数学函数,字符串函数,日期与时间函数和转换函数。说明: ·函数Int(x)是求小于或等于x的最大整数。 例如Int(2)=2,Int(-2.5)=-3,Int(-3)=-3利用Int函数可以对数据进行四舍五入。例如,对一个正数x舍去小数位时进行四舍五入,可采用如下式子: Int(x+0.5)当x=9.4时,Int(9.4+0.5)=9当x=9.5时,Int(9.5+0.5)=10·随机函数Rnd可以模拟自然界中各种随机现象。它可产生一个(0,1)的随机数。在VB中,有一个称为随机数生成器的随机数生成程序,能产生一个随机数序列,用户每次调用Rnd即可得到这个随机数序列中的一个。 使用Randomize语句可以为随机数生成器指定不同的初值或者称为随机数序列的“种子”,这样可以得到不同的随机数序列。 Rnd通常与Int函数配合使用 生成[a,b]区间范围内的随机整数,可以采用 Int((b-a+1)*Rnd+a) 例如Int(4*Rnd+1)可以产生1~4之间(含1和4)的随机整数。可以是1,2,3或4,这由VB运行时随机给定。编写的窗体单击事件过程代码如下: PrivateSubForm_Click() DimxAsInteger,aAsInteger DimbAsInteger,cAsInteger x=36 a=Int(x/10)'求十位数 b=xMod10'求个位数 c=b*10+a'生成新的数 Print"处理后的数:";c EndSub 运行程序后单击窗体,输出结果是: 处理后的数:63编写的窗体单击事件过程代码如下: PrivateSubForm_Click() DimaAsInteger,bAsInteger,cAsInteger Randomize'初始化随机数生成器 a=Int(90*Rnd+10)'产生[10,99]区间内的随机整数 b=Int(90*Rnd+10) c=a+b'求两数之和 Print"产生的两个随机数:";a,b Print"和数:";c EndSub 运行程序后单击窗体,输出结果是: 产生的两个随机数:5671 和数:127用于进行字符串处理 说明:(1)函数Mid(字符串,p[,n])从第P个开始取n个字符 示例:Mid(“ABCDEG”,3,2)的结果为”CD” 若省略n,则得到的是从P开始的往后所有字符,如 Mid(“ABCDE”,2)的结果为“BCDE” (2)插入字符串语句Mid (3)在函数Instr中,f和k均为可选参数,f表示开始搜索的位置(默认值为1),k表示比较方式,若k为0(默认),表示区分大小写;若k为1,则不分大小写。 格式:Instr(f,字符串1,字符串2,k) 例如Instr(3,”A12a34A56”,”A”)的结果为7 Instr(3,”A12a34A56”,”A”,1)的结果为4 Instr(”A12a34A56”,”A”)的结果为1先从字符串a中找出某个指定字符(本例为空格),再以此字符为界拆分成两个字符串。编写的窗体单击过程代码如下: PrivateSubForm_Click() DimaAsString,bAsString,cAsString,nAsInteger a="Visual└┘Basic"'└┘表示空格 n=InStr(a,"└┘")'查找空格位置 b=Lef