【计算机类职业资格】二级VISUAL+BASIC机试-112及答案解析.doc

1、二级 VISUAL+BASIC 机试-112 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上画一个命令按钮，名称为 Cmd1，其标题为“向右移动本按钮”。编写适当的事件过程，使得程序运行时，每单击命令按钮一次，按钮向右移动 100。程序运行时的窗体界面如下图所示。（分数：15.00）_2.在名称为 Form1 的窗体上画一个命令按钮，名称为 Cmd1，标题为“扩大两倍”。编写适当的事件过程，程序运行后，如果单击 Cmd1 命令按钮，则可以使命令按钮的长度和宽度各扩大到原来的 2 倍。注意：不得使用任何变

2、量。程序运行时的窗体界面如下图所示。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjr3.vbp，相应的窗体文件为 sjt3.frm。在窗体上有一个名称为Text1 的文本框，其 Muhiline 属性为 True。程序运行后，如果单击窗体，则用随机函数产生 16 个 0 到99 的整数，并按 4 行 4 列的矩阵形式在文本框中显示出来，然后在文本框中输出矩阵对角线上的数。程序运行的情况如下图所示。这个程序不完整，请把它补充完整，并能正确运行。（分数：20.00）_4.在考生文件夹下有一个工程文件 sjt4.vbp，窗体上有两个文本

3、框、三个单选按钮和一个命令按钮。运行时，在 Text1 中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放在 Text2 中(如下图所示)。在给出的文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的部分改为正确的内容。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在名称为 Form1 的窗体上建立一个文本框 Text1 和两个命令按钮 Cmd1 和 Cmd2，标题分别为“读入数据”和“排序显示保存”(如图所示)。程序运行后，如果单击“读入数据”按钮，则读入 in006.txt 文件

4、中的100 个整数，放入一个数组中(数组下界为 1)；如果单击“排序显示保存”按钮，则对这 100 个整数按从大到小进行排序，把排序后的全部数据在文本框 Text1 中显示出来，然后存入考生文件夹的 out006.txt中。要求考生调用考生文件夹下的标准模块保存数据。（分数：30.00）_二级 VISUAL+BASIC 机试-112 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上画一个命令按钮，名称为 Cmd1，其标题为“向右移动本按钮”。编写适当的事件过程，使得程序运行时，每单击命令按钮一次，按钮向右移

5、动 100。程序运行时的窗体界面如下图所示。（分数：15.00）_正确答案：(第一步：建立工程和添加窗体单击考试界面的“功能”选项，从弹出的菜单中选择“启动应用程序”选项。启动 Visual Basic 后，在“新建工程”对话框中选择“新建”项口中的“标准 EXE”，然后单击“打开”按钮，建立一个新的工程文件，里面会同时自动建立一个名为 Form1 的窗体文件。第二步：设计窗体单击工具箱上的 CommandBox 控件图标，在窗体上拖拉出一个命令按钮；在其属性窗口中，Name 属性设置为 Cmd1，Caption 属性设置为“向右移动本按钮”。第三步：编写代码双击 Cmd1 命令按钮，在弹出的

6、代码窗口中，输入以下语句：1 Private Sub Cmd1_Click( )2 Cmd1.Left=Cmd1.Left+1003 End Sub第四步：保存。程序设计完成经调试无误后进行存盘。执行“文件”菜单中的“保存工程”命令，打开“文件另存为”对话框，窗体文件名为“sjt1.form”，单击保存按钮。然后在紧接着出现的“工程另存为”对话框中选择工程文件名为“sjt1.vbp”，单击“保存”按钮。)解析：解析 Left 属性用来确定控件在窗体的位置。坐标为距离窗体左边的值。在“Cmd1.Left=Cmd1.Left+100”的语句的编写中，“Cmd1.Lef1”与“100”没有先后之分。

7、语句也可以写为“Cmd1.Left=100+Cmd1.Left”。与 Left 属性相对应的是 Top 属性，用来确定控件距离窗体顶边的距离。2.在名称为 Form1 的窗体上画一个命令按钮，名称为 Cmd1，标题为“扩大两倍”。编写适当的事件过程，程序运行后，如果单击 Cmd1 命令按钮，则可以使命令按钮的长度和宽度各扩大到原来的 2 倍。注意：不得使用任何变量。程序运行时的窗体界面如下图所示。（分数：15.00）_正确答案：(第一步：建立工程和添加窗体单击考试界面的“功能”选项，从弹出的菜单中选择“启动应用程序”选项。Visual Basic 启动后，在“新建工程”对话框中选择“标准 EX

8、E”选项，单击“打开”按钮，新建一个工程文件，里面会同时建立一个名为 Form1 的窗体文件。第二步：设计窗体单击工具箱中的 CommandBox 控件图标，在窗体上拖拉出一个命令按钮。在其属性窗口中，Name 属性设置为 Cmd1，Caption 属性设置为“扩大两倍”。第三步：编写代码双击 Cmd1 命令按钮，在弹出的代码窗口中，输入以下语句：1 Private Sub Cmd1_Click( )2 Cmd1.Width=Cmd1.Width+Cmd1.Width3 Cmd1.Height=Cmd1.Height+Cmd1.Height4 End Sub第四步：保存。程序设计完成经调试无误

9、后进行存盘。以 sjt2.vbp 和 sjt2.frm 进行保存。)解析：解析 Height 和 Width 属性用来设置控件的高度和宽度。在编写程序代码语句的时候，可以将原来的值相加。由于 Height 和 Width 的值被默认为数值，因此也可以使用乘法。即为：1 Private Sub Cmd1_Click( )2 Cmd1.Width=Cmd1.Width*23 Cmd1.Height=Cmd1.Height*24 End Suh二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjr3.vbp，相应的窗体文件为 sjt3.frm。在窗体上有一个名称为

10、Text1 的文本框，其 Muhiline 属性为 True。程序运行后，如果单击窗体，则用随机函数产生 16 个 0 到99 的整数，并按 4 行 4 列的矩阵形式在文本框中显示出来，然后在文本框中输出矩阵对角线上的数。程序运行的情况如下图所示。这个程序不完整，请把它补充完整，并能正确运行。（分数：20.00）_正确答案：(第一步：启动 Visual Basic 程序，打开考生文件夹下的工程文件。第二步：单击窗体中任何位置，进入代码编辑状态，完善程序如下：1 Dim S As String, T As String2 N=43 M=44 Randomize5 S=“初始矩阵为：“6 For

11、j=1 To N7 S=S & vbCrLf8 For j=1 To M9 Mat(i，j)=Int(Rnd*100)10 S=S & Mat(i, j) & “11 Next j12 Next i13 S=S & vbCrLf & “矩阵对角线上的数为：“& vbCrLf14 Print15 T=“16 For i=1 To N17 For j=1 To M18 If i=j Then i. T=T & Mat(i，j) & “19 End If20 Next j21 Next i22 Text1.Text=S+T23 End Sub第三步：单击启动键运行成功，按考试要求将文件保存在考生文件

12、夹下。)解析：解析 本题要求将随机函数产生的 099 之间的 16 个随机数按 4 行 4 列形式显示在文本框中，同时显示对角线上的数。第一个?处应为：Mat(i，j)，将随机数存在一个数组 Mat(i，j)中。第二个?处应为：S=S & Mat(i，j)&“，将 Mat(i，j)中的数存在变量 S 中。第三个?处应为：i=j，数组的行号和列号相同，即为对角线的位置。第四个?处应为：T=T & Mat(i，j)&“，将对角线上的数存在变量 T 中。4.在考生文件夹下有一个工程文件 sjt4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Text1 中输入若干个大写和小写字

13、母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放在 Text2 中(如下图所示)。在给出的文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的部分改为正确的内容。（分数：20.00）_正确答案：(第一步：启动 Visual Basic 程序，打开考生文件夹下的工程文件。第二步：双击窗体中的任何位置，进入代码编辑窗口，完善程序如下：1 Private Sub Command1_Click( )2 Dim n As Integer, k As Integer, ch As String, a As String3 n=Len(Text1.

14、Text)4 ch=5 For k=1 To n6 a=Mid $ (Text1.Text，k，1)7 If Option1.Value=True Then8 If a=“a“ And a =“z“ Then9 ch=ch+UCase(a)10 Else If a=“A“ And a=“A“ Then11 ch=ch+LChse(a)12 Else13 ch=ch+a14 End If15 End If16 If Option2.Value=TrueThen17 ch=UCase(Text1)18 End If19 If Option3.Value=TrueThen20 ch=LCase(Te

15、xt1)21 End If22 Next k23 Text2=ch24 End Sub第三步：单击启动键运行成功，按考试要求将文件保存在考生文件夹下。)解析：解析 本题通过选中不同的单选按钮来实现文本框中字母的大小写转换。以单选按钮的值作为条件，用一个条件语句即可实现。Mid$(字符串，p，n)中部截取函数，从第 p 个字符开始向后截取 n 个字符。n 省略时，将从 P 开始截取到字符串的末尾。在 for 循环中，要判断字符串中的每一字符的大小写，所以要截收每一个字符，所以有a=Mid$(Text1.Text，k，1)来依次截取文本框中字符串的每一个字符。当选中大写换小写，小写换大写时，如果经

16、判断原字符为大写，则将它改为小写，所以有：ch=ch+LCase(a)。LCase(字符串)函数把字符串中的大写字母改为小写字母。转换结果存放在文本框 Text2 中，所以结束循环后有 Text2=ch。三、3 综合应用题(总题数：1，分数：30.00)5.在名称为 Form1 的窗体上建立一个文本框 Text1 和两个命令按钮 Cmd1 和 Cmd2，标题分别为“读入数据”和“排序显示保存”(如图所示)。程序运行后，如果单击“读入数据”按钮，则读入 in006.txt 文件中的100 个整数，放入一个数组中(数组下界为 1)；如果单击“排序显示保存”按钮，则对这 100 个整数按从大到小进行

17、排序，把排序后的全部数据在文本框 Text1 中显示出来，然后存入考生文件夹的 out006.txt中。要求考生调用考生文件夹下的标准模块保存数据。（分数：30.00）_正确答案：(第一步：设计窗体首先打开考生文件夹下的 mode006.bas 文件。然后单击工具箱中的文本框与控制按钮，在窗体上拖拉出两个控制按钮与文本框，控件间的相对位置如图所示。文本框的 Name 属性使用默认值；控制按钮的 Name 属性分别为 Cmd1 和 Cmd2，Caption 属性设为“读入数据”和“排序显示保存”。注意，为了完全显示所有的数据，应将 Text1 的 MultiLine 属性设为 True，Scro

18、llBars 属性设为 2，表示 Text1 可以使用垂直滚动条多行显示数据。第二步：编写代码双击控制按钮进入代码窗口，编写如下程序：1 Option Explicit2 Dim i(i To 100)As Integer3 Private Sub Cmd1_Click( )4 Dim j As Integer5 Open App. Path &“/in006.txt“For Input As #16 For j=1 To 1007 Input #1，i(j)8 Text1.Text=Text1.Text &i(j) & Space(5)Next10 Close #111 End Sub12

19、Private Sub Cmd2_Click( )13 Dim j As Integer14 Dim k As Integer15 Dim temp As Integer16 Dim flag As Boolean17 For j=1 To 10018 flag=False19 For k=1 To 100-j20 If i(k)i(k+1)Then21 temp=i(k)22 i(k)=i(k+1)23 i(k+1)=temp24 flag=True25 End If26 Next27 If Not flag Then28 Exit For29 End If30 Next31 Text1.T

20、ext=“32 For j=1 To 10033 Text1.Text=Text1.Text & i(j) & Space(5)34 Next35 putdata i，10036 End Sub第三步：编写完后，运行程序进行调试，确定没有问题后，分别保存窗体文件与工程文件到考生文件夹下。然后执行一次完整的操作，把经过排序的数列保存到 out006.txt。)解析：解析 注意在设计控件时，一定要把 Text1 的 MuhiLine 属性设为 True，ScrollBars 属性设为2。只有这样，文本框才可以多行显示。Cmd1 的程序代码部分主要是使用 For 循环语句逐一读入in006.txt 中的数据，并将它们赋给数组 i。Cmd2 的程序代码仍然是通过两个 If 语句循环使用“冒泡法”升序排列在 Text1 中显示的数据。