4.1基本数据类型、常量和变量

4.1基本数据类型、常量和变量

ID:46957622

大小:161.00 KB

页数:4页

时间:2019-12-01

4.1基本数据类型、常量和变量_第1页
4.1基本数据类型、常量和变量_第2页
4.1基本数据类型、常量和变量_第3页
4.1基本数据类型、常量和变量_第4页
资源描述:

《4.1基本数据类型、常量和变量》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、神奇的折纸现象——VB数组在折纸实验中的运用一、分组相邻3名同学为一组,各取一张纸进行对折,记录对折的次数。姓名对折的次数第一位学生第二位学生第三位学生任务一假设纸张的厚度为0.1mm,请你利用vb语言设计一个程序,能自动计算对折多次后纸张的厚度。(效果文件为“纸对折后的厚度.exe”)分析:对折的次数纸张厚度1234根据左表的分析,得到对折的次i与得到的厚度T之间的关系表达式为:____________________。……i打开任务一文件夹中“任务一.frm”文件,补全Vb程序设计:Text2Text1PrivateSubText1_Change()D

2、imiAsInteger,tAssingle'i对折次数,t纸厚度i=Val(Text1.Text)'写出i与t的关系表达式Text2.Text=Str(t)EndSub任务二请你利用vb程序设计语言,编写相应程序,实在其功能为:存储小组内三位同学折纸的次数,并将其各自所得纸张的厚度显示在list1列表框中。(效果文件为“3为同学折纸情况.exe”)根据现有知识无法完成任务二,请学习“新知识”板块!新知识数组:用来存储一批相同类型的数据,它是由一批同类型的变量构成的一个序列,组成数组的每一个变量成为数组的元素,也称为下标变量。下标是一个整数,用来指出某个元

3、素在数组中的位置。一维数组变量定义:dim数组变量名(a1toa2)as元素的类型例:dima(1to3)asinteger相当于定义一个包含a(1)、a(2)、a(3)3个变量的数组,每个元素类型为整型。dima(2)asinteger相当于定义一个包含a(0)、a(1)、a(2)3个变量的数组,每个元素类型为整型。分析:请打开“数组原理”文件夹中“数组.frm”文件,运行并观察vb代码,掌握数组存储的原理。1.dima(1to3)asinteger此语句的功能为______________________________。2.此代码中For循环语句的功

4、能为______________________________。3.试一试:若把dima(1to3)asinteger改为dima(1to2)asinteger,运行则会出现什么现象?任务二:界面设计如下图所示,打开“存储3位同学折纸厚度.frm”文件,补全其代码。巩固练习1.用下面语句声明数组1.定义数组语句dima(1to3)asinteger,下列关于数组定义的说法正确的是()A.与dima1asinteger,a2asinteger,a3asinteger语句功能一样B.可以得知a(1)元素的值为1C.a(0)位于数组中第1个数D.此数组元素中最

5、大下标为32.用下面语句声明names,则该数组一共包含的元素个数是()Dimnames(1to5)asstringA.5B.6C.7D.103.有如下VB程序段:PrivateSubCommand1_Click()Dima(6)AsIntegera(1)=35a(7)=65Text1.Text=a(1)EndSub调试程序时,出现如下图所示错误,引起此错误的语句是(   )A.Dima(6)AsInteger        B.a(1)=35C.a(7)=65                  D.Text1.Text=a(1)拓展练习在已经完成任务二的

6、基础上,打开“拓展练习”文件夹中“组内同学相加.frm”文件,界面如下图所示。单击command3,能在Text1文本框中自动显示组内同学纸张相叠加后总的厚度。Command3Text1请补全“组内同学相加.frm”,command3对象中vb程序代码,并调试正确。(其效果文件为“效果.exe”)

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。