当前位置:首页 >> 其它课程 >>

数组用户自定义类型练习题三


数组和自定义类型(三)
填空题 1. 输出大小可变的正方形图案,如图 5.2 所示,最外圈是第一层,要求每层 上用的数字与层数相同。 Option Base 1 Private Sub Form_Click() Dim a() n = InputBox("输入 n") ReDim a(n, n) For i = 1 To (n + 1) / 2 Fo

r j = i To n - i + 1 For k = i To n - i + 1 1 1 1 1 1 1 1 1 1 ____________ 1 2 2 2 2 2 2 2 1 Next k 1 2 3 3 3 3 3 2 1 Next j 1 2 3 4 4 4 3 2 1 Next i For i = 1 To n 1 2 3 4 5 4 3 2 1 For j = 1 To n 1 2 3 4 4 4 3 2 1 ______________ 1 2 3 3 3 3 3 2 1 Next j 1 2 2 2 2 2 2 2 1 ___________ 1 1 1 1 1 1 1 1 1 Next i End Sub 2. 下面的程序是将输入的一个数插入到按递减的有序数列中,插入后使该序列 仍有序。 Private Sub form_Click() Dim a, i%, n%, m% a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1) n = UBound(A) ReDim _______ _______ m = Val(InputBox("输入插入的数 n")) For i = UBound(A) - 1 To 0 Step -1 If m >= a(i) Then ______________ If i = 0 Then a(i) = m Else ______________ Exit For End If Next i For i = 0 To UBound(A) Print a(i)

Next i End Sub 3. 冒泡排序程序如下,请填空。 Private Sub Form_Click() Dim a, i%, n%, j% a = Array(1, 5, 6, 4, 13, 23, 26, 31, 51) n = UBound(A) For i = 0 To n - 1 For j = 0 To n - 1 - i If a(j) > a(j + 1) Then _____________ ______________ a(j + 1) = t End If Next j Next i For i = 0 To UBound(A) Print a(i) Next i End Sub 4.在窗体上画一个名称为“Command1”的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As String a = "123456789" For i = 1 To 5 Print Space(6 - i); Mid$(a, _ __ , 2 * i - 1) Next i End Sub 程序运行后,单击命令按钮,窗体上的输出结果是: 5 456 34567 2345678 123456789 请填空。 5.以下程序代码将任意一组数存入数组,从键盘接收一数据,将其插入数组中, 插入的位置也从键盘接收。 Dim A( ) Private Sub Form_Click( ) N=InputBox("数据个数:") N=N+1 &, nbsp; ____

For I=1To N-1 A(I)=Val(InputBox("原数据:")) Next I D=Val(InputBox("插入的数据:")) P=Val(InputBox("插入的位置:")) Do While P>N Or P<1 MsgBox"位置越界!" P=Val(InputBox("插入的位置:")) Loop For I=N To P+1 Step -1 A(I)=A(I-1) Next I A(P)=D For I=1 To N Text1.Text=Text1.Text & Str(A(I))&"" Next I End Sub 6.设有程序 Option Base 1 Private Sub Command1_Click() Dim arr1,Max as Integer arr1=Array(12,435,76,24,78,54,866,43) __ ___=arr1(1) For i=1 To 8 If arr1(i)>Max Then_ _ Next i Print"最大值是:";Max End Sub 以上程序的功能是:用 Array 函数建立一个含有 8 个元素的数组,然后查找 并输出该数组中元素的最大值。请填空。 11.设有如下程序: Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i As Integer arr1=Array(12,435,76,-24,78,54,866,43) Min=__ __ For i=2 To 8 If arr1(i)<min then Next i Print "最小值是:";Min End Sub

以上程序的功能是:用 Array 函数建立一个含有 8 个元素的数组,然后查 找并输出该数组中各元素的最小值。请填空。


相关文章:
《第5章 数组和自定义类型》习题
《第 5 章 数组自定义类型习题 (含第 6 章内容)一、填空题 1. 在...6. 如用 Array(1,2,3,4,5)给数组赋值,其数组的类型应该是 类型。 7. ...
3数组c++习题
3数组c++习题_理学_高等教育_教育专区。注意:学号、名字、分数、批改人写在每页...3. 假定 int 类型变量占用两个字节,其有定义: int x[10]={0,2,4};, ...
第5章 数组和自定义类型
第3章 VB语言基础 第4章 VB控制结构 第6章 过程 第7章 用户界面设计1...第5章 数组自定义类型 VB visual basic 练习题 天津工业大学VB visual basic...
用户自定义数据类型
用户自定义的数据类型复习题一、选择题 1.下列程序...以下函数的功能是:通过键盘输入数据,为数组中的所有...指针 p、q、r 分别指向一个链表中的三个连 续...
2012年计算机二级VB数组和自定义类型练习题及答案
2012 年计算机二级 VB 数组自定义类型练习题及答案 计算机等级考试网 更新:2011-12-30 编辑:evans 6.以下程序代码将任意一组数存入数组,从键盘接收一数据,将 ...
数组和自定义类型2
对象程序设计 设计验证 高雅妮 学号 实验 日期 2013.10.25 实验 成绩 90 实验教师签名 12093103 班级 计应 1201 数组自定义类型 1.掌握数组的声明,数组的...
实习四、数组与自定义数据类型
输出)的基本方法; (2)掌握与数组有关的算法; (3)理解自定义数据类型; 3.存在的问题: 对于动态数组和二维数组的掌握不好,运用起来比较困难,需要加以练习,进而...
3C++第三章习题解答
第三章 函数习题 1 第三章 函数习题一.基本概念...头文件中定义用户自定义的数据类型, 所有的程序实现...7)=0 解:把整数转换为数串,放在一个整型数组中...
1510030130张三 第5章 数组和自定义类型实验2
1510030130张三 第5章 数组自定义类型实验2_理学...“三、实验题代码”描述 (三) 、提交完成后的实验...(2)单击“插入”按钮,则根据用户输入的字母和插入...
第7章 数组与自定义数据类型
3页 免费如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题或意见建议,请...vb数组自定义数据类型vb数组自定义数据类型隐藏>> 习题7(数组自定义数据...
更多相关标签: