1、VB 机试-试卷 103 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上画一个名称为 Textl 的文本框，其高、宽分别为 600、1 800。请在属性框中设置适当的属性满足以下要求： Text1 的字体为“隶书”，字号为“三号”；窗体的标题为“字体大小”，不显示最大化按钮和最小化按钮，如图 491 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在 Forml 的窗体上画一个文本框，其名称为Textl；再画
2、两个命令按钮，其名称分别为 Commandl 和 Command2、标题分别为“显示”和“清空”，编写适当的事件过程。程序运行后，如果单击“显示”按钮，则在文本框中显示“模拟考试”，并使“清空”按钮可用。此时如果单击“清空”按钮，则清空文本框，同时该按钮变为不可用。程序中不得使用任何变量。程序运行时的窗体界面如图 492 和图 493 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在名称为 Forml 的窗体中画一个名称为 Textl 的文本框，其标题为“0”；再添加一个名称为Timerl 的计时器。请设置适当的控件属性
3、，并编写适当的事件过程使得在运行时，每隔 1 秒钟文本框中的数字加 1，当达到 10 时，在窗口上打印“10”，然后重新从 O 开始计数，如图 433 所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj3vbp，窗体文件名为sj3frm。 (2)在考生文件夹下有工程文件 sj4vbp，窗体文件 sj4frm，该程序是不完整的。在窗体上已经画出两个图像框，名称分别为 Imagel 和 Image2；一个水平滚动条，名称为 HScrolll。要求考生不改动 Imagel 和 Image2 的 Width 属性。当运行程序时，图像框中加载考生文件夹下的图片 tes
4、t.bmp。滚动水平滚动条中的滚动块时，图片 Imagel 和 Image2 会随着滚动条的滚动进度逐渐显露出来或隐藏起来。 程序运行时的窗体界面如图 434 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹中有工程文件 sj5vbp 及其窗体文件 sj5frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Forml 的窗体上有一个文本框，名称为 Textl、MultiLine 属性为 True
5、、ScrollBars 属性为 2；两个命令按钮名称分别为 Commandl 和 Command2、标题分别为“读取”和“计算保存”，程序运行界面如图 465 所示。要求程序运行后，如果单击“读取”按钮，则读入intxt 文件中的 50 个整数，放入一个数组中(数组下界为 1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算其中前 30 个数之和，并把求和结果在文本框 Textl 中显示出来，同时把结果存入考生文件夹中的文件 outtxt 中。(在考生的文件夹下有标准模块 modebas，其中的 writeputdata 过程可以把结果存入指定的文件)。 （分数：2.00）_VB 机
6、试-试卷 103 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上画一个名称为 Textl 的文本框，其高、宽分别为 600、1 800。请在属性框中设置适当的属性满足以下要求： Text1 的字体为“隶书”，字号为“三号”；窗体的标题为“字体大小”，不显示最大化按钮和最小化按钮，如图 491 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在 Forml 的窗体上画一个文本框，其名称为Textl；再画两个
7、命令按钮，其名称分别为 Commandl 和 Command2、标题分别为“显示”和“清空”，编写适当的事件过程。程序运行后，如果单击“显示”按钮，则在文本框中显示“模拟考试”，并使“清空”按钮可用。此时如果单击“清空”按钮，则清空文本框，同时该按钮变为不可用。程序中不得使用任何变量。程序运行时的窗体界面如图 492 和图 493 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl、Caption 属性为“模拟考试”，Fonl 属性为“隶书”、“三号”，Forml 的 MaxButton 和MinBut
8、ton 属性为“False”，Caption 属性为“字体大小”。单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为 Textl、Text 属性为“模拟考试”，命令按钮的名称分别为 Commandl 和 Command2、Caption 属性分别为“显示”和“清空”。双击 Commandl 进入代码窗口，编写如下代码： Private Sub Commandl_Click() TextlText=“模拟考试“ 在 Textl 中显示“模拟考试“ Command2Enabled=True将“清空”按钮变为可用
9、End Sub Private Sub Command2_Click() TextlText=“ 单击“清空”，则清空 Textl 中的文本 Command2Enabled=False将“清空”按钮变为不可用 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在名称为 Forml 的窗体中画一个名称为 Textl 的文本框，其标题为“0”；再添加一个名称为Timerl 的计时器。请设置适当的控件属性，并编写适当的事件过程使得在运行时，每隔 1 秒钟文本框中的数字加 1，当达到 10 时，在窗口上打印“10”，然后重新
10、从 O 开始计数，如图 433 所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj3vbp，窗体文件名为sj3frm。 (2)在考生文件夹下有工程文件 sj4vbp，窗体文件 sj4frm，该程序是不完整的。在窗体上已经画出两个图像框，名称分别为 Imagel 和 Image2；一个水平滚动条，名称为 HScrolll。要求考生不改动 Imagel 和 Image2 的 Width 属性。当运行程序时，图像框中加载考生文件夹下的图片 test.bmp。滚动水平滚动条中的滚动块时，图片 Imagel 和 Image2 会随着滚动条的滚动进度逐渐显露出来或隐藏起
11、来。 程序运行时的窗体界面如图 434 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将一个 Text 控件和一个 Timer 控件添加到窗体上，Text 的名称为 Textl，Text 属性为“0”，Timer 的名称为 Timerl，Interval 属性为 1 000 毫秒。双击 Timerl 进入代码窗口，编写如下代码： Private Sub Timerl_Timer() TextlText=Val(TextlText)+1每个间隔计数器加 1 If Val(TextlText)=10 Then当计数器大于等于 10 时 TextlTex
12、t=0重新从 0 开始计数 Print“10“ End If End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将一个 HScrollBar 控件和两个 Image 控件添加到窗体上，HScrollBar 的名称为 HScrolll、Min 为 400、Max 为 2000Image 的名称分别为 Imagel 和 Image2、Stretch 属性为True。双击 HScrolll 进入代码窗口，编写如下代码： Dim a As Integer Private Sub Form_Load() a= Image2Left+Image2Width 将 Image2 的右边界赋值
13、给 a Imagel Width = HScrolllValue 初始化 Imagel 的宽度等于滚动条的值 End Sub Private Sub HScrolll_Change() 当移动滚动块时。Imagel和 Image2 的宽度随之改变 hnagel Width = HScrolllValue Image2 Width = HScrolll.Max-HScroltlValue Image2Left=a-Image2 Width 改变 Image2 的左边界 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生
14、文件夹中有工程文件 sj5vbp 及其窗体文件 sj5frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Forml 的窗体上有一个文本框，名称为 Textl、MultiLine 属性为 True、ScrollBars 属性为 2；两个命令按钮名称分别为 Commandl 和 Command2、标题分别为“读取”和“计算保存”，程序运行界面如图 465 所示。要求程序运行后，如果单击“读取”按钮，则读入intxt 文件中的 50 个整数，放入一个数组中(数组下界为 1)，
15、同时在文本框中显示出来；如果单击“计算保存”按钮，则计算其中前 30 个数之和，并把求和结果在文本框 Textl 中显示出来，同时把结果存入考生文件夹中的文件 outtxt 中。(在考生的文件夹下有标准模块 modebas，其中的 writeputdata 过程可以把结果存入指定的文件)。 （分数：2.00）_正确答案：(正确答案：文本框显示的内容由 Text 属性设置，Muhiline 属性决定文本框是否可多行显示；按钮的标题由 Caption 属性设置，单击命令按钮触发 Click 事件。题中涉及文件的操作读人顺序文件以顺序的方式打开，用 input#语句读取数据。另外需要注重的是对文件操
16、作完后，一定要关闭文件。 根据题意要求将一个文本框控件和两个命令按钮加到窗体中，其中文本框的名称为 Namel、MuhiLine 属性为True， ScrollBar 属性为 2；命令按钮的名称分别为 Commandl 和 Command2，Caption 的属性分别为“读取”和“计算保存”。然后将 nodebas 模板加入到工程中。 模板代码如下： Function writeData(total As Long) ()pen AppPath&“outtxt“For Output As#1 Write#1total Close#1 End Function 单击 Commandl 进入代码窗
17、口，补充后的代码如下： Dim a( 50 )As Long全局变量 Dim str( 50 )As String全局变量 Dim total As Long Private Sub Commandl_Click() total=0 Textl Text =“ Open AppPath&“intxt“For Input As#1打开“intxt“文件 Dim i As Integer Dim temp As Integer For i=0 To 49 Input #1，temp a(i)=temp按顺序读入到数组中 Next i For i=0 To 29 total=total+a(i) str(i)=a(i) Textl Text =Textl Text +str(i)+vbCrLf Next i Close#1 End Sub 单击 )解析：
