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

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


数组和自定义类型(三)
填空题 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期末试题及答案
MouseEvent 填空题: 1.数组 x 定义:String x[ ]...3、当程序中需要抛出异常时,应该使用_catch_子句,...13、 在 Java 语言中,所有的类都是类__Object__...
Java 数组练习题目
x[24]未定义 C. x[25]为 0 21. 关于 char 类型数组,说法正确的是 A...int[] aB. int a[] 三、是非题 1.下标用于指出数组中某个元素位置的数字...
VB上机练习题三
VB上机练习题三_IT认证_资格考试/认证_教育专区。VB 上机练习题三 1、已知 ...(1)编写代码 (2)运行效果 7、使用自定义类型数组计算 5 个学生的总分、平均...
2012年计算机二级VB数组和自定义类型练习题及答案
2012 年计算机二级 VB 数组自定义类型练习题及答案 计算机等级考试网 更新:2011-12-30 编辑:evans 6.以下程序代码将任意一组数存入数组,从键盘接收一数据,将 ...
1510030130张三 第5章 数组和自定义类型实验2
1510030130张三 第5章 数组自定义类型实验2_理学...“三、实验题代码”描述 (三) 、提交完成后的实验...(2)单击“插入”按钮,则根据用户输入的字母和插入...
实验E 数组和自定义类型
0.0分 (0人评价)暂无用户评价 我要评价 贡献者等级:初试锋芒 二级 格式:doc...数组自定义类型 23页 1财富值 实验二 Visual FoxPro数... 3页 免费 java...
“用户自定义类型”
DelPhi学习笔记6.用户自... 6页 免费 数组用户自定义类型练习... 暂无评价 ...工业工程管理程序 3页 免费 中共广西壮族自治区委员... 12页 免费 汽车标准件...
数组和自定义类型2
3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型数组使用。实验环境 PC 机一台 Microsoft Visual Basic 6.0 中文版 1 ...
实习四、数组与自定义数据类型
3.掌握与数组有关的算法; 4.理解自定义数据类型;..." & s End Sub 第十一题: Private Sub Command1...的掌握不好,运用起来比较困难,需要加以练习,进而熟...
试题三变量常量
全局数组 D 全局用户自定义类型 10.定义一个常量 a ,整型,值为123,并输出到...二级C语言考点试题 考点... 3页 免费喜欢此文档的还喜欢 常量与变量练习题 4...
更多相关标签: