1、二级 VISUAL+BASIC-44 (1)及答案解析(总分：18.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：-1.00)1.注意：下面出现的“”均为 C：/wexam/25160002。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，然后通过“属性”窗口设置窗体和文本框的属性，实现如下功能：在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“程序设计”，显示的字体为三号规则黑体；窗体的标题为“设置文本框属性”。完成设置后的窗体如图 24-1 所示
2、。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。(2) 在名称为 Form1 的窗体上画两个命令按钮，如图 24-2 所示，其名称分别为 Cmd1 和 Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2 倍。程序的运行情况如图 24-3 所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（
3、分数：-1.00）_二、B2 简单应用题/B(总题数：1，分数：20.00)2.在考生文件夹下有一个工程文件 sjt3.vbp，及其窗体文件 sjt3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示“您按下了鼠标的左键”；如果用鼠标的右键按住窗体，并在其上移动，则显示“您按下了鼠标的右键”。程序运行时的窗体界面如图所示。 要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。 试题源程序： 1 Private Sub Form_MouseMove(Button As Integer, ShiftAs Integer，X As Single，Y As S
4、ingle) 2 If Button=?Then Print “您按下了鼠标的左键“ 3 If Button=?Then Print “您按下了鼠标的右键“ 4 End Sub （分数：20.00）_三、B3 综合应用题/B(总题数：1，分数：-1.00)3.下面出现的“考生文件夹”均为 c:/wexam/25160001。 在考生文件夹中有工程文件 sjt5.vbp 及其窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1 的窗体上有一个文本框，名称为
5、 Text1，MuitiLine 属性为 True，ScrollBars 属性为 2，两个命令按钮，名称分别为 Cmd1和 Cmd2，标题分别为“读入数据”和“排序显示保存”，如图 4-6 所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的 100 个整数，放入一个数组中(数组下界为 1)：如果单击“排序显示保存”按钮，则对这 100 个整数按从小到大进行排序，把排序后的全部数据在文本框 Text1 中显示出来，然后存入考生文件夹中的文件“result.txt”中(在程序中的标准模块 prog.bas 过程可以把指定个数的数组元素存入 result.txt 文件)。 注
6、意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，排序结果存入 result.txt 文件，否则没有成绩。 （分数：-1.00）_二级 VISUAL+BASIC-44 (1)答案解析(总分：18.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：-1.00)1.注意：下面出现的“”均为 C：/wexam/25160002。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1) 在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，然后通过“属性”窗口设置窗体和文本框的属性，实现如下
7、功能：在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“程序设计”，显示的字体为三号规则黑体；窗体的标题为“设置文本框属性”。完成设置后的窗体如图 24-1 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。(2) 在名称为 Form1 的窗体上画两个命令按钮，如图 24-2 所示，其名称分别为 Cmd1 和 Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来
8、的 2 倍。程序的运行情况如图 24-3 所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：-1.00）_正确答案：(解析 在窗体上建立好控件后，设置控件的属性。在 Visual Basic 中，文本框的多行显示由 MultiLine 属性设置，垂直滚动条由 ScrollBars 属性设置，文本框中显示信息由 Text 属性设置，字体由 Font 属性设置。窗体的标题由 Caption 属性设置。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 24-1。表 24-1 控 件 属 性
9、设 置 值文本框MultiLineScrollBarsTextFontTrue2-Vertical程序设计黑体 规则 三号窗体 Caption 设置文本框属性第二步：调试并运行程序。第三步：按题目要求存盘。(2) 解析 在窗体上建立控件后，先设置控件的属性，再编写事件过程。单击命令按钮触发 Click 事件。利用按钮的 Height 和 Width 属性，来改变按钮的大小；利用按钮的Left 和 Top 属性，来改变按钮的位置。解题步骤：第一步：建立控件并设置其属性。程序中用到的控件及其属性见表 24-2。表 24-2 控 件 属 性 设 置 值按钮 Caption Cmd1按钮 Captio
10、n Cmd2第二步：编写程序代码。参考代码：Option ExplicitPrivate Sub Cmd1_Click()Cmd1.Left=0Cmd1.Top=0End SubPrivate Sub Cmd2_Click()Cmd2.Height=Cmd2.Height*2Cmd2.Width=Cmd2.Width*2End Sub第三步：调试并运行程序。第四步：按题目要求存盘。答案考生文件夹)解析：二、B2 简单应用题/B(总题数：1，分数：20.00)2.在考生文件夹下有一个工程文件 sjt3.vbp，及其窗体文件 sjt3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗
11、体上显示“您按下了鼠标的左键”；如果用鼠标的右键按住窗体，并在其上移动，则显示“您按下了鼠标的右键”。程序运行时的窗体界面如图所示。 要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。 试题源程序： 1 Private Sub Form_MouseMove(Button As Integer, ShiftAs Integer，X As Single，Y As Single) 2 If Button=?Then Print “您按下了鼠标的左键“ 3 If Button=?Then Print “您按下了鼠标的右键“ 4 End Sub （分数：20.00）_正确答案：(第
12、一步：启动 Visual Basic，打开考生文件夹下的工程文件 sjt3.vbp。 第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下： 第一个?处填入 AddItem。 第二个?处填入L1.ListIndex。 第三步：填写完毕，调试成功后，以原文件名保存。)解析：解析 本题主要考查列表框的 AddItem 和 RemoveItem 方法的使用和 ListIndex 属性的概念。 AddItem 方法用于在程序代码中向列表框中添加一个选项。具体格式为：列表框名.AddItem 选项内容字符串,索引值。此方法可将某个字符串作为选项内容插入到列表框数组中的指定位置，由索引值说明该字符
13、串插入到数组中的下标值。如果省略“索引值”则文本被放入列表框的尾部。此方法只能每次向列表框中加入一个选项。 RemoveItem 方法用来删除列表框中指定的项目，其格式为：列表框.RemoveItem 索引值。使用 RemoveItem 方法后从列表框中删除以“索引值”为地址的项目，该方法每次只能删除一个项目。ListIndex 属性的设置值是已选中的表项的位置。表项位置由索引值指定，第 1 项的索引值为 0，第 2 项为 1，依次类推。如果没有选中任何项，ListIndex 的值为-1。在程序中设置 ListIndex 后，被选中的条目反相显示。 在本题中要求单击按钮后，将文本框中的内容添加
14、到列表框中，因此要使用列表框的AddItem 方法。当单击列表框中的某一项时立即将该项删除，就要使用列表框的 RemoveItem 方法，索引值是选中项的索引值，因此用 ListIndex 表示。三、B3 综合应用题/B(总题数：1，分数：-1.00)3.下面出现的“考生文件夹”均为 c:/wexam/25160001。 在考生文件夹中有工程文件 sjt5.vbp 及其窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1 的窗体上有一个文本框，名称为 T
15、ext1，MuitiLine 属性为 True，ScrollBars 属性为 2，两个命令按钮，名称分别为 Cmd1和 Cmd2，标题分别为“读入数据”和“排序显示保存”，如图 4-6 所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的 100 个整数，放入一个数组中(数组下界为 1)：如果单击“排序显示保存”按钮，则对这 100 个整数按从小到大进行排序，把排序后的全部数据在文本框 Text1 中显示出来，然后存入考生文件夹中的文件“result.txt”中(在程序中的标准模块 prog.bas 过程可以把指定个数的数组元素存入 result.txt 文件)。 注意：
16、文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，排序结果存入 result.txt 文件，否则没有成绩。 （分数：-1.00）_正确答案：(分析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。 文本框显示的内容由Text 属性设置：按钮的标题由 Caption 属性没置，单击命令按钮触发 Click 事件：在本题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用 Input#语句读取数据，另外需要注意的是对文件操作完后，一定要关闭文件。解题步骤： 第一步：建立界面并没置控件属性。程序中用到的控件及其属性见表 4-4。 * 第二步：编写程序代
17、码。 程序提供的代码。 标准模块代码： Sub putdata(a() As Integer, n As Integer) Dim sFile As String sFile = “/result.txt“ Open App. Path Next Close #1 End Sub 窗体代码： Option Explicit Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer Open “in.txt“ For Input As #1 For j = 1 To 100 ? #1, i(j) Text1.Text
18、 = Text1.Text & i(j) & Space(5) Next Close #1 End Sub Private Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = ? For k = 1 To 100 - j If i(k) i(k + 1) Then temp = i (k) i(k) = i(k + 1) i(k + 1) = temp flag = True End If Next If Not fl
19、ag Then Exit For End If Next Text1.? = “ For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next putdata i, 100 End Sub 参考代码： Option Explicit Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer Open “in.txt“ For Input As #1 For j = 1 To 100 Input #1, i(j) Text1.Text = Text1.
20、Text & i(j & Space(5) Next Close #1 End Sub Private Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = False For k = 1 To 100 - j If i(k) i(k + 1) Then temp = i (k) i(k) = i(k + 1) i(k + 1) = temp flag = True End If Next If Not flag Then Exit For End If Next Text1.Text = “ For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next putdata i, 100 End Sub 第三步：调度并运行程序。第四步：按题目要求存盘。)解析：
