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

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


数组和自定义类型(三)
填空题 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 个元素的数组,然后查 找并输出该数组中各元素的最小值。请填空。


相关文章:
数组与用户自定义练习一
数组用户自定义练习一_其它课程_高中教育_教育专区。数组自定义类型(一)单...在设定 Option Base 0 后,经 Dim arr(3,4) As Integer 定义的数组 arr ...
第5章 数组和自定义类型
第3章 VB语言基础 第4章 VB控制结构 第6章 过程 第7章 用户界面设计1...第5章 数组自定义类型 VB visual basic 练习题 天津工业大学VB visual basic...
1510030130张三 第5章 数组和自定义类型实验2
1510030130张三 第5章 数组自定义类型实验2_理学...“三、实验题代码”描述 (三) 、提交完成后的实验...(2)单击“插入”按钮,则根据用户输入的字母和插入...
数组和自定义类型
第五章数组自定义类型 51页 免费 2011年最新vb期末复习题(免... 29页 免费...() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s...
实验E 数组和自定义类型
...VB 试题答案...VB 试题答案隐藏>> 数组自定义类型 实验 E:数组和自...②内容 教材中实验:1、2、3、4、5、6 1、 Private Sub Form_Click() Dim...
2012年计算机二级VB数组和自定义类型练习题及答案
2012 年计算机二级 VB 数组自定义类型练习题及答案 计算机等级考试网 更新:2011-12-30 编辑:evans 6.以下程序代码将任意一组数存入数组,从键盘接收一数据,将 ...
VB 实习四 数组与自定义数据类型
6.阅读教材自定义数据类型和控件数组的内容,通过上机验证进一步理解。 三、程序算法及代码 课本习题验证: 例题 5-1、 界面设置: 数据来源: 属性结果: 代码编写:...
第7章 数组与自定义数据类型
3页 免费如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题或意见建议,请...vb数组自定义数据类型vb数组自定义数据类型隐藏>> 习题7(数组自定义数据...
实习四、数组与自定义数据类型
输出)的基本方法; (2)掌握与数组有关的算法; (3)理解自定义数据类型; 3.存在的问题: 对于动态数组和二维数组的掌握不好,运用起来比较困难,需要加以练习,进而...
Java 数组练习题目
Java 数组练习题目一填空题 1) 2) 3) 4) 5) ...Java 中数组的下标的数据类型是。 不用下标变量就...引用数组元素时,数组下标可以是___ 5. 定义了 int...
更多相关标签: