1、VB 机试-试卷 28 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上绘制一个垂直滚动条，其名称为 VScrolll，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能： 滚动条所能表示的最小值和最大值分别为 100 和 400，滚动块的初始位置为 200。程序运行后，单击滚动块前面或后面的部位时，滚动块移动的增量值为 25，单击滚动条两端的箭头时，滚动块移动的增量值为 10。程序的运行情况如图 341 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj
2、lvbp，窗体文件名为 sjlfrm。 (2)在名称为 Forml 的窗体上绘制一个文本框，其名称为 Textl如图 342 所示，编写适当的事件过程。程序运行后，如果单击文本框，则可使文本框左移 100 单位；而如果在文本框中输入信息，则可使文本框右移 100 单位。不得使用任何变量；只允许通过修改属性的方式移动文本框。程序的运行情况如图 343 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在名称为 Forml、标题为“调用系统对话框”的窗体上有一个文本框和四个命令按钮及一个通用对话框，通过 CommonDialog
3、 实现对系统一些对话框的调用。请将“打开”按钮的功能补充完整，并限制打开的类型为文本文件和数据文件(*txt 和*dat)，默认打开文件类型为txt 文件。打开 intxt 文件如图 373 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3frm，工程文件名为sj3vbp。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序是不完整的。在窗体上有一个名为 Pic1 的图片框，有一个名为 Commandl、标题为“输入半径”或“输入边长”的命令按钮，有两个单选按钮，名称分别是 Optionl 和 Option2、标题分别是“圆形”和“正方形”。要求程序
4、运行后，若选中“圆形”，则按钮名称为“输入半径”，若选中“正方形”，则按钮名称为“输入边长”，再单击命令按钮“输入半径”或“输入边长”，在弹出的输入对话框中输人相应的参数值，则在图片框上画出相应的图形，如图 374 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sj5vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是：a 2 +b 2 =c 2 。例如，3、4、5 就是一个满足条件的整数组合(注意：a，b，c 分别为4，3，5 与分别为 3，4，5 被视为同一个组合，不应该重
5、复计算)。编写程序，统计均在 60 以内的三个数满足上述关系的整数组合的个数，并显示在标签 Labell 中。 注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。（分数：2.00）_VB 机试-试卷 28 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上绘制一个垂直滚动条，其名称为 VScrolll，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能： 滚动条所
6、能表示的最小值和最大值分别为 100 和 400，滚动块的初始位置为 200。程序运行后，单击滚动块前面或后面的部位时，滚动块移动的增量值为 25，单击滚动条两端的箭头时，滚动块移动的增量值为 10。程序的运行情况如图 341 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在名称为 Forml 的窗体上绘制一个文本框，其名称为 Textl如图 342 所示，编写适当的事件过程。程序运行后，如果单击文本框，则可使文本框左移 100 单位；而如果在文本框中输入信息，则可使文本框右移 100 单位。不得使用任何变量；只允许通过修改属性的方
7、式移动文本框。程序的运行情况如图 343 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将一个 VSrollBar 控件添加到窗体中，设置其名称为 VScrolll，Max 属性为 400，Min 属性为 100，Value 属性为 200，LargeChange 属性为25，SmallChange 属性为 10。单击 按钮运行程序并按要求保存。 (2)在文本框中输入信息，触发文本框的 Change 事件，单击文本框触发文本框的 Click 事件。根据题意，新建“标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl，Text 属性
8、为空。双击 Text 进入代码窗口，编写如下代码：Private Sub Textl_Change() TextlLeft=TextlLeft+100在文本框输入，文本框右移 End Sub Private Sub Textl_Click() TextlLeft=TextlLeft-100 单击文本框，文本框左移 End Sub 单击)解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在名称为 Forml、标题为“调用系统对话框”的窗体上有一个文本框和四个命令按钮及一个通用对话框，通过 CommonDialog 实现对系统一些对话框的调用。
9、请将“打开”按钮的功能补充完整，并限制打开的类型为文本文件和数据文件(*txt 和*dat)，默认打开文件类型为txt 文件。打开 intxt 文件如图 373 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3frm，工程文件名为sj3vbp。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序是不完整的。在窗体上有一个名为 Pic1 的图片框，有一个名为 Commandl、标题为“输入半径”或“输入边长”的命令按钮，有两个单选按钮，名称分别是 Optionl 和 Option2、标题分别是“圆形”和“正方形”。要求程序运行后，若选中“圆形”，则按钮
10、名称为“输入半径”，若选中“正方形”，则按钮名称为“输入边长”，再单击命令按钮“输入半径”或“输入边长”，在弹出的输入对话框中输人相应的参数值，则在图片框上画出相应的图形，如图 374 所示。 （分数：2.00）_正确答案：(正确答案： (1)通用对话框是一种 ActiveX 控件，通常情况下，启动 Visual Basic 后，在工具箱里没有通用对话框控件，用户必须手动将它添加到工具箱里才可以使用。选择“工程”一“部件”命令，打开“部件”对话框，并将 Microsoft Common Dialog Control60 前的复选按钮选中，单击“确定”按钮将其添加到工具箱中，然后再像其他控件一样
11、使用。 本题补充后的具体代码如下： Private Sub Commandl Click() Dim tmp As String Dim str As String str=“ CommondialoglDialogTitle=“打开“ CommondialoglInitDir=“ CommondialoglFilter=“Text Files( *：txt* )|*txt | Data Files(*dat)|*dat“ CommondialoglFileName=“ CommondialoglShowOpen If CommondialoglFileName“Then Open Commo
12、ndialoglFileName For Input As#1 While EOF(1)=False Input #1 ，tmp str=str+tmp Wend End If Close #1 TextlText=str End Sub Private Sub Command2_Click() Dim i As Integer CommondialoglCancelError=True On Error GoTo Cancel CommondialoglAction=5 For i=1 To Commondialogl.Copies PrintForm Next i Cancel： End
13、Sub Private Sub Command3_Click() CommondialoglFlags=&H3&Or&H1&Or&H2& CommondialoglCancelError=True On Error GoTo Cancel Commondialog 1Action=4 TextlFontBold=CommondialoglFontBold Text 1FontItalic=Commondialog1FontItalic TextlFontStrikethru=CommondialoglFontStrikethru TextlFontName=CommondialoglFontN
14、ame Text 1FontSize=CommondialoglFontSize Cancel： End Sub Private Sub Command4_Click() Unload Me End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查 circle 方法、Line 方法和 InputB。x 函数的使用。cirele 方法在对象上画圆、椭圆或弧。其语法为：ob jectCircleStep(x，y)，radius,Color,start，end，aspect.Line 方法在对象上画直线和矩形。其语法为：objec.LineStep (x1，1)Step(x2，y2)
15、，color，BF。 InputBox 函数在一个对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。其语法为：InputBox(prompt，title3，default，xpos，ypos，helpfile，conText)。 根据题意，补充后的具体代码如下： Private Sub Commandl_Click() Dim a As Integer Const rPI As Single=314159265358979圆周率 If Optionl Value =True Then a= InputBox (“输入半径“)是圆形 PiclCls清屏 Picl
16、 Circle (940，550)，a，0，360180*rPI 画圆函数：原点、半径、颜色、起始角度、结束角度 Else a=InputBox(“输入边长“) 是正方形 PiclCls Picl Line (100，100)-(100 4-a，100) 两点间画线 Picl Line (100，100)-(100，1004-a) 两点间画线 Picl Line (100，100+a)-(1004-a，1004-a) 两点间画线 Picl Line (1004-a，100)-(1004-a，1004-a) 两点间画线 Picl Line -(100+-a4-1，100+a+1) End If
17、End Sub Private Sub Optionl_Click() 选中圆形 Commandl Caption =“输入半径“ End Sub Private Sub Option2_Click()选中正方形 Commandl Caption =“输入边长“ End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sj5vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中 3个数的关系是：a 2 +b 2 =c 2 。例如，3、4、5 就是一个满足条件的整数组合(注意：a，b，c 分别为4，
18、3，5 与分别为 3，4，5 被视为同一个组合，不应该重复计算)。编写程序，统计均在 60 以内的三个数满足上述关系的整数组合的个数，并显示在标签 Labell 中。 注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：本题主要考查嵌套循环、文件编辑以及 If 判断语句。根据题意，编写如下代码： =考生编写程序开始= Dim i As Integer Dim j As Integer Dim k As Integer For i=1 To 60 For i=1 To 60 For k=1 To 60 If i2=i2+k2 Then m=m+1 End If Next k Next i Next i Labell=m2 =考生编写程序结束= 单击 )解析：
