vb数组题
VB上机试题及答案11
上机操作练习题1．某数组有20个元素，其值为随机产生的两位整数。
现要求将前10个元素及后10个元素对换。
即第1个元素及第20个元素互换，第2个数及第19个元素互换，…，第10个元素及第11个元素互换。
在窗体上输出数组原来各元素的值及对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer, j as integer, t as integerPrivate Sub Form_Load()ShowPrint "原始数组是："RandomizeFor i = 1 To 20a(i) = Int(Rnd * 90) + 10Print a(i);If i Mod 10 = 0 Then PrintNext iPrintPrint "现在数组是："For i = 1 To 10j = 21 - it = a(i): a(i) = a(j): a(j) = tNext iFor i = 1 To 20Print a(i);If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个及该数相同的元素，每一个都能删除；2）能实现多次删除Private Sub Form_Load()ShowReDim a(9) As Integerm = 1Print "原来数组为："For i = 0 To 9a(i) = InputBox("请输入第" & m & "个数：")Print a(i);m = m + 1Next in = InputBox("查找的数是：")i = 0: flag = FalseDoIf a(i) = n Thenj = i: flag = TrueFor k = j To UBound(a) - 1a(k) = a(k + 1)Next kReDim Preserve a(UBound(a) - 1) i = i - 1End Ifi = i + 1Loop While (i <= UBound(a))If flag = False ThenMsgBox n & "不在该数组中"ElsePrint "删除" & n & "后的数组是:"For i = 0 To UBound(a)Print a(i);Next iEnd If3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
计算机vb试题及答案
计算机vb试题及答案1. 题目：使用编写一个程序，实现对一个整数数组的排序。
答案：```Module Module1Sub Main()Dim arr As New Integer() {5, 2, 9, 1, 5, 6}Console.WriteLine("原始数组:")PrintArray(arr)Array.Sort(arr)Console.WriteLine("排序后的数组:")PrintArray(arr)Console.ReadKey()End SubSub PrintArray(arr As Integer())For Each i As Integer In arrConsole.Write("{0} ", i)NextConsole.WriteLine()End SubEnd Module```2. 题目：编写一个程序，计算并输出一个数的阶乘。
答案：```Module Module1Sub Main()Dim number As Integer = 5Dim factorial As Long = Factorial(number)Console.WriteLine("{0} 的阶乘是 {1}", number, factorial)Console.ReadKey()End SubFunction Factorial(n As Integer) As LongIf n = 0 Or n = 1 ThenReturn 1ElseReturn n * Factorial(n - 1)End IfEnd FunctionEnd Module```3. 题目：使用创建一个程序，该程序可以计算一个圆的面积。
答案：```Module Module1Sub Main()Dim radius As Double = 5.0Dim area As Double = Math.PI * radius * radiusConsole.WriteLine("半径为 {0} 的圆的面积是 {1}", radius, area)Console.ReadKey()End SubEnd Module```4. 题目：编写一个程序，实现简单的字符串反转。
VB数组专题训练
二：数组变量
1.数组概念：
由一批类型相同的变量构成的一个序列，组成数组的 每一个变量被称为数组的元素（或下标变量），数组中每 个元素的位置由它的下标唯一确定。
2.说明一维数组变量的常用形式：
Dim 数组变量名（ A1 To A2） As 元素类型
A1——下标的下界 A2——下标的上界
二：数组变量
显示的内容是
。
Private Sub Command1_Click()
Dim a(1 To 10) As Integer,s As Integer,i As Integer
a(1)=1∶a(2)=1
For i=3 To 10
a(i)=a(i-1)+a(i-2)
Next i
Text1.Text=Str(a(i-1))
且数组a中已存储了100个数据。把数组a中的数据分成50组，a(1) 和a(2)是第1组， a(3)和a(4)是第2组，等等……各组数据的和 依次存储到数组b的各个元素中，即第1组数据的和a(1)+a(2)存 储到b(1)中,第2组数据的和a(3)+a(4)存储到b(2)中,依此类推。 请用一个For语句来描述这个处理过程。
3.在VB中,语句dim a(6) as String所定义的数组元素个数是
（
）
A.5 B.6 C.7 D.8
四：知识补充 ①定义数组时,若省略下标1,则默认下标从0开始。 ②如果下标超过定义数组范围，会有“下标越界”的错误
五：大显身手
4.下列VB程序运行时,单击命令按钮Command1后,文本框Text1中
End Sub
五：大显身手
解析: 通过模பைடு நூலகம்得到a(3)=a(2)+a(1)…a(10)=a(9)+a(8),
vb试题及答案(一)
vb试题及答案(一)一、单项选择题（每题2分，共20分）1. VB中，哪个关键字用于声明变量？A. DimB. SetC. CallD. Function答案：A2. 在VB中，下列哪个函数用于计算两个数的和？A. SumB. AvgC. CountD. Max答案：A3. 下列哪个选项是VB中正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D4. 在VB中，如何表示一个数组？A. Dim numbers(1 To 10) As IntegerB. Dim numbers As Integer(1 To 10)C. Dim numbers(10)D. Dim numbers(10) As Integer5. VB中，哪个语句用于结束一个循环？A. LoopB. Exit DoC. ContinueD. End答案：B6. VB中，哪个关键字用于定义一个过程？A. FunctionB. SubC. ProcedureD. Method答案：B7. 在VB中，如何声明一个全局变量？A. DimB. GlobalC. PublicD. Static答案：C8. VB中，哪个关键字用于定义一个类？A. ClassB. ModuleC. StructureD. Interface答案：A9. 在VB中，哪个函数用于获取当前日期？B. DateC. TimeD. Today答案：D10. VB中，哪个语句用于创建一个对象实例？A. NewB. CreateObjectC. InstantiateD. MakeObject答案：A二、多项选择题（每题3分，共15分）1. 在VB中，以下哪些是合法的变量名？A. _myVarB. 123myVarC. myVar123D. my_var答案：ACD2. VB中，哪些是合法的常量定义？A. Const pi = 3.14B. Const PI = 3.14C. Const Pi = 3.14D. Const 2Pi = 6.28答案：ABC3. 在VB中，以下哪些是合法的数组声明？A. Dim numbers(1 To 10) As IntegerB. Dim numbers(10) As IntegerC. Dim numbers(1 To 10) As StringD. Dim numbers() As Integer答案：ACD三、判断题（每题1分，共5分）1. VB中，所有的变量都必须在使用前声明。
VB数组习题1
94、下面程序运行时单击窗体后，Form1上的输出结果
Option Explicit Private Sub Form_Click() Dim x(5) As Integer '**********SPACE********** Dim i, j, t,【?】 As Integer k x(1) = 8: x(2) = 3: x(3) = 1: x(4) = 6: x(5) = 4 For i = 1 To 4 For j = i + 1 To 5 '**********SPACE********** If x(i)【?】x(j) Then t = x(i): x(i) = x(j): x(j) = t Next j, i '**********SPACE********** 5 For k = 1 To 【?】 Form1.Print "x("; k; ")="; x(k) Next k End Sub
100、下面的程序实现：从键盘输入一个数字，将其插入一 个有序数组中，插入后的数组仍保持有序。 Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox("请输入要插 入的整数") '**********SPACE********** a(0)=x 【?】 i=8 Do While a(i) > x '**********SPACE********** a(i+1)=a(i) 【?】 i=i-1 Loop '**********SPACE********** If i > 0 Then a(i+1)=x Else a(1) = x 【?】 For i = 1 To 9 Print a(i); Next i End Sub
18个VB经典例题
1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。
Dim x As Integer, y As Integer, z As IntegerDim c As Single, s As Singlex = Int(Rnd * 201 + 100)y = Int(Rnd * 201 + 100)z = Int(Rnd * 201 + 100)If x + y > z And x + z > y And y + z > x Thenc = (x + y + z) / 2s = Sqr(c * (c - x) * (c - y) * (c - z))Print "三角形面积是：" & sElsePrint "构不成三角形"End If2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[]90、之间的学生人数。
100,Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%Dim x As SingleFor m = 1 To 60 '产生60名学生的分数x = Rnd * 101 '产生0－100的分数Print x;If x >= 90 Thena = a + 1ElseIf x >= 80 Thenb = b + 1ElseIf x >= 70 Thenc = c + 1ElseIf x >= 60 Thend = d + 1ElseIf x >= 50 Thene = e + 1ElseIf x >= 40 Thenf = f + 1ElseIf x >= 30 Theng = g + 1ElseIf x >= 20 Thenh = h + 1ElseIf x >= 10 Theni = i + 1Elsej = j + 1End IfNext mPrint a, b, c, d, e, f, g, h, i, j3、我国有13亿人口，按照人口年增长0.8%计算，多少年以后我国人口超过26亿。
vb第四章数组习题
V B第四章数组习题(总8页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--第一章数组一、选择题1．在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click(Index As Integer)Dim Arr1(12) As Integer, Arr2(3) As IntegerDim Sum As IntegerSum = 2For i = 1 To 12Arr1(i) = iNext iFor i = 1 To 3Arr2(i) = Arr1(i * i)Next iFor i = 1 To 3Sum = Sum + Arr2(i)Next iPrint SumEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是A．16B．24 C．32 D．362．在窗体上画一个文本框，然后编写如下代码：Option Base 1Private Sub Form_Click()Dim arrDim Start As Integer, Finish As IntegerDim Sum As Integerarr = Array(12, 4, 8, 16)Start = LBound(arr)Finish = UBound(arr)Sum = 0For i = Start To FinishSum = Sum + arr(i)Next ic = Sum / Finish= cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是A．40 B．10C．12 D．163．阅读程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iEnd Sub程序运行后，单击窗体，输出结果是A．5 7 B．6 8 C．7 9D．8 106 87 98 108 114．用下面的语句所定义的数组的元素个数是Dim A(-3 To 5) As IntegerA．6 B．7 C．8D．95．用下面的语句所定义的数组的元素个数是Dim arr(3 To 5, -2 To 2)A．20 B．12 C．15D．246．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim Arr1(10), Arr2(10) As Integern = 3For i = 1 To 5Arr1(i) = iArr2(n) = 2 * n + iNext iPrint Arr2(n); Arr1(n)End Sub程序运行后，单击命令按钮，输出结果是A．11 3B．3 11 C．13 3D．3 137．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是A．35 B．28 C．33D．378．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是A．4321 B．12 C．34D．12349．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPrint Arr(3)End Sub程序运行后，单击命令按钮，输出结果是A．7 B．6 C．5D．410．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。
VB数组练习题
9.在窗体上画一个命令按钮，然后填写如下代码： Private Sub Command1_Click( ) Dim n() as integer Dim a as integer,b as intetger a=inputbox(“enter data a:”) b=inputbox(“enter data b:”) redim n( a to b) for k=Lbound(n,1) to Ubound(n,1) n(k)=k print “n(“;k;”)=“;n(k) next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2和 3，输出结果为 n(2)=2 n(3)=3
8．在窗体上画一个命令按钮，然后编写如下代码： Option base 1 Private Sub Command1_Click( ) Dim a(4,4) For i=1 to 4 For j=1 to 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 to 4 For j=3 to 4 Print a(j,i); Next j print Next i End Sub 程序运行后，单击命令按钮，输出结果为（ D ） A.6 9 B.7 10 C.8 11 D.9 12 7 10 8 11 9 12 10 13
5.在窗体上面画一个命令按钮，然后编写如下代码： Option base 1 Private Sub Command1_Click( ) Dim a(10) as integer,p(3) as integer k=5 For i=1 to 10 a(i)=i Next i For i=1 to 3 P(i)=a(i*i) Next i For i=1 to 3 K=k+p(i)*2 Next i End Sub 程序运行后，单击命令按钮，输出结果是（ c ） A.35 B.28 C.33 D.37
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一．判断题：、
1．Visual basic中的数组是指由一批互相联系的、有一定顺序的数据组成的集合。
（）。
108E009197
2．一个数组中的所有数据，成为该数组的数组元素。
（）108E009198 3．根据数组占用内存的方式的不同，可以将数组分为常规数组和动态数组两种类型。
（）108E009199
4．常规数组，是大小固定的数组。
常规数组中包含的数组元素的个数和大小都不变，所以它占有的存储空间将保持不变。
（）108E009200
5．声明数组时，其下界可以省略。
当省略下界时，其默认下界为1。
（ f ）108E009201
6．此语句必须在模块顶部的声明中使用，必须位于所有数组声明语句之前，且只影响该语句所在模块中数组的下界。
（）108E009202
7．一个模块只能出现一次Option Base语句。
（）108E009203
8．Option Base语句对Array函数不起作用，使用Array函数所创建数组的下标的下界始终为0。
（）108E009204
9．在声明数组时，在数组名的后面附以一个空的维数表，即可将数组声明为动态数组。
（）108E009205
10．用户自定义数据类型，又叫做记录数据类型，简称记录类型。
( ) 108E009206
11．Dim A (2,3) as double声明一个二维双精度实型数组A，共有6个元素。
（）108E009207
二、填空题
1．具有两个或两个以上序号的数组称为_____________数组。
多维
2．一个数组中的所有数据，成为该数组的___________。
数组元素
3．根据数组占用内存的方式的不同，可以将数组分为__________和_____________两种类型。
4．在声明数组时，在数组名的后面附以一个空的维数表，即可将数组声明为____________数组。
5．用户自定义数据类型，又叫做记录数据类型，简称____________。
6．数据元素下标的下界默认为_______，如要想改变其默认值，应使用________________语句。
7．Dim counters(14) as integer声明了一个____型数组成counters,共有_________个元素。
三、选择题
1．如下数组声明语句中，数组a包含元素的个数为（）。
Dim a(3, -2 To 2, 5)
A)120 B)75 C)60 D)13
2．下列数组的声明语句中，正确的是（）
A dim X[4，4] as integer
B dim X(4，4)as integer
C dim X{4 ，4}as integer
D dim X[4：4] as integer
3．以下属于VB合法的数组元素是（）
A a8
B a[8]
C a(0)
D a{6}。