在1上画一个文本框(Text1)画一个命令按钮(C1),标.doc

基础题（1）【考点分析】本题考点有：文本框的Name、Text属性，命令按钮的Name、Caption、TabIndex、Cancel属性。【解题思路】通过属性出口将文本框的Name属性设为Text1，并通过属性窗口将命令按钮的Name设为C1，Caption设为显示。当按下Esc键时，可以调用命令按钮的Click事件过程，应将TabIndex属性设为0，同时将Cancel属性（用来指示命令按钮是否为取消按钮）设为True。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.207。步骤2：编写程序代码。参考答案Private Sub C1_Click() Text1.Text = 等级考试End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。基础题（2）【考点分析】本题考点有：文本框的的Name、Text、Visible属性和菜单编辑器的使用（名称、标题和内缩符号）。【解题思路】通过属性出口将文本框的Name属性设为Text1，并通过菜单编辑器建立起菜单。单击显示子菜单项的时候，将等级考试赋给文本框；单击隐藏紫菜按时，将文本框的Visible属性设为False。【操作步骤】步骤1：建立界面，添加一个名称为Text1的文本框，并用菜单编辑器建立如下表3.209所示的菜单。步骤2：编写程序代码。参考答案Private Sub Dis_Click() Text1.Text = 等级考试End SubPrivate Sub Hid_Click() Text1.visible= FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（1）【考点分析】本题考点有：标签的Name、Text属性，命令按钮的Name、Caption属性，框架的Name、Caption属性，单选按钮的Name、Caption、Value属性及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True，即某个单选按钮是否被选中来显示标签中的内容。一般地，我们认为Value属性是单选按钮的默认属性。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.209和3.210。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer) Open App.Path & out3.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Lab1.Caption Close #1End Sub程序结束参考答案 If Op1 And Op3 Then Lab1.Caption = 坐飞机去广州 ElseIf Op1 And Op4 Then Lab1.Caption = 坐飞机去昆明 ElseIf Op2 And Op3 Then Lab1.Caption = 坐火车去广州 ElseIf Op2 And Op4 Then Lab1.Caption = 坐火车去昆明End If步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（2）【考点分析】本题考点有：文本框的Name、Text属性，单选按钮的Name、Caption、Visible属性，&连接符以及窗体的Click事件。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择交换单选按钮并单击窗体时，通过一个文本变量a将文本框1和文本框2的内容交换，将单选按钮的Visible属性值设为False使得按钮消失，并使文本框3的Text属性值为交换成功；选择连接单选按钮并单击窗体时，用&连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.211。步骤2：分析并编写程序代码。程序提供代码Private Sub Form_Click() 需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer) Open App.Path & out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Text3.Text Close #1程序结束参考答案If Op1 Then Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = 交换成功 ElseIf Op2 Then Text3.Text = Text1.Text & Text2.Text End If步骤3：调试并运行程序，关闭程序后按题目要求存盘。【考点分析】本题考点有：App.Path相对路径，Option Base数组下标，文件操作，Print方法，二维数组定义以及For循环语句。综合题【解题思路】数组的定义格式为： Dim数组名(下界To上界)As类型名。其中，数组的下界和类型是可选的。所谓下界和上界，就是数组下标的最小值和最大值。缺省下界时，VB默认的下界是0，语句Option Base 1的作用是限定数组下标的下限默认为1。本题代码先定义一个数组，然后以输入方式打开文件in5.txt，并在一个嵌套的For循环中用Input #将数据文件中的数据读入并赋值给每个数组元素。然后再通过一个嵌套的For循环将数组Mat中的数据在窗体上按5行、5列的矩阵形式显示出来，接着再用一个For循环将数组Mat中的第一行和第三行元素交换。最后将交换后的数组Mat中的数据再按5行、5列的矩阵形式在窗体上显示出来。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码 Option Base 1Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(M, N) As Integer Dim i, j, t Open App.Path & & datain.txt For Input As #1 For i = 1 To N For j = 1 To M Input #1, Mat%(i, j) Next j Next i Close #1 Print Print 初始矩阵为： Print For i = 1 To N For j = 1 To M Print Tab(5 * j); Mat(i, j); Next j Print Next i Print Print For i = 1 To N For j = 1 To M t = Mat(1, j) Mat(1, j) = Mat(3, j) Mat%(3, j) = t Next j