1、二级 VISUAL+BASIC-34 及答案解析(总分：65.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在窗体上拖拉出一个文本框，名称为 Txt1，Text 属性为空白。再画一个列表框，名称为 Lst1，通过属性窗口向列表框中添加 4 个项目，分别为“aaaa”、“bbbb”、“cccc”和“dddd”(如下图所示)。编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。 程序运行时的窗体界面如下图所示。 （分数：15.00）_二、B2 简单应用题/B(总题数：1，分数：20.00
2、)2.在考生文件夹中有一个工程文件 sj3.vbp，相应的窗体文件名为 sj3.frm。请在名为 Form1 的窗体上绘制一个名称为 Text1 的文本框和一个名称为 Cmd1、标题为“大小写转换”的命令按钮，如下图所示。 在程序运行时，单击“大小写转换”按钮，可以把 Text1 中的大写字母转换为小写，把小写字母转换为大写。窗体文件中 已经给出了“大小写转换”按钮的 Click 事件过程，但不完整，请去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容。注意：不能修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。 （分数：20.00）_三、B3 综合应用题/B(总题数：
3、1，分数：30.00)3.在考生文件夹下有一个工程文件 sjt5.vbp，窗体上有 2 个文本框，名称为 Text1、Text2，都可以多行显示；还有 3 个命令按钮，名称分别为 c1、c2、c3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的 in5.dat 文件中的 50 个整数读到数组中，并在 Text1 中显示出来；“排序”按钮的功能是对这 50 个数按升序排序，并显示在 Text2 中；“存盘”按钮的功能是把排好序的50 个数存到考生目录下的 out5.dat 文件中。如图 5 所示。在窗体中已经给出了全部控件和部分程序。 （分数：30.00）_二级 VI
4、SUAL+BASIC-34 答案解析(总分：65.00，做题时间：90 分钟)一、B1 基本操作题/B(总题数：1，分数：15.00)1.在窗体上拖拉出一个文本框，名称为 Txt1，Text 属性为空白。再画一个列表框，名称为 Lst1，通过属性窗口向列表框中添加 4 个项目，分别为“aaaa”、“bbbb”、“cccc”和“dddd”(如下图所示)。编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。 程序运行时的窗体界面如下图所示。 （分数：15.00）_正确答案：(第一步：建立工程和添加窗体。 单击考试界面的“功能”选
5、项，从弹出的菜单中选择“启动应用程序”选项。启动 Visual Basic 后，在“新建工程”对话框中选择“新建”项目中的“标准 EXE”，然后单击“打开”按钮，建立一个新的工程文件，里面会同时自动建立一个名为 Form1 的窗体文件。 第二步：设计窗体。 单击工具箱中的 ListBox 控件图标，然后在窗体上拖拉出一个列表框，通过属性窗口设计其 Name 属性为 Lst1，通过设置 List 属性为列表框添加“aaaa”、“bbbb”、“cccc”和“dddd”四个列表项，按 Ctrl+Enter 组合键换行。单击工具箱中的 TextBox 控件图标，然后在窗体上拖拉出一个文本框，通过属性窗
6、口设置其 Name 属性为 Txt1，Text 属性为空。 第三步：编写代码： 在弹出的代码窗口中，输入如下程序语句： 1 Private Sub Lst1_DblClick() 2 Lst1.AddItem Txt1.Text 3 End Sub 第四步：保存。 (1)解析：解析 本题主要考查列表框的 AddItem 方法，用来在列表框中插入一行文本。另外，注意本题的触发事件是 DblClick，而不是 Click。二、B2 简单应用题/B(总题数：1，分数：20.00)2.在考生文件夹中有一个工程文件 sj3.vbp，相应的窗体文件名为 sj3.frm。请在名为 Form1 的窗体上绘制一
7、个名称为 Text1 的文本框和一个名称为 Cmd1、标题为“大小写转换”的命令按钮，如下图所示。 在程序运行时，单击“大小写转换”按钮，可以把 Text1 中的大写字母转换为小写，把小写字母转换为大写。窗体文件中 已经给出了“大小写转换”按钮的 Click 事件过程，但不完整，请去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容。注意：不能修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。 （分数：20.00）_正确答案：(打开题目所给工程文件； 单击工具箱 ee 的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为 Text1； 单击
8、工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，Caption 属性为“大小写转换”； 将注释语句改为： n%=Asc(“a“)-Asc(“A“) Text1.Text=a$ 按要求保存文件即完成本题。)解析：三、B3 综合应用题/B(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件 sjt5.vbp，窗体上有 2 个文本框，名称为 Text1、Text2，都可以多行显示；还有 3 个命令按钮，名称分别为 c1、c2、c3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的 in5.d
9、at 文件中的 50 个整数读到数组中，并在 Text1 中显示出来；“排序”按钮的功能是对这 50 个数按升序排序，并显示在 Text2 中；“存盘”按钮的功能是把排好序的50 个数存到考生目录下的 out5.dat 文件中。如图 5 所示。在窗体中已经给出了全部控件和部分程序。 （分数：30.00）_正确答案：(操作步骤 第 1 步：打开工程文件 sjt5.vbp。 第 2 步：分析并修改源程序。 1a(k) 2ch “排序”按钮的参考代码如下： Private Sub C2_Click( ) 考生应编写的程序 For i=1 To 49 For j=1 To 50-i If a(j)a(
10、j+1) Then t=a(j) a(j)=a(j+1) a(j+1)=t End If Next j Next j For j=1 To 50 ch=ch+Str(a(i)+“ Next i Text2=ch End Sub 第 3 步：调试、运行并保存程序。)解析：解析 程序首先打开文件 in5.dat，并从文件中读取数据，从读取语句的下一行“ch=ch+Str(a(k)+“”可以看出，将读取的数据连接到 ch 的后面，连接的内容为 a(k)，所以读取语句 Input 中的变量应该是 a(k)。文件内容读取结束后，文件的所有内容都连接到变量 ch 中，将 ch 赋值给 Text1.Text 即可在文本框中显示出文件的内容。 排序可采用多种方法，如选择法、冒泡法等。
