VB题库答案 试题答案(26—50)达标篇.doc_第1页
VB题库答案 试题答案(26—50)达标篇.doc_第2页
VB题库答案 试题答案(26—50)达标篇.doc_第3页
VB题库答案 试题答案(26—50)达标篇.doc_第4页
VB题库答案 试题答案(26—50)达标篇.doc_第5页
已阅读5页,还剩168页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

26(1) 【考点分析】本题考点有:文本框的Name和Text属性,命令按钮的Name和Caption属性,标签的Name和Caption属性以及InputBox()函数。【解题思路】文本框的内容由Text属性设置,命令按钮标题则由Caption属性设置,单击命令按钮触发Click事件。并且在程序中用到了InputBox()函数。【操作步骤】步骤1:建立界面并设置控件属性。程序中用到的控件及其属性见表3.81和表3.82。表3.81控件标签1标签2属性NameCaptionNameCaption设置值Label1身高Label2体重表3.82控件文本框1文本框2命令按钮属性NameNameNameCaption设置值Text1Text2Command1输入步骤2:分析并编写程序代码。参考答案Option ExplicitPrivate Sub Command1 Click() Text1.Text InputBox(请输入身高) Text2.Text InputBox(请输入体重)步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2) 【考点分析】本题考点有:命令按钮的Name 、Caption属性,图片框的Name、Caption和Height属性以及垂直滚动条Name、Max、Min、LargeChange、SmallChange和Value属性。【解题思路】在窗体上建立好控件后,先设置控件属性,再编写程序代码。调节图片的大小就是调节图片框的Width属性和Height属性的值。要使滚动条的Value值改变影响图片框的大小,需要通过编写代码将其和图片框的高和宽联系起来。【操作步骤】步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3.83步骤2:编写程序代码。参考答案Private Sub Command1 Click() VScroll1.Max 2400VScroll1.Min 100VScroll1.LargeChange 200VScroll1.SmallChange 20End SubPrivate Sub VScroll1 Change() Picture1.Height VScroll1.ValueEnd Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。(1) 【考点分析】本题考点有:列表框的Name属性,命令按钮的Name和Caption属性,文本框的Name 属性,InputBox函数,RemoveItem方法以及AddItem方法。【解题思路】使用AddItem方法向列表框中添加列表项目,其格式为:列表AddItem 项目字符串,索引值AddItem方法把列表字符串的文本内容放入列表框中。如果省略索引值则文本放在列表框的尾部。索引值可以指定插入项在列表框中的位置,表中的项目从0开始计数,索引值不能大于表中的项数减1。该方法只能单个地向列表框中添加项目。使用RemoveItem方法从列表框中删除列表项目,其格式为:列表RemoveItem 索引值RemoveItem方法从列表框中删除以索引值为地址的项目,该方法每次只能删除一个项目。【操作步骤】步骤1:建立界面并设置控件属性。程序中用到的控件及其属性见表3.84。步骤2:分析并编写程序代码。程序提供代码Private Sub Command1 Click()Text1.Text InputBox(请输入要添加的项目)List1.AddItem ?End SubPrivate Sub Command2 Click()Text1.Text InputBox(请输入要删除的项目)For i 0 To ?If List1.List(i) ? ThenList1.RemoveItem ?End IfNext iEnd Sub程序结束参考答案第1个?处填入:Text1.Text第2个?处填入:List1.ListCount 1第3个?处填入:Text1.Text第4个?处填入:i步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2) 【考点分析】本题考点有:LBound函数,UBound函数,Val函数,Print方法,CInt函数以及For循环语句。【解题思路】文本框里的内容(包括数字)情况下,都是当作字符串来处理的,如果要参与数据运算,则须先用Val() 函数将其转化为数字(如Val(Text1.Text)。这里需要指出的是,利用Array对数组各元素赋值,声明数组的类型只能是Variant。数组的上下界可用LBound函数和UBound函数分别获得;程序中变量Max保存最大数,最初把数组的第一个元素赋给Max,然后将其后的元素依次与之比较,如果大于Max的值则与之交换,依次类推,最终Max中的元素就是最大值。在窗体上输出信息可以通过Print方法来实现,其形式为:对象Print 要显示的内容【操作步骤】步骤1:打开本题工程文件。步骤2:分析并编写程序代码。程序提供代码Option Base 1Private Function FindMax(a() As Integer)Dim Start As IntegerDim Finish As Integer, i As IntegerStart ?(a)Finish ?(a)Max ?(Start)For i Start To FinishIf a(i) ? Max Then Max ?Next iFindMax MaxEnd FunctionPrivate Sub Command1 Click()Dim arr1Dim arr2(4) As Integerarr1 Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)For i 1 To 4arr2(i) CInt(?)Next iM FindMax(?)Print 最大值是: ; MEnd Sub程序结束参考答案第1个?处填入:LBound第2个?处填入:UBound第3个?处填入:a第4个?处填入:第5个?处填入:a(i)第6个?处填入:arr1(i)第7个?处填入:arr2步骤3:调试并运行程序,关闭程序后按题目要求存盘。【考点分析】 本题考点有:文本框的Name、MultiLine、ScrollBars和Text属性,文件操作,菜单编辑器的使用(名称,标题,内缩符号),Arr() 函数以及Space()函数。【解题思路】使用Open方法和Close方法打开和关闭文件,使用循环语句将数值赋给数组。在计算输出时,先定义一个变量,用来保存计算时找出数组中下标为奇数的数进行累加的和,将结果在文本框中显示出来。在窗体上输出内容可以用Print方法来实现。【操作步骤】步骤1:打开本题工程文件,利用菜单编辑器,按表3.69中的设置建立菜单项,在窗体Form1中绘制一个文本框,其相关属性设置见表3.85和表3.86。表3.85标题控件读入数据计算并输出存盘名称ReadCalc Save内缩符号000表3.86控件文本框属性NameMultiLineScrollBarsText设置值Text1TRUE2步骤2:分析并编写程序代码。程序提供代码Option Base 1Dim Arr(100) As IntegerSub ReadData()Open App.Path & & datain1.txt For Input As #1For i 1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & & Filename For Output As #1Print #1, NumClose #1End Sub程序结束参考答案Dim sum As IntegerPrivate Sub Calc Click()Text1.Text For i 1 To 100 Step 2Text1.Text Text1.Text & Arr(i) & Space(5)sum sum Arr(i)Next iPrint sumEnd SubPrivate Sub Read Click()ReadDataEnd SubPrivate Sub Save Click()WriteData dataout.txt, sumEnd Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。27(1) 【考点分析】本题考点有:命令按钮的Name 、Caption、Height、Width 、Default和Cancel属性,窗体的Caption、MaxButton和MinButton 属性以及标签的Name和Caption属性。【解题思路】命令按钮的Caption属性、Height属性、Width属性分别用于设置其标题、高度和宽度。在程序运行时,通常使用单击命令按钮的方式来选中某个按钮,但某些情况下,为了能够在按 ENTER 键时能够选中这个命令按钮,可将其Default属性设置为True,为了能够在按键时也能达到同样效果,则需要将命令按钮的Cancel 属性设置为True。窗体的标题是由其Caption属性设置,窗体的MaxButton 属性、MinButton 属性决定其标题栏是否显示最大化、最小化按钮,True表示显示,False表示不显示。此外,通过修改窗体的BorderStyle属性(用于设置边框样式),也可实现窗体标题栏是否显示最大化、最小化按钮的效果。【操作步骤】步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3.873.89。步骤2:调试并运行程序,关闭程序后按题目要求存盘。(2) 【考点分析】本题考点有:文本框的Name和Width属性以及水平滚动条Name 、Max、Min和Value属性。【解题思路】文本框的宽度可通过修改文本框Width属性值来实现。滚动条的Value属性可返回或设置滑块的当前位置值,当滚动条滑块的位置改变时,触发Change事件。编写利用滚动条的Value属性值来改变文本框Width属性值的语句。【操作步骤】步骤1:建立界面,并设置控件的属性。程序中涉及控件及属性见表3.90。步骤2:编写程序代码。参考答案Private Sub Command1 Click()Text1.Text InputBox$(请输入身高, 输入对话框, , 100, 100)Text2.Text InputBox$(请输入体重, 输入对话框, , 100, 100)End Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (1) 【考点分析】本题考点有:列表框的Selected 、ListIndex、Text和ListCount属性,While语句,RemoveItem方法,AddItem方法以及If判断语句。【解题思路】本题要实现两个列表框之间的移出和移回功能,其实就是利用列表框的AddItem方法和RemoveItem方法添加或删除列表框中的项目。在添加按钮的单击事件过程中,利用While循环语句逐一判断列表框List2中的各项是否被选中,将选中的项目添加到列表框List1中,同时将此项从列表框List2中删除。【操作步骤】步骤1:打开本题工程文件。步骤2:分析并编写程序代码。程序提供代码Private Sub C1 Click()Dim k As Integerk 0While (k 步骤3:调试并运行程序,关闭程序后按题目要求存盘。【考点分析】本题考点有:文本框的Name、MultiLine、ScrollBars、Text属性,文件编辑,菜单编辑器的使用(名称,标题,内缩符号),Arr() 函数,Space()函数。【解题思路】本题需编写读入数据、 计算并输出和存盘命令的单击事件过程。在读数命令的单击事件过程中,通过调用ReadData过程将数据从in5.txt文件读入数组Arr(窗体变量)中;在计算命令的单击事件过程中,在For循环语句(循环变量i的初值为1,终值为100)中依次将数组Arr中大于等于50的元素的值显示在文本框中,并将其值累加到变量sum;在保存命令的单击事件过程中,通过调用WriteData过程将Sum的值写入数据文件out5.txt。【操作步骤】步骤1:打开本题工程文件,利用菜单设计器,按表3.83中的设置建立菜单项,在窗体Form1中绘制一个文本框,其相关属性及其值见表3.102和表3.103。表3.102标题控件读入数据计算并输出存盘名称ReadCalc Save内缩符号000表3.103控件文本框属性NameMultiLineScrollBarsText设置值Text1TRUE2步骤2:分析并编写程序代码。程序提供代码Option Base 1Dim Arr(100) As IntegerSub ReadData()Open App.Path & & datain1.txt For Input As #1For i 1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & & Filename For Output As #1Print #1, NumClose #1End Sub程序结束参考答案Private Sub Calc Click()Text1.Text For i 1 To 100If Arr(i) 50 Then Text1.Text Text1.Text & Arr(i) & Space(5) sum sum Arr(i)End IfNext iPrint sumEnd SubPrivate Sub Read Click()ReadDataEnd SubPrivate Sub Save Click()WriteData dataout.txt, sumEnd Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。30(1) 【考点分析】本题考点有:标签的Name、Caption、BorderStyle和Visible属性,文本框的Name和Text属性以及命令按钮的Name和Caption属性。【解题思路】文本框的Text属性用于设置文本框中显示的文本。标签的Caption属性可设置其标题。Visible属性用于设置控件或菜单项在程序运行时是否可见。【操作步骤】步骤1:建立界面,并设置控件的属性。程序中涉及的控件及属性见表3.104和表3.105。表3.104控件标签属性NameCaptionBorderStyleVisible设置值Label11FALSE表3.105控件文本框命令按钮属性NameTextNameCaption设置值Text1Command1显示步骤2:编写程序代码。参考答案Private Sub Command1 Click()Label1.Caption Text1.TextLabel1.Visible TrueText1.Visible FalseEnd Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2) 【考点分析】本题考点有:文本框的Name、Heigh和Width属性以及水平滚动条的Name、Max、Value、Min、LargeChange和SmallChange属性。【解题思路】通过调整滚动条滑块的位置即可改变其Value属性的值,滚动条的Max和Min属性为滚动条所能表示的最大值和最小值,LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量,SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。文本框的高度和宽度分别由其Height属性值和Width属性值设定。【操作步骤】步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3.106。步骤2:编写程序代码。参考答案Private Sub HScroll1 Change()Text1.Height HScroll1.ValueText1.Width 1.2 * Text1.HeightEnd Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。(1) 【考点分析】本题考点有:单选按钮Name和Caption属性,列表框的Name 、List和ListCount属性,文本框的Name属性,InputBox函数,For循环语句以及If判断语句。【解题思路】向列表框添加项目使用AddItem方法,删除列表项使用RemoveItem方法。在删除项目单击事件中,For循环语句中逐一判断列表中各项是否与输入内容一致,若一致则删除列表框中该项。【操作步骤】步骤1:打开本题工程文件,并设置控件的属性。程序中用到的控件及属性见表3.107步骤2:分析并编写程序代码。程序提供代码Private Sub Form Click()If Option1.Value True ThenText1.Text InputBox(请输入要添加的项目)List1.AddItem ?End IfIf Option2.Value True ThenText1.Text InputBox(请输入要删除的项目)For i 0 To ?If List1.List(i) ? ThenList1.RemoveItem ?End IfNext iEnd IfEnd Sub程序结束参考答案第1个?处填入:Text1第2个?处填入:List1.ListCount 1第3个?处填入:Text1.Text第4个?处填入:i步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2) 【考点分析】本题考点有:LBound函数,UBound函数,Val函数,Print方法,CInt函数以及For循环语句。【解题思路】Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound 函数用于返回数组某一维的最大下标(上界),LBound 函数用于返回数组某一维的最小下标(下界)。在本题Sort过程中,源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。【操作步骤】步骤1:打开本题工程文件。步骤2:分析并编写程序代码。程序提供代码Option Base 1Private Sub Sort(a() As Integer)Dim Start As Integer, Finish As IntegerDim i As Integer, j As Integer, t As IntegerStart ?(a)Finish ?(a)For i ? To 2 Step 1For j 1 To ?If a(j) ? a(j 1) Thent a(j 1)a(j 1) a(j)a(j) tEnd IfNext jNext iEnd SubPrivate Sub Command1 Click()Dim arr1Dim arr2(4) As Integerarr1 Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)For i 1 To 4arr2(i) CInt(arr1(i)Next iSort arr2()Text1.Text arr2(1)Text2.Text arr2(2)Text3.Text arr2(3)Text4.Text arr2(4)End Sub程序结束参考答案第1个?处填入:LBound第2个?处填入:UBound第3个?处填入:4第4个?处填入:3第5个?处填入:步骤3:调试并运行程序,关闭程序后按题目要求存盘。【考点分析】本题考点有:文本框的Name、MultiLine、ScrollBars和Text属性,文件操作,菜单编辑器的使用(名称,标题,内缩符号),Arr() 函数以及Space()函数。【解题思路】在读数命令的Click事件过程中,通过调用ReadData过程将数据从in5.txt文件读入数组Arr(窗体变量)中;在计算命令的Click事件过程中,在For循环语句(循环变量i的初值为1,终值为100)中依次将数组Arr中小于50的元素的值显示在文本框中,并将其值累加到变量sum;在保存命令的Click事件过程中,通过调用WriteData过程将Sum的值写入数据文件out5.txt。【操作步骤】步骤1:打开本题工程文件,利用菜单设计器,按表3.87中的设置建立菜单项,在窗体Form1中绘制一个文本框,其相关属性值见表3.108和表3.109。表3.108标题控件读入数据计算并输出存盘名称ReadCalc Save内缩符号000表3.109控件文本框属性NameMultiLineScrollBarsText设置值Text1TRUE2步骤2:分析并编写程序代码。程序提供代码Option Base 1Dim Arr(100) As IntegerSub ReadData()O

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论