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

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


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


赞助商链接
相关文章:
实验E 数组和自定义类型
0.0分 (0人评价)暂无用户评价 我要评价 贡献者等级:初试锋芒 二级 格式:doc...数组自定义类型 23页 1财富值 实验二 Visual FoxPro数... 3页 免费 java...
vb实验E 数组和自定义类型
试验E 数组自定义类型一、实验目的 1. 2. 3. 4. 5. 掌握数组的声明、数组元素的引用。 掌握固定长度数组和动态数组使用差别。 掌握数组常用的操作和常用...
“用户自定义类型”
DelPhi学习笔记6.用户自... 6页 免费 数组用户自定义类型练习... 暂无评价 ...工业工程管理程序 3页 免费 中共广西壮族自治区委员... 12页 免费 汽车标准件...
VB上机练习题三
VB上机练习题三_IT认证_资格考试/认证_教育专区。VB 上机练习题三 1、已知 ...(1)编写代码 (2)运行效果 7、使用自定义类型数组计算 5 个学生的总分、平均...
Java 数组练习题目
x[24]未定义 C. x[25]为 0 21. 关于 char 类型数组,说法正确的是 A...int[] aB. int a[] 三、是非题 1.下标用于指出数组中某个元素位置的数字...
实习四、数组与自定义数据类型
3.掌握与数组有关的算法; 4.理解自定义数据类型;..." & s End Sub 第十一题: Private Sub Command1...的掌握不好,运用起来比较困难,需要加以练习,进而熟...
1510030130张三 第5章 数组和自定义类型实验2
1510030130张三 第5章 数组自定义类型实验2_理学...“三、实验题代码”描述 (三) 、提交完成后的实验...(2)单击“插入”按钮,则根据用户输入的字母和插入...
数组和自定义类型2
3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型数组使用。实验环境 PC 机一台 Microsoft Visual Basic 6.0 中文版 1 ...
VB复习数组前
VB控件_数组_过程复习题... 暂无评价 9页 免费 VB复习前三章答案 9页 免费...(变体型) 用户自定义类型 例如: Dim str1 As String , country As String*...
数组和自定义类型
2011年最新vb期末复习题(免... 29页 免费如...可使用___C___数组声明语句来实现(不能浪费空间...3 3 3 6.以下定义数组或给数组元素赋值的语句中,...
更多相关标签: