在考生文件夹下有一个工程文件sjt5.vbp,界面如图1-137所示,其功能如下:①单击“读数据”按钮,则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数,共计120个整数)读到数组a中;②单击“计算”按钮,则对每组数求平均值,并将所求各组数的平均值截尾取整后存入数组s中;③单击“显示”按钮,则将所求各组数的平均值显示在文本框Textl中:④单击“存盘”按钮则把计算结果存盘。在给出的窗体文件中已经有了全部控件,且“读数据”、“显示”和“存盘”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程以实现上述功能。注意:不得修改已经存在的程序,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
数学式et.Log(a+b).(-8t2)写成VB的正确表达式是______。
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体上有两个单选按钮,标题为“Iteml”和“Item2”;两个标题分别为“按钮1”和“按钮2”的命令按钮,如图70-3所示。程序的功能是:运行时.如果选中单选按钮“Iteml”后,“按钮1”可用,“按钮2”不可用;如果选中单选按钮Item2后,则相反,单击可用按钮,在窗口上打印该按钮的标题。注意:设初始选中的是“Iteml”;去掉程序中的注释符“'”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sj4.vbp,相应的窗体文件为sj4.frm,在窗体上有一个命令按钮和两个文本框。程序运行后,单击计算按钮,即可计算出大于Text1中输入的数且能被3、5和7同时整除的最小整数.并在文本框Text2中显示出来,如图70一4所示。在窗体的代码窗口中,已给出了部分程序。注意:去掉程序中的注释符“'”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。
下列程序的作用是:打开顺序文件C:/stuDatA.txt,读取文件中的数据,并将数据显示在窗体上。该程序不完整,请补充完该程序。 Private Sub Form_Click() 【 】 Do While Not EOF(1) Input # 1,StrNo,StuName,StuEng Print StuNo;Tab(10);StuName;Tab(20);StuEng Loop Close #1End Sub
在考生文件夹中有一个工程文件execise1.vbp及其窗体文件execise1.tim。请在名为Form1的窗体上建立一个菜单,主菜单项为“项目”(名称为vbItem),它有两个子菜单项,其名称分别为vbAdd和vbDelete,标题分别为“添加”和“删除”,然后绘制一个列表框(名称为List1)和一个文本框(名称为Text1)。编写适当的事件过程。程序运行后,如果执行“添加”命令,则从键盘上输入要添加到列表框中的项.目(内容任意,不少于3个);如果执行“删除”命令,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如下图所示。在考生文件夹中的工程文件execise1.vbp(相应的窗体文件名为execise1.frm),可以实现上述功能。但本程序不完整,请补充完整。注意:去掉程序中的注释符“'”,把程序中的问号“?”改为适当的内容,使其正确运行,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。请考生在窗体上设置一个计时器,名称为Timerl,并补充完整程序代码,使得程序开始运行后,每隔3秒,用黑色填充四分之一的圆,界面如图64—4所示。注意:请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件sj4.Vbp及窗体文件sj4.frm,该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时,可以输入4个数值,随后程序对这4个数值进行升序排序,并显示出来,如图64—5所示。注意:请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
如下图所示,在名为Form1的窗体上建立一个名称为Text1的文本框;建立两个主菜单,其标题分别为“颜色”和“帮助”,名称分别为vbCo1or和vbHe1p,其中“颜色”菜单包括“红色”、“绿色”和“黄色”3个菜单项,名称分别为vbRed、vbGreen和vbYellow(如下图所示)。程序运行后,如果单击“红色”菜单项,则文本框内显示“西红柿是红色的”;如果单击“绿色”菜单项,则在文本框内显示“苹果是绿色的”;如果单击“黄色”菜单项,则在文本框内显示“香蕉是黄色的”。要求;不能使用任何变量,直接显示字符串:文件必须存放在考生文件夹中,窗体文件名为execise90.frm,工程文件名为execise90.vbpo
采用顺序查找方法查找长度为n的线性表,平均查找长度为【 】。
(1)在名称为Forml标题为“选课”的窗体上添加一个复选框数组,名称为CHl,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处在选中状态下,程序运行时的窗体如图68—1所示。请按要求添加控件并设置相应属性。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjl.vbp,窗体文件名保存为sjl.frm。(2)在名称为Forml的窗体上添加一个名称为HSl的水平滚动条,其刻度值范围为1~100;添加一个命令按钮,名称为C1、标题为“移动滚动框”。请编写适当的事件过程,使得在程序运行时,每单击命令按钮一次(假定单击次数不多于10次),滚动框向右移动10个刻度。程序运行时的窗体如图68—2所示。要求程序中不得使用变量,事件过程中只能写一条语句。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sj2.vbp,窗体文件名保存为sj2.frm。
可通过“打开”对话框的( )属性设置对话框中所显示文件的类型。
表达式Mid("SHANGHAI",6,3)的值是( )。
在一个工程文件ylc5.vbp,工程中已有一个Aver函数过程,其功能是通过计算求数组的和。程序运行后,在五个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的和,并在窗体上显示出来,运行后如图17所示。提供的函数过程如下:FunctionAver(arr()AsInteger)AsDoubleAver=arr(0)+arr(1)+arr(2)+arr(3)+arr(4)EndFunction注意:存盘时必须存放在考生文件夹下,工程文件名为ylc5.vbp,窗体丈件名为ylc5.frm。
单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=3 b=4 c=5 Print SecProc(c,b,A)End SubFunction FirProC(x As Integer,y As Integer,z As Integer) FirProc=2*s+y+3*zEnd FunctionFunction SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z,x,y)+xEnd Function
在窗体上画两个名称分别为Commandl和Command2、标题分别为.“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各个元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示。请填空。OptionBase1Dima(3,2)AsIntegerPrivateSubCommandl_Click()Fori=1To3Forj=1To2________=i+jNextjNextiEndSubPrivateSubCommand2_Click()Forj=1To3Fori=1To2s=s+________NextiNextjText1.Text=________EndSub
在窗体上绘制3个命令按钮,其名称分别为Cmd1、Cmd2和Cmd3,标题分别为“读数”、“计算”和“保存”,如下图所示。程序运行后,如果单击“读数”按钮,则读入in271.txt和in272.txt文件中的各20个整数,分别放入两个数组中;如果单击“计算”按钮,则把两个数组中对应下标的元素除以10并截尾取整后相乘,其结果放入第3个数组中(即:把第一个数组的第n个元素除以10截尾取整,再把第二个数组的第n元素除以10截尾取整,两者相乘后的结果作为第3个数组的第n个元素。这里的n为1,2,…,20),然后计算第3个数组各元素之和,并把所求得的和在窗体上显示出来;如果单击“保存”按钮,则把所求得的和存入考生文件夹的out27.txt文件中。在考生文件夹下有一个工程文件execise27.vbp,考生可以装入该文件。窗体文件execise27.frm中的RcadData1和ReadData2过程可以把in1.txt和in2.txt文件中的各20个整数分别读入Arr1和Arr2数组中;而WriteData过程可以把计算出的整数值写到考生文件夹指定的文件中(整数值通过计算求得,文件名为out27.txt)。注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为exeeise27.vbp,窗体文件名仍为execise27.frm。
阅读程序:Function Fun(a As Integer)Static c,b=0:b=b+2:c=c+2F=a*b*cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=2For i=1 To 2Print Fun(A);NextEnd Sub运行上面的程序,单击命令按钮,输出结果为
在考生文件夹中有文件execise78.vbp及其窗体文件execise78.frm。在名为Form1的窗体上有两个复选项,名称分别为Chk1和Chk2,标题分别为“寒假”和“暑假”;两个单选按钮,名称分别为Opt1和Opt2,标题分别为“今年有”和“今年没有”;一个名称为Lab1的标签(如下图所示)。要求程序运行后,对复选框和单选按钮进行选择,然后单击窗体,可根据下表的规定在标签中显示相应的信息。本程序不完整,请补充完整,并能正确运行。要求:去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有一Label控件和两个命令按钮,数据文件in5.dat存放了一些成绩。按“开始”按钮后,从考生文件夹下的in5.dat中读出数据并求出它们的总分和平均分,将结果写入考生文件夹下的out5.dat文件中;执行完毕,“开始”按钮变成“完成”,且无效(变灰)。如图10—5所示。注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的dat文件也保存到考生文件夹下,否则没有成绩。
在窗体上画1个命令按钮和1个通用对话框,其名称分别为Commandl和CommonDialogl,然后编写如下事件过程: Private Sub Commandl_CUck() CommonDialog1.______="打开文件" CommonDialog1.Filter="All Files(*.*)|*.*" CommonDialog1.InitDir="C:" CommonDialog1.ShowOpen End Sub 该程序的
在考生文件夹中有工程文件sj5.vbI)及其窗体文件sj5.frm,该程序是不完整的,请在有“?”的地方填人正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下:在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为command1和Command2、标题分别为“读人数据”和“计算保存”,运行界面如图7—5所示。要求程序运行后,如果单击“读人数据”按钮,则读人in.txt文件中的50个整数,放人一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则先进行升序排列,计算前25个数的和与后25个数的和之差,并把求得的结果在文本框Text2中显示出来,同时把该结果存人考生文件夹中的out.txt文件中。(在考生文件夹下的标准模块mode.bas中的writedata过程可以把结果存入指定的文件。)注意:文件必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp,计算结果存入out.txt文件,否则没有成绩。
