vb第四章数组习题

合集下载

VB第四章测试题(附答案)

VB第四章测试题一、选择题1.下列可作为VB的变量名的是BA.3*DletaB.PrintCharC.AbsD.ABπ2.下列可作为VB的变量名的是AA.FilenameB.A（A+B）C. A%DD.Print3.下列可作为VB中所允许的形式的数是CA.±25.74B.3.457E-100C. .368D. 1.87E+504.下列可作为VB中所允许的形式的数是DA.10^(1.256)B. D32C. 2.5ED.12E35. 下面的数写成普通的十进制数是B2.65358979335278D-006A.0.0000265358979335278653B. 0.00000265358979335278C.0.000265358979335278653D. 0.0000002653589793352786.下面的数写成普通的十进制数是D1.21576654590569D+019A.12157665459056900B. 121576654590569000C.1215766545905690000D. 121576654590569000007.下面的数写成普通的十进制数是B8.6787E+8A. 86787000B. 867870000C. 8678700D. 86787000008.下面的数写成普通的十进制数是A2.56E-12A.0.000000000002567B. 0.0000000002567C.0.000000002567D. 0.000000000025679.下列符号中不能作为VB中变量名的是___C_____。

A.ABCDB. E0065700C. 123TWDFFD. zxy10．如果将布尔常量值True赋值给一个整型变量，则整型变量的值为B_。

A. 0B. –1C. TrueD.False11．下列符号常量的声明中，__C______是不合法的。

A. Const a As Single = 1.1B. Const a As Integer = “12”C. Const a As Double =sin(1)D.Const a = “OK”12.下列___A_____是字符型常量。

VB项目4数组习题答案范文

一、单选题1.在中，一组具有相同名字、不同下标的变量称为____________。

A.数组B.变量C.同类数据D.同类变量2.一维数组的大小为______________。

A.上界+下界+1B.上界+下界-1C.上界-下界+1D.上界-下界-13.数组的存放是按____________存放的。

A.数据大小B.数据类型C.列D.行4.数组具有相同的_____________。

A.下标B.类型C.数值D.存放地址5.重定义数组大小的语句是______________。

A.Dim语句B.ReDim语句C.Static 语句D.Public 语句6.使用Dim A(100) As Integer 语句声明了数组A，其下标的取值范围为____________。

A.0~100B.1~100C.0~99D.1~997.若使用Dim A(100) As Integer 语句声明了数组A，下列引用错误的是___________。

A.A(0)=2B.A(1)= -28C.A(56)= A(-56)D.A(100)=A(0)+A(55)8.如果要对已经声明的数组重新定义大小，并保留原有数据，可使用语句___________。

A.DimB.ReDimC.Dim PreserveD.ReDim Preserve9.对于Integer 类型的静态数组，如果没有赋值，则所有元素的值为____________。

A.空B.0C.1D.最大数10.执行重定义数组大小语句ReDim A(UBound(B))后，A数组的上界为______________。

A.B数组的上界B.B数组的上界+1C.B数组的上界- 1D.不确定11.下列数组声明语句中正确的是______________。

A.Dim A(9) As Single ={1,2,3,4,5,6,7,8,9,10}B.Dim A() As Single ={1,2,3,4,5,6,7,8,9,10}C.Dim A() As Single ={1,”abc”,”ccc”,4,5,6,7,8,9,10}D.Dim A( , ) As Single ={1,2,3,4,5,6,7,8,9,10}12. 若有声明Dim a(2 ,3) as Integer，则数组a共有元素个。

vb数组题

一．判断题：、1．Visual basic中的数组是指由一批互相联系的、有一定顺序的数据组成的集合。

（）。

108E0091972．一个数组中的所有数据，成为该数组的数组元素。

（）108E009198 3．根据数组占用内存的方式的不同，可以将数组分为常规数组和动态数组两种类型。

（）108E0091994．常规数组，是大小固定的数组。

常规数组中包含的数组元素的个数和大小都不变，所以它占有的存储空间将保持不变。

（）108E0092005．声明数组时，其下界可以省略。

当省略下界时，其默认下界为1。

（ f ）108E0092016．此语句必须在模块顶部的声明中使用，必须位于所有数组声明语句之前，且只影响该语句所在模块中数组的下界。

（）108E0092027．一个模块只能出现一次Option Base语句。

（）108E0092038．Option Base语句对Array函数不起作用，使用Array函数所创建数组的下标的下界始终为0。

（）108E0092049．在声明数组时，在数组名的后面附以一个空的维数表，即可将数组声明为动态数组。

（）108E00920510．用户自定义数据类型，又叫做记录数据类型，简称记录类型。

( ) 108E00920611．Dim A (2,3) as double声明一个二维双精度实型数组A，共有6个元素。

（）108E009207二、填空题1．具有两个或两个以上序号的数组称为_____________数组。

多维2．一个数组中的所有数据，成为该数组的___________。

数组元素3．根据数组占用内存的方式的不同，可以将数组分为__________和_____________两种类型。

4．在声明数组时，在数组名的后面附以一个空的维数表，即可将数组声明为____________数组。

5．用户自定义数据类型，又叫做记录数据类型，简称____________。

6．数据元素下标的下界默认为_______，如要想改变其默认值，应使用________________语句。

计算机VB第4章课后参考答案

第4章参考答案(P102)一、单选题1、A2、D3、B4、D二、填空题1、frame(框架)2、x1^2+y1^2 <=93、value4、该框架三、程序阅读题s=4s=5.2s=8实验：1．Private Sub Command1_Click()Dim x As Singlex = V al(InputBox("请输入X"))If x < -2 ThenY = (3 * x * x - x - 1) / xElseIf x < 1 ThenY = Sin(x) + 2 ^ xElseY = (Sqr(x - 1) + Log(x) / Log(10)) / 2End IfLabel1.Caption = "你输入的X是" + Str(x) + ",得到的Y值是" + Str(Y) End Sub2．Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = V al(InputBox("请输入第一个数a"))b = V al(InputBox("请输入第一个数b"))c = V al(InputBox("请输入第一个数c"))Max = aIf b > Max Then Max = bIf c > Max Then Max = cPrint MaxEnd Sub3.Option ExplicitPrivate Sub Form_Load()Form1.Caption = "个人所得税"Label1.Caption = "薪金总额"Text1.Text = ""Label2.Caption = ""Command1.Caption = "计算"End SubPrivate Sub Command1_Click()Dim x As Single, y As Singlex = V al(Text1.Text)x = x - 1600If x > 40000 Or x < -1600 ThenY=0MsgBox "输入的薪金有错", , "出错"ElseIf x >= 0 And x <= 500 Theny = x * 0.05ElseIf x >= 500 And x <= 2000 Theny = 500 * 0.05 + (x - 500) * 0.1ElseIf x >= 2000 And x <= 5000 Theny = 500 * 0.05 + 1500 * 0.1 + (x - 2000) * 0.15ElseIf x >= 5000 And x <= 20000 Theny = 500 * 0.05 + 1500 * 0.1 + 3000 * 0.15 + (x - 5000) * 0.2 ElseIf x > 20000 Theny = 500 * 0.05 + 1500 * 0.1 + 3000 * 0.15 + 15000 * 0.2 + (x - 20000) * 0.25 End IfLabel2.Caption = "个人所得税为:" & Str(y)End Sub4.Private Sub Form_click()s = V al(InputBox("请输入计算机文化成绩"))Select Case sCase 180 To 200Print s, "优"Case 160 To 179Print s, "良"Case 140 To 159Print s, "中"Case 120 To 139Print s, "及格"Case 0 To 120Print s, "不及格"Case ElsePrint s, "输入成绩错误"End SelectEnd Sub。

VB循环结构及数组练习

VB循环结构及数组练习一、单选题1.执行以下程序段后，i的值为（B）For i = 1 To 10 Step 2y = y + iNext iA）10 B）11 C）12 D）252.假定有如下语句：Private Sub Command1_Click()Counter = 0For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，结果为（B）A）11 B）12 C）16 D）203. 假定有如下语句：Private Sub Command1_Click()For i = 1 To 4If i = 1 Then x = iIf i <= 4 Then x = x +1Print x;End Sub程序运行后，结果为A）1 2 3 4 B）2 3 4 5 C）2 3 4 4 D）3 4 5 64.哪个程序段不能分别正确显示1!、2!、3!、4!的值（B）A）For i = 1 To 4n = 1For j = 1 To in = n * jNext jPrint nNext iB）For i = 1 To 4For j = 1 To in = 1n = n * jNext jPrint nNext iC）n = 1For j = 1 To 4n = n * jPrint nNext jD）n = 1: j = 1Do While j <= 4n = n * jPrint nj = j + 1Loop5. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后，在窗体上显示的内容是（A）A）BB B）A C）B D）AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD6. 编写如下的事件过程：Private Sub Command1_Click()Dim x,n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str (x)Text2.Text = Str (n)End Sub运行程序后，在2个文本框中显示的值分别是（B）A）20和1 B）27和3 C）195和3 D）600和47. 编写如下的事件过程：Private Sub Command1_Click()Dim i,n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str (n)End Sub运行后，文本框中显示的值是（B）A）2 B）3 C）4 D）58. 编写如下的事件过程：Private Sub Command1_Click()c = 1234c1 = Trim (Str(c))For i = 1 To 4Print ________NextEnd Sub运行程序后，窗体上显示如下11 21 2 31 2 3 4则应该在________处填写的表达式是（B）A）Right (c1,n) B）Left (c1,i) C）Mid (c1,n,1) D）Mid (c1,n,n)9. 编写如下的事件过程：Private Sub Command1_Click()n = Val (Text1.text)For i = 2 To nFor j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是：（C）A）输出n以内的奇数B）输出n以内的偶数C）输出n以内的素数D）输出n以内能被j整数的数10. 编写如下的事件过程：For i = 1 To 3For j = 5 to 1 Step -1Print i*jNext j,i则语句Print i*j 的执行次数是（A）A）15 B）16 C）17 D）1811.以下程序段输出结果为（B）x = 1y = 4Do Until y > 4x = x * yy = y + 1LoopPrint xA）1 B）4 C）8 D）2012.执行下面的程序段后，x的值为（A）x = 5For i = 1 To 20 Step 2x = x + i\5Next iA）21 B）22 C）23 D）2413. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，输出结果是（B）A）7 B）15 C）157 D）538 14.有如下的程序段：For i = 1 To 3For j = 1 To ia = a + 1Next jNext i执行上面程序后，a的值为（C）A）3 B）9 C）6 D）2115.有如下的程序段：n = 0For i = 1 To 3For j = 1 To iFor k = j To 3n = n + 1Next kNext jNext i执行上面程序段后，n的值为：（B）A）3 B）14 C）9 D）2116.阅读程序Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox (“请输入1个整数”)y = Val (y)If y Mod 5 = 0 Thena = a + yx = yElsea = a + xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（A）A）100 B）50 C）120 D）701.如有以下程序代码：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后，在窗体上输出的内容为（C）A）89 B）99 C）23 D）772.下面语句定义的数组元素个数中（C）Dim arr(3 To 5, -2 To 2)A）20 B）12 C）15 D）243. 下面语句定义的数组元素个数中（D）Dim a(-3 To 4, 3 To 6)A）18 B）28 C）21 D）324. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10)For i = 1 To 10arr1(i) = 3 * iarr2(i) = arr1(i) * 3Next iText1.Text = Str(arr2(i / 2 - 0.1))End Sub程序运行后，在文本框显示的是（B）A）36 B）45 C）54 D）635. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 1 To 4s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行程序后，在窗体上输出的内容为（D）A）1234 B）12 C）34 D）43216. 如有以下程序代码：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub运行程序后，在窗体上输出的内容为（A）A）12 B）13 C）14 D）157.假设通过复制、粘贴建立了一个命令按扭数组Command1，则以下说法错误的是（D）A）数组中每个命令按扭的名称（Name属性）均为Command1B）数组中每个命令按扭的大小都一样C）数组中每个命令按扭可以使用同一个时间过程D）用名称Command1可以访问数组中每个命令按扭8. 如有以下程序代码：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）A）11 3 B）3 11 C）13 3 D）3 139.如有以下程序代码：Private Sub Command1_Click()Dim arr(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3If j = i Or j = 3 - i + 1 Thenarr(i, j) = 1Elsearr(i, j) = 0End IfNext jNext iPrint arr(1, 1) + arr(2, 2) + arr(3, 3)End Sub运行程序后，在窗体上输出的内容为（D）A）0 B）1 C）2 D）310.如有以下程序代码：Option Base 1Dim a() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim a(3, 2)For i = 1 To 3For j = 1 To 2a(i, j) = i * jNext jNext iReDim Preserve a(3, 4)For i = 3 To 4a(3, i) = i + 5Next iPrint a(3, 2); a(3, 4)End Sub运行程序后，在窗体上输出的内容为（B）A）0 0 B）6 9 C）7 12 D）8 1311.在窗体上话3个单选按扭，组成1个名为chkOption的控件数组。

VB程序设计课后习题答案

VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。

2、当正常安装VB6.0后，误把Windows子目录删除。

当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。

因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。

3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。

4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。

5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。

6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。

试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。

先保存窗体文件（.frm），再保存工程文件（.vbp）。

若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。

7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。

VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。

9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。

数组练习题

数组练习题1．下面数组声明语句，_________正确。

A）Dim a[2,4] As Integer B）Dim a(2,4）As IntegerC）Dim a(n,n）As Integer D）Dim a(2 4）As Integer2．假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是________。

A)数组中每个命令按钮的名称(名称属性)均为Command1B)数组中每个命令按钮的标题(Caption属性)都一样C)数组中所有命令按钮可以使用同一个事件过程D)用名称Command1(下标)可以访问数组中的每个命令按钮3．数组声明语句Dim a(-2 to2,5）中，数组包含元素个数为________。

A）120 B）30 C ）60 D）204．下面程序的输出结果是________。

Dim aa = Array(1,2,3,4,5,6,7)For i = Lbound(a）to Ubound(a)a(i）= a(i）* a(i)Next iPrint a(i)A）36 B）程序出错C）49 D）不确定5．下面程序的输出结果是________。

Option Base 1Private Sub Command1_Click()Dim a%(3, 3)For i = 1 To 3For j = 1To 3If j > 1 And i > 1 Thena(i, j）= a(a(i - 1, j - 1), a(i, j - 1)）+ 1Elsea(i, j）= i * jEnd IfPrint a(i, j); "";Next jPrintNext iEnd SubA）1 2 3 B）1 2 3 C ）1 2 3 D）1 2 32 3 1 1 2 3 2 4 6 2 2 23 2 3 1 2 3 3 6 9 3 3 36．在设定Option Base 0后，经Dim arr(3,4）As Integer 定义的数组arr含有的元素个数为________。

VB 第四章数组习题

第一章数组一、选择题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．36 2．在窗体上画一个文本框，然后编写如下代码：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 / FinishText1.Text = cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是A．40 B．10C．12 D．16 3．阅读程序：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 11 4．用下面的语句所定义的数组的元素个数是Dim A(-3 To 5) As IntegerA．6 B．7 C．8 D．9 5．用下面的语句所定义的数组的元素个数是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 3 D．3 13 7．在窗体上画一个命令按钮（其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．34 D．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．4 10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。

vb控件数组的习题及答案

vb控件数组的习题及答案编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（vb控件数组的习题及答案）的内容能够给您的工作和学习带来便利。

同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。

本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快业绩进步，以下为vb控件数组的习题及答案的全部内容。

电子教室学生注册时姓名文本框部分请输入：如：1411111111李四学号+姓名，中间不加空格)实验准备:请同学们删除d:\ex21 文件夹里面的内容如果没有ex21文件夹，请在d:\ 下新建 ex21 文件夹1、打开D：\下的工程文件PROJECTA4。

vbp和窗体文件FORMA4。

frm，按以下要求完成程序：在窗体上创建2个列表框、2个标签、2个命令按钮。

List1用于显示可选课程、List2用于显示已选课程.单击“选课”按钮,将List1中选定的课程名称加入到List2中显示,单击“清空”按钮，将删除List2中的所有课程。

程序运行的参考输出格式如图A-4所示,可选课程至少包含图A-4所示的6门.最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。

图A-42、打开D:\下的工程文件PROJECTB4。

vbp和窗体文件FORMB4.frm,按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。

List1用于显示可选课程、Picture1用于显示已选课程。

单击“选课”按钮，将List1中选定的课程名称加入到Picture1中显示,单击“清空”按钮，将删除Picture1中的所有课程。

程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的6门。

最后将工程文件、窗体文件按原文件名保存在D：\EX21文件夹下。

VB程序设计教程第四章、第五章、第六章课后习题(部分)

VB课后作业第三次作业习题四09信管李莎2009181040152012/4/11书95页习题四9.计算下列循环语句的次数：（1）循环次数为：6（2）循环次数为：19（3）循环次数为：0（4）循环次数为：死循环直至溢出12.利用循环结构，实现如下功能：（1）Dim i As Integer, s As IntegerFor i = 1 To 10s = s + (i + 1) * (2 * i + 1)Next iPrint "s="; s（2）Dim i As Integer, n3 As Integer, n7 As IntegerFor i = 1 To 100If i Mod 3 = 0 Then n3 = n3 + 1If Int(i / 7) = i / 7 Then n7 = n7 + 1Next iPrint "1-100中3的倍数有"; n3; "个"Print "1-100中7的倍数有"; n7; "个"（3）Dim s1 As String, s2 As String, i As Integers1 = InputBox("Input String")s2 = ""For i = 1 To Len(s1)s2 = Mid(s1, i, 1) + s2Next iPrint "原序："; s1Print "反序："; s213.下面程序的运行结果是什么？该程序的功能是什么？Private Sub Command1_Click()Dim x$, n%n = 20Do While n <> 0a = n Mod 2n = n \ 2x = Chr(48 + a) & xLoopPrint xEnd Sub答：输出字符串“10100”。

034 VB编程之数组综合练习

VB数组综合练习需求：利用数组，设计一款学生成绩管理系统。

具有添加、删除、查找、修改及打印的功能。

具体要求是：输入学生姓名和成绩，单击添加按钮，可以将信息添加进数组；输入要删除的学生姓名，单击删除，在数组中删除该学生及成绩；输入需要查找的学生姓名，单击查找按钮，可以将该学生姓名及成绩打印出来；输入要修改成绩的学生姓名以及对应的新成绩，单击修改按钮，则可以修改其成绩；单击打印按钮，可以将所有学生及成绩打印出来。

分析：利用动态二维数组来存储学生的姓名和成绩，数组一维部分存储学生姓名，二维则存储成绩。

添加学生信息时，只需要将数组长度增加1，并将学生信息赋值给它。

删除学生信息时，则用到此前学习的删除数组知识。

修改成绩时，则相对简单，只需要遍历数组，找对对应学生，并将新的成绩赋值给数组元素。

查找则与修改类似。

用一张图来表示该动态二维数组，可以让读者更加清晰的了解其机构和作用：程序界面设计：界面大致分为三个部分，左边为打印区，中间为学生信息输入区，右边则为功能操作区。

代码设计：第一步：在通用区域，设置数组下标从1开始；定义一个学生动态数组；定义一个计数变量。

如下所示：说明：之所以将数组和计数变量定义在通用区域，是因为它们需要全局可用。

第二步：设计“添加”按钮事件代码：说明：1，使用计数变量counts作为数组第二维的上标。

之所以不使用UBound函数，因为在VB中，当数组长度为0时，此时使用UBound函数将会报错。

2，Student二维数组，第一维长度为2，对应学生姓名和学生成绩。

第二维长度则与学生数量一致。

第三步：添加删除按钮的代码：说明：1，删除学生信息的步骤：遍历数组，找到要删除的学生的位置，将该学生后面的学生信息逐一前移一个位置，将最后一个元素删除（用redim方法）2，如果要删除的学生刚好就是最后一个元素，那么不需要将其后面的学生信息逐一前移。

3，如果数组中只有一个学生，那么不能够删除，如果强行删除将会报错。

数组vb练习题

数组vb练习题一、题目描述请编写一个VB程序，实现以下功能：1. 创建一个整型数组，包含10个元素；2. 给数组的每个元素赋予不同的整数值；3. 输出数组中的所有元素；4. 计算并输出数组中的最大值、最小值、平均值和总和；5. 将数组中的所有元素按照降序排列，并输出排序后的结果；6. 基于用户输入的值，在数组中查找该值，并输出其在数组中的索引位置。

二、解题思路1. 首先，我们需要创建一个整型数组，使用VB的Array类型即可。

声明数组变量时，可以指定数组元素的个数，并为数组分配空间。

2. 使用For循环，为数组的每个元素赋予不同的整数值。

在循环中，可以使用数组名加索引的方式对数组元素进行赋值。

3. 使用For Each循环，输出数组中的所有元素。

在循环中，可以使用MsgBox函数输出每个元素的值。

4. 通过遍历数组，使用变量记录最大值、最小值和总和，然后计算平均值。

最后使用MsgBox函数输出这些结果。

5. 使用由VB提供的Sort函数对数组进行降序排列。

在排序前，可以使用Copy函数创建一个副本，以保留原数组的顺序。

6. 通过遍历数组，使用If语句判断用户输入的值是否与数组元素相等。

若相等，则输出该元素在数组中的索引位置。

三、代码实现```vbSub Main()' 创建整型数组并给元素赋值Dim arr(9) As IntegerFor i = 0 To 9arr(i) = i * 10Next' 输出数组中的所有元素For Each num In arrMsgBox(num)Next' 计算最大值、最小值、平均值和总和Dim maxVal As Integer = arr(0)Dim minVal As Integer = arr(0)Dim sumVal As Integer = 0For Each num In arrIf num > maxVal ThenmaxVal = numEnd IfIf num < minVal ThenminVal = numEnd IfsumVal += numNextDim avgVal As Double = sumVal / arr.LengthMsgBox("最大值：" & maxVal & vbCrLf & "最小值：" & minVal & vbCrLf & "平均值：" & avgVal & vbCrLf & "总和：" & sumVal) ' 对数组进行降序排列Dim sortedArr() As Integer = arr.Clone()Array.Sort(sortedArr)Array.Reverse(sortedArr)MsgBox("降序排列后的数组：" & vbCrLf & String.Join(", ", sortedArr))' 查找用户输入的值在数组中的索引位置Dim target As Integer = CInt(InputBox("请输入一个整数："))Dim index As Integer = -1For i = 0 To arr.Length - 1If arr(i) = target Thenindex = iExit ForEnd IfNextMsgBox("元素 " & target & " 在数组中的索引位置为：" & index) End Sub```四、运行结果编译并运行上述程序，在控制台依次输出以下结果：```102030405060708090最大值：90最小值：0平均值：45总和：450降序排列后的数组：90, 80, 70, 60, 50, 40, 30, 20, 10, 0请输入一个整数：30元素 30 在数组中的索引位置为：3```以上就是完成数组VB练习题的具体代码实现和运行结果。

VB第4章复习资料

第4章补充资料习题解答1．计算下列循环语句的次数：（1）For I= -3 To 20 Step 4答：循环次数为6次。

循环体内I的值分别为：-3，1，5，9，13，17；出了循环体后I 的值为21。

（2）For I= -3.5 To 5.5 Step 0.5答：循环次数为19次。

（3）For I= -3.5 To 5.5 Step -0.5答：不循环，步长<0，循环初值<终值。

（4）For I= -3 To 20 Step 0答：无数次，步长=0。

2. 下列30～90为语句标号，分别标记该语句，第40号语句共执行了几次，第50号语句共执行了几次，执行第90号语句后显示的结果是多少？30 For j = 1 To 12 Step 340 For k =6 To 2 Step -250 mk = k60 Print j,k70 Next k80 Next j90 Print j , k , mk答：第40号语句共执行了4次，是外循环的循环体；第50号语句共执行了12次，是内循环的循环体，循环次数为两重循环次数的乘积；第90号语句显示的结果是13 0 2。

3．如果实现不知道循环次数，如何用For …Next 结构来实现？答：只要将循环的终值设置成一个非常大的值，然后再循环体内增加If语句，判断是否满足循环结束的条件。

形式如下：For 循环变量=1 To 非常大的数…If 满足循环结束条件Then Exit For…Next 循环变量4．利用循环结构，实现如下功能：（1）∑=+ +=101)12)(1(ii is答：s =0For i =1 To 10s = s +( i+1)*(2* i +1)Next i（2）分别统计1～100中，满足3的倍数、7的倍数的整数各有多少？答：s3=0s7=0For i =1 to 100If i mod 7=0 Then s7=s7 +1If i mod 3=0 Then s3=s3+1Next i（3）将输入的字符串以反序显示。

VB 第四章数组习题word版本

vb练习题,电子版第四章数据类型

第四章数据类型、运算符与表达式教学要求：了解Visual Basic语言的基本数据类型，了解各基本数据类型的数值范围；掌握Visual Basic常量与变量的概念，重点掌握字符串型、数值型数据的常量表示方法、类型分类、变量定义语法、变量赋初值语法等内容，理解变体类型变量的概念及定义语法，了解用户自定义数据类型和枚举类型的使用；了解变量的作用域；掌握常用内部函数的功能和用法。

掌握Visual Basic语言运算符和表达式的概念，掌握算术运算符、关系运算符和逻辑运算符的作用、语法、优先级规则；熟悉表达式的执行顺序。

知识点：Visual Basic语言运算符和表达式；基本数据类型内容（常量形式、定义语法、赋初值语法、内存形式）；运算符内容（作用、优先级、结合性）；表达式内容（语法、应用规则）；混合运算的规律。

内容导航：一、数据类型（一）基本数据类型Visual Basic提供的基本数据类型主要有字符串型和数值型，此外还提供了字节、货币、对象、日期、布尔和变体数据类型。

（二）用户定义的数据类型用户可以利用Type语句定义自己的数据类型，其格式如下：Type 数据类型名数据类型元素名As 类型名数据类型元素名As 类型名……End Type二、常量和变量（一）常量Visual Basic中的常量分为两种，一种是文字常量，一种是符号常量。

（二）变量1．命名规则变量是一个名字，给变量命名时应遵循以下规则：（1）名字只能由字母、数字和下划线组成；（2）名字的第一个字符必须是英文字母，最后一个字符可以是类型说明符；（3）名字的有效字符为255个；（4）不能用Visual Basic的保留字作变量名，但可以把保留字嵌入变量名中；同时，变量名也不能是末尾带有类型说明符的保留字。

2．变量的类型和定义任何变量都属于一定的数据类型，包括基本数据类型和用户定义的数据类型。

在Visual Basic中，可以用下面几种方式来规定一个变量的类型：（1）用类型说明符来标识。

(完整版)VB项目4数组习题答案

一、单选题1.在中,一组具有相同名字、不同下标的变量称为____________。

A。

数组 B.变量 C。

VB第四章练习(二)

VB第四章练习（二）VB第四章练习（二）（有正确答案的）一、填空题1设 a=2,b=3，表达式 a>b 的值是_______。

FALSE|0|零|假|假值|零值 2．在VB中声明静态变量的关键字是_______。

static 3．在VB中声明符号常量的关键字是_______。

const 4．表达式10 MOD 16\\4的值是_______。

25．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D的值是_______。

False|0|零|假|假值|零值6．设a=6，b=3，c=5，则表达式Not a>c And c=b Or b<>a+c 的值为_______。

True|真|真值|-18．设a=1,b=2,c=3,则VB6.0表达式：a9．x是小于120的非负数，描述该条件的布尔（逻辑）表达式是_。

0|零 11．表示x是5的倍数VB表达式为_______。

X MOD 5=0|x/5=int(x/5)|int(x/5)=x/5 12．已知 a=3.5,b=5.0,c=2.5,d=True 则表达式：a>=0 AND a+c>b+3 OR NOT d 的值是____。

False|0|零|假|假值|零值13．用于声明全局变量的关键字是_______。