VB题库答案 试题答案2650达标篇.docx
- 文档编号:10585775
- 上传时间:2023-02-21
- 格式:DOCX
- 页数:177
- 大小:313.98KB
VB题库答案 试题答案2650达标篇.docx
《VB题库答案 试题答案2650达标篇.docx》由会员分享,可在线阅读,更多相关《VB题库答案 试题答案2650达标篇.docx(177页珍藏版)》请在冰豆网上搜索。
VB题库答案试题答案2650达标篇
26
(1)【考点分析】本题考点有:
文本框的Name和Text属性,命令按钮的Name和Caption属性,标签的Name和Caption属性以及InputBox()函数。
【解题思路】文本框的内容由Text属性设置,命令按钮标题则由Caption属性设置,单击命令按钮触发Click事件。
并且在程序中用到了InputBox()函数。
【操作步骤】
步骤1:
建立界面并设置控件属性。
程序中用到的控件及其属性见表3.81和表3.82。
表3.81
控件
标签1
标签2
属性
Name
Caption
Name
Caption
设置值
Label1
身高
Label2
体重
表3.82
控件
文本框1
文本框2
命令按钮
属性
Name
Name
Name
Caption
设置值
Text1
Text2
Command1
输入
步骤2:
分析并编写程序代码。
参考答案
OptionExplicit
PrivateSubCommand1Click()
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:
编写程序代码。
参考答案
PrivateSubCommand1Click()
VScroll1.Max=2400
VScroll1.Min=100
VScroll1.LargeChange=200
VScroll1.SmallChange=20
EndSub
PrivateSubVScroll1Change()
Picture1.Height=VScroll1.Value
EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
(1)【考点分析】本题考点有:
列表框的Name属性,命令按钮的Name和Caption属性,文本框的Name属性,InputBox函数,RemoveItem方法以及AddItem方法。
【解题思路】使用AddItem方法向列表框中添加列表项目,其格式为:
列表.AddItem项目字符串[,索引值]
AddItem方法把"列表字符串"的文本内容放入列表框中。
如果省略"索引值"则文本放在列表框的尾部。
"索引值"可以指定插入项在列表框中的位置,表中的项目从0开始计数,"索引值"不能大于表中的项数减1。
该方法只能单个地向列表框中添加项目。
使用RemoveItem方法从列表框中删除列表项目,其格式为:
列表.RemoveItem索引值
RemoveItem方法从列表框中删除以"索引值"为地址的项目,该方法每次只能删除一个项目。
【操作步骤】
步骤1:
建立界面并设置控件属性。
程序中用到的控件及其属性见表3.84。
步骤2:
分析并编写程序代码。
程序提供代码
PrivateSubCommand1Click()
Text1.Text=InputBox("请输入要添加的项目")
'List1.AddItem?
EndSub
PrivateSubCommand2Click()
Text1.Text=InputBox("请输入要删除的项目")
'Fori=0To?
'IfList1.List(i)=?
Then
'List1.RemoveItem?
EndIf
Nexti
EndSub
程序结束
参考答案
第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:
分析并编写程序代码。
程序提供代码
OptionBase1
PrivateFunctionFindMax(a()AsInteger)
DimStartAsInteger
DimFinishAsInteger,iAsInteger
'Start=?
(a)
'Finish=?
(a)
'Max=?
(Start)
Fori=StartToFinish
'Ifa(i)?
MaxThenMax=?
Nexti
FindMax=Max
EndFunction
PrivateSubCommand1Click()
Dimarr1
Dimarr2(4)AsInteger
arr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))
Fori=1To4
'arr2(i)=CInt(?
)
Nexti
'M=FindMax(?
)
Print"最大值是:
";M
EndSub
程序结束
参考答案
第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
标题控件
读入数据
计算并输出
存盘
名称
Read
Calc
Save
内缩符号
0
0
0
表3.86
控件
文本框
属性
Name
MultiLine
ScrollBars
Text
设置值
Text1
TRUE
2
步骤2:
分析并编写程序代码。
程序提供代码
OptionBase1
DimArr(100)AsInteger
SubReadData()
OpenApp.Path&"\"&"datain1.txt"ForInputAs#1
Fori=1To100
Input#1,Arr(i)
Nexti
Close#1
EndSub
SubWriteData(FilenameAsString,NumAsInteger)
OpenApp.Path&"\"&FilenameForOutputAs#1
Print#1,Num
Close#1
EndSub
程序结束
参考答案
DimsumAsInteger
PrivateSubCalcClick()
Text1.Text=""
Fori=1To100Step2
Text1.Text=Text1.Text&Arr(i)&Space(5)
sum=sum+Arr(i)
Nexti
Printsum
EndSub
PrivateSubReadClick()
ReadData
EndSub
PrivateSubSaveClick()
WriteData"dataout.txt",sum
EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
27
(1)【考点分析】本题考点有:
命令按钮的Name、Caption、Height、Width、Default和Cancel属性,窗体的Caption、MaxButton和MinButton属性以及标签的Name和Caption属性。
【解题思路】命令按钮的Caption属性、Height属性、Width属性分别用于设置其标题、高度和宽度。
在程序运行时,通常使用单击命令按钮的方式来选中某个按钮,但某些情况下,为了能够在按ENTER键时能够选中这个命令按钮,可将其Default属性设置为True,为了能够在按
窗体的标题是由其Caption属性设置,窗体的MaxButton属性、MinButton属性决定其标题栏是否显示最大化、最小化按钮,True表示显示,False表示不显示。
此外,通过修改窗体的BorderStyle属性(用于设置边框样式),也可实现窗体标题栏是否显示最大化、最小化按钮的效果。
【操作步骤】
步骤1:
建立界面,并设置控件的属性。
程序中用到的控件及属性见表3.87~3.89。
步骤2:
调试并运行程序,关闭程序后按题目要求存盘。
(2)【考点分析】本题考点有:
文本框的Name和Width属性以及水平滚动条Name、Max、Min和Value属性。
【解题思路】文本框的宽度可通过修改文本框Width属性值来实现。
滚动条的Value属性可返回或设置滑块的当前位置值,当滚动条滑块的位置改变时,触发Change事件。
编写利用滚动条的Value属性值来改变文本框Width属性值的语句。
【操作步骤】
步骤1:
建立界面,并设置控件的属性。
程序中涉及控件及属性见表3.90。
步骤2:
编写程序代码。
参考答案
PrivateSubCommand1Click()
Text1.Text=InputBox$("请输入身高","输入对话框",,100,100)
Text2.Text=InputBox$("请输入体重","输入对话框",,100,100)EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
(1)【考点分析】本题考点有:
列表框的Selected、ListIndex、Text和ListCount属性,While语句,RemoveItem方法,AddItem方法以及If判断语句。
【解题思路】本题要实现两个列表框之间的移出和移回功能,其实就是利用列表框的AddItem方法和RemoveItem方法添加或删除列表框中的项目。
在"添加"按钮的单击事件过程中,利用While循环语句逐一判断列表框List2中的各项是否被选中,将选中的项目添加到列表框List1中,同时将此项从列表框List2中删除。
【操作步骤】
步骤1:
打开本题工程文件。
步骤2:
分析并编写程序代码。
程序提供代码
PrivateSubC1Click()
DimkAsInteger
k=0
' While(k ) ' If? .Selected(k)=TrueThen List1.AddItemList2.Text ' List2.RemoveItem? EndIf k=k+1 Wend EndSub PrivateSubC2Click() List2.AddItemList1.Text ' List1.RemoveItemList1.? EndSub 程序结束 参考答案 第1个? 处填入: ListCount 第2个? 处填入: List2 第3个? 处填入: k 第4个? 处填入: ListIndex 步骤3: 调试并运行程序,关闭程序后按题目要求存盘。 (2)【考点分析】本题考点有: 文本框的Name和Text属性,命令按钮的Name和Caption属性,单选按钮Name、Caption、Index和Value属性,单选按钮数组下标,Left函数,Val函数以及For循环语句。 【解题思路】本题可利用For循环语句逐一判断单选按钮数组的元素是否选中,并将选中单选按钮对应整数用变量s记录下来。 计算某整数s的阶乘,可通过For循环语句来实现: 令循环变量i的初值为1,终值为s,步长为1,将i的各次取值通过表达式temp=temp*j累积,temp的初始值应设置为1。 【操作步骤】 步骤1: 打开本题工程文件,建立界面并设置控件属性。 程序中涉及的控件及其属性见表3.91和表3.92。 步骤2: 分析并编写程序代码。 程序提供代码 窗体代码 PrivateSubFormUnload(CancelAsInteger) unloadsub EndSub 模块代码 Subunloadsub() DimnAsInteger,kAsInteger Fork=0To2 IfForm1.Op1(k).ValueThen n=Val(Left$(Form1.Op1(k).Caption,2)) EndIf Nextk Open"out4.dat"ForOutputAs#1 Print#1,n,Val(Form1.Text1.Text) Close#1 EndSub 程序结束 参考答案 PrivateSubC1Click() DimsAsInteger DimiAsInteger DimjAsInteger temp=1 Fori=0To2 IfOp1(i).Value=TrueThen s=Val(Op1(i).Caption) EndIf Nexti Forj=1Tos temp=temp*j Nextj Text1.Text=temp EndSub 步骤3: 调试并运行程序,关闭程序后按题目要求存盘。 【考点分析】本题考点有: 通用对话框的Filter、FilterIndex、Action和FileName属性,Ucase()函数以及文本框的Text属性。 【解题思路】本题重点考查通用对话框使用、文件的操作和Ucase()函数的使用。 通用对话框的Action属性直接决定打开何种类型的对话框。 Action属性默认为打开文件对话框。 Dialogtitle属性用来设置对话框的标题,可以是任意字符串。 在默认情况下,"打开"对话框的标题是"打开","另存为"对话框的标题是"另存为"。 将CommonDialog的Name属性设置为CD1,文件类型则在CommonDialog的Filter属性中设置,其格式为: Filter="文件说明|文件类型" 最后将字符串中的小写字母转化为大写,可使用Ucase()函数。 【操作步骤】 步骤1: 打开本题工程文件。 步骤2: 分析并编写程序代码。 程序提供代码 PrivateSubC1Click() DimaAsString CD1.Filter="所有文件|*.*|文本文件|*.txt|Word文件|*.doc" ' CD1.FilterIndex=? CD1.Action=1 OpenCD1.FileNameForInputAs#1 Input#1,a Close#1 ' Text1.Text=? EndSub PrivateSubC2Click() EndSub PrivateSubC3Click() CD1.FileName="out5.dat" ' CD1.Action=? OpenCD1.FileNameForOutputAs#1 Print#1,Text1.Text Close#1 EndSub 程序结束 参考答案 第1个? 处填入: 2 第2个? 处填入: a 第3个? 处填入: 2 "转换"按钮的事件过程: PrivateSubCmd2Click() Text1.Text=UCase(Text1.Text) EndSub 步骤3: 调试并运行程序,关闭程序后按题目要求存盘。 28 (1)【考点分析】本题考点有: 标签的Name和Caption属性,文本框的Name属性,命令按钮的Name、Caption属性,窗体的Caption属性以及"+"和"&"运算符。 【解题思路】在窗体上建立好控件后,先设置控件属性,再编写事件过程。 标签和命令按钮的标题由各自的Caption属性来设置,文本框显示的内容由Text属性设置,窗体的标题由其Caption属性来设置。 在VisualBasic中可以用"+"或"&"运算符将两个字符串连接起来。 【操作步骤】 步骤1: 建立界面,并设置控件的属性。 程序中用到的控件及属性见表3.93和表3.94。 表3.93 控件 标签1 标签2 属性 Name Caption Name Caption 设置值 Label1 书名 Label2 作者 表3.94 控件 文本框1 文本框2 命令按钮 属性 Name Name Name Caption 设置值 Text1 Text2 Command1 显示 步骤2: 编写程序代码。 参考答案 PrivateSubCommand1Click() Form1.Caption=Text1+","+Text2 EndSub 步骤3: 调试并运行程序,关闭程序后按题目要求存盘。 (2)【考点分析】本题考点有: 滚动条的Name、Value、SmallChange、LargeChange、Min和Max属性以及窗体的Width和Heigh属性。 【解题思路】在窗体上建立好控件后,先设置控件属性,再编写事件过程。 窗体的大小由其Width和Height属性设置,分别决定窗体的宽和高;用滚动条的值来设置窗体的宽和高,只要将窗体的Width属性和Height属性与滚动条的Value相关联即可。 【操作步骤】 步骤1: 建立界面,并设置控件的属性。 程序中用到的控件及属性见表3.95和表3.96。 步骤2: 编写程序代码。 参考答案 PrivateSubHScroll1Change() Form1.Width=HScroll1.Value EndSub PrivateSubVScroll1Change() Form1.Height=VScroll1.Value EndSub 步骤3: 调试并运行程序,关闭程序后按题目要求存盘。 (1)【考点分析】本题考点有: Chr函数,InputBox函数,文本框的Text属性,列表框的List和ListCount属性,RemoveItem方法,For循环语句以及If判断语句。 【解题思路】keyPreview属性用于设置或获取一个值,该值只是判断按键事件传递到具有焦点的控件前,窗体是否将接收此事件,判断按键是否按下可以在窗体的KeyDown事件中进行,用Chr函数将按键代码转换成字符并与给定字符进行比较。 使用AddItem方法可以向列表框中添加列表项目,使用RemoveItem方法可以从列表框中删除列表项目。 【操作步骤】 步骤1: 打开本题工程文件。 设置窗体的KeyPreview属性为True添加一个列表框名称为List1的和一个名称为Text的文本框。 步骤2: 分析并编写程序代码。 程序提供代码 PrivateSubFormKeyDown(KeyCodeAsInteger, ShiftAsInteger) IfChr(KeyCode)="A"Then Text1.Text=InputBox("请输入要添加的项目") 'List1.AddItem? EndIf IfChr(KeyCode)="D"Then Text1.Text=InputBox("请输入要删除的项目") 'Fori=0To? 'IfList1.List(i)=? Then 'List1.RemoveItem? EndIf Nexti EndIf EndSub 程序结束 参考答案 第1个? 处填入: Text1 第2个? 处填入: List1.ListCount-1 第3个? 处填入: Text1 第4个? 处填入: i 步骤3: 调试并运行程序,关闭程序后按题目要求存盘。 (2)【考点分析】本题考点有: LBound函数,UBound函数,Val函数,Print方法,CInt函数以及For循环语句。 【解题思路】文本框里的内容(包括数字)默认情况下都是当作字符串来处理的,如果要参与数据运算则需先用Val函数将其转化为数值类型。 这里需要指出的是,利用Array函数对数组各元素赋值,声明的数组只能是Variant类型,数组的上下界可用UBound和LBound函数获得,LBound函数返回"数组"的下界,而UBound函数返回"数组"某一"维"的上界值,这两个函数一起使用即可确定一个数组的大小。 【操作步骤】 步骤1: 打开本题工程文件。 步骤2: 分析并编写程序代码。 程序提供代码 OptionBase1 PrivateFunctionAverage(a()AsInteger)AsSingle
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB题库答案 试题答案2650达标篇 VB 题库 答案 试题答案 2650 达标