在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2,标题分别为“书名”和“作者”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Cmd1,标题为Display)。然后编写命令按钮的Click事件过程,使程序运行后,在两个文本框中分别输入书名和作者,然后单击命令按钮,则在窗体的标题栏上先,后显示两个文本框中的内容,如下图所示。注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中;工程文件名为execise51.vbp,窗体文件名为execise51.frm。
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:
Private Sub Commandl一Click()
x!==Val(Textl.Text)
Select Case x
Casc Is=20
Print“输入错误”
Case Is<0
Print 20 x
Case ls<10
Print 20
Case Is=20
Print x+10
End Select
End Sub
程序运行时,如果存文本框中输入一5,则单击命令按钮后的输出结果是
在考生文件夹中有一个工程文件exeeise2.vbp及其窗体文件execise2.frm,含有Form1和Form2两个窗体,Form1为启动窗体。两个窗体上的控件如下图所示。程序运行后,在Form1窗体的文本框中输入有关信息(“密码”框中显示“*”字符),然后单击“提交”按钮则弹出“确认”对话框(即Form2窗体),并在对话框中显示输入的信息。单击“确认”按钮则程序结束;单击“重输”按钮,则对话框消失,回到Form1窗体。在给出的窗体文件中已经给出了程序,但不完整。要求:(1)把Form1的标题改为“注册”,把Form2的标题改为“确认”。(2)设置适当的属性,使Form2标题栏上的所有按钮消失。(3)去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容。注意:不能修改程序的其他部分,“标题”等属性的修改只能在属性窗口中进行。最后,按原文件名并在原文件夹中保存修改后的文件。
在Form1窗体上绘制一个名称为Textl的文本框,然后建立一个主菜单,标题为“操作”,名称为Op,该菜单有两个子菜单,其标题分别为“显示”和“隐藏”,名称分别为Dis和Hid,编写适当的事件过程。程序运行后,如果单击“操作”菜单中的“显示”命令,则在文本框中显示“计算机考试”;如果单击“隐藏”命令,则隐藏文本框。程序的运行情况如图47—1和图47—2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sjl.frm,工程文件名为sjl.vbp。(2)在名为Forml的窗体上绘制一个标签,名为Labl,标题为“请输入一个摄氏温度”;绘制两个文本框,名称分别为Textl和Text2,内容设为空;再绘制一个名为Cmdl的命令按钮,其标题为“华氏温度等于”。编写适当的程序,使得单击“华氏温度等于”按钮时,将Textl中输人的摄氏温度(c)转换成为华氏温度(f),转换公式为:f=c*9/5+32,并显示在Text2中。程序运行结果如图47—3所示。注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
关于Image控件和PictureBox控件的说明,其中错误的是( )。
下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数,打印其中是7的倍数的数,并求它们的总和,请填空。 Sub TOF() Randomize Dim S As Double Dim a(10)As Integer For i=0 To 9 Next For i=0 To 9 If Then Ptint a(i) S=s+a(i) Next i Print Print“S=”:S End Sub
下列程序段错误的是()。
为了清除列表框中指定的项目,应使用的方法为
在名称为Forml的窗体上绘制一个文本框,名称为Textl,MultiLine属性为True,ScrollBars属性为2;两个命令按钮名称分别为Cmdl和Cmd2,标题分别为“读人数据”和“计算保存”,如图47—6所示。要求程序运行后,如果单击“读人数据”按钮,则读人in.txt文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算其中前50个数之和,并将求和结果在文本框T'extl中显示出来,同时把结果存入考生文件夹中的文件out.txt中(在考生的文件夹下有标准模块mode.bas,其中的putdata过程可以把结果存人指定的文件)。注意:保存时必须存放在考生文件下,窗体文件名为sj5.frm,工程文件名为sj5.vbp。
假定在工程文件中有一个标准模块,其中定义了如下记录类型: Type Books Name As String*10 TelNum AS String*20 End Type 要求在执行事件过程Commandl Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。
执行下列语句后,输出结果是______。s$="ABCDEFG"Print InStr(s$,"efg")Print LCase$(s$)
在考生文件夹下有一个工程文件sit5.vbp,相应的窗体文件为sit5.frm。窗体中已经给出了所有控件(框架中的3个单选按钮构成了一个控件数组),如图3—1所示,请编写适当的事件过程。程序运行后,如果选中某个单选按钮,然后单击“计算”命令按钮,则计算出数列1,1,2,3,5,8,13,21,…的第n项的值,并在文本框中显示出来,其中n是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是:从第3个数开始,每个数是它前面两个数之和(提示:由于计算结果较大,存放结果的变量应使用长整型)。注意:①不得修改已经给出的程序和已有的控件的属性;②在结束程序运行之前,必须选中一个单选按钮,并单击“计算”命令按钮获得一个结果;③必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。试题所提供的事件过程如下:PrivateSubForm_Unload(CancelAsInteger)Open"out5.dat"ForOutputAs#1Print#1,Op1(0).Value,Op1(1).Value,Op1(2).Value,Va1(Text1.Text)Close#1EndSub
3在窗体上画一个名称为List1的列表框,一个名称为Labe11的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是()。
在考生文件夹中有一个工程文件execise8.vbp及其窗体文件execise8.frm。请在名为Form1的窗体上绘制两个文本框,其名称分别为Text1和Text2,文本框内容分别设置为“计算机等级考试”、Visua1Basic:然后绘制一个标签,其名称为Lab1,高度为400,宽度为2000;再绘制两个单选按钮,名称分别为Opt1和opt2,标题分别为Change和Join;最后再绘制一个命令按钮,其名称为Cmd1,标题为“确定”。编写适当的事件程序。程序运行后,如果选中Change单选按钮并单击“确定”按钮,则Text1文本框中内容与Text2文本框中内容进行交换,并在标签处显示OK;如果选中Join单选按钮并单击“确定”按钮后,则把交换后的Text1和Text2的内容连接起来,并在标签处显示连接后的内容,如下图所示。保存时,工程文件名为execise8.vbp,窗体文件名为execise8.frm。注意:不得修改已经给出的程序。在结束程序运行之前,必须选中一个单选按钮,并单击“确定”按钮。退出程序时必须通过单击窗体右上角的关闭按钮,否则可能无成绩。
在窗体上画一个命令按钮,然后编写如下事件过程。该程序运行后,单击命令按钮,在输入对话框中分别输入321和456,则输出结果为【 】。 Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请再输入一个整数") Print a+b End Sub
在窗体Form1上建立3个菜单(名称分别为vbRead、vbCalc和vbSave,标题分别为“读数”、“计算”和“存盘”),然后绘制一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2),如下图所示。程序运行后,如果执行“读数”命令,则读入in45.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果执行“计算”命令,则把该数组中下标为奇数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果执行“存盘”命令,则把所求得的和存入考生文件夹下的out45.txt文件中。在考生文件夹下有一个工程文件execise45.vbp,考生可以装入该文件。窗体文件execise45.frm中的ReadData过程可以把in45.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得,文件名为out45.txt)。注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为execise45.vbp,窗体文件名仍为execise45.frm。
假定在图片框控件Picturel中装入了一个图形,为了在程序运行时清除该图形,则应使用下列哪种方法( )。
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_ Click() CommonDialog1. Flags= cd1OFNHideReadOnly CommonDialog1. Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*. txt|Batch Files(*.bat)|*.bat" CommonDialog1. FilterIndex=2 CommonDialog1. ShowOPen MsgBox CommonDialog1. filenameEnd Sub程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是 ______。
在考生文件夹下有一个工程文件sj5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图30—5所示),单击“打开”按钮,则把文件中的内容读入并显示在文本框(Textl)中;单击“修改内容”按钮,则将Textl中的大写字母“E”、“N”、“T'’改为小写,把小写字母“e”、“n”、“t”改为大写;单击“保存文件”按钮,则弹出“另存为”对话框,默认文件类型为“文本文件”,默认文件夹为考生文件夹,默认文件为“out5.txt”(如图30—6所示),单击“保存”按钮,则将Textl中修改后的内容存到out5.txt文件中。注意:窗体中已经给出了所有控件和程序,但程序不完整,去掉程序中的注释符(即“'”号),把程序中的“?”改为正确的内容,并编写“修改内容”按钮的Click事件过程。考生不得修改已经存在的程序。必须把Textl中修改后的内容用“保存文件”按钮存储结果,否则无成绩。最后,按照文件名将程序存盘。
为了在运行时能显示窗体左上角的控制框(系统菜单),可以设置以下哪个属性的值为True( )。
