VB答案.docx
《VB答案.docx》由会员分享，可在线阅读，更多相关《VB答案.docx（129页珍藏版）》请在冰点文库上搜索。
VB答案
第一题解题方法
本题主要考查了控件的绘制、设置和InputBox函数。
1、InputBox函数可以产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。
其格式为：
InputBox（prompt[,title][,default][,xpos][,ypos][,helpfile,context]）
（1）prompt：
是一个字符串，其长度不超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。
（2）title：
字符串，它是对话框的标题，显示在对话框顶部的标题区。
（3）default：
字符串，用来显示输入缓冲区的默认信息。
也就是说，在执行InputBox函数后，如果用户没有输入任何信息，则可用此默认字符串作为输入值。
如果用户不想用这个默认字符串作为输入值，则可在输入区直接键入数据，以取代默认值；如果省略该参数，则对话框的输入区为空白，等待用户键入信息。
解题方法：
新建一个工程，点击工具箱中的Label控件图标，然后在窗体上拖拉出两个标签控件Label1、Label2，通过属性窗口分别设置其Caption属性为"身高"、"体重"；点击工具箱中的TextBox控件图标，然后在窗体上拖拉出两个文本框Text1、Text2，通过属性窗口分别设置其初始内容为空；再在窗体上添加一个命令按钮，设置其Name属性为Command1，Caption属性为"输入"。
修改后的代码如下：
PrivateSubCommand1_Click（）
Text1.Text=InputBox（"请输入身高"）
'把InputBox函数返回的字符串赋给文本框Text1
Text2.Text=InputBox（"请输入体重"）
'把InputBox函数返回的字符串赋给文本框Text2
EndSub
按要求进行操作并保存文件即完成本题。
第2小题
本题主要考查了图片框的属性和滚动条的属性。
1、图片框的Picture属性
picture属性：
通过picture属性可以返回/设置控件中显示的图形。
2、图片框的AutoSize属性
AutoSize属性设置为True，可以自动调整大小。
3、滚动条的Max属性
Max属性：
滚动条所能表示的最大值，取值范围是-32768到+32767。
当滚动条位于最右（水平滚动条）端或最下端（垂直滚动条）时，Value属性将被设置为该值。
4、滚动条的Min属性
Min属性：
滚动条所能表示的最小值，取值范围是-32768到+32767。
当滚动条位于最左端（水平滚动条）或最上端（垂直滚动条）时，Value属性将被设置为该值。
5、滚动条的LargeChange属性
LargeChange属性：
单击滚动条中滚动框前面或后面的位置时，Value属性增加或减小的增量值。
6、滚动条的SmallChange属性
SmallChange属性：
单击滚动条两端的箭头时，Value属性增加或减小的增量值。
7、滚动条的Value属性
Value属性：
该属性表示滚动框在滚动条上的当前位置。
如果在程序中设置该值，则把滚动框移到相应的位置。
注意不能把Value属性设置为Max和Min之外的值。
第二题解题方法：
新建一个工程，单击工具箱中的PictureBox图标，然后在窗体上拖拉出一个图片框Picture1，在其picture属性中装入考生文件夹下的图形文件pic1.jpg，并将图片框Picture1的宽度与图形的宽度设置为相同；单击工具箱中的VScrollBar图标，然后在窗体上拖拉出一个垂直滚动条VScroll1；单击工具箱中的CommandButton图标，然后在窗体上拖拉出一个命令按钮Command1，通过属性窗口设置其Caption属性为"设置属性"。
修改后的代码如下：
PrivateSubCommand1_Click（）
VScroll1.Max=2400
VScroll1.Min=100
VScroll1.LargeChange=200
VScroll1.SmallChange=20
EndSub
PrivateSubVScroll1_Change（）
Picture1.Height=VScroll1.Value
'图片框Picture1的高度被赋予垂直滚动条VScroll1的滚动框当前所在位置的值
EndSub
按要求进行操作并保存文件即完成本题。
本题主要考查了文件、函数的调用和求两个数组对应下标元素差的算法。
1、Open语句
Open语句用来打开或建立一个文件，其语法为：
Open文件名[for存取方式][Access操作方式][锁定]As[#]文件号[Len=记录长度]
参数说明：
"存取方式"指文件的输入输出方式，可以是以下操作之一：
Output指定顺序输出方式
Input指定顺序输入方式
Append指定顺序输出方式，与Output不同的是，用Append方式打开文件时，文件指针定位于文件尾部，如对文件执行写操作，则写入数据附加到原来文件的后面。
2、Sub过程的调用
Sub过程的调用有两种方式，一种是把过程名放在一个Call语句中，一种是把过程名作为一个语句来使用。
1）用Call语句调用Sub过程的格式：
Call过程名[（实际参数）]
2）不用Call语句调用Sub过程的格式：
（1）去调关键字Call；
（2）去掉"实际参数"的括号
第三题解题方法：
打开工程文件sjt7.vbp，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出三个命令按钮，通过属性窗口分别设置其Name属为"C1"、"C2"和"C3",Caption属性为"读入数据"、"计算"和"存盘"。
打开代码窗口，输入如下的代码：
PrivateSubC1_Click（）
ReadData1
'调用过程ReadData1
ReadData2
'调用过程ReadData2
EndSub
PrivateSubC2_Click（）
Dimarr3（20）AsInteger
Sum=0
Fori=1To20
arr3（i）=Arr1（i）-Arr2（i）
'将数组Arr1和数组Arr2中对应下标的元素相减后，结果放入数组arr3中
Sum=Sum+arr3（i）
'用变量Sum来存放数组arr3中所有元素的和
Next
PrintSum
'在窗体上打印变量Sum，即在窗体上显示数组arr3中所有元素的和
EndSub
在上面的程序段中，通过循环将数组Arr1和Arr2的值访问一遍，通过arr3（i）=Arr1（i）-Arr2（i）一句将数组Arr1和Arr2中下标相同的元素相减再赋值给arr3（i）；通过Sum=Sum+arr3（i）一句累加出数组arr（3）中所有元素的和。
从而完成题目中要实现的工作。
PrivateSubC3_Click（）
WriteData"dataout.txt",Sum
'以文件名字符串"dataout.txt"和变量Sum为实参调用过程WriteData
EndSub
按要求进行操作并保存文件即完成本题。
第四题解题方法
本题主要考查了循环和文件的访问。
1、文件
Open文件说明[For方式][Access存取类型][锁定]As[#]文件号[Len=记录长度]
Open语句的功能是：
为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式。
方式：
指定文件的输入输出方式，可以使用下述操作之一：
Output：
指定顺序输出方式。
Input：
指定顺序输入方式。
Append：
指定顺序输出方式。
与Output不同的是，当Append打开文件时，文件指针被定位在文件的末尾。
如果对文件执行写操作，则写入的数据附加在原文件的后面。
2、Print#语句
用来把数据写入顺序文件。
语法为：
Print#文件号，[[Spc（n）|Tab（n）][表达式列表][;|,]]
Spc（n）函数用来在当前的输出位置加入n个空白；Tab（n）函数用来设置在第n个位置写入数据。
分号表示后续写入的数据将接着当前的数据尾部写入；逗号表示在当前写入的数据后换行。
3、Close语句
用来关闭一个被打开的文件。
语法为：
Close#文件号
4、Do循环的格式为：
Do
[语句块]
[ExitDo]
LoopUntil循环条件
Do循环语句的功能是：
直到指定的"循环条件"变为True之前重复执行一组语句（即循环体）。
解题方法：
由于寻找小于18000的最大的素数，并且判断素数的函数已经给出，只要使用一个循环在18000以下寻找，没有找到减1再寻找，找到的记录显示在Text1中，使用while判断是一个较好的选择。
文件处理都是通过使用Open语句以及其它一些相关的语句和函数（在下面列出）来实现的。
修改后的代码如下：
PrivateSubC1_Click（）
DimiAsInteger
i=18000
Do
i=i-1
LoopUntilisprime（i）
'重复执行Do循环，直到变量i是素数时，结束循环
Text1.Text=i
'在文本框Text1中显示变量i
EndSub
PrivateSubC2_Click（）
Open"out5.txt"ForOutputAs#1
'建立并打开文件Out5.txt，以便可以将记录写入文件中，并设置其文件号为1
Print#1,Text1.Text
'把文本框Text1的内容写入文件号为1的out5.txt文件中
Close#1
'关闭文件号为1的out5.txt文件
EndSub
按要求进行操作并保存文件即完成本题。
第五题解题方法
本题主要考查了文本框的属性。
1、文本框的PasswordChar属性
PasswordChar属性：
用来设置文本框中所显示的内容。
在默认状态下，该属性的设置值是空字符串，此时文本框所显示的是键盘所输入的字符；如果将该属性的值设置为一个非空字符串，则从键盘向文本框输入字符时，文本框中的实际内容仍是键入的字符，但显示的是PasswordChar属性所设置的字符串的第一个字符。
2、文本框的Text属性
Text属性：
设置或返回文本框编辑区中的文本，其语法为：
文本框名.Text=字符串
3、文本框的Enabled属性
Enabled属性：
用来确定对象是否能够对用户产生的事件作出反应，即是否可用。
可以取True和False两种值，取值为True时，允许对象对事件作出反应；取值为False时，禁止对象对事件作出反应。
解题方法：
修改后的代码如下：
PrivateSubC1_Click（）
IfText1.Text="123456"Then
'当单击"确定"命令按钮时，如果文本框Text1的内容为"123456"
Text1.Text="口令正确"
'在文本框Text1中显示"口令正确"
Text1.PasswordChar=""
'文本框Text1取消密码显示，正常显示每个字符
Else
Text2.Text=Text2.Text-1
IfText2.Text>0Then
'如果文本框Text2中允许输入的次数大于0，执行第一个MsgBox
MsgBox"第"&（3-Text2.Text）&"次口令错误，请重新输入"
Else
MsgBox"3次输入错误，请退出"
Text1.Enabled=False
'如果文本框Text2中允许输入的次数等于0，文本框Text1变为不可用
EndIf
EndIf
EndSub
按要求进行操作并保存文件即完成本题。
本题主要考查了建立菜单、文件和过程的调用。
1、Sub过程的调用
Sub过程的调用有两种方式，一种是把过程名放在一个Call语句中，一种是把过程名作为一个语句来使用。
1）用Call语句调用Sub过程的格式：
Call过程名[（实际参数）]
2）不用Call语句调用Sub过程的格式：
（1）去调关键字Call
（2）去掉"实际参数"的括号
解题方法：
打开工程文件sjt5.vbp，单击"工具"菜单中的"菜单编辑器"命令，打开菜单编辑器。
在"标题"栏中输入"读入数据"，在"名称"栏中输入"Read"；点击"下一个"按钮，在"标题"栏中输入"计算并输出"，在"名称"栏中输入"Calc"；点击"下一个"按钮，在"标题"栏中输入"存盘"，在"名称"栏中输入"Save"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框Text1，通过属性窗口设置其MultiLine属性为"True"，ScrollBars属性为"2"。
修改后的代码如下：
PrivateSubRead_Click（）
ReadData
'调用过程ReadData，读入datain1.txt文件中的100个整数
EndSub
PrivateSubCalc_Click（）
Text1.Text=""
Fori=1To100Step2
Text1.Text=Text1.Text&Arr（i）&Space（5）
temp=temp+Arr（i）
Nexti
Printtemp
'在窗体上打印变量temp
EndSub
PrivateSubSave_Click（）
WriteData"dataout.txt",temp
'调用过程WriteData
EndSub
按要求进行操作并保存文件即完成本题。
第六题解题方法
本题主要考查了菜单的建立、文件和过程的调用。
1、Sub过程的调用
Sub过程的调用有两种方式，一种是把过程名放在一个Call语句中，一种是把过程名作为一个语句来使用。
1）用Call语句调用Sub过程的格式：
Call过程名[（实际参数）]
2）不用Call语句调用Sub过程的格式：
（1）去调关键字Call
（2）去掉"实际参数"的括号
解题方法：
打开工程文件sjt5.vbp，单击"工具"菜单中的"菜单编辑器"命令，打开菜单编辑器。
在"标题"栏中输入"读入数据"，在"名称"栏中输入"Read"；点击"下一个"按钮，在"标题"栏中输入"计算并输出"，在"名称"栏中输入"Calc"；点击"下一个"按钮，在"标题"栏中输入"存盘"，在"名称"栏中输入"Save"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框Text1，通过属性窗口设置其MultiLine属性为"True"，ScrollBars属性为"2"。
修改后的代码如下：
DimtempAsInteger'在窗体的通用声明处声明
PrivateSubCalc_Click（）
Text1.Text=""
Fori=1To100
IfArr（i）Mod3=0Then
Text1.Text=Text1.Text&Arr（i）&Space（5）
temp=temp+Arr（i）
EndIf
Nexti
Printtemp
'在窗体上打印变量temp
EndSub
PrivateSubRead_Click（）
ReadData
EndSub
PrivateSubSave_Click（）
WriteData"dataout.txt",temp
'调用过程WriteData
EndSub
按要求进行操作并保存文件即完成本题。
第七题解题方法
本题主要考查了文件、菜单和大于等于50的元素的算法。
1、Open语句
Open语句用来打开或建立一个文件，其语法为：
Open文件名[for存取方式][Access操作方式][锁定]As[#]文件号[Len=记录长度]
参数说明：
"存取方式"指文件的输入输出方式，可以是以下操作之一：
Output指定顺序输出方式
Input指定顺序输入方式
Append指定顺序输出方式，与Output不同的是，用Append方式打开文件时，文件指针定位于文件尾部，如对文件执行写操作，则写入数据附加到原来文件的后面。
2、Input#语句
用来读取顺序文件的数据。
语法为：
Input#文件号，变量列表
3、Print#语句
用来把数据写入顺序文件。
语法为：
Print#文件号，[[Spc（n）|Tab（n）][表达式列表][;|,]]
Spc（n）函数用来在当前的输出位置加入n个空白；Tab（n）函数用来设置在第n个位置写入数据。
分号表示后续写入的数据将接着当前的数据尾部写入；逗号表示在当前写入的数据后换行。
4、Close语句
用来关闭一个被打开的文件。
语法为：
Close#文件号
解题方法：
打开sjt5.vbp中的sjt5.frm窗体，执行"工具"菜单中的"菜单编辑器"命令，打开菜单编辑器。
在"标题"栏中输入"读入数据"，在"名称"栏中输入"Read"；点击"下一个"按钮，然后在"标题"栏中输入"计算并输出"，在"名称"栏中输入"Calc"；点击"下一个"按钮，在"标题"栏中输入"存盘"，在"名称"栏中输入"Save"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框Text1，通过属性窗口设置其MultiLine为"True"，ScrollBars属性为"2"。
修改后的代码如下：
DimtempAsInteger
PrivateSubCalc_Click（）
Text1.Text=""
Fori=1To100
IfArr（i）>=50Then
Text1.Text=Text1.Text&Arr（i）&Space（5）
temp=temp+Arr（i）
EndIf
Nexti
Printtemp
'在窗体上打印变量temp
EndSub
PrivateSubRead_Click（）
ReadData
'调用过程ReadData，读入datain1.txt文件中的100个整数
EndSub
PrivateSubSave_Click（）
WriteData"dataout.txt",temp
'调用过程WriteData
EndSub
按要求进行操作并保存文件即完成本题。
第八题解题方法
第1小题
本题主要考查了通用对话框的属性。
1、通用对话框可以显示多种对话框，其中ShowOpen方法为显示"打开"对话框，ShowSave方法为显示"另存为"对话框，ShowPrinter方法为显示"打印"或"打印选项"对话框，ShowFont方法为显示"字体"对话框，ShowColor方法为显示"颜色"对话框。
2、DialogTitle
DialogTitle（对话框标题）属性：
是通用对话框标题属性，可以是任意字符串。
3、Filter
Filter（过滤器）属性：
用于确定文件列表框中所显示文件的类型。
该属性值可以由一组元素或用"|"符号分开的分别表示不同类型文件的多组元素组成。
该属性在"文件类型"列表框中。
4、FilterIndex
FilterIndex属性：
用来指定默认的过滤器，其设置值为一整数。
用Filter属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为1，第二个过滤器的值为2……，用FilterIndex属性可以指定默认显示的过滤器。
5、Action
Action属性：
用于指定对话框的操作，1为显示"打开"对话框，2为显示"另存为"对话框，3为显示"颜色"对话框，4为显示"字体"对话框，5为显示"打印"对话框，6为显示帮助文件。
解题方法：
新建一个工程，选择"工程"下拉菜单中的"部件"选项，弹出"部件"对话框或在"工具箱"上单击右键选择弹出菜单中的"部件"选项，弹出"部件对话框"。
在对话框的"部件"列表中选择"MicroSoftCommonDialogControl6.0"项目，使它前边的方框为选中，点击"确定"按钮，将在工具箱中添加一个CommonDialog控件。
点击工具箱中的CommonDialog控件图标，在窗体上添加一个通用对话框CommonDialog1，通过属性窗口设置其Name属性为CD1，并将其DialogTitle属性设置为"打开文件"，其Filter属性设置为"文本文件|*.txt|所有文件|*.*|"，其FilterIndex属性设置为2。
再添加一个命令按钮Command1，设置其Caption属性为"打开文件"。
双击这个按钮添加如下代码：
PrivateSubCommand1_Click（）
CD1.ShowOpen
EndSub
按照题目要求保存文件即可完成本题。
第2小题
本题主要考查了命令按钮的属性。
1、Left属性
Left属性：
是用来指定控件左边缘的位置。
解题方法：
新建一个工程，在窗体上添加一个命令按钮Command1，通过属性窗口设置其Caption属性为"移动本按钮"，双击该按钮并添加如下代码：
PrivateSubCommand1_Click（）
Command1.Left=Command1.Left-100
'命令按钮Command1距左窗体边界的距离减少100，即命令按钮Command1向左移动100
EndSub
按照题目要求保存文件即可完成本题。
第九题解题方法
第1小题
本题主要考查了文本框的属性。
1、MultiLine属性
MultiLine属性：
当MultiLine属性被设置为True时，文本框可以输入或显示多行文本。
2、文本框的ScrollBars属性
ScrollBars属性：
该属性用来确定文本框中有没有滚动条，可以取0、1、2、3四个值，其含义分别为：
0---文本框中没有滚动条；
1---只有水平滚动条；
2---只有垂直滚动条；
3---同时具有水平和垂直滚动条。
注意，只有当MultiLine属性设置为True时，才能使用ScrollBars属性在文本框中设置滚动条。
3、文本框的Font属性
Font属性：
用来设置输出字符的各种特性，包括字体，字型、字号等。
其格式为：
[对象名.]Font.Name=<字体名>
[对象名.]Font.Size=<字体大小>
解题方法：
新建一个工程，在窗体上添加一个文本框Text1，通过属性窗口设置其MultiLine属性为True，ScrollBars属性为2-Vertical，Text属性为"程序设计"，在Font属性中设置字体为"黑体"，字号为"三号"。
再选中窗体Form1，设置其Caption属性为"设置文本框属性"。
最后按照题目要
升级会员 