1、VB 机试-试卷 60 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Form1 的窗体上画一个命令按钮，名称为 commandl，标题为“缩小一半”。编写事件过程，程序运行后，如果单击 Commandl 命令按钮，则使 Comrnandl 按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图 141 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有工程文件 sj3vbp
2、 及窗体文件 sj3frm，该程序是不完整的。本程序只有一个窗体，当把鼠标光标移到窗体上时，每双击一次鼠标，就变换一种鼠标光标的形状，依次显示鼠标光标的15 种属性。程序运行后的窗体如图 594 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4vbp，窗体文件 sjfrm，该程序是不完整的。在窗体上已经域出一个图像框，名称为 Imagel；一个水平滚动条，名称为 HScroll1。要求考生不改动 Imagel 的 Height 与 width属性。当运行程序时
3、，图像框中加载考生文件夹下的图片 testbmp。滚动水平滚动条中的滚动块时，图片会随着滚动条的滚动进度逐渐显露出来，如图 595 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的，要求将程序补充完整，但不能修改其他部分。修改后的程序文件都保存，存盘时不得改变文件夹和文件名。 在窗体上有一个名为一 rextl 的文本框，两个命令按钮，名称分别为 Commandl、Command2、标题分别是“读取”和“加密保存”，要求程序运行后，单击“读取”按钮，
4、将考生文件夹下文本文件 in5txt 中的文本信息读入文本框 Text1 中；单击“加密保存”按钮，将 Text1 中的英文字母加密转换，将转换后的结果显示到 Text1中并保存到考生文件夹下的 out5txt 文件中。转换方式为转换成该字母对应字母表中前一个位置的字母。例如，转换前的字母是“b”，则转换后的是“a”，转换前的是“G”，转换后的是“F”。程序运行时的窗体界面如图 695 所示。 （分数：2.00）_VB 机试-试卷 60 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为
5、Form1 的窗体上画一个命令按钮，名称为 commandl，标题为“缩小一半”。编写事件过程，程序运行后，如果单击 Commandl 命令按钮，则使 Comrnandl 按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图 141 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将一个 Command 添加到窗体中，其名称为Commandl、Caption 属性为“缩小一半”。双击 Commandl 进入代码窗口，编写如下代码： Private Sub Commandl_Click() CommandlWidth=Co
6、mmandlWidth2 宽度变为原来的一半 CommandlHeight=CommandlHeight2长度变为原来的一半 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个水平滚动条控件和一个命令按钮添加到窗体中，水平滚动条的名称为 HScrolll，命令按钮的名称为 Commandl、Caption 属性为“滚动条变长”。双击Command，进入代码窗口编写如下代码： Private Sub Commandl_Click() HScrolllWidth=FormlHScrolllWidth-1000HScroll 的宽度变为窗体宽度减 1
7、000 HScrolllLargeChange=100 HScrolllSmallChange=20 HScrolllMin=0 Command1Enabled=FalseCommandl 变为不可用 End Sub Private Sub HScrolll_Change() FormlCls清空窗体显示 Print HScrolllValue显示滚动条位置值 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。本程序只有一个窗体，当把
8、鼠标光标移到窗体上时，每双击一次鼠标，就变换一种鼠标光标的形状，依次显示鼠标光标的15 种属性。程序运行后的窗体如图 594 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4vbp，窗体文件 sjfrm，该程序是不完整的。在窗体上已经域出一个图像框，名称为 Imagel；一个水平滚动条，名称为 HScroll1。要求考生不改动 Imagel 的 Height 与 width属性。当运行程序时，图像框中加载考生文件夹下的图片 testbmp。滚动水平滚动条中的滚
9、动块时，图片会随着滚动条的滚动进度逐渐显露出来，如图 595 所示。 （分数：2.00）_正确答案：(正确答案： (1)本题主要考查考生对鼠标的 MousePointer 属性的掌握情况。 MousePointer属性用于设置鼠标经过某对象时光标的形状类型，既可以在属性窗口设置，也可以通过代码设置。IVLousePointer 属性值可以是 015 之间的任一整数，不同的值代表不同的形状。MousePointer 属性值通过代码设置的一般格式为：对象名MousePointer=n(n 为 015 间的整数)。 根据题意，将两个标签添加到窗体中，名称分别为 Labell 和 Label2、Cap
10、tion 属性分别为“当前鼠标形状为：”和“1”，并设置 MousePointer 属性为 1。双击 Forml 进入代码窗口，补充后的具体代码如下： Private Sub Form_DblClick() If Me MousePointer MousePointer =Me MousePointer +1 双击后鼠标的形状属性加 l Else Me MousePointer =1 当鼠标的形状属性大于 15，则变回 1 End If Label2 Caption =Me MousePointer 在 label2 上显示鼠标当前属性 End Sub 单击 按钮运行程序，并按要求保存。 (2
11、)窗体加载时触发 Form_Load 事件。滚动条的事件主要有 Scroll 和 Change 事件。当在滚动条内拖动滑块时触发 Scroll 事件(单击滚动箭头或滚动条时不发生 Scroll 事件)，而改变滑块的位置后会触发Change 事件。Scroll 事件用于跟踪滚动条中的动态变化，Change 事件则用来得到滚动条最后的值。加载图片可以在属性窗口的 Picture 属性中设置，也可以在代码中通过 LoadPicture(“图像文件路径”)图片加载函数加入图片。 根据题意，将一个水平滚动条控件和一个图像控件添加到窗体中，水平滚动条的名称为 HScrolll、Min 属性为 400、Ma
12、x 属性为 2 295，Image 的名称为 Imagel，并在其 Picture 属性中加载考生文件夹下的“testbmp”图片。双击 HScrolll 进入代码 窗口，编写如下代码： Private Sub Form_Load() Imagel Width =HScrolll Value 初始化，显示大小为水平滚动条的当前值 End Sub Private Sub HScrolll_Change() Imagel Width =HScrolll Value 图像显示的大小是由水平滚动条决定的 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数
13、：2.00）_解析：6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的，要求将程序补充完整，但不能修改其他部分。修改后的程序文件都保存，存盘时不得改变文件夹和文件名。 在窗体上有一个名为一 rextl 的文本框，两个命令按钮，名称分别为 Commandl、Command2、标题分别是“读取”和“加密保存”，要求程序运行后，单击“读取”按钮，将考生文件夹下文本文件 in5txt 中的文本信息读入文本框 Text1 中；单击“加密保存”按钮，将 Text1 中的英文字母加密转换，将转换后的结果显示到 Text1中并保存到考生文件夹下的 out5txt 文件中。转
14、换方式为转换成该字母对应字母表中前一个位置的字母。例如，转换前的字母是“b”，则转换后的是“a”，转换前的是“G”，转换后的是“F”。程序运行时的窗体界面如图 695 所示。 （分数：2.00）_正确答案：(正确答案：根据题意，将两个命令按钮和一个文本框控件添加到窗体中，命令按钮的名称分别为 Commandl 和 Command2，Caption 分别为“读取”和“加密保存”，文本框的名称为Textl，MultiLine 属性为 True、Scrollbars 属性为 2。设计完成后编写如下代码： Dim str As String Private Sub Commandl_Click() s
15、tr=“ Dim trap As String Open“AppPath&in5txt“For Input As#l While EOF(1)=False Input#1，tmp逐行读取文件 str=str+tmp将读取到的字符放入 str 字符串中 Wend Close#1 Textl Text =str 在 Textl 中显示字符串 End Sub Private Sub Command2_Click() str=“ Dim tmp As String For i=1 To Len(Text1Text) tmD=Mid(Textl Text ，i，1) 通过 Mid函数一个一个读入字符 If Asc(tmp)=Asc(“A“)Then If Asc(tmp)=Asc(“a“)Then 当输人为小写字母时 tmp=Chr(Asc(tmp)-1-Asc(“a“)+26)Mod 26+Asc(“a“) Else当输入为大写字母时 tmp=Chr(Asc(tmp)-1-Asc(“A“)+26)Mod 26+Asc(“A“) End If End If str=str+tmp将字符串连起来 Next i Open“AppPath&out5txt“For Output As#2 Print#2，str Close#2 End Sub 单击 )解析：
