1、二级 VISUAL+BASIC 机试-16 及答案解析(总分：100.00，做题时间：90 分钟)1.在考生文件夹下完成如下简单应用：1在名称为 Form1 的窗体上画两个文本框，名称分别为 Text1、Text2，都没有初始内容，再画 3 个命令按钮，名称分别为 Command1、Command2、Command3，标题分别为“显示”、 “隐藏”、 “复制”。程序运行时，向 Text1 中输入的所有字符，都显示“*”。单击“显示”按钮后，在 Text1 中显示所有字符。再单击“隐藏”按钮后，Text1 中的内容不变但显示的都是“?”。单击“复制”按钮后，把 Text1 中的实际内容复制到 T
2、ext2 中，如图 25 所示。（分数：50.00）_2.有一个工程文件 ylc6.vbp。请在窗体上画一个文本框，其名称为 Text1；画一个命令按钮，名称为Command1，标题为“确定”。再画 5 个单选按钮，名称分别为 option1、Option2、 Option3、Option4和 Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”，如图 26 所示。编写适当事件过程。选中一个单选按钮，并单击“确定”按钮，按照表 3-1 在文本框中显示相应的内容。（分数：50.00）_二级 VISUAL+BASIC 机试-16 答案解析(总分：100.00，做题时间：90
3、 分钟)1.在考生文件夹下完成如下简单应用：1在名称为 Form1 的窗体上画两个文本框，名称分别为 Text1、Text2，都没有初始内容，再画 3 个命令按钮，名称分别为 Command1、Command2、Command3，标题分别为“显示”、 “隐藏”、 “复制”。程序运行时，向 Text1 中输入的所有字符，都显示“*”。单击“显示”按钮后，在 Text1 中显示所有字符。再单击“隐藏”按钮后，Text1 中的内容不变但显示的都是“?”。单击“复制”按钮后，把 Text1 中的实际内容复制到 Text2 中，如图 25 所示。（分数：50.00）_正确答案：(1操作步骤(1)在 Vi
4、sual Basic 集成环境中选择“文件”“新建工程”命令，在“新建工程”对话框中选择“标准EXE”选项，单击“确定”按钮。(2)在工具箱中选择 Label 控件，在窗体上创建两个 Label 控件。在属性窗口中设置名称分别为Label1、Label2，Caption 属性为“口令 1”、“口令 2”。(3)选择工具箱中的 TextBox 控件，在窗体上创建，在属性窗口中设置名称为 Text1、 Text2，设置 Text属性为空。在属性窗口设置 Text1 的 PasswordChar 属性为“*”，这样在密码输入的时候 Text 文本显示为“*”。(4)选择工具箱中的命令按钮控件，在窗体
5、上用鼠标拖动创建三个命令按钮，名称分别为Command1、Command2、Command3，在属性窗口设置 Caption 属性为“显示”、“隐藏”、“复制”。2行为编码(1)在代码编辑器中选择 Command1 对象和 Click 事件，其行为代码如下：Private Sub Command1_Click()Text1.PasswordChar=“ “End Sub(2)在代码编辑器中选择 Command2 对象和 Click 事件，其行为代码如下：Private Sub Command2_Click()Text1.PasswordChar=“?“End Sub(3)在代码编辑器选择 Co
6、mmand3 对象和 Click 事件，其行为代码如下：Private Sub Command3_Click()Text2.Text=Text1.TextEnd Sub3存盘保存执行“文件”“保存工程”命令，工程文件名为 ylc5.vbp，窗体文件名为 ylc5.frm。)解析：解析 (1)本题通过不同的角度考查考生对 TextBox 控件的 PasswordChar 属性的设置、Text 属性的操作和使用。(2)设置 Text1 的 PasswordChar 属性为“?”，表示显示在 Text1 的文本框中的文本都以“?”符号代替。(3)由于 Text2 没有设置 PasswordChar
7、属性，因此文本在 Text2 中以明文的形式显示出来。2.有一个工程文件 ylc6.vbp。请在窗体上画一个文本框，其名称为 Text1；画一个命令按钮，名称为Command1，标题为“确定”。再画 5 个单选按钮，名称分别为 option1、Option2、 Option3、Option4和 Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”，如图 26 所示。编写适当事件过程。选中一个单选按钮，并单击“确定”按钮，按照表 3-1 在文本框中显示相应的内容。（分数：50.00）_正确答案：(操作步骤(1)在 Visual Basic 集成环境选择“文件”“打开工程”
8、命令，在对话框中选择 ylc6.vbp 工程文件，单击“确定”按钮打开。(2)在工具箱中选择 TextBox 控件，在窗体中创建命名为 Text1。在属性窗口分别设置属性为空。(3)从工具箱中选择选项控件，在窗体中拖动创建，在属性窗口分别命名为 Option1、 Option2、Option3、Option4 和 Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”。(4)通过工具箱创建命令按钮，命名为 Command1，标题为“确定”。2行为编码补充后 Command1 对象的 Click 事件的完整代码如下：Private Sub Command1_Click()I
9、f Option1.Value ThenText1.Text=“需要 1 小时“End IfIf Option2. Value ThenText1.Text=“需要 10 小时“End IfIf Option3.Value ThenText1.Text=“需要 20 小时“End IfIf Option4.Value ThenText1.Text=“需要 100 小时“End IfIf Option5.Value ThenText1.Text=“需要 500 小时“End IfEnd Sub3存盘保存执行“文件”“保存工程”命令，工程文件名为 yle6.vbp，窗体文件名为 ylc6.frm。)解析：解析 (1)这是一道简单的应用题，主要考查 OptionButton 控件的应用能力。在编程中使用判定的控制流程，显示出不同的结果信息。(2)上面的控制流程使用 3 个 If.Then.End If，分别判断 3 个单选按钮是否被选中。判断后在文本框中显示相应的信息。
