1、二级 VISUAL+BASIC-37 (1)及答案解析(总分：65.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在名称为 Form1 的窗体上画一个名称为 VScroll1 的垂直滚动条，其刻度值范围为 1200；画一个命令按钮，名称为 Command1、标题为“向下移动”。请编写适当的事件过程，使得程序运行时每单击命令按钮一次(假定单击次数少于 10 次)，滚动块向下移动 20 个刻度。程序运行时的窗体界面如下图所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为
2、sj2.frm。 （分数：15.00）_二、B2 简单应用题/B(总题数：1，分数：20.00)2.在考生文件夹下有工程文件 sj3.vbp 及窗体文件 sj3.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个 Label 控件和两个名称分别为 Command1 和 Comrnand2，标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮后，能将下图给出的菱形写入考生文件夹下的 shape.dat 文件中；执行完毕，“开始”按钮变成“完成”
3、，且无效(变灰)。程序运行界面如下图右图所示。 （分数：20.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件 djks024.vbp，其窗体上有一个文本框，名称为 Text1，可以多行显示；有一个名称为 ComDia 的通用对话框；还有三个命令按钮，名称分别为 Cmd1、Cmd2、Cmd3，标题分别为“打开”、“转换”、“存盘”。如下图所示。 命令按钮的功能是：单击“打开”按钮，弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的 in024.txt 文件后，该文件中的内容显示在 Text1 中；单击“转换”按钮，程序将把
4、Text1 中的所有小写英文字母转换成大写，所有大写字母转换为小写；单击“存盘”按钮，把 Text1 中的内容存入考生文件夹下的 out024.txt 文件中。窗体模块中的程序是不完整的。请去掉程序中的注释符，把程序中的?改为正确的内容。但不能修改程序的其他部分，也不能修改控件的属性。 注意： 考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in024.txt 文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的 out024.txt 文件中，否则无成绩。 程序运行时的窗体界面如下图所示。 （分数：30.00）_二级 VISUAL+BASIC-37 (1)答案解析(总分：65.
5、00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在名称为 Form1 的窗体上画一个名称为 VScroll1 的垂直滚动条，其刻度值范围为 1200；画一个命令按钮，名称为 Command1、标题为“向下移动”。请编写适当的事件过程，使得程序运行时每单击命令按钮一次(假定单击次数少于 10 次)，滚动块向下移动 20 个刻度。程序运行时的窗体界面如下图所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。 （分数：15.00）_正确答案：(本题主要考查滚动
6、条(HScrollBar)控件的画法、属性设置及简单事件的编写。 滚动条多用于取代数据的键盘输入，通过调整滚动条滑块的位置，印可改变其 Value 属性的值。滚动条的 Max 属性、Min 属性限定了滚动条所能表示的最大值和最小值，即 Value 属性值的取值范围，在程序中改变 Value 属性的值，滚动条滑块会随之移动到相应位置。 根据题意，新建“标准 EXE”工程，将一个垂直滚动条控件和一个命令按钮添加到窗体中，垂直滚动条的名称为 VScroll1、Min 属性为 1、Max 属性为 200，命令按钮的名称为 Command1、Caption 属性为“向下移动”。双击命令按钮进入代码窗口，
7、编写如下代码： Private Sub Command1_Click() VScroll1.Value=VScroll1.Value+20 每按一次按键，则 VScroll 的数值加 20 End Sub 单击*按钮运行程序，并按要求保存。)解析：二、B2 简单应用题/B(总题数：1，分数：20.00)2.在考生文件夹下有工程文件 sj3.vbp 及窗体文件 sj3.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个 Label 控件和两个名称分别为 Comma
8、nd1 和 Comrnand2，标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮后，能将下图给出的菱形写入考生文件夹下的 shape.dat 文件中；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如下图右图所示。 （分数：20.00）_正确答案：(根据题意，将两个命令按钮和一个标签添加到窗体中，标签的 Caption 属性为“编写打印到目标文件的菱形。目标文件为 shape.dat”，命令按钮的 Caption 属性分别设为“开始”和“关闭”，名称分别为 Command1 和 Command2，双击 Cornmand1。利用循环打印空格和字母“A”来画
9、出菱形，进入代码窗口，补充后的代码如下： Private Sub Command1_Click() Open“shape5.dat“ For Output As#1 打开文件，准备写入 Dim n As Integer Dim i As Integer Dim str As String For n=0 To 4 打印菱形上半部分 str=“ “ For i=0 To 4-n 打印空格 str=str+“ “ Next i For i=0 To 2*n 打印字母“A” str=str+“A“ Next i Print # 1，str$ Next n For n=5 To 8 打印下半部分 st
10、r=“ “ For i=0 To Un-4/U 打印空格 str=str+“ “ Next i For i=0 To U2*(8-n)/U 打印字母“A” str=str+“A“ Next i Print # 1，str$ Next n Close#1 Command1.UEnabled/U=False Command1.UCaption/U=“完成“ End Sub Private Sub Command2_Click() UUnload Me/U End Sub 单击*按钮运行程序，并按要求保存。)解析：三、B3 综合应用题/B(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文
11、件 djks024.vbp，其窗体上有一个文本框，名称为 Text1，可以多行显示；有一个名称为 ComDia 的通用对话框；还有三个命令按钮，名称分别为 Cmd1、Cmd2、Cmd3，标题分别为“打开”、“转换”、“存盘”。如下图所示。 命令按钮的功能是：单击“打开”按钮，弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的 in024.txt 文件后，该文件中的内容显示在 Text1 中；单击“转换”按钮，程序将把 Text1 中的所有小写英文字母转换成大写，所有大写字母转换为小写；单击“存盘”按钮，把 Text1 中的内容存入考生文件夹下的 out024.txt 文件
12、中。窗体模块中的程序是不完整的。请去掉程序中的注释符，把程序中的?改为正确的内容。但不能修改程序的其他部分，也不能修改控件的属性。 注意： 考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in024.txt 文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的 out024.txt 文件中，否则无成绩。 程序运行时的窗体界面如下图所示。 （分数：30.00）_正确答案：(第一步：单击考试界面的“功能”选项，从弹出的菜单中选择“启动应用程序”选项。Visual Basic 启动后，打开考生文件夹下的工程文件。 第二步：双击窗体的任何部分，进入程序编写窗口，补充代码如下： 第一个?
13、处填 2 第二个?处填 1 第三个?处填 FileName 第四个?处填 string 第五个?处填 2 第三步：填写完毕，删除“”符号，调试程序，确定无误后，将工程与窗体按照原来的文件名保存在考生文件夹下。)解析：解析 本题有三个过程，Cmd1 过程通过通用对话框打开一个文件。第二个?处填 1。对于通用对话框 Action 值选择 1 时，表示通用对话框为打开文件对话框，当 Action 值为 2 时表示保存文件对话框。故第五个?处填 2。 FileName 属性是返回在打开文件对话框中选中的文件。第三个?处填 FileName，表示被选中的文件名。注意，通用对话框本身并不能打开文件，它起到
14、的作用仅仅是指明了文件的路径。打开文件还需使用 Open 语句。Cmd3 中的事件过程原理也是一样，通用对话框指定了保存文件的名称out024.txt，但保存文件仍然要使用 Open 以及 Print 语句。 Cmd2 的事件过程主要原理是通过 Mid()函数与 For 循环语句的配合使用，逐一读出文本框中的字符串中的字符，赋给 c，如果 C 满足条件 c=“a“And c=“z“，表明 c 为小写字母，此时可以通过 String(1，Asc(c)-n)函数将小写字母转换为大写字母；通过 String(1，Asc(e)+n)将大写字母转换为小写字母。故第四个?处填 String。 由于本题默认的打开文件为 txt 文件类型，所以要将 FilterIndex 属性设为 2。
