(1)在名称为Form1的窗体上画一个命令按钮,名称为commandl,标题为“缩小一半”。编写事件过程,程序运行后,如果单击Commandl命令按钮,则使Comrnandl按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图14—1所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sjl.frm,工程文件名为sj1.vbp。(2)在名称为Form1的窗体上画一个命令按钮和一个水平滚动条,其名称分别为Commandl和HScrolll。命令按钮的标题为“滚动条变长”。编写适当的事件过程,使得程序运行后,如果单击Commandl命令按钮,则使HScrolll水平滚动条的Width属性减小1000,Min属性为0,LargeChange的属性为100,SmallChange的属性为20,且Commandl不可用,移动滚动条,在窗体上显示滚动条的位置值。不得使用任何变量。程序运行时的窗体界面如图14—2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
下列程序段的执行结果为 a=5 For k=1 To 0 a=a * k Next k Print k;a
三种基本结构中,能简化大量程序代码行的是( )。
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有一个标题为“求n以内(包括n)所有奇数的和”的Label控件、一个Text控件和4个命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的奇数的累加和。本题要求刚启动工程时,“计算显示”和“清空”按钮均为灰色,可以在输入框内输入任意自然数(n值太大时,运算时间将很长,建议不超过9位)。在输入数的同时“计算显示”变为可用;当输入数后,“计算显示”变为禁用;当输入为非数值时,累加结果为o。单击“计算显示”可以在Textl中显示累加和,同时“计算显示”变灰,“清空”变为可用。单击“清空”按钮,输入框和显示框均被清空。如图19—3所示。注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序与控件结构是不完整的。本题描述如下:在窗体中有一个文本框控件,名称为Textl;两个命令按钮,名称分别为Commandl和Command2、标题分别为“读取文本”、“统计字数”;一个名称为Labell的标签控件。要求程序运行后,单击Commandl将考生文件夹下的sjin.txt的内容显示到Textl中;单击“统计字数”按钮统计Textl中有多少个字符,将结果显示在Labell中。程序运行时的窗体界面如图19—4所示。注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),同时补充完整需要的控件属性。存盘时不得改变文件名和文件夹。
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如下图所示。请填空。PfivaleSubCommaildl_C1iCk()DimkAshtegerDimsumAsSingle,maxAsSingle,minAsSingle
在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form_Click() Open“d:\Temptxte1.txt”.For:Input As#1 Do While Not______________。 Line Input#1.aspect$ wholes=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ ______________。 Open“d:\Temptext2.txt”For Output As#1 Print#1,______________。 Close#1 End Sub运行程序,单击窗体,将把磁盘文件Temptext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件Temptext2.txt。请填空。
下面程序的功能是将一个一维数组中的元素循环向右移动,每次移位次数由文本框Text中的输入决定。例如,数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动3次后,各元素的值依次为8,9,10,0,1,2,3,4,5,6,7。请将程序补充完整。 Private Sub MoveRight(x() As Integer) Dim i As Integer,j As Integer,k As Integer i=UBound(x) j=x(i) Fork=iTo_______________Step-1 _______________ Next k x(LBound(x))=J End Sub Private Sub Commandl_Click() Dim aAs Integer Dim iAs Integer,j As Integer,k As Integer For i=0 To 10 a(i)=i Next i j=Val(Text1.Text) k=0 Do k=k+1 Call MoveRight(a) LoopUntilk=j For i=0 To 10 Print a(i); Nexti End Sub
在名为Form1的窗体上绘制两个命令按钮,其名称分别为Cmd1和Cmd2。编写适当的事件过程,使程序运行后,若单击命令按钮Cmd1,则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现);如果单击命令按钮Cmd2,则可使该按钮在长度和宽度上各扩大到原来的3倍。程序的运行情况如下图所示。注意:不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为execise26.vbp,窗体文件名为execise26.frm。
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。 例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。 Private Sub Comnmnd1_Click() Dim a As Integer,n As Integer,Cout As Integer Dim Sn As Long,Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入a的值:”) n=InputBox(“请输入n的值!”) Do Tn=Tn * 10 + a Sn=Sn+Tn Cout=Cout+1 【 】 Debug. Print a,n,Sn End Sub
在考生文件夹中有一个工程文件execise108.vbp,相应的窗体文件为execise108.frm。在名为Form1的窗体中有一个名称为Cmd1,标题为“输出最小随机数”的命令按钮(如下图所示)。其功能是产生50个0~2000的随机整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮,即可求出其最小值,并在窗体上显示出来。本程序不完整,请补充完整,并能正确运行。要求:去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
有下列二叉树,对此二叉树中序遍历的结果是()。
(1)在窗体上画两个单选按钮,名称分别为Op1和Op2,标题分别为“黑体”和“楷体”;一个文本框,名称为Textl,字体为宋体,字号为四号字;有一个命令按钮,名称为C1,标题为“切换”。要求程序运行后,在文本框中输入“等级考试”,并选择一个单选按钮,如图55—4所示。在单击“切换”按钮后,会根据所选的单选按钮来切换文本框中所显示的汉字字体,如图55—5所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。(2)在考生文件夹中有一个工程文件sj4.vbp,相应的窗体文件名为sj4.frm。请在名为Forml的窗体上绘制一个名称为Textl的文本框和一个名称为Cmdl、标题为“大小写转换”的命令按钮,如图55—6,55—7所示。如图55—6,55—7所示,在程序运行时,单击“大小写转换”按钮,可以把Textl中的大写字母转换为小写,把小写字母转换为大写。窗体文件中已经给出了“大小写转换”按钮的C1ick事件过程,但不完整,请去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容。注意:不能修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
(1)在考生文件夹下有一个工程文件sjt3.vbp,运行情况如图1-23所示。程序的功能是计算表达式的值:z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通过键盘分别输入到两个文本框Textl、Text2中。单击名称为Commandl、标题为“计算”的命令按钮,则计算表达式的值,并将计算结果显示在名称为Labell的标签中。在窗体文件中已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确内容。要求:程序调试通过后,必须按照如图1-23所示输入N=5,x=12,然后计算z的值,并将计算结果显示在标签Labell中,否则没有成绩。注意;不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上有名称为Labell的标签和名称为Timerl的计时器控件。该程序的功能是在名称为Labell的标签中循环显示不同的字符串。程序开始运行,在标签中显示“第一项”(如图1-24所示),且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”,如此循环。在给出的窗体文件中已经有了全部控件和程序,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
下列关于数据库运行和维护的叙述中,正确的是______。
在考生目录下有一个工程文件sj5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框,名称分别为Text1和Text2。其中Text1用来输人口令(输入时,文本框内容显示“*”),初始内容为空;Text2的初始内容为3。并给出了Cl的事件过程,但不完整,要求去掉程序中的注释符“'”,把程序中的“?”改为正确的内容,使得程序运行时,在Text1中输人口令后,单击“确定”,如果输入的是“123456”则在Text1中显示“口令正确”;如果输入其他内容,单击“确定”后,弹出错误提示对话框(如图68—6所示),并且Text2中的数字减1。最多可输入3次口令,若3次都输入错误,则禁止再次输入。注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
______是指信息沿输入通路进入系统,同时由外部形式变换成内部形式,进入系统的信息通过变换中心,经加工处理后再沿输出通路变换成外部形式离开软件结构。
在名为Form1的窗体上建立一个二级菜单,该菜单需要含有、“文件”、“帮助”两个主菜单项,名称分别为vbFile和vbHelp。其中,“文件”菜单包括“打开”、“关闭”、“退出”3个子菜单项,名称分别为vbOpen、vbClose、vbExit,如下图所示。注意:只建立菜单,不必定义其事件过程;文件必须存放在考生文件夹中,窗体文件名为execisel.frm,工程文件名为execise1.vbp。
有如下程序: Private Sub Commandl_Cick() a=10:b=50 Rem Print a;b Print bla Print a;b End Sub 运行后,单击命令按钮后的输出结果是 ( )
在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Labell、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是( )。
在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),即命令按钮,程序可找出在文本框中输入的其他所有英文字母,并以大小写方式降序显示到Text1中,显示的字符串是ZYXWUTSRQPONMLKJIHGEC。请填空。Private Sub Oommandl_Click()Dim str As String, s As String, c As Stringstr=UCase(Text1)s=""c="Z"While c>="A"If InStr(str, c)=0 Thens=【 】End Ifc=Chr $(Asc(C)【 】)WendIf s<>"" ThenText1=sEnd IfEnd Sub
