书签 分享 收藏 举报 版权申诉 / 18
上传文档赚钱

类型VB-数组与记录教学练习题.doc

  • 上传人(卖家):2023DOC
  • 文档编号:5760048
  • 上传时间:2023-05-06
  • 格式:DOC
  • 页数:18
  • 大小:87.50KB
  • 【下载声明】
    1. 本站全部试题类文档,若标题没写含答案,则无答案;标题注明含答案的文档,主观题也可能无答案。请谨慎下单,一旦售出,不予退换。
    2. 本站全部PPT文档均不含视频和音频,PPT中出现的音频或视频标识(或文字)仅表示流程,实际无音频或视频文件。请谨慎下单,一旦售出,不予退换。
    3. 本页资料《VB-数组与记录教学练习题.doc》由用户(2023DOC)主动上传,其收益全归该用户。163文库仅提供信息存储空间,仅对该用户上传内容的表现方式做保护处理,对上传内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知163文库(点击联系客服),我们立即给予删除!
    4. 请根据预览情况,自愿下载本文。本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
    5. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007及以上版本和PDF阅读器,压缩文件请下载最新的WinRAR软件解压。
    配套讲稿:

    如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

    特殊限制:

    部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

    关 键  词:
    VB_ 数组 记录 教学 练习题
    资源描述:

    1、第八章 数组与记录 教学要求:掌握一维、二维数组的定义、引用、初始化,掌握静态和动态数组及其差别,掌握数组的基本使用方法:数组元素的输入、输出和赋值等,掌握使用For Each.Next语句操作数组元素的方法;掌握控件数组的定义、建立和使用,掌握排序算法。掌握记录类型及记录数组的概念、记录变量的初始化及引用。 知识点:数组的定义、引用、初始化;静态和动态数组及其差别;For Each.Next语句;控件数组。熟练数组“遍历”算法的设计规律,冒泡排序、快速排序算法,顺序查找、有序表对分查找、字符查找算法。 内容导航:一、数组的概念(一)数组的定义在Visual Basic中,可以用4个语句来定义

    2、数组,这4个语句格式相同,但适用范围不一样。Dim用在窗体模块或标准模块中,定义窗体或标准模块数组;ReDim、 Static可用于过程中;Public 用在标准模块中,定义全局数组。Visual Basic 提供两种格式:第一种格式:一维数组 Dim 数组名(下标上界) As 类型名称 二维数组 Dim 数组名(第一维下标上界,第二维下标上界) As 类型名称第二种格式:Dim 数组名 (下界 To 上界,下界To上界)Dim 数组名 (下界 To 上界,下界To上界)(二)默认数组在Visual Basic中,允许定义默认数组。默认数组就是数据类型为Variant(默认)的数组。在一般情况

    3、下,定义数组应指明其类型。二、动态数组(一)动态数组的定义动态数组以变量作为下标值,在程序运行过程中完成定义,通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中用 ReDim 语句定义带下标的数组。ReDim 语句格式:ReDim Preserve 变量 ( 下标 ) As 类型(二)数组的清除和重定义数组一经定义,便在内存中分配了相应的存储空间,其大小不能改变。有时需要清除数组的内容或对数组重新定义,其格式为:数组的清除:Erase数组名,数组名重定义:ReDim三、数组的基本操作(一)数组元素的输入、输出和复制1数组的引用

    4、数组的引用通常是指对数组元素的引用,其方法是,在数组后面的括号中指定下标。2数组元素的输入数组元素一般通过For循环语句及InputBox函数输入,当数组较小,或只需要对数组中的指定元素赋值时,可以用赋值语句来实现数组元素的输入,多维数组元素的输入通过多重循环来实现3数组元素的输出数组元素的输出可以用Print方法来实现。4数组元素的复制单个数组元素可以像简单变量一样从一个数组复制到另一个数组,二维数组中的元素可以复制到另一个二维数组中的某个元素,也可以复制到一个一维数组中的某个元素,并且反之亦然(二)For EachNext语句For EachNext语句类似于ForNext语句,两者都用来

    5、执行指定重复次数的一组操作,但For EachNext语句专门用于数组或对象“集合”(本书不涉及集合),其一般格式为:For Each成员In 数组循环体Exit ForNext成员这里的“成员”是一个变体变量,它是为循环提供的,代表的是数组中的每个元素。“数组”是一个数组名,没有括号和上下界。四、数组的初始化用 Array函数来给数组元素赋值,其格式为:数组变量名=Arra(数组元素值)注意,Array函数只适用于一维数组。即只能对一维数组进行初始化,不能对二维或多维数组进行初始化。五、控件数组(一)基本概念控件数组由一组相同类型的控件组成,这些控件共用一个相同的控件名,具有同样的属性设置。

    6、数组中的每个控件都有唯一的索引号(IndexNumber),即下标,其所有元素的Name属性必须相同。控件数组的每个元素都有一个与之关联的下标,或称索引(Index),下标值由Index属性指定。Index属性与控件数组中的某个元素有关(二)建立控件数组通过以下两种方法来建立控件数组:第一种方法,步骤如下:(1)在窗体上画出作为数组元素的各个控件;(2)单击要包含到数组中的某个控件,将其激活;(3)在属性窗口中选择“(名称)”属性,并键入控件的名称;(4)对每个要加到数组中的控件重复(2)、(3)步,键入与第(3)步中相同的名称。当对第二个控件键入与第一个控件相同的名称后,Visual Bas

    7、ic将显示一个对话框,询问是否确实要建立控件数组。单击“是”将建立控件数组,单击“否”则放弃建立操作。第二种方法,步骤如下:(1)在窗体上画出一个控件,将其激活;(2)执行“编辑”菜单中的“复制”命令(热键为Ctrl+C),将该控件放入剪贴板;(3)执行“编辑”菜单中的“粘贴”命令(热键为Ctrl+V),将显示一个对话框,询问是否建立控件数组;(4)单击对话框中的“是”按钮,窗体的左上角将出现一个控件,它就是控件数组的第二个因素,执行“编辑”菜单中的“粘贴”命令,或按热键Ctrl+V,建立控件数组中的其他元素。控件数组建立后,只要改变一个控件的“Name”属性值,并把Index属性置为空(不是

    8、0),就能把该控件从控件数组中删除。控件数组中的控件执行相同的事件过程,通过Index属性可以决定控件数组中的相应控件所执行的操作。 六、记录(一)记录类型和记录类型变量1记录类型定义格式:Private|Public Type 数据类型元素名(下标) As 类型名元素名(下标) As 类型名End Type2定义记录类型变量记录类型变量的定义和基本了类型变量的定义一样,在引用是有所不同,用“变量元素”的格式应用记录中的成员。(二)记录类型变量的初始化及其引用1记录类型变量的初始化用赋值语句或输入语句对记录各个成员分别赋值。2记录类型变量的引用及其操作成员的引用: 记录变量.成员名七、记录数组

    9、定义的一般格式:Dim 数组名(下界To上界) As 记录名引用记录数组元素的成员: 记录数组名(下标).成员名 训练:一、选择题1如下数组声明语句中正确的是_。A) Dim A(4 5) As IntegerB) Dim A(n,n) As IntegerC) Dim A(4,5) As IntegerD) Dim A4,5 As Integer3语句Option Base 1:Dim a(3,4)定义的数组所包含的数组元素的个数是_。A) 7B) 12C) 15D) 204要分配存放如下方阵的数据,正确的且最节约存储空间的数组声明语句是_。 1.1 2.2 3.3 4.4 5.5 6.6A

    10、) Dim a(6) As SingleB) Dim a(2,3) As SingleC) Dim a(2 To 3,-3 To 1) As SingleD) Dim a(1,2) As Integer5设有数组声明:Dim a(-2 To 4,3 To 6),则下面引用数组元素正确的是_。A) a(-2,3)B) a(5)C) a-2,4D) a(-1,7)6用下面语句定义的数组元素个数是_。Dim A(-3 To 5) As IntegerA) 6B) 7C) 8D) 97语句Dim arr(-3 To 5,2 To 6) As Integer定义的数组元素有_。A) 45B) 40C)

    11、11D) 548以下程序输出的结果是_。Option Base 1Private Sub Form_Click()Dim a,B(3,3)a=Array(1,2,3,4,5,6,7,8,9)For i=1 To 3For j=1 To 3B(i,j)=a(i*j)If(i=j) Then print Tab(j*3);format(B(i,j),#);Next jPrintNext iEnd SubA) 1 2 3 4 5 6 7 8 9B) 1 2 4 3 6 9C) 1 4 7 2 4 6 3 6 9D) 1 2 3 4 6 99在窗体上面画一个命令按钮,然后编写如下事件过程:Option

    12、 Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub运行上面的程序,单击命令按钮,其输出结果是_。A) 4321B) 12C) 34D) 123410在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i,j As IntegerFor i=1 To 3

    13、For j=2 To 4array1(i,j)=i+jNext jNext iText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是_。A) 12B) 13C) 14D) 1511在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10) As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next

    14、jPrint Next iEnd Sub程序运行后,单击命令按钮,在窗体上显示的值是_。A) 1 2 3 2 3 4 3 6 9B) 2 3 4 3 4 5 4 5 6C) 1 4 7 2 5 8 3 6 9D) 1 2 3 4 5 6 7 8 912设有如下程序:Option Base 1Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);Next iEnd Sub程序运行后,单击命令按钮,在窗体上显示的值是_。A) 5 4 3 2 B) 6 5 4 3

    15、C) 4 3 2 1 D) 7 6 5 413执行以下Command1的Click事件过程在窗体上显示_。Option Base 1Private Sub Command1_Click()Dim aa=Array(a,b,c,d,e,f,g)Print a(1);a(3);a(5)End SubA) abcB) bdfC) aceD) 出错14设有如下程序:Dim a(3,3) As IntegerFor m=1 To 3For n=1 To 3a(m,n)=(m-1)*3+nNext nNext mFor m=2 To 3For n=1 To 2Print a(n,m);Next nNext

    16、 m运行后输出的结果是 _。A) 2 5 3 6B) 2 3 5 6C) 4 7 5 8D) 4 5 7 815下列程序段的执行结果为_。Dim A(4)n=3A(1)=1For k=0 To n-1For P=1 To k+1X=k+2-PA(X)=A(x)+A(x-1)If km1 Thenm1=a(i)m2=iEnd IfNext iEnd IfPrint m1Print m2End Sub4写出当发生Command1_Click事件后,下面程序的运行结果。Private Sub Command1_Click()Dim a(10) As Integer, p(2) As Integer,

    17、i As integer,k As Integerk=5For i=0 To 9a(i)=iNext iFor i=0 To 2p(i)=a(i*(i+1)Next iFor i=0 To 2k=k+p(i)*2Next iPrint kEnd Sub5写出当发生Command1_Click事件后,下面程序的运行结果。Private Sub Command1_Click()Dim y As Integer,i As IntegerDim a(8) As Integery=18 : i=0Do a(i)=y Mod 2i=i+1y=y2Loop Until y1For j=i-1 To 0 St

    18、ep -1Print a(j)Next jEnd Sub6写出当发生Command1_Click事件后,下面程序的运行结果。Private Sub Command1_Click()Dim B(2,2) As IntegerDim i,k,t As IntegerFor i=0 To 2For j=0 To 2B(i,j)=jNext jNextit=1For i=0 To 2For j=i To 2t=t+B(i,B(j,j)Next jNext i Print tEnd Sub7写出当发生Command1_Click事件后,下面程序的运行结果。Option Base 1Private Sub

    19、 Command1_Click()Dim aa(4,4) As IntegerDim i,s As Integers=0For i=1 To 4For j=1 To 4aa(i,j)=(i-1)*4+j*2Next jNext iFor i=1 To 4s=s+aa(i,1)Next iPrint sEnd Sub8写出下面程序的运行结果。Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 4)k=5For i=1 To 10a(i)=i+1Next iFor i=1 To 4p(i)=a(i*2)Next iFor i=1 To 4k=k

    20、+p(i)*2Next iPrint kEnd Sub四、程序填空题1下面程序的功能是用”冒泡”法将数组a中的10个整数按序排列,阅读程序并填空。Option Base 1Private Sub Command1_Click()Dim aa=Array(678,45,324,528,439,387,87,875,273,823)For i=【1 】For j=【2 】If a(j) 【3 】a(j+1) Thena1=a(j)a(j)=a(j+1)a(j+1)=a1End IfNext jNext iFor i=1 To 10Print a(i)Next iEnd Sub2以下程序代码使用二维

    21、数租A表示矩阵实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1,其余元素值全为0,阅读程序并填空。Option Base 1Private Sub Command1_Click()Dim A(4,4)For i=1 To 4For j=1 To 4A【1 】=0Next jA【2 】=1A【3 】=1Next iFor i=1 To 4For j=1 To 4Print A(i,j);Next jPrintNext iEnd Sub3以下程序的功能是从键盘上输入3行4列的数组,求出它的每行最大值及其下标,阅读程序并填空。Option base 1Private Sub Fo

    22、rm_Click()Dim a(3,4) As IntegerDim i As Integer,j As IntegerDim max(3) As Integer,col(3) As IntegerFor i=1 To 3For j=1 To 4a(i,j)=InputBox(请输入一个元素值)Next jNext iFor i=1 To 3max(i)=a(i,1) : 【1 】For j=2 To 4If max(i)a(i,j) Thenmax(i)=a(i,j) : 【2 】End IfNext iPrint 数组元素值为,最大值,最大值下标For i=1 To 3For j=1 To

    23、 4【3 】Next j【4 】Next iEnd Sub4下面程序的功能是对具有10个元素的数组a中的元素进行选择法排序,阅读程序并填空。Option base 1Private Sub Form_Click()Dim a(10) As Integer,i As Integer,j As IntegerDim k As IntegerFor i=1 To 10a(i)=InputBox(请输入一个数组元素值)Next iFor i=1 To 9【1 】For j=i+1 To 10If 【2 】Then k=jNext jIf ki Thent=a(k) : 【3 】 : a(i)=tEnd

    24、 IfNext iFor i=1 To 10Print a(i);Next iEnd Sub5以下程序的功能是把一个具有三行四列的A矩阵和一个具有四行三列的B矩阵相乘的结果存放到C矩阵中,阅读程序并填空。Option Base 1Private Sub Command1_Click()Dim a(3,4) As Integer,b(4,3) As IntegerDim c(3,3) As Integer,i As Integer,j As Integer,k As IntegerFor i=1 To 3For j=1 To 4a(i,j)=i+jNext jNext iFor i=1 To 4

    25、For j=1 To 3b(i,j)=i*jNext jNext iFor i=1 To 3For j=1 To 3For k=1 To 4c(i,j)= 【1 】Next kNext jNext iFor i=1 To 3For j=1 To 3Print c(i,j),Next j【2 】Next iEnd Sub五、编程题1编程实现数组插入操作,通过InputBox函数输入的一个数插入到按递减的有序数列中,插入后的序列仍有序。2编程删除具有10个元素数组中指定位置的元素,并输出删除后的结果。3编程用二分查找法在已排好序10个元素的数组中查找输入的数,如果找在窗体上输出该数的下标,否则输出

    26、“没有找到”4编程用冒泡法对6个元素的数组a进行从小到大排序。第九章 数组与记录一、选择题1C2D3B4C5A 6 B7A8B9D10A11D12A13C14A15A 16D17B18C19A20D二、填空题1变体类型20 opting base 132 4 6 164Dim a As Variant InputBox(str1) x = E Or x = e5ReDim a(j, i)6p = a(i, i) + p q = a(i, m + 1 - i) + q7208419a(i)=a(10+1-i) a(10+1-i)=tmp101 a(i) a(max_i) 11i Mod 5 = 012Print13index14index三、程序阅读题13329 10 12 133495 542151 0 0 1 069732853四、程序填空题11 to 9 1 to 10-i 2(i,j) (i,i) (i,4-i+1)3col(i)=1 col(i)=j Print a(i, j), Print max(i), col(i)4k = i a(j) a(k) a(k) = a(i)5c(i, j) + a(i, k) * b(k, j) Print

    展开阅读全文
    提示  163文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    关于本文
    本文标题:VB-数组与记录教学练习题.doc
    链接地址:https://www.163wenku.com/p-5760048.html

    Copyright@ 2017-2037 Www.163WenKu.Com  网站版权所有  |  资源地图   
    IPC备案号:蜀ICP备2021032737号  | 川公网安备 51099002000191号


    侵权投诉QQ:3464097650  资料上传QQ:3464097650
       


    【声明】本站为“文档C2C交易模式”,即用户上传的文档直接卖给(下载)用户,本站只是网络空间服务平台,本站所有原创文档下载所得归上传人所有,如您发现上传作品侵犯了您的版权,请立刻联系我们并提供证据,我们将在3个工作日内予以改正。

    163文库