根据本讲学习内容，综合运用TableLayout、Button、TextView进行界面布局，以及掌握按钮的点击事件监听。 （1）创建一个计算器，界面如附件所示，可以完成带小数的加、减、乘、除四则运算。 （2）del按钮可以删除一个字符，C按钮可以清除输入的整个表达式。 （3）提交的作业包中包含应用程序的运行效果截图和源代码。 （4 ) 界面效果如附件所示。

正确答案：按以下步骤操作： ① 启动Visual Basic在窗体上画1个水平滚动条和3个命令按钮。 ② 按F4键激活属性窗口在属性窗口中设置3个命令按钮的属性见表1。 ③ 编写3个命令按钮的事件过程； Private sub C1_Click() HS1.Value＝HS1.Min End Sub Private sub C2_Click() HS1.Value=HS1.Max/2 End Sub Private sub C3_Click() HS1.Value=HS1.Max End Sub 2．① 对象主要属性设置如表2所示。 ② 分析：按试题要求在窗体上画一个命令按钮并将它的属性按表2的内容进行设置。 Caption属性用来定义对象的标题将空字符串赋值给Caption即可清除Caption中的内容。 ③ 编程代码： Private Sub C1_Click() Form1.Caption＝"" End Sub
按以下步骤操作： ① 启动Visual Basic，在窗体上画1个水平滚动条和3个命令按钮。 ② 按F4键激活属性窗口，在属性窗口中设置3个命令按钮的属性，见表1。 ③ 编写3个命令按钮的事件过程； Private sub C1_Click() HS1.Value＝HS1.Min End Sub Private sub C2_Click() HS1.Value=HS1.Max/2 End Sub Private sub C3_Click() HS1.Value=HS1.Max End Sub 2．① 对象主要属性设置如表2所示。 ② 分析：按试题要求在窗体上画一个命令按钮，并将它的属性按表2的内容进行设置。 Caption属性用来定义对象的标题，将空字符串赋值给Caption，即可清除Caption中的内容。 ③ 编程代码： Private Sub C1_Click() Form1.Caption＝"" End Sub

正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在窗体建立一个文本框Text1将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮名称分别为 Command1、Command2和Command3标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮弹出代码窗口在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1a Loop Close #1 End Sub (5)双击“计算”按钮弹出代码窗口在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1 a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令将工程文件命名为ylc.vbp窗体文件命名为 ylc.frm。
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。 (3)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为 Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1，a Loop Close #1 End Sub (5)双击“计算”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1, a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。 解析：(1)该题与上机模拟题十二在基本操作上类似，都考查了文件的读入操作并在文本框中输出；对顺序文件的读入和输出的操作等。(2)该题重点考查了利用冒泡算法对数组元素进行排序。

正确答案：1．操作步骤 (1)在Visual Basic集成环境中选择“文件”→“打开工程”命令在对话框中选择 ylc6.vbp工程文件单击“确定”按钮打开。 (2)选择工具中的ComboBox控件在窗体中画命名为Comboll的组合控件。在属性窗口分别设置它们的名称、Text属性为空。 (3)在属性编辑框中设置Comboll组合控件的List属性其初始数据为“语文”、“数学”、“英语”、“物理”、“化学”、“生物”、“历史”、“政治”和“地理”。 (4)在工具箱中选择命令按钮控件在窗体上拖动创建并命名为Command1标题为“确定”。 2．行为编码 在代码框选择Command1对象和Click事件代码如下： Private Sub Command1_Click() For i=0 To Combol. ListCount-1 If Combol.List(i)=Combol.Text Then '清除输入内容 Combol.Text=" " MsgBok("已有此项") End If Next i End Sub 3．存盘保存 执行“文件”→“保存工程”命令工程文件名为ylc6.vbp窗体文件名为ylc6.frm。
1．操作步骤 (1)在Visual Basic集成环境中选择“文件”→“打开工程”命令，在对话框中选择 ylc6.vbp工程文件，单击“确定”按钮打开。 (2)选择工具中的ComboBox控件，在窗体中画命名为Comboll的组合控件。在属性窗口分别设置它们的名称、Text属性为空。 (3)在属性编辑框中设置Comboll组合控件的List属性，其初始数据为“语文”、“数学”、“英语”、“物理”、“化学”、“生物”、“历史”、“政治”和“地理”。 (4)在工具箱中选择命令按钮控件，在窗体上拖动创建并命名为Command1，标题为“确定”。 2．行为编码 在代码框选择Command1对象和Click事件，代码如下： Private Sub Command1_Click() For i=0 To Combol. ListCount-1 If Combol.List(i)=Combol.Text Then '清除输入内容 Combol.Text=" " MsgBok("已有此项") End If Next i End Sub 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。 解析：(1)这是一道简单的应用题，主要考查ComboBox控件的相关特性、数据的初始化、项目的多少、程序设计中循环结构的编程，以及程序中提示信息对话框的使用。
(2)代码中使用组合控件的ListCount属性，得到控件数据的个数，使用Comboll的 List属性得到Comboll内某项字符中的值。在For...Next循环中将输入的字符串与Comboll内的字符串逐个比较。如果输入的字符串在控件中已存在，则使用MsgBox信息捉示框显示提示信息。

正确答案：
procedureTForm1.Table1AfterScroll(DataSet:TDataSet);beginquery1.Close;//根据当前系计算学生数query1.ParamByName('dno').Value:=table1['dno'];query1.Open;query2.Close;//根据当前系显示学生记录query2.ParamByName('dno').Value:=table1['dno'];query2.Open;end;procedureTForm1.Button1Click(Sender:TObject);//上一记录begintable1.Prior;end;procedureTForm1.Button2Click(Sender:TObject);//下一记录begintable1.Next;end;

答案：D

解析：

参考答案C

正确答案：168.0.1
168.0.1 解析：这是一道要求读者掌握DHCP服务器动态地址转换IP地址配置的实际操作题。本题的解答思路如下。
用鼠标右键单击“NAT/基本防火墙”并选择“属性”菜单，然后选中“地址指派”选项卡，进入如图8-8所示的配置界面。选中配置界面中“使用DHCP自动分配IP地址”复选框，在IP地址栏中填入“192.168.0.0”，掩码栏中填入“255.255.255.0”，即DHCP服务器分配给客户机的动态IP地址范围为 192.168.0.14～192.168.0.254，而IP地址192.168.0.1已静态分配给DHCP服务器的内网卡，即IP地址 192.168.0.1是内部局域网的网关地址。为避免DHCP服务器将192.168.0.1分配给客户机而出现网络IP地址冲突现象，需在图2-27所示的“地址指派”选项卡的配置对话框中，单击“排除”按钮，在弹出的对话框中，输入该IP地址，即(3)空缺处填写的内容是“192.168.0.1”。

正确答案：只需选中“VPN访问”复选框
只需选中“VPN访问”复选框 解析：这是一道要求读者熟悉Windows 2003 VPN服务器配置操作的分析理解题。本题的分析思路如下。
1)根据题干的关键信息“该公司已有一台对公网仅开放FTP服务的Windows 2003服务器”可知，该FTP服务器是公网上的一台普通的服务器，不具有路由功能。同时，从如图1-13所示的网络拓扑图中可看出，该FTP服务器是单网卡的，因此在如图1-28所示的配置界面中，选中“自定义配置(C)”单选按钮。
2)同理由题干的关键信息“该公司已有一台对公网仅开放FTP服务的Windows 2003服务器，现决定通过这台FTP服务器搭建一个VPN虚拟专用网”可知，在试题描述中图1-16所示的配置界面中只需要 VPN的功能，因此在该配置界面中只需选中“VPN访问”复选框。
3)接着单击图1-16所示的配置界面中的[下一步]按钮，系统将弹出含有“您已成功完成路由和远程访问服务器安装向导”的配置界面，最后可单击[完成]按钮来关闭此安装向导。
4)接着系统将弹出“路由和远程访问服务器现在已被安装。要开始服务吗?”提示窗口，单击[是]按钮，即可启动VPN服务。启动了VPN服务后的“路由和远程访问”界面如图1-29所示。

正确答案：
第1处：btn．addActionListener(this)
第2处：Double．parseDouble(display．getText（　　）)
【解析】第1处为按钮添加监听器；第2处获得输入数字并转化为double型。

正确答案：
通过RadioGroup1的Items属性设置两个单选按钮（“男”和“女”），并将属性Column设置为2（按钮摆两列）。通过ComboBox1的Items属性设置下拉选单中的系名。通过ListBox1的Items属性设置列表框中的职称列表。“确定”按钮的单击事件处理程序如下：procedureTForm1.Button1Click(Sender:TObject);beginmemo1.Lines.Add(edit1.Text);ifradiogroup1.ItemIndex=0thenmemo1.Lines.Add('男')elsememo1.Lines.Add('女');memo1.Lines.Add(combobox1.Text);memo1.Lines.Add(listbox1.Items[listbox1.itemindex]);end;