[教育学]计算机三级网络技术机试一百套

[教育学]计算机三级网络技术机试一百套内容摘要：

处填入 ： 2 第 3个。 处填入 ： ＋ 第 4个。 处填入 ： ＋ 步骤 3： 调试并运行程序 ， 关闭程序后按题目要求存盘。 第四套 一、基本操作 （ 1）在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮，标题为 打开文件 ，再添加一个名称为 CD1的通用对话框。 程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码： ①设置适当属性，使对话框的标题为 打开文件 ； ②设置适当属性，使对话框的 文件类型 下拉式组合框中有两项可供选择： 文本文件 、所有文件 (如图所示 )，默认的类型是 所有文件 ； ③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。 要求：程序中不得使用变量，事件过程中只能写一条语句。 （ 2）在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮，其标题为 移动本按钮 ，如图所示。 要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动 100。 要求：程序中不得使用变量，事件过程中只能写一条语句。 (1) 【操作步骤】 步骤 1：新建一个窗体，在窗体中设置一个命令按钮和一个通用对话框。 在属性窗口中设置控件的属性，控件的属性见表。 表 控件 命令按钮 属性 Name Caption 设置值 Command1 打开文件 步骤 2：编写程序代码。 参考答案 Private Sub Command1_Click() End Sub 步骤 3： 调试并运行程序 ， 保存工程 ， 设置工程文件名为 ,设置窗体文件名为。 (2) 【操作步骤】 步骤 1：新建一个窗体，在窗体中添加一个命令按钮。 命令按钮的属性见表。 表 控件 命令按钮 属性 Name Caption 设置值 Command1 移动本按钮 步骤 2：编写程序代码。 参考答案 Private Sub Command1_Click() = 100 End Sub 步骤 3：调试并运行程序，保存工程，设置工程文件名为 ,设置窗体文件名为。 二、简单应用 （ 1）在名称为 Form1的窗体上添加一个名称为 Label标题为 添加项目： 的标签；添加一个名称为 Text1的文本框，初始内容为空；添加一个名称为 Combo1的下拉式组合框，并通过属性窗口输入若干项目 (不少于 3个，内容任意 )；再添加两个命令按钮，名称分别为Command Command2，其标题分别为 添加 、 统计。 在程序运行时，向 Text1中输入字符，单击 添加 按钮后，则将 Text1中的内容作为一个列表项被添加到组合框的列表中；单击 统计 按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。 请编写两个命令按钮的 Click事件过程。 （ 2）在考生文件夹下有一个工程文件 ，其窗体如图所示。 该程序用来对在上面的文本框中输入的英文字母串 (称为 明文 )加密，加密结果 (称为 密文 )显示在下面的文本框中。 加密的方法为：选中一个单选按钮，单击 加密 按钮后，根据选中的单选按钮后面的数字 n，将 明文 中的每个字母改为它后面的第 n个字母 (z后面的字母认为是 a， Z后面的字母认为是 A )，如图所示。 窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置控件属性。 程序中用到的控件及属性设置见表 和 步骤 2：分析并编写程序代码。 参考答案 Private Sub Command1_Click() Text1 End Sub Private Sub Command2_Click() Print End Sub 步骤 3： 调试并运行程序 ， 关闭程序后按题目要 求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k = 0 To 2 If Op1(k)． Value Then 39。 n = Val(Op1(k). ? ) End If Next k m = Len() a = 39。 For k = 1 To ? 39。 c = Mid$(, ? , 1) c = String(1, Asc(c) + n) If c z Or c Z And c a Then c = String(1, Asc(c) 26) End If 39。 = a + c Next k = a End Sub 程序结束 参考答案 第 1个。 处填入 ： Caption 第 2个。 处填入 ： m 第 3个。 处填入 ： k 第 4个。 处填入： a 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用 在考生文件夹下有一个工程文件 ，窗体上有两个文本框，名称分别为 TextText2，都可以多行显示。 还有三个命令按钮，名称分别为 C C C3，标题分别为 取数 、排序 、 存盘。 取数 按钮的功能是将考生文件夹下的 50个整数读到数组中，并在 Text1中显示出来； 排序 按钮的功能是对这 50个数按升序排序，并显示在 Text2中；存盘 按钮的功能是把排好序的 50个数存到考生目 录下的。 如图所示。 在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 排序 按钮的 Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。 最后将修改后的文件按原文件名存盘。 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(50) As Integer Private Sub C1_Click() Dim k As Integer, ch As String Open For Input As 1 ch = For k = 1 To 50 39。 Input 1, ? ch = ch + Str(a(k)) + Next k Close 1 39。 = ? End Sub Private Sub C2_Click() End Sub Private Sub C3_Click() Open For Output As 1 Print 1, Close 1 End Sub 程序结束 参考答案 第 1个。 处填入： a(k) 第 2个。 处填入： ch 排序 按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = For i = 50 To 2 Step 1 For j = 1 To 49 If a(j) a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j)) + Next j = ch End Sub 步骤 3： 调试并运行程序 ， 关闭程序后按题 目要求存盘。 第五套 一、基本操作 （ 1）在名称为 Form1的窗体上画两个标签 (名称分别为 Label1和 Label2，标题分别显示为 姓名 和 年龄 )、两个文本框 (名称分别为 Text1和 Text2，初使内容均为空 )和一个命令按钮 (名称为 Command1，标题为 显示 )。 然后编写命令按钮的 Click事件过程。 程序运行后，在两个文本框中分别输入姓名和年龄，然后单击 显示 按钮，则在窗体上显示两个文本框中的内容，如图所示。 要求程序中不得使用任何变量。 （ 2）在名称为 Form1的窗体上画一个图片框，其名称 为 Picture一个水平滚动条，名称为 HScroll1，和一个命令按钮，名称为 Command1，标题为 设置属性 ，通过属性窗口在图片框中装入一个图形 (文件名为 ，位于考生目录下 )，图片框的高度与图形的高度相同，图片框的宽度任意 (如图 1所示 )。 编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性： Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通过移动滚动条上的滚动块来放大或缩 小图片框。 程序运行后的窗体如图 2所示。 要求程序中不得使用任何变量。 (1)【操作步骤】 步骤 1：新建一个窗体，在窗体中添加两个标签，两个文本框和一个命令按钮。 步骤 2：按照步骤 1设置其他控件相关属性，程序用到的控件及其属性见表。 表 控件 标签 1 标签 2 属性 Name Caption Name Caption 设置值 Label1 姓名 Label2 年龄 表 控件 文本框 1 文本框 2 命令按钮 属性 Name Text Name Text Caption 设置值 Text1 Text2 显示 步骤 3：编写程序代码。 参考答案 Private Sub Command1_Click() amp。 ,现年 amp。 amp。 岁 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步 骤】 步骤 1：新建一个窗体，在窗体上添加一个图片框，一个水平滚动条和一个命令按钮。 步骤 2：设置窗体中控件的属性，控件的属性见表。 表 步骤 3：编写程序代码。 参考答案 Private Sub Command1_Click() = 1500 = 100 = 100 = 10 End Sub Private Sub HScroll1_Change() = End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用 （ 1）在考生文件夹下有一个工程文件 (相应的窗体文件名为 )，在窗体上添加一个名称为 List1的列表框和一个名称为 Text1的文本框，如图 1所示。 编写窗体的MouseDown事件过程。 程序运行后，如果用鼠标左键单击窗体，则从键盘上输入 要添加到列表框中的项目 (内容任意，不少于三个 )；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。 程序的运行情况如图 2所示。 这个程序不完整，请把它补充完整，并能正确运行。 （ 2）在考生文件夹下有一个工程文件 (相应的窗体文件名为 )，其功能是通过调用过程 FindMin求数组的最小值。 程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来 (如图所示 )。 (1)【操作步骤】 步骤 1：打开本题工程文件，在窗 体中添加一个列表框和一个文本框，按照表 设置控件属性。 表 控件 列表框 文本框 属性 Name Name 设置值 List1 Text1 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then = InputBox(请输入要添加的项目 ) 39。 ? End If If Button = 2 Then。