- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
P82 编写程序求下面函数的值;Sub c1_click()
X=inputbox(“请输入X的值”)
If x≤0 then
y=2-x
Elseif 0x≤2 then
y=x+2
Elseif 2x ≤5 then
y=x 2
Elseif x5 then
y=25-x
End sub;教学要求:
1、掌握 循环结构语句的程序设计;
2、熟练掌握For –Next 和Do-Loop循环语句;
3、培养结构化程序设计能力。; ;数组概念的引出;学期;☆ 数组元素是带有下标的变量,其一般形式为:
数组名(下标1 [,下标2,……]) 如: A(2) B(2+2,1) C(1*2,3,1); 通常,数组是由一组具有同一类型的变量组成的,在使用一个数组之前必须对数组进行定义,确定其名称、类型及其规模。
在 VB中有两种类型的数组:固定大小的数组— 在定义时就确定了数组大小,并且在程序运行过程中,它总是保持同样的大小;动态数组—在定义时不指明其大小,并且在运行时其大小可以改变。
声明固定大小数组应包含的信息:
? 数组名 ? 数组的维数
? 数组的大小(体积) ? 数组的类型;
格式:Dim|Private| Public| static 数组名 ([维界定义]) [As 数组类型]
功能:定义一个一维数组,并初始化所有数组元素。
说明: ① 数组的维界定义必须为常数、常量符号或常量表达式,不能是变量表达式或变量。例如:
Const k as integer=10
Dim x(10) As Single 正确
Dim a(k) as long 正确
而 n=10
Dim x(n) As Single 错误,下标不能是变量,只能是常数或常量符号。;② 下标的形式是:[下界 To ]上界。一般情况下,当[下界 To]缺省时,默认值为0。下界≤上界。维的大小是:上界-下界+1。维界说明如果不是整数,将自动进行四舍五入处理。
③ As 数据类型: 用来说明数组元素的类型,如果缺省,默认为是变体型(Variant)。
例如:Dim a (12) As Single ˊ声明a数组为单精度型,下标范围为0~12.
Dim x (1 To 50 ) As Integer ˊ声明x数组为整型,下标范围为1~50.
Dim y (1 To 10 ) ˊ声明y是一个下标范围为1到10的变体型数组.; ④ 数组必须先声明后使用。
⑤ Dim语句声明数组,该语句把数值数组中的全部数组元素都初始化为0,把变体字符串数组中的数组元素初始化为空字符串,把定长字符串数组的元素初始化为给定长度的空格,把逻辑型数组元素初始化为False, 变体型初始化为Empty。
⑥ Dim语句中的维界定义可以是常数、也可以为空。下标为常数时为固定大小的数组,下标为空时则为动态数组。;
格式:
Dim|Private| Public| static 数组名 ([维界定义]) [As 数组类型]
说明:此时的维界定义是对两维下标的定义。每一维的大小为:上界-下界+1;数组的大小为每一维大小的乘积。;数组是由一组具有同一类型的变量组成的。
数组元素是连续存放的。;;A(0,0);三维数组的存储方式;Lbound函数:返回数组某维的维下界值。
Lbound(数组名,[维数])
例:Lbound(A,1)
Ubound函数
Ubound(数组名,[维数])
例:Ubound(B,2);14 21 28 35 42 49
56 63 70 77 84 91;1、如果在程序中没有特别声明,即程序中没有使用Option Basic 1 语句,缺省下界和关键字TO时,则表示下标的取值—————。;3、有如下数组说明语句: dim A(6) as integer dim B(3,-1 to 4) as singleA数组的大小为——个数组元素,B数组的大小为——个数组元素。;数组是程序设计中最常用的结构类型,将数组元素的下标和循环语句结合使用,能解决大量的实际问题。数组在定义时用数组名表示该数组的整体,但在具体操作时是针对每个数组元素进行的。
1、数组元素的赋值
利用循环语句对数组元素进行逐一地赋值。
Private sub form_click()
dim a(5) as integer, I as integer
for I=1 to 5
A(I)=Int(100*rnd)+1
print a(I);
next I
end
文档评论(0)