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