VB答案.docx

1、VB答案 第一题解题方法 本题主要考查了控件的绘制、设置和InputBox函数。 1、InputBox函数可以产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。其格式为：InputBox(prompt, title , default , xpos , ypos , helpfile, context) （1）prompt：是一个字符串，其长度不超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。 （2）title：字符串，它是对话框的标题，显示在对话框顶部的标题区。 （3）default：字符串，用来显示输入缓冲区的默认信息。也就是说，在执行In

2、putBox函数后，如果用户没有输入任何信息，则可用此默认字符串作为输入值。如果用户不想用这个默认字符串作为输入值，则可在输入区直接键入数据，以取代默认值；如果省略该参数，则对话框的输入区为空白，等待用户键入信息。 解题方法： 新建一个工程，点击工具箱中的Label控件图标，然后在窗体上拖拉出两个标签控件Label1、Label2，通过属性窗口分别设置其Caption属性为身高、体重；点击工具箱中的TextBox控件图标，然后在窗体上拖拉出两个文本框Text1、Text2，通过属性窗口分别设置其初始内容为空；再在窗体上添加一个命令按钮，设置其Name属性为Command1，Caption属性为

3、输入。 修改后的代码如下：Private Sub Command1_Click() Text1.Text = InputBox(请输入身高) 把InputBox函数返回的字符串赋给文本框Text1 Text2.Text = InputBox(请输入体重) 把InputBox函数返回的字符串赋给文本框Text2End Sub 按要求进行操作并保存文件即完成本题。 第2小题 本题主要考查了图片框的属性和滚动条的属性。 1、图片框的Picture属性picture属性：通过picture属性可以返回/设置控件中显示的图形。 2、图片框的AutoSize属性AutoSize属性设置为True，可以自动

4、调整大小。 3、滚动条的Max属性Max属性：滚动条所能表示的最大值，取值范围是-32768到+32767。当滚动条位于最右（水平滚动条）端或最下端（垂直滚动条）时，Value属性将被设置为该值。 4、滚动条的Min属性Min属性：滚动条所能表示的最小值，取值范围是-32768到+32767。当滚动条位于最左端（水平滚动条）或最上端（垂直滚动条）时，Value属性将被设置为该值。 5、滚动条的LargeChange属性LargeChange属性：单击滚动条中滚动框前面或后面的位置时，Value属性增加或减小的增量值。 6、滚动条的SmallChange属性SmallChange属性：单击滚动条

5、两端的箭头时，Value属性增加或减小的增量值。 7、滚动条的Value属性Value属性：该属性表示滚动框在滚动条上的当前位置。如果在程序中设置该值，则把滚动框移到相应的位置。注意不能把Value属性设置为Max和Min之外的值。 第二题解题方法： 新建一个工程，单击工具箱中的PictureBox图标，然后在窗体上拖拉出一个图片框Picture1，在其picture属性中装入考生文件夹下的图形文件pic1.jpg，并将图片框Picture1的宽度与图形的宽度设置为相同；单击工具箱中的VScrollBar图标，然后在窗体上拖拉出一个垂直滚动条VScroll1；单击工具箱中的CommandBut

6、ton图标，然后在窗体上拖拉出一个命令按钮Command1，通过属性窗口设置其Caption属性为设置属性。 修改后的代码如下：Private Sub Command1_Click() VScroll1.Max = 2400 VScroll1.Min = 100 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Change() Picture1.Height = VScroll1.Value 图片框Picture1的高度被赋予垂直滚动条VScroll1的滚动框当前所在位置的值End

7、Sub 按要求进行操作并保存文件即完成本题。本题主要考查了文件、函数的调用和求两个数组对应下标元素差的算法。1、Open语句Open语句用来打开或建立一个文件，其语法为：Open 文件名 for 存取方式 Access 操作方式 锁定 As #文件号 Len=记录长度参数说明：存取方式指文件的输入输出方式，可以是以下操作之一：Output 指定顺序输出方式Input 指定顺序输入方式Append 指定顺序输出方式，与Output不同的是，用Append方式打开文件时，文件指针定位于文件尾部，如对文件执行写操作，则写入数据附加到原来文件的后面。2、Sub过程的调用Sub过程的调用有两种方式，一种

8、是把过程名放在一个Call语句中，一种是把过程名作为一个语句来使用。1）用Call语句调用Sub过程的格式：Call过程名(实际参数)2）不用Call语句调用Sub过程的格式： （1）去调关键字Call； （2）去掉实际参数的括号第三题解题方法：打开工程文件sjt7.vbp，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出三个命令按钮，通过属性窗口分别设置其Name属为C1、C2和C3,Caption 属性为读入数据、计算和存盘。打开代码窗口，输入如下的代码：Private Sub C1_Click() ReadData1调用过程ReadData1 ReadData2调用过

9、程ReadData2End SubPrivate Sub C2_Click() Dim arr3(20) As Integer Sum = 0 For i = 1 To 20 arr3(i) = Arr1(i) - Arr2(i) 将数组Arr1和数组Arr2中对应下标的元素相减后，结果放入数组arr3中 Sum = Sum + arr3(i) 用变量Sum来存放数组arr3中所有元素的和 Next Print Sum 在窗体上打印变量Sum，即在窗体上显示数组arr3中所有元素的和End Sub在上面的程序段中，通过循环将数组Arr1和Arr2的值访问一遍，通过arr3(i)=Arr1(i)

10、-Arr2(i)一句将数组Arr1和Arr2中下标相同的元素相减再赋值给arr3(i)；通过Sum=Sum+arr3(i)一句累加出数组arr(3)中所有元素的和。从而完成题目中要实现的工作。Private Sub C3_Click() WriteData dataout.txt, Sum 以文件名字符串dataout.txt和变量Sum为实参调用过程WriteDataEnd Sub按要求进行操作并保存文件即完成本题。第四题解题方法本题主要考查了循环和文件的访问。 1、文件Open 文件说明 For 方式 Access 存取类型 锁定 As #文件号 Len=记录长度Open语句的功能是：为文

11、件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式。方式：指定文件的输入输出方式，可以使用下述操作之一：Output：指定顺序输出方式。Input：指定顺序输入方式。Append：指定顺序输出方式。与Output不同的是，当Append打开文件时，文件指针被定位在文件的末尾。如果对文件执行写操作，则写入的数据附加在原文件的后面。 2、Print #语句用来把数据写入顺序文件。语法为：Print #文件号，Spc(n)|Tab(n) 表达式列表 ;|,Spc(n)函数用来在当前的输出位置加入n个空白；Tab(n)函数用来设置在第n个位置写入数据。分号表示后续写入的数据将接着当前的数据尾部写入；

12、逗号表示在当前写入的数据后换行。 3、Close语句 用来关闭一个被打开的文件。语法为：Close #文件号 4、Do循环的格式为：Do 语句块 Exit DoLoop Until 循环条件Do循环语句的功能是：直到指定的循环条件变为True之前重复执行一组语句（即循环体）。 解题方法： 由于寻找小于18000的最大的素数，并且判断素数的函数已经给出，只要使用一个循环在18000以下寻找，没有找到减1再寻找，找到的记录显示在Text1中，使用while判断是一个较好的选择。文件处理都是通过使用Open语句以及其它一些相关的语句和函数（在下面列出）来实现的。 修改后的代码如下：Private S

13、ub C1_Click() Dim i As Integer i = 18000 Do i = i - 1 Loop Until isprime(i) 重复执行Do循环，直到变量i是素数时，结束循环 Text1.Text = i 在文本框Text1中显示变量iEnd SubPrivate Sub C2_Click() Open out5.txt For Output As #1 建立并打开文件Out5.txt，以便可以将记录写入文件中，并设置其文件号为1 Print #1, Text1.Text 把文本框Text1的内容写入文件号为1的out5.txt文件中 Close #1 关闭文件号为1的

14、out5.txt文件End Sub 按要求进行操作并保存文件即完成本题。第五题解题方法 本题主要考查了文本框的属性。 1、文本框的PasswordChar属性PasswordChar属性：用来设置文本框中所显示的内容。在默认状态下，该属性的设置值是空字符串，此时文本框所显示的是键盘所输入的字符；如果将该属性的值设置为一个非空字符串，则从键盘向文本框输入字符时，文本框中的实际内容仍是键入的字符，但显示的是PasswordChar属性所设置的字符串的第一个字符。 2、文本框的Text属性Text属性：设置或返回文本框编辑区中的文本，其语法为：文本框名.Text = 字符串 3、文本框的Enable

15、d属性Enabled属性：用来确定对象是否能够对用户产生的事件作出反应，即是否可用。可以取True和False两种值，取值为True时，允许对象对事件作出反应；取值为False时，禁止对象对事件作出反应。 解题方法： 修改后的代码如下：Private Sub C1_Click() If Text1.Text = 123456 Then 当单击确定命令按钮时，如果文本框Text1的内容为123456 Text1.Text = 口令正确 在文本框Text1中显示口令正确 Text1.PasswordChar = 文本框Text1取消密码显示，正常显示每个字符 Else Text2.Text = T

16、ext2.Text - 1 If Text2.Text 0 Then 如果文本框Text2中允许输入的次数大于0，执行第一个MsgBox MsgBox 第 & (3 - Text2.Text) & 次口令错误，请重新输入 Else MsgBox 3次输入错误，请退出 Text1.Enabled = False 如果文本框Text2中允许输入的次数等于0，文本框Text1变为不可用 End If End IfEnd Sub 按要求进行操作并保存文件即完成本题。 本题主要考查了建立菜单、文件和过程的调用。 1、Sub过程的调用Sub过程的调用有两种方式，一种是把过程名放在一个Call语句中，一种是

17、把过程名作为一个语句来使用。1）用Call语句调用Sub过程的格式：Call过程名(实际参数)2）不用Call语句调用Sub过程的格式： （1）去调关键字Call （2）去掉实际参数的括号 解题方法： 打开工程文件sjt5.vbp，单击工具菜单中的菜单编辑器命令，打开菜单编辑器。在标题栏中输入读入数据，在名称栏中输入Read；点击下一个按钮，在标题栏中输入计算并输出，在名称栏中输入Calc；点击下一个按钮，在标题栏中输入存盘，在名称栏中输入Save。 点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框Text1，通过属性窗口设置其MultiLine属性为True，ScrollB

18、ars属性为2。 修改后的代码如下：Private Sub Read_Click() ReadData 调用过程ReadData，读入datain1.txt文件中的100个整数End SubPrivate Sub Calc_Click() Text1.Text = For i = 1 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) temp = temp + Arr(i) Next i Print temp 在窗体上打印变量tempEnd SubPrivate Sub Save_Click() WriteData dataou

19、t.txt, temp 调用过程WriteDataEnd Sub 按要求进行操作并保存文件即完成本题。第六题解题方法 本题主要考查了菜单的建立、文件和过程的调用。 1、Sub过程的调用Sub过程的调用有两种方式，一种是把过程名放在一个Call语句中，一种是把过程名作为一个语句来使用。1）用Call语句调用Sub过程的格式：Call过程名(实际参数)2）不用Call语句调用Sub过程的格式： （1）去调关键字Call （2）去掉实际参数的括号 解题方法： 打开工程文件sjt5.vbp，单击工具菜单中的菜单编辑器命令，打开菜单编辑器。在标题栏中输入读入数据，在名称栏中输入Read；点击下一个按钮，

20、在标题栏中输入计算并输出，在名称栏中输入Calc；点击下一个按钮，在标题栏中输入存盘，在名称栏中输入Save。 点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框Text1，通过属性窗口设置其MultiLine属性为True，ScrollBars属性为2。 修改后的代码如下：Dim temp As Integer 在窗体的通用声明处声明Private Sub Calc_Click() Text1.Text = For i = 1 To 100 If Arr(i) Mod 3 = 0 Then Text1.Text = Text1.Text & Arr(i) & Space(5)

21、 temp = temp + Arr(i) End If Next i Print temp 在窗体上打印变量tempEnd SubPrivate Sub Read_Click() ReadDataEnd SubPrivate Sub Save_Click() WriteData dataout.txt, temp 调用过程WriteDataEnd Sub 按要求进行操作并保存文件即完成本题。第七题解题方法 本题主要考查了文件、菜单和大于等于50的元素的算法。 1、Open语句Open语句用来打开或建立一个文件，其语法为：Open 文件名 for 存取方式 Access 操作方式 锁定 As

22、#文件号 Len=记录长度参数说明：存取方式指文件的输入输出方式，可以是以下操作之一：Output 指定顺序输出方式Input 指定顺序输入方式Append 指定顺序输出方式，与Output不同的是，用Append方式打开文件时，文件指针定位于文件尾部，如对文件执行写操作，则写入数据附加到原来文件的后面。 2、Input #语句用来读取顺序文件的数据。语法为：Input #文件号，变量列表 3、Print #语句用来把数据写入顺序文件。语法为：Print #文件号，Spc(n)|Tab(n) 表达式列表 ;|,Spc(n)函数用来在当前的输出位置加入n个空白；Tab(n)函数用来设置在第n个位

23、置写入数据。分号表示后续写入的数据将接着当前的数据尾部写入；逗号表示在当前写入的数据后换行。 4、Close语句 用来关闭一个被打开的文件。语法为：Close #文件号 解题方法： 打开sjt5.vbp中的sjt5.frm窗体，执行工具菜单中的菜单编辑器命令，打开菜单编辑器。在标题栏中输入读入数据，在名称栏中输入Read；点击下一个按钮，然后在标题栏中输入计算并输出，在名称栏中输入Calc；点击下一个按钮，在标题栏中输入存盘，在名称栏中输入Save。 点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框Text1，通过属性窗口设置其MultiLine为True，ScrollBar

24、s属性为2。 修改后的代码如下：Dim temp As IntegerPrivate Sub Calc_Click() Text1.Text = For i = 1 To 100 If Arr(i) = 50 Then Text1.Text = Text1.Text & Arr(i) & Space(5) temp = temp + Arr(i) End If Next i Print temp 在窗体上打印变量tempEnd SubPrivate Sub Read_Click() ReadData 调用过程ReadData，读入datain1.txt文件中的100个整数End SubPriv

25、ate Sub Save_Click() WriteData dataout.txt, temp 调用过程WriteDataEnd Sub 按要求进行操作并保存文件即完成本题。第八题解题方法 第1小题 本题主要考查了通用对话框的属性。 1、通用对话框可以显示多种对话框，其中ShowOpen方法为显示打开对话框，ShowSave方法为显示另存为对话框，ShowPrinter方法为显示打印或打印选项对话框，ShowFont方法为显示字体对话框，ShowColor方法为显示颜色对话框。 2、DialogTitleDialogTitle（对话框标题）属性：是通用对话框标题属性，可以是任意字符串。 3、

26、FilterFilter（过滤器）属性：用于确定文件列表框中所显示文件的类型。该属性值可以由一组元素或用|符号分开的分别表示不同类型文件的多组元素组成。该属性在文件类型列表框中。 4、FilterIndexFilterIndex属性：用来指定默认的过滤器，其设置值为一整数。用Filter属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为1，第二个过滤器的值为2，用FilterIndex属性可以指定默认显示的过滤器。 5、ActionAction属性：用于指定对话框的操作，1为显示打开对话框，2为显示另存为对话框，3为显示颜色对话框，4为显示字体对话框，5为显示打印对话框，6为显示帮

27、助文件。 解题方法： 新建一个工程，选择工程下拉菜单中的部件选项，弹出部件对话框或在工具箱上单击右键选择弹出菜单中的部件选项，弹出部件对话框。在对话框的部件列表中选择MicroSoft Common Dialog Control6.0项目，使它前边的方框为选中，点击确定按钮，将在工具箱中添加一个CommonDialog控件。点击工具箱中的CommonDialog控件图标，在窗体上添加一个通用对话框CommonDialog1，通过属性窗口设置其Name属性为CD1，并将其DialogTitle属性设置为打开文件，其Filter属性设置为文本文件|*.txt|所有文件|*.*|，其FilterIn

28、dex属性设置为2。 再添加一个命令按钮Command1，设置其Caption属性为打开文件。双击这个按钮添加如下代码： Private Sub Command1_Click() CD1.ShowOpen End Sub 按照题目要求保存文件即可完成本题。 第2小题 本题主要考查了命令按钮的属性。 1、Left属性Left属性：是用来指定控件左边缘的位置。 解题方法： 新建一个工程，在窗体上添加一个命令按钮Command1，通过属性窗口设置其Caption属性为移动本按钮，双击该按钮并添加如下代码： Private Sub Command1_Click() Command1.Left = Co

29、mmand1.Left - 100 命令按钮Command1距左窗体边界的距离减少100，即命令按钮Command1向左移动100 End Sub 按照题目要求保存文件即可完成本题。第九题解题方法 第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属性为设置文本框属性。 最后按照题目要