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

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


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


赞助商链接
相关文章:
Java 数组练习题目
x[24]未定义 C. x[25]为 0 21. 关于 char 类型数组,说法正确的是 A...int[] aB. int a[] 三、是非题 1.下标用于指出数组中某个元素位置的数字...
练习12 Java容器练习题
A:Array a=new Array(5); B:int[] a={1,2,3Java 容器练习题 [] ...B:虽然数组没有使用 class 定义,但它也有父类,它的父类就是定义数组类型。...
数组和过程习题(有)
数组一、思考题 个元素的整型数组,下列数组声明(...3. 如下数组声明语句,___正确。 (A)Dim a[3,...(D)自定义类型自定义类型变量 定义方式是正确的...
第4章数组练习题
第4章数组练习题_IT认证_资格考试/认证_教育专区。一 填空题 1) 2) 3) 4...定义了 int 型二维数组 a[6][7]后,数组元素 a[3][4]前的数组元素个数...
2014湖南大学c语言实验题目及其答案 (4)
第四章 构造数据类型一 目的和要求 1、掌握结构体类型说明和结构体类型变量、数组、指针的定义方法及使用。 2、学会引用结构体中的成员。 3、掌握利用指向结构体...
实验报告_实验3 类与对象
掌握的声明方法; 2.理解构造方法的作用,并掌握构造方法的定义; 3.熟练使用...6.(基础题)一维数组使用:根据注释填充程序所缺代码,然后编译、运行该程序,并...
...A.定义了一个基类型为int的指针变_答案_百度高考
D.定义了一个可指向一维数组的指针变量p,所指一维数组应具有三个int类型元素正确答案及相关解析 正确答案 B 解析 [解析] 本题考核的知识点是指针数组定义...
java基础复习题
我们选择数据类型的时候按照那种原 则选用?(10 分) 3. 定义一个函数接收一个...6. 自定义一个数组,使用冒泡排序思想对数组的元素进行排序。 (10 分) 7. ...
C语言习题级答案3
C语言习题级答案3_工学_高等教育_教育专区。测试题3 1.C语言中不合法的字符...以函数值类型为准 15.已定义两个字符数组a,b,则以下正确的输入格式 是 B A...
C#试题库2014
3.Console 类 数据类型和表达式 1.值类型:整数类型...使用( break )语句 82、数组定义与赋值语句如下:...2014-2015c#考试题库(最... 38页 免费 ...
更多相关标签: