1、VB 机试模拟试卷 10 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画两个文本框，名称分别为 T1和 T2，初始情况下都没有内容。请编写适当的事件过程，使得运行时，在 T1中输入的任何字符，立即显示在 T2中，如图 10-1所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。 (2)在名称为 Form1的窗体上画一个文
2、本框，名称为 Text1；再画一个命令按钮，名称为 C1，标题为 “移动 ”，如图 10-2所示。请编写适当的事件过程，使得在运行时，单击 “移动 ”按钮，则文本框水平移动到窗体的最左端如图 10-3所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 (1) 在考生文件夹下有工程文件 sjt3.vbp及窗体文件 sjt3.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即
3、 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个名称为 Image1的图像框，一个名称为 Timer1的计时器，一个名称为 HScroll1的滚动条，还有一个名称为C1，标题为 “开始 ”的命令按钮。要求程序运行后，点击开始按钮，则图像框中的图片根据计时器中设定的时间间隔交替变更，如果改变滚动条中滚动框的位置，则图片交替变换的速度也随之变化。程序运行界面如图 12-5和图 12-6所示。 (2) 在考生文件夹下有工程文件 sjt4.vbp及窗体文件 sjt4.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号
4、 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体中有一个名为Image1的图像框，还有两个命令按钮，名称分别是 C1和 C2，标题分别是 “放大 ”和 “缩小 ”。要求程序运行后，点击 C1按钮，则图像框变大；点击 C2按钮，则图像框变小。程序运行界面如图 12-7所示。三、综合应用题（ 30分） 3 注意：下面出 现的 “考生文件夹 ”均为 c： wexam25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘
5、时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个名为 L1 的列表框，列表框中有若干的列表项如图 11-7所示，通过属性窗口设置列表框的 MultiSelect属性为1。还有两个命令按钮，名称分别是 C1和 C2，标题分别是 “全选 ”和 “存盘 ”。要求在程序运行时，点击 C1按钮则将 L1 中的全部列表项选中，然后点击 C2按钮，将L1中的全部列表项写入文本文件 out7.txt中，并将 out7.txt保存在考生文件夹下。VB 机试模拟试卷 10 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 文本框的文本
6、内容由 Text属性设置。题目要求在 T1中输入任何字符时，立即在丁2中显示，这要用到文本框的 Change事件。当用户向文本框中输入新信息，或当程序把 Text属性设置为新值从而改变文本框的 Text属性，将触发 Change事件。 解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 10-1。 第二步：编写程序代码。 参考代码： Private Sub T1_Change() T2.Text=T1.Text End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 本题考查的是控件的位置改变，控件的
7、位置由控件的 Left属性和 Top属性决定， Left属性表示控件与所在窗体的左边之间的距离， Top属性表示控件与所在窗体的顶边之间的距离。题 目要求将文本框移到窗体的最左边，即Text1.Left=0。解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 10-2。 第二步：编写程序代码。 参考代码： Private Sub C1_Click() Text1.Left=0 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 时钟控件作用是以一定的时间间隔激发计时器事件 (Timer)而执行相应程序代码， In
8、terval属性决定时间间隔的长短，以毫秒为单位，所以要改变两个图片交替的速度可将滚动框的 Value值赋值给 Interval属性即可：当时钟控件的 Enabled属性为 True时，时钟控件才起作用，当为 False时该控件不起作用。所以要使开始的时候图片不改变，将 Timer控件的 Enabled属性设置为 False，单击命令按钮要使图片开始改变时，将时钟控件的 Enabled属性设置为 True；程序运行时用 LoadPicture()方法在图形框里装入图形，其格式为： 图形框 Picture=LoadPicture(图形文件名 )。解题步骤： 第一步：建立界面并设置控件属性。 程序
9、中用到的控件及其属性见表 12-3。第二步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Timer1.Enabled=True End Sub Private Sub HScroll1_Change() Timer1.?=1000-HScroll1.? End Sub Private Sub Timer1_Timer() Static i As Integer If i=0 Then Image1.Picture=?(“2.ico“) i=1 Else Image1.Picture=?(“1.ico“) i=0 End If End Sub 参考代码： Pr
10、ivate Sub C1_Click() Timer1.Enabled=True End Sub Private Sub HScroll1_Change() Timer1.Interval=1000-HScroll1.Value End Sub Private Sub Timer1_Timer() Static i As Integer If i=0 Then Image1.Picture=LoadPicture(“2.ico“) i=1 Else Image1.Picture=LoadPicture(“1.ico“) i=0 End If End Sub 第三步：调试并运行程序。 第四步：按
11、题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。按钮标题由 Caption来设置；在 “属性 ”窗口中通过 Picture属性来设置图像框的图片。控件的大小由 Width属性和 Height属性来设置， Width决定控件的宽， Height决定控件的高度，可在属性窗口中直接设置，也可在程序运行中用代码来设置。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性设置见表 12-4。 第二步：编写程序代码。 程序提供的代码： Private Sub C1_Click() If Image1.Height 3000 Or Image1.Width 30
12、00 Then Image1.Height=Image1.?+500 Image1.Width=Image1.Width+500 End If End Sub Private Sub C2_Click() If Image1.Height 1000 Or Imagel.Width 1000 Then Image.Height=Image1.Height-500 Image1.Width=Image1.Width ? 500 End If End Sub 参考代码： Private Sub C1_Click() If Image1.Height 3000 Or Image1.Width 3000
13、 Then Image1.Height=Image1.Height+500 Image1.Width=Image1.Width+500 End If End Sub Private Sub C2_Click() If Image1.Height 1000 Or Image1.Width 1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End If End Sub 第三步：调试并运行程序 第四步：按题目要求存盘 三、综合应用题（ 30分） 3 【正确答案】 列表框用于 在很多项目中作出选择的操作。列表
14、框的 ListCount属性表示表项的数量，列表项的排列从 0开始，最后一项的序号为 ListCount-1。使用列表项的 Selected属性来表示列表框中哪些项被选中，该属性实际上是一个数组，各元素与列表框中的一项相对应，其取值为 True或 False，为 True时表示选择了该项，为 False表示未选择。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim i As Integer For i=0 TO L1.LiStCount-1 L1.?=True Next End Sub Private Sub C2_Click() Dim
15、 i As Integer Open “out7.txt“ For Output As #1 For i=0 To L1.ListCount-1 L1.ListIndex= Print #1, L1.?, L1.Selected(i)=False Next Close #1 End Sub 参考代码： Private Sub C1_Click() Dim i As Integer For i=0 To L1.ListCount-1 L1.Selected(i)=True Next End Sub Private Sub C2_Click() Dim i As Integer Open “out7.txt“ For Output As #1 For i=0 To L1.ListCount-1 L1.ListIndex=i Print #1, L1.Text, L1.Selected(i)=False Next Close #1 End Sub 第二步：调试并运行程序 第三步：按题目要求存盘
