1、二级 VISUAL+BASIC 机试-58 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 c:/wexam/25160001。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Form1 的窗体上建立一个名称为 Text1 的文本框，一个名称为 Cmd1，标题为“输出”的命令按钮，如图 4-1 所示。要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中的文字。注意：在程序中不能使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为
2、sjt1.frm，工程文件名为 sjt1.vbp。(2)在名称为 Form1 的窗体上建立两个名称分别为 Cmd1 和 Cmd2，标题为“按钮一”和“按钮二”的命令按钮，如图 4-2 所示。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合，如图 4-3 所示。注意：在程序中不得使用任何变量(必须通过属性设置来移动控件)。保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp（分数：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2. （分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3
3、 （分数：30.00）_二级 VISUAL+BASIC 机试-58 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.注意：下面出现的“”均为 c:/wexam/25160001。请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Form1 的窗体上建立一个名称为 Text1 的文本框，一个名称为 Cmd1，标题为“输出”的命令按钮，如图 4-1 所示。要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中的文字。注意：在程序中不能使用任何变量。保存时必须存放在考生
4、文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。(2)在名称为 Form1 的窗体上建立两个名称分别为 Cmd1 和 Cmd2，标题为“按钮一”和“按钮二”的命令按钮，如图 4-2 所示。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合，如图 4-3 所示。注意：在程序中不得使用任何变量(必须通过属性设置来移动控件)。保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp（分数：30.00）_正确答案：(解析在窗体上建立好控件后，先设置控件属性，再编写事件过程。通过命令按钮的 Caption 属性
5、来设置其标题，单击命令按钮触发 Click 事件；文本框显示内容是用 Text属性。文本框中的内容通过其 Text 属性得到，在命令按钮的 Click 事件中利用 Print 方法将文本框中的内容输出，完成题目要求。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 4-1。*第二步：编写程序代码。参考代码：Private Sub Cmd1_Click()ClsPrint Text1.TextEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2)解析在窗体上建立好控件后，先设置控件的属性，再编写事件过程。命令按钮的 Caption 属性用来设置其标题，单击命令
6、按钮触发 Click 事件，本题考查的是按钮的摆放位置的设置，涉及到对象的 Left 和 Top 属性。Left 表示控件与所在窗体的左边之间的距离，Top 表示控件与所在窗体的顶边之间的距离。让两个按钮位置重合只需将两个按钮的 Left 和 Top 设置相同即可。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 4-2。*第二步：编写程序代码。参考代码：Private Sub Cmd1_Click()Cmd2.Left = Cmd1.LeftCmd2.Top = Cmd1.TopEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。答案考生文件夹)解析：二、2
7、简单应用题(总题数：1，分数：40.00)2. （分数：40.00）_正确答案：(解析在窗体上建立好控件后，先设置控件属性，再编写事件过程。要使文本框中的字符用于算术运算，首先要利用 Val 将文本框中输入的数字字符转换为数字类型(文本框中的内容默认为字符串类型)。解题步骤：第一步：建立界面并设置控件属性。第二步：编写程序代码。程序提供的代码：Option ExplicitPrivate Sub C1_Click()Dim i As Integer，s As IntegerDim a As Integer，b As Integera = Val(Text1.Text)b = Val(Text2
8、Text)If ab Theni = aa = b b = ?End Ifs = 0For i = a To b s = s + ?Next iText3.Text = sEnd Sub参考代码：Option ExplicitPrivate Sub C1_Click()Dim i As Integer， s As IntegerDim a As Integer， b As Integera = Val(Text1.Text)b = Val(Text2.Text)If a b Theni = aa = bb = iEnd Ifs = 0For i = a To bs = s + iNext i
9、Text3.Text = sEnd Sub第三步：调试并运行程序。第四步：按题目要求存盘。(2)解析在窗体上建立好控件后，先设置控件的属性，再编写事件过程。命令按钮的 Caption 属性用来设置其标题，单击命令按钮触发 Click 事件：在文本框中显示内容通过其Text 属性来设置。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 4-3。*第二步：编写程序代码。标准模块代码：Option ExplicitSub putdata(t_FileName As String，t_Str As Variant)Dim SFile As StringSFile =“/“ Nex
10、tClose #1End Sub窗体代码：Option ExplicitDim i(1 To 100) As IntegerPrivate Sub Cmd1_Click()Dim j As IntegerOpen “in.txt“ For Input As #1For j = 1 To 100 ? #1, i(j)Text1.Text = Text1.Text & i(j) & Space(5)NextClose #1End SubPrivate Sub Cmd2_Click()Dim j As IntegerDim k As IntegerDim temp As IntegerDim fla
11、g As BooleanFor j = 1 To 100flag = ?For k = 1 To 100 - jIf i(k) i(k + 1) Thentemp = i (k)i(k) = i(k + 1)i(k + 1) = tempflag = TrueEnd IfNextIf Not flag ThenExit ForEnd IfNextText1.? = “For j = 1 To 100Text1.Text = Text1.Text & i(j) & Space(5)Nextputdata i, 100End Sub参考代码：Option ExplicitDim i(1 To 10
12、0) As IntegerPrivate Sub Cmd1_Click()Dim j As IntegerOpen “in.txt“ For Input As #1For j = 1 To 100Input #1, i(j)Text1.Text = Text1.Text & i(j & Space(5)NextClose #1End SubPrivate Sub Cmd2_Click()Dim j As IntegerDim k As IntegerDim temp As IntegerDim flag As BooleanFor j = 1 To 100flag = FalseFor k = 1 To 100 - jIf i(k) i(k + 1) Thentemp = i (k)i(k) = i(k + 1)i(k + 1) = tempflag = TrueEnd IfNextIf Not flag ThenExit ForEnd IfNextText1.Text = “For j = 1 To 100Text1.Text = Text1.Text & i(j) & Space(5)Nextputdata i, 100End Sub第三步：调度并运行程序。第四步：按题目要求存盘。)解析：
