在考生文件夹中有工程文件execise83.vbp及窗体文件execise83.finn。在名为Form1的窗体中有一个名为Image1的图像框,有一个名为Timer1的计时器,有一个名为HS1的滚动条,还有一个名为Cmd1、标题为Begin的命令按钮。要求程序运行后,单击Begin按钮,则图像框中的图片根据计时器中设定的时间间隔交替变更,如果改变滚动条中滚动框的位置,则图片交替变换的速度也随之变化(如下图所示)。本程序不完整,请补充完整,并能正确运行。要求:去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonD
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗口中有一个Text文本框控件,名称为Textl;一个Label标签;名称为Labell;一个命令按钮,名称为Commandl;标题为“读入文件”。要求程序运行后,单击Commandl将in.txt的内容显示到Textl中,并统计Textl中有多少个字符,将结果显示在Labell中。程序运行时的窗体界面如图31—3所示。注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有一个工程文件sj4.vbp,相应的窗体文件名为sj4.frm,求数组的中间值。程序运行后,单击“读入”按钮,通过输入对话框输入5个整数,然后单击“取中间值”命令按钮,即可求出数组的中间值,并在名称为Labell的标签上显示出来,如图31—4所示。请把程序补充完整,并能正确运行。注意:去掉程序中的注释符“'”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
下列语句的输出结果是【 】。 Print Format$(1256,"000,000.00")
在考生文件夹中有一个工程文件execise24.vbp,相应的窗体文件为execise24.frm。在名为Form1的窗体上有一个命令按钮,其名称为Cmd1,标题为“添加”;有一个文本框,名为Text1,初始内容为空白;此外还有一个列表框,其名称为List1。程序运行后,如果在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个空格分开),然后单击命令按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框中,如下图所示。该程序不完整,请补充完整。要求:去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其能正确运行,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为HSl)。在属性窗口中对滚动条设置如下属性:Min500Max2000LargeChange50SmallChange20编写适当的事件过程,使程序运行后,若移动滚动条上的滚动框,则可扩大或缩小文本框的高度,并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为execise58.vbp,窗体文件名为execise58.frm。
在窗体中有一个名为Commandl的命令按钮,并编写有以下代码。程序执行时,单击命令按钮,输出的结果为( )。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10:m=m/10 End Sub Private Sub Commandl_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x,Y) Print x;y End Sub
全局变量必须在【 】模块中定义。
在考生文件夹中有一个工程文件execise36.vbp,相应的窗体文件名为execise36.fiano其窗体(Form1)如下图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法是:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,把明文中的每个字母改为它后面的第打个字母(“z”后面的字母认为是“a”,“2”后面的字母认为是“A”)。窗体中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符“'”把程序中的问号“?”改为正确的内容。注意:不能修改程序的其他部分和控件的属性。最后,按原文件名并在原文件夹中保存修改后的文件。
在考生文件夹中有工程文件execise64.vbp及其窗体文件execise64.frm。在名为Form1的窗体上有一个名称为Text1的文本框,还有两个名称分别为Chk1和Chk2、标题分别为“电子商务”和“物流”的复选框,一个名称为Cmd1、标题为“确定”的命令按钮。编写适当的事件过程,使程序运行后,如果只选中“电子商务”,然后单击“确定”命令按钮,则在文本框中显示“学习电子商务”;如果只选中“物流”,然后单击“确定”命令按钮,则在文本框中显示“学习物流”;如果同时选中“电子商务”和“物流”,然后单击“确定”命令按钮,则在文本框中显示:“学习电子商务和物流”(如下图所示):如果“电子商务”和“物流”都不选,然后单击“确定”命令按钮,则在文本框中什么都不显示。本程序不完整,请补充完整,并能正确运行。要求:去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
在考生文件夹中有一个工程文件execise107.vbp及窗体文件execise107.frm。在名为Form1的窗体上已经绘制出所有控件,如下图所示。在运行时,如果单击Move按钮,则窗体上的汽车图标每0.1秒向右移动一次(初始状态下不移动);如果单击Stop按钮,则停止移动。要求:(1)设置适当控件的适当属性,使得汽车图标每0.1秒向右移动一次,而初始状态下不移动。(2)请去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容。(3)为两个命令按钮编写适当的事件过程。最后以原文件名保存。注意:不得修改已经给出的程序。编写的事件过程中不能使用变量,每个事件过程中只能有一条语句。
大部分控件都没有的属性是 ______。
随机文件使用Put语句写数据,使用【 】语句读数据。
在考生文件夹下有一个工程文件sj5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Textl的文本框;画一个名称为Commandl、标题为“计算显示”的命令按钮;再画两个单选按钮,名称分别为Optionl和Option2、标题分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能被6整除的数的个数”,如图62—5所示。请编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算显示”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮来完成。在结束程序运行之前,必须至少要进行一种计算,否则不得分。
(1)在窗体上建立一个二级菜单,该菜单含有“文件”和“编辑”(名称分别为vbFile和vbEdit)两个主菜单项,其中“文件”菜单包括“打开”、“保存”和“关闭”三个子菜单项(名称分别为vbOpen、vbSave和vbclose),如图8一1所示。只建立菜单,不必定义其事件过程。注意:保存时必须存放在考生文件夹下,窗体文件名为sj1.frm,工程文件名为sjl.vbp。(2)在名为Form1的窗体上画一个框架,名称为Frame1,标题为“框架”,高度为2500,宽度为3500,框架内建立一文本框,距左边框500,距框架的上边框1000,文本框中的初始内容设置为“文本框”。运行界面如图8—2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
在窗体Form1上建立3个菜单(名称分别为vbRead、vbCalc和vbSave,标题分别为“读数”、“计算”和“保存”),然后绘制一个文本框(名称为Text1,MultiLine属性设置为Tree,ScrollBars属性设置为2),如下图所示。程序运行后,如果执行“读数”命令,则读入in49.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果执行“计算”命令,则把该数组中小于50的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果执行“保存”命令,则把所求得的和存入考生文件夹下的out49.txt文件中。在考生文件夹下有一个工程文件execise49.vbp,考生可以装入该文件。窗体文件execise49.frm中的ReadData过程可以把in49.txt文件中的100个整数读入Arr数组中:而WriteData过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得,文件名为out49.txt)。注意:考生不得修改窗体文件中已经存在的程序。保存时,工程文件名仍为execise49.vbp,窗体文件名仍为execise49.frm。
3下面程序的运行结果是()。OptionBase1PrivateSubCommandl_Crick()Dimx,y(3,3)x=Array(1,2,3,4,5,6,7,8,9)Fori=1To3Forj=1To3y(i,j)=(i*j)If(j>=i)ThenPrinty(i,j);NextjPrintNextiEndSub
设有如下通用过程: Public Sub Fun(a()As Integer,x As Integer) For i=1 To 4 x=x*a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim arr(5)As Integer,n As Integer n=1 For i=1 To 4 art(i)=i+i Next Fun alT,n Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图1-173所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以纵向或横向运动(通过选择单选按钮来决定),碰到矩形的边时,则向相反方向运动,单击“停止”按钮,则停止运动,如图1-174所示。可以选择单选按钮随时改变运动方向。已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不得修改已经存在的内容和控件属性,最后把修改后的文件按原文件名存盘。
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:32437658281298573142536475869713243546576879805937程序运行后,单击窗体,将把文件datain.txt中的数据输入到二维数组Mat中,在窗体上按5行、5列的矩阵形式显示出来,然后计算矩阵第三行各项的和,并在窗体上显示出来,如图1-124所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。