窗体上有一个列表框和一个文本框,编写如下两个事件过程: Private Sub Form_Load() List1.Addltem"Beijing" List1.Addltem"Tianjin" List1.Addltem"Shanghai", Text1.Text=" End Sub Private Sub Listl_Dbl Click() x=Listl.Text Printx+Textl.Text End Sub 程序运行后,在文本
在考生文件夹中有一个工程文件execise6.vbp及其窗体文件execise6.frm。在名为Form1的窗体上有一个名为Pic1的图片框:一个单选按钮数组,含3个单选按钮,标题分别为“正方形”、“三角形”和“圆形”:还有一个标题为“显示”的命令按钮。程序的功能是在运行时,如果选中一个单选按钮后,单击“显示”按钮,则根据单选按钮的选中情况,在图片框中显示“选择了正方形”、“选择了三角形”或“选择了圆形”,如下图所示。要求:(1)原题中的单选按钮和命令按钮没有标题,请利用属性窗口依次添加单选按钮标题分别为“正方形”、“三角形”和“圆形”,添加命令按钮标题为“显示”。(2)去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能。注意:不能修改程序的其他部分,也不得修改控件的其他属性。最后把修改过的程序以原文件名保存。
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。在窗体上有一个名称为Commandl、标题为“求和”的命令按钮,三个名称分别为Textl、Text2和Text3的文本框,运行界面如图65—4所示。要求程序运行后,在Textl和Text2中分别输人两个整数,单击“求和”按钮后,可把两个整数之间的所有奇数(不含输入的两个整数)累加起来并在Text3中显示。注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4.frm,该程序是不完整的。在窗体上建立一个名称为Textl的文本框,建立一个名称为Commandl、标题为“计算”的命令按钮,如图65—5所示。要求程序运行后,如果单击“计算”按钮,则求出50—200之间所有可以被5整除的数的总和,在文本框中显示出来,并把结果存入考生文件夹下的out.txt文件中。(在考生的文件夹下有一个mode.bas标准模块,该模块中提供了保存文件的过程writedata,考生可以直接调用。)注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
单击命令按钮执行以下程序,则输出结果为( )。 Private Sub Commandl_Click() Dim x As Integer,y As Integer x=14:y=48 Call Proc(x,y) Printx;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=nMod 10:m=m Mod 10 EndSub
单击命令按钮时,下列程序的执行结果是 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 Sub Function FirProc (x As Integer,y As Integer,z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x As Integer,y As hteger,z As Integer) SecProc=FirProc(z,x,y)+x+7 End Function
若在某窗体模块中有如下事件过程: Private Sub Commandl Click(Index As Integer) End Sub则以下叙述中正确的是( )。
在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:FunctionFun(xAsInteger,ByValyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=-10:b=5Text1.Text=Fun(a,b)Text2.Text=Fun(a,b)EndSub程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是________和________。
在树型结构中,树根节点没有______。
可使用列表框的【 】方法向列表框中增加一个项目。
通过InputBox函数可以产生输入对话框。若执行下列语句: st$=InputBox("请输入字符串","字符串对话框","字符串") 则运行程序,用户输入完毕并单击“确定”按钮后,st$变量的内容为( )。
在程序运行期间,如果拖动滚动条上的滚动眶,则触发的滚动条事件是 ______。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图1-58所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求:工程文件中已给出部分程序,“读数据”命令按钮的事件过程不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,两个命令按钮的事件过程必须至少各执行一次。
设有如下记录类型:Type studentNumber As String*10Name As String*8End Type窗体中有若干控件,单击其中的一个按钮Command1时,执行如下事件过程,该过程的功能是把数据输出到指定的文件中。根据题意,请完善下列程序。Private Sub Command1_click()Dim stu As studentOpen"C:/file. dat" For Random As #1 Len=Len(【 】)Title $="写记录到随机文件"Str1 $="请输入学生名"Str2 $="请输入学生名"For i=1 To 5stu. Number=InputBox(Str1 $, Title $)stu. Name=InputBox$(Str2 $, Title $)【 】#1, i, stuNext iClose【 】End Sub
在窗体Form1上绘制一个文本框,名称为Text1,允许多行显示:再绘制3个命令按钮,名称分别为Cmd1、Cmd2和Cmd3,标题分别为Input、Change和Save,如下图所示.编写适当的事件过程,使得在运行时,单击Input按钮,则从考生文件夹中读入in10.txt文件(文件中只有字母和空格),放入Text1中;单击Change按钮,则把Text1中的所有小写字母转换为大写字母;单击Save按钮,则把Text1中的内容存入out10.txt文件中。注意:考生必须把转换后的内容用Save按钮存入out10.txt文件,否则无成绩。考生的工程文件以文件名execise10.vbp存盘,窗体文件以文件名execise10.frm存盘。
若想将同一窗体上的多个Option Button控件分为多个组,所用控件是______。
在考生文件夹中有一个工程文件execise103.Vbp及窗体文件execise103.frm。请在名为Form1的窗体中绘制3个标签,名称分别为Lab1、Lab2和Lab3,标题分别为FontSix、FontName和“计算机等级考试”(其中Lab3的高为509,宽为3000);再在Lab1和Lab2标签的下面绘制两个组合框,名称分别为Com1和Com2,并为。Com1添加项目:“10”、“15”和“20”,为Com2添加项目;“黑体”、“隶书”和“宋体”。以上内容请在设计时实现。请编写适当的事件过程,使得在运行时,当在Com1中选一个字号、在Com2中选一个字体,标签Lab3中的文字立即变为选定的字号和字体,如下图所示。注意:不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须选择一种字号和字体。必须用窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名存盘,程序中不能使用任何变量。
执行以下程序段后,变量c$的值为( )。 S$="VisualBasicProgramming" b$="Quick" c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)
(1)在考生文件夹中有工程文件sjt3.vbp,其中的窗体如图1-46所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。请去掉程序中的注释符,把程序中的?改为正确的内容。注意:考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图1-47所示。请在属性窗口中将Listl设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求:双击Listl中的某一项时,该项目被添加到List2中,同时在Listl中清除该项目。若单击“>>”按钮,Listl中所有的项目显示在List2中(List2中已有项目不变),Listl中的内容不变。要求:按照题目要求设置控件属性,去掉程序中的注释符,把程序中的?改为正确的内容。注意:不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
在代码中定义了—个子过程: Sub P(a,B)... End Sub 下面调用该过程的格式是正确的。
在窗体上有一个名为Commandl的命令按钮,并有如下事件过程: Private Sub Commandl_Click() a$=“Swallows Mod Genulled” b$=Right(a$,8):c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 程序执行时,单击命令按钮,则在弹出的消息框的标题栏中显示的是( )。
