资源预览内容
第1页 / 共5页
第2页 / 共5页
第3页 / 共5页
第4页 / 共5页
第5页 / 共5页
亲,该文档总共5页全部预览完了,如果喜欢就下载吧!
资源描述
(2)在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中待选城市下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图4(a)所示,单击选中按钮则把选中的项目移到List2中;单击显示按钮,则在Text1文本框中显示这些选中的城市,如图4(b)所示。已经给出了所有控件和程序,但程序不完整。要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (a) (b)图4【操作步骤】步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符,将问号?改为正确的内容。参考代码:For k = List1.ListCount - 1 To 0 Step -1List2.AddItem List1.List(k)List1.RemoveItem kText1 = Text1 & & List2.List(k)步骤2:按要求将文件保存至考生文件夹中。(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件,如图3所示。运行时,单击发射按钮,航天飞机图标将向上运动,速度逐渐加快,全部进入云中后则停止,并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Label1和Label2中;单击保存按钮,则把飞行距离、所用时间存入考生文件夹下的out4.txt文件中。文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。图3【操作步骤】步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符,将问号?改为正确的内容。参考代码:Timer1.Enabled = TrueTimer1.Enabled = Falsed = d Image1.Topt = t + 1步骤2:按要求将文件保存至考生文件夹中。步骤3:按键运行程序,先单击发射按钮,计算完毕后单击存盘按钮,最后单击窗体右上角的关闭按钮结束程序。三、综合操作题在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:32437658281298573142536475869713243546576879805937程序运行后单击窗体,将把文件datain.txt中的数据输入到二维数组Mat中,在窗体上按5行、5列的矩阵形式显示出来,并输出矩阵右上-左下对角线上的数据,如图4所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。图4【操作步骤】步骤1:打开本题对应工程文件sjt5.vbp。步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号?改为正确的内容。参考代码:Dim Mat%(M, N)Open App.Path & & in5.txt For Input As #1Input #1, Mat(i, j)If i + j = 6 Then步骤3:按要求将文件保存在考生文件夹中。(2)在考生文件夹下有一个工程文件sjt4.vbp,文件in4.txt中有5组数据,每组10个,依次代表语文、英语、数学、物理、化学这5门课程10个人的成绩。程序运行时,单击读入数据按钮,可从文件in4.txt中读入数据放到数组a中。单击计算按钮,则计算5门课程的平均分(平均分取整),并依次放入Text1文本框数组中。单击显示图形按钮,则显示平均分的直方图,如图4所示。窗体文件中已经有了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。图4【操作步骤】步骤1:打开考生文件下的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符,将问号?改为正确的内容。参考代码:Open App.Path & in4.txt For Input As #1s(i) = s(i) + a(i, j)s(i) = CInt(s(i) / 10)Shape1(k - 1).Top = m - Shape1(k 1). _ HeightShape1(k - 1).Visible = True步骤2:按要求将文件保存至考生文件夹中。(2)在名称为Form1的窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,名称为Label1、标题为文件名的标签和名称为Label2、BorderStyle为1的标签。窗体的标题设置为文件系统控件,如图2所示。请编写适当的程序,使得这三个文件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将选中的文件名显示在Label2中。注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。图2【操作步骤】步骤1:新建标准EXE工程,往窗体Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签,分别设置它们的相关属性,属性及其值如表2所示。表2步骤2:打开代码编辑窗口,输入如下代码:参考代码:Private Sub Dir1_Change() File1.Path = Form1.Dir1End SubPrivate Sub Drive1_Change() Dir1 = Me.Drive1End SubPrivate Sub File1_Click() Label2 = File1.FileNameEnd Sub步骤3:按要求将文件保存至考生文件夹中。三、综合操作题在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括三个字段,分别为姓名、电话和邮编,其名称、类型和长度如下:Name字符串8Tel字符串10PostLong窗体中有一个文本框和两个命令按钮。程序运行后,如果单击读入并显示记录按钮,则从考生文件夹下的in5.txt文件中读入所有记录并显示在文本框中(每条记录占一行,数据项的顺序是姓名、电话、邮编,如图5所示,可使用符号常量vbCrLf表示回车换行);若单击保存按钮则把文本框中的内容存入out5.txt文件中。要求:编写读入并显示记录按钮的Click过程。把文本框中所有字母改为大写字母(可手工修改)。单击保存按钮把修改后的文本框内容存盘,否则无成绩!(过程已给出,不能修改)。最后以原文件名保存放在考生文件夹下。图5【操作步骤】步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码:参考代码:Open App.Path & in5.txt For Random As #1 Len = Len(pal)For i = 1 To 5 Get #1, i, pal Text1.Text = Text1.Text & pal.Name Text1.Text = Text1.Text & pal.Tel Text1.Text = Text1.Text & Str(pal.Post) Text1.Text = Text1.Text + vbCrLfNextClose 1步骤2:按要求将文件保存至考生文件夹中。步骤3:按键键运行程序,先单击读入记录按钮,然后把文本框中把所有字母改为大写字母,再单击保存记录按钮。(2)在名称为Form1的窗体上画一个名称为Shape1的形状控件,画两个名称分别为Command1、Command2,标题分别为圆形、红色边框的命令按钮。将窗体的标题设置为图形控件,如图2(a)所示。请编写适当的事件过程,使得在运行时,单击圆形按钮将形状控件设为圆形。单击红色边框按钮,将形状控件的边框颜色设为红色(&HFF&),如图2(b)所示。注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。 (a) (b)图2【操作步骤】步骤1:新建一个标准EXE工程,在窗体Form1中画一个形状控件和两个命令按钮,并分别设置它们的相关属性,其属性及值如表2所示。表2步骤2:打开代码编辑窗口,编写两个命令按钮的单击事件过程。参考代码:Private Sub Command1_Click() Shape1.Shape = 3End SubPrivate Sub Command2_Click() Shape1.BorderColor = &HFF&End Sub步骤3:按要求将文件保存至考生文件夹中。三、综合操作题在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及程序。请完成以下工作:在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图5所示;建立下拉式菜单,见表1。表1窗体文件中给出了所有事件过程,但不完整,请去掉程序中的注释符,把程序中的?改为正确内容。以便实现以下功能:当光标所在的文本框中无内容时,剪切、复制不可用,否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容,则粘贴不能用,否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。注意:不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。图5【操作步骤】步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,选中窗体中的文本框Text3,将其Visible属性为False。步骤2:选择【工具】【菜单编辑器】命令,打开菜单设计器,如表4的内容建立窗体菜单。表4步骤3:打开代码编辑窗口,去掉程序中的注释符,将问号?改为正确的内容。参考代码:If which = 1 ThenIf which = 2 ThenText1.Text = Text1.Text + Text3.TextText2.Text = Text2.Text + Text3.Text步骤4:按要求将文件保存至考生文件夹中。(2)在名称为Form1窗体上,画一个名称为Image1的图像框,在其中显示考生文件夹下的图片pic2.jpg,并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条,名称分别为HScroll1、VScroll1,它们的刻度范围都是13。如图2(a)所示。要求如
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号