vb控件数组的习题及标准答案
【精选资料】VB控件 数组 过程复习题 参考答案2
常用标准控件作业一、选择题1．下列关于属性设置的叙述错误的是_______B__。
A．一个控件具有什么属性是Visual Basic预先设计好的，用户不能改变它B．一个控件具有什么属性值是Visual Basic预先设计好的，用户不能改变它C．一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值2．以下过程是标签Label1的___A______事件。
Prviate Sub Label1_Click( )End SubA.单击B.双击C.拖拽D.移动3．下列控件中可设置滚动条是____C_____。
A.检查框（复选框）B.框架C.文本框D.标签框4．标签所显示的内容，由___C______属性值决定。
A. TextB. NameC. CaptionD. Alignment5．定时器的定时间隔单位是__C_______。
A. 秒B. 微秒C. 毫秒D. 分6．检查框（复选框）的控件名称为______B___。
A. OptionBottonB. CheckBoxC. PictureBoxD. Image7．若要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置______D___。
A. Text属性值为&B. Caption属性值为&C. PasswordChar属性值为空D. PasswordChar属性值为&8．若要设置定时器的定时间隔，可通过__A_______属性来设置。
A. IntervalB. ValueC. EnabledD. Text9．若要设置定时器的定时间隔设为5秒，应将Interval属性值设为_D________。
A. 5B. 50C. 500D. 500010．若要使不可见命令按钮显示出来，可通过设置_____A____属性的值为True来实现。
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数组答案
实验9---数组21、习题7-6 矩阵最大元素查找Private Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.ClickDim i, j, m, n, a, b, x As IntegerDim str1 As Stringstr1 = ""n = V al(TextBox1.Text)m = V al(TextBox2.Text)Dim k(n - 1, m - 1) As IntegerFor i = 0 To n - 1For j = 0 To m - 1k(i, j) = Int(Rnd() * 100)str1 = str1 + k(i, j).ToString + " "Nextstr1 = str1 + vbCrLfNextx = k(0, 0)For i = 0 To n - 1For j = 0 To m - 1If k(i, j) < x Thenx = k(i, j)a = i + 1b = j + 1End IfNextNextTextBox3.Text = str1MsgBox("矩阵中最小元素为" + a.ToString + "行" + b.ToString + "列的" + x.ToString) End Sub2、习题7-7 矩阵转置Private Sub Button2_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button2.ClickDim i, j, m, n As IntegerDim str1 As Stringstr1 = ""n = V al(TextBox1.Text)m = V al(TextBox2.Text)Dim a(n - 1, m - 1), b(m - 1, n - 1) As IntegerFor i = 0 To n - 1For j = 0 To m - 1a(i, j) = Int(Rnd() * 100)str1 = str1 + a(i, j).ToString + " "Nextstr1 = str1 + vbCrLfNextstr1 = str1 + vbCrLf + "转置后为" + vbCrLfFor i = 0 To m - 1For j = 0 To n - 1b(i, j) = a(j, i)str1 = str1 + b(i, j).ToString + " "Nextstr1 = str1 + vbCrLfNextTextBox3.Text = str1End Sub3、习题7-8 矩阵输入/输出，行/列求和(分别求第一行和第一列各元素之和)，元素对换Private Sub Button3_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button3.ClickDim i, j, s As IntegerDim a(,) As Integer = {{25, 36, 78, 13}, {12, 26, 88, 93}, {75, 18, 22, 32}, {56, 44, 36, 58}}Dim b(3, 3), c(3, 3) As IntegerDim str1, str2 As Stringstr1 = "主对角线上的数为："str2 = "原矩阵第1行和第3行交换矩阵变为" + vbCrLfFor i = 0 To 3For j = 0 To 3If i = j Thenstr1 = str1 + a(i, j).ToString + " "End IfNextNextstr1 = str1 + vbCrLf + "副对角线上的数为："For i = 0 To 3For j = 0 To 3If j = 3 - i Thenstr1 = str1 + a(i, j).ToString + " "End IfNextNextstr1 = str1 + vbCrLf + "各行列的和" + vbCrLfFor i = 0 To 3s = 0For j = 0 To 3s = s + a(i, j)Nextstr1 = str1 + "第" + (i + 1).ToString + "行的和=" + s.ToString + vbCrLf Nextstr1 = str1 + vbCrLfFor j = 0 To 3s = 0For i = 0 To 3s = s + a(i, j)Nextstr1 = str1 + "第" + (j + 1).ToString + "列的和=" + s.ToString + vbCrLf NextFor i = 0 To 3For j = 0 To 3If i = 0 Thenb(i, j) = a(2, j)ElseIf i = 2 Thenb(i, j) = a(0, j)Elseb(i, j) = a(i, j)End Ifstr2 = str2 + b(i, j).ToString + " "Nextstr2 = str2 + vbCrLfNextstr2 = str2 + "原矩阵第2列和第4列交换后矩阵变为" + vbCrLfFor i = 0 To 3For j = 0 To 3If j = 1 Thenc(i, j) = a(i, 3)ElseIf j = 3 Thenc(i, j) = a(i, 1)Elsec(i, j) = a(i, j)End Ifstr2 = str2 + c(i, j).ToString + " "Nextstr2 = str2 + vbCrLfNextTextBox3.Text = str1 + str2End Sub4、习题7-12 输出“杨辉三角形”Private Sub Button4_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button4.ClickDim i, j, n As IntegerDim str1 As Stringstr1 = ""n = V al(TextBox1.Text)Dim a(n - 1, n - 1) As IntegerFor i = 0 To n - 1For j = 0 To n - 1If j <= i ThenIf i = 0 Or j = 0 Or j = i Thena(i, j) = 1Elsea(i, j) = a(i - 1, j - 1) + a(i - 1, j)End Ifstr1 = str1 + a(i, j).ToString + " "End IfNextstr1 = str1 + vbCrLfNextTextBox3.Text = str1End Sub。
vb考试题及答案解析
vb考试题及答案解析1. 问题：在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A解析：在Visual Basic中，关键字Dim用于声明变量。
Sub用于定义一个子程序，Function用于定义一个函数，而End用于标记程序或过程的结束。
2. 问题：下列哪个选项是Visual Basic中合法的数组声明？A. Dim myArray(10)B. Dim myArray(10) As IntegerC. Dim myArray As IntegerD. Dim myArray(10, 10) As Integer答案：D解析：选项A和B声明了一个一维数组，但是没有指定数组的类型，这是不合法的。
选项C声明了一个单一的整数变量，而不是数组。
选项D正确地声明了一个二维整数数组。
3. 问题：在Visual Basic中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim答案：B解析：UCase函数用于将字符串中的所有字符转换为大写字母。
LCase函数用于将字符串转换为小写，StrComp用于比较两个字符串，而Trim用于移除字符串两端的空格。
4. 问题：在Visual Basic中，如何使用If语句来检查一个变量是否大于10？A. If x > 10 ThenB. If x = 10 ThenC. If x <= 10 ThenD. If x < 10 Then答案：A解析：If语句用于条件判断，选项A正确地使用了比较运算符">"来检查变量x是否大于10。
选项B检查是否等于10，选项C检查是否小于等于10，选项D检查是否小于10。
5. 问题：在Visual Basic中，下列哪个循环结构用于在满足特定条件时重复执行代码块？A. Do...LoopB. For...NextC. While...WendD. With...End With答案：C解析：While...Wend循环结构用于在条件为真时重复执行代码块。
VB常用控件习题参考答案-推荐下载
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术通关，1系电过，力管根保线据护敷生高设产中技工资术艺料0不高试仅中卷可资配以料置解试技决卷术吊要是顶求指层，机配对组置电在不气进规设行范备继高进电中行保资空护料载高试与中卷带资问负料题荷试2下ห้องสมุดไป่ตู้2，高总而中体且资配可料置保试时障卷，各调需类控要管试在路验最习；大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试，况卷要下安加与全强过，看度并22工且22作尽22下可22都能22可地护以缩1关正小于常故管工障路作高高；中中对资资于料料继试试电卷卷保破连护坏接进范管行围口整，处核或理对者高定对中值某资，些料审异试核常卷与高弯校中扁对资度图料固纸试定，卷盒编工位写况置复进.杂行保设自护备动层与处防装理腐置，跨高尤接中其地资要线料避弯试免曲卷错半调误径试高标方中高案资等，料，编试要5写、卷求重电保技要气护术设设装交备备置底4高调、动。中试电作管资高气，线料中课并敷3试资件且、设卷料中拒管技试试调绝路术验卷试动敷中方技作设包案术，技含以来术线及避槽系免、统不管启必架动要等方高多案中项；资方对料式整试，套卷为启突解动然决过停高程机中中。语高因文中此电资，气料电课试力件卷高中电中管气资壁设料薄备试、进卷接行保口调护不试装严工置等作调问并试题且技，进术合行，理过要利关求用运电管行力线高保敷中护设资装技料置术试做。卷到线技准缆术确敷指灵设导活原。。则对对：于于在调差分试动线过保盒程护处中装，高置当中高不资中同料资电试料压卷试回技卷路术调交问试叉题技时，术，作是应为指采调发用试电金人机属员一隔，变板需压进要器行在组隔事在开前发处掌生理握内；图部同纸故一资障线料时槽、，内设需，备要强制进电造行回厂外路家部须出电同具源时高高切中中断资资习料料题试试电卷卷源试切，验除线报从缆告而敷与采设相用完关高毕技中，术资要资料进料试行，卷检并主查且要和了保检解护测现装处场置理设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
VB程序设计教案,数组9,数组复习题,附答案
1.用Dim(1, 3 to 7,10)声明的是一个____维数组。
【答】3。
2.在窗体上画一个命令按钮然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
A=Array(1 , 2 , 3 , 4)
j=1
For i=4 TO l Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行程序，单击命令按钮，其输出结果是____。
【答】1234。
3.在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
Private SubForm_Click()
Dimarr(10,10) As Integer
Dim i As Integer , j As Integer
Dim c As Integer , d As Integer
d=0
c=6
x=Array(2,4,6,8,10,12)
For i=1 To 6
If x(i)>c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为____。
3.设有声明语句如下，则数组b中全部元素的个数为
Dim b(2 To 3, 1 To 4, 2 ) As Integer
A）16B）24C）9D）6
【答】B。
4.以下属于合法的VB数组元素是
A）x2B）x[2]C）x(2)D）x{2}
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常用控件习题(含答案)
1.下列控件中没有Caption属性的是。
A)框架B)列表框C)复选框D)单选按钮2.复选框的Value属性为1时，表示。
A)复选框未被选中B)复选框被选中C)复选框内有灰色的勾D)复选框操作有误3．用来设置斜体字的属性是。
A)FontItalicB)FontBoldC)FontNameD)FontSize4.将数据项“China”添加到列表框Listl中成为第二项应使用语句。
A)List1.AddItem“China”,1B)List1.AddItem“China”,2C)List1.AddItem1,“China”D)List1.AddItem2,“China”5.引用列表框Listl最后一个数据项，应使用语句。
A)List1.List(List1.ListCount)B)List1.List(ListCount)C)List1.List(List1.ListCount-1)D)List1.List(ListCount-1)6.假如列表框Listl有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句。
A)List1.AddItem3,“China”B)List1.AddItem“China”,List1.ListCount-1C)List1.AddItem“China”,3D)List1.AddItem“China”，List1.ListCount7．执行了下面的程序后，列表框中的数据项有。
PrivateSubForm_Click()Fori=1to6List1.AddItemiNextiFori=1to3List1.RemoveItemiNextiEndSubA)1，5，6B)2，4，6C)4，5，6D)1，3，58.如果列表框List1中没有选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是。
A)移去第一项B)移去最后一项C)移去最后加入列表中的一项D)以上都不对9.如果列表框List1中只有一个项目被用户选定，则执行Debug.PrintList1.Selected(List1.ListIndex)语句的结果是。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
电子教室学生注册时姓名文本框部分请输入：如：1411１１1１１1李四学号+姓名，中间不加空格)
实验准备:
请同学们删除d:\ex21 文件夹里面的内容
如果没有eｘ２1文件夹，请在ｄ：\下新建ex21文件夹
１、打开D:\下的工程文件PROJＥＣＴA4.ｖｂp和窗体文件FORＭA4.fｒm,
按以下要求完成程序:在窗体上创建2个列表框、2个标签、2个命令按钮。
Ｌｉst１用于显示可选课程、Lisｔ2用于显示已选课程。
单击“选课”按钮,
将Ｌiｓt１中选定的课程名称加入到List2中显示，单击“清空”按钮,将
删除List2中的所有课程。
程序运行的参考输出格式如图A-４所示,可选课
程至少包含图A-４所示的6门。
最后将工程文件、窗体文件按原文件名保存
在D：＼EX21文件夹下。
图Ａ-4
2、打开Ｄ:＼下的工程文件PＲOJECＴB4.vbp和窗体文件FORMＢ4.ｆｒｍ，按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。
Liｓt1用于显示可选课程、Pictuｒe1用于显示已选课程。
单击“选课”按钮，将List１中选定的课程名称加入到Pｉctuｒe1中显示,单击“清空”按钮，将删除Pｉcture1中的所有课程。
程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的６门。
最后将工程文件、窗体文件按原文件名保存在D:\EX21文件夹下。
图Ｂ-4
3、打开D:\下的工程文件PROＪECTA41.ｖbp和窗体文件FORMA４1.frｍ，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最大数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量,程序运行的参考输出格式如图A-４1所示。
最后将工程文件、窗体文件按原文件名保存在D:＼EX21文件夹下。