在名为Form1的窗体上绘制一个水平滚动条,其名称为HS1,然后通过属性窗口设置窗体和滚动条的属性,实现如下功能:(1)窗体标题为“设置属性”。(2)滚动条所能表示的最小值和最大值分别为1和200。(3)程序运行后,单击滚动条两端的箭头时,滚动框移动的增量值为5。(4)程序运行后,单击滚动框前面或后面的部位时,滚动框移动的增量值为10。(5)滚动框的初始位置为50。程序的运行情况如下图所示。注意:不要编写任何代码;文件必须存放在考生文件夹中,工程文件名为execise55.vbp,窗体文件名为execise55.frm。
在考生文件夹中有一个工程文件execise84.vbp及窗体文件execise84.frm。在名为Form1的窗体中的两个水平滚动条分别表示红灯亮和绿灯亮的时间(秒),移动滚动框可以调节时间,调节范围为1~10秒。刚运行时,红灯亮。单击Begin按钮则开始切换:红灯到时后,自动变为黄灯,1秒后变为绿灯:绿灯到时后,自动变为黄灯,1秒后变为红灯,如此循环切换,如下图所示。所提供的窗体文件已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符“”,把程序中的问号“?”改为正确的内容。提示:在3个图片框Pic1、Pic2和Pic3中分别放置了红灯亮、绿灯亮和黄灯亮的图标,并重叠在一起,当要使某个灯亮时,就使相应的图片框可见,而其他图片框不可见,并保持规定的时间,时间到就切换为另一个图片框可见,其他图片框不可见。注意:不得修改工程中已经存在的内容和控件属性。最后,按原文件名并在原文件夹中保存修改后的文件。
窗体下面有一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=0Do Until x = -1a=InputBox("请输入第一个数字a的值")a=Val(a)b=InputBox("请输入第二个数字b的值")b=Val(b)x=InputBox("请输入第三个数字x的值")x=Val(x)a=a+b+xLoopPrint aEnd Sub在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为______。
创建名称为Form1的窗体,在窗体上画一个图片框。在图片框的右侧画一个垂直滚动条,其Min属性为100,Max属性为2000,LargeChange属性为120,SmallChange属性为30。在图片框中装入图片,图片框的宽度与图形宽度一致,高度任意,如图4所示。编写一个事件过程,程序运行后,移动滚动条上的滚动块可以放大或缩小图片框。程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名为yJc2.vbp,窗体文件名为ylc2.frm。
在名为Form1的窗体上建立1个名为Text1的文本框,将MultiLine属性设置为True,ScrollBars属性设置为3。建立2个名称分别为Cmd1、Cmd2和Cmd3命令按钮,标题分别为“读数”、“排序”和“保存”,如下图所示。程序运行后,如果单击“读数”按钮,则读入in38.txt文件中的100个整数,放入一个数组中(数组下界为1):如果单击“排序”按钮,则对这100个整数按从小到大进行排序;如果单击“保存”按钮,把排序后的全部数据在文本框Text1中显示出来,然后存入考生文件夹中的文件out38.txt中(在考生的目录下有标准模块prog.bas过程可以把指定个数的数组元素存入out38.txt文件,考生可以把该模块文件添加到自己的工程中)。注意:文件必须存放在考生文件夹中,窗体文件名为execise38.frm,工程文件名为execise38.vbp。排序结果存入out38.txt文件,否则没有成绩。
在考生文件夹中有一个工程文件execise100.vbp及窗体文件execise100.frm。请在名为Form1的窗体上绘制两个框架(如下图所示)其名称分别为Frame1和Frame2,标题分别为“交通工具”和“到达目标”。在Frame1中绘制两个单选按钮,名称分别为Opt1和Opa,标题分别为“飞机”和“火车”。在Frame2中绘制两个单选按钮,名称分别为Opt3和opt4,标题分别为“大连”和“哈尔滨”。然后绘制一个命令按钮,其名称为Cmd1,标题为“确定”。再绘制一个标签,其名称为Lab1,宽度为3000,高度为375。不得修改窗体文件中已经存在的程序。在结束程序运行之前,必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的“关闭”按钮。最后按原文件名并在原文件夹中保存修改文件。
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上建立两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“输入”和“结果”(如图15—7所示)。程序运行时单击“输入”按钮,输入6个数放人数组a中,单击“结果”则把数组a中的数值按照降序排列。注意:请在有“?”号的地方填正确内容,然后删除“?”及代码前的所有注释符(即“'”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
在名为Form1的窗体上绘制一个名称为Lab1、标题为“AddItem:”的标签;绘制一个名称为Text1的文本框,没有初始内容;绘制一个名称为Com1的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意):再绘制两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为Add和Display。在运行时,向Text1中输入字符,单击Add按钮后,则Text1中的内容作为一个列表项被添加到组合框的列表中:单击Display按钮,则在窗体上显示组合框中列表项的个数,如下图所示。请编写两个命令按钮的Click事件过程。注意:程序中不得使用变量,也不能使用循环;文件必须存放在考生文件夹中,工程文件名为execise13.vbp,窗体文件名为execise13.frm。
在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按钮的功能是把考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;“显示并保存奇数”和“显示并保存偶数”按钮的功能是把50个数按要求保存到考生文件夹下的out51.dat和out52.dat文件中。单击“读取数据”命令按钮后,程序运行时的窗体界面如图52—5所示。注意:在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符“'”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个水平滚动条,其名称为HScrolll,然后通过属性窗口设置窗体和滚动条的属性,实现如下功能:①窗体标题为“设置滚动条属性”;②滚动条所能表示的最小值和最大值分别为0和2001⑧程序运行后,单击滚动条两端的箭头时,滚动框移动的增量值为2;④程序运行后,单击滚动框前面或后面的部位时,滚动框移动的增量值为10;⑤滚动框的初始位置为100。程序的运行情况如图1-12l所示。要求:不要编写任何代码。注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。(2)在名称为Forml的窗体上画一个文本框,其名称为Textl,如图1-122(a)所示,编写适当的事件过程。程序运行后,如果单击窗体,则可使文本框移到窗体的左上角;而如果在文本框中输入信息,则可使文本框移到窗体的右上角。程序的运行情况如图1-122(b)所示。要求:不得使用任何变量,只允许通过修改属性的方式移动文本框。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
为了使名称为Commandl的命令按钮右移200,应使用的语句是( )。
(1)在名为Forml的窗体上绘制一个名为Cmdl的命令按钮,标题为“打开文件”,再绘制一个名为CDl的通用对话框。程序运行后,若单击命令按钮,则弹出“打开文件”对话框(如图13—1所示)。请按下列要求设置属性和编写代码。①设置适当属性,使对话框的标题为“打开文件”。②设置适当属性,使对话框的“文件类型”下拉式组合框中有两行:“文本文件”、“所有文件”(如图13—1所示),默认的类型是“所有文件”。③编写命令按钮的事件过程,使得单击按钮可以弹出“打开文件”对话框。注意:程序中不得使用变量,事件过程中只能写一条语句;文件必须存放在考生文件夹中,工程文件名为sjl.vbp,窗体文件名为sjl.frm。(2)在名为Forml的窗体上绘制两个命令按钮,其名称分别为Cmdl和Cmd2。编写适当的事件过程,使程序运行后,若单击命令按钮Cmdl,则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现);如果单击命令按钮Cmd2,则可使该按钮在长度和宽度上各扩大到原来的3倍。程序的运行时的窗体界面如图13—2所示。注意:不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj2.vbp,窗体文件名为sj2.frm。
设有语句: Temp=MsgBox("继续执行吗",vbYesNo,"退出提示框") 程序运行时,在对话框的标题栏将显示( )。
在窗体上有一个文本框Textl,Text属性值为空,然后编写下列事件过程:Private Sub Textl KeyPress(KeyAscii As Integer)Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Textl.Text=String(n,str)End Sub程序运行后,若在文本框中输入单字母“P”,则在文本框Textl中显示的内容为( )。
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。 Private Sub Form_Click() Dim i As Integer Open"Num.txt"For Output As #1 For i=1 To 8 【 】 Next i Close #1 End Sub
编写如下事件过程: Private SubForm_KeyDown(KeyCodeAsIntege《ShiftAsInteger',) If (Button And 3)=3 Then Print"AAAA" End If End Sub 程序运行后,为了在窗体上输出“AAAA”,应按下的鼠标键为 ______。
在链表的运算过程叶l,能够使空表与非空表的运算统一的结构是_________。
在窗体上画1个名为Textl的文本框和1个名为Labell的标签,再画4个名为Opl的单选按钮控件数组,其Index属性按季度顺序为0~3,如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按钮,则Textl中显示相应季度的销售总额,并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句()。OptionBase1Dimsales(12)AsLongPrivateSubFormLoad()Open”C:sales.txt”ForInputAs#1Fork=1TO12Input#1,sales(k)NextkClose#1EndSubPrivateSub__________(IndexAsInteger)DimsumAsLong,kAsInteger,monthAsIntegersum=0month=Index*Fork=1To3month:month+1sum=sum+sales(month)NextkLabell.Caption___________.Caption&”销售总额:”Textl=SumEndSub
在名为Form1的窗体上建立3个菜单(名称分别为vbRead、vbCalc和vbSave,标题分别为“读数”、“计算”和“保存”),然后绘制一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2),如下图所示。程序运行后,如果执行“读数”命令,则读入in.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果执行“计算”命令,则把该数组中下标为偶数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来:如果执行“保存”命令,则把所求得的和存入考生文件夹下的out.txt文件中。在考生文件夹下有一个工程文件execise58.vbp,考生可以装入该文件。窗体文件exeCise58.frm中的ReadData过程可以把in58.txt文件中的100个整数读入Arr数组中:而WriteDam过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得,文件名为out58.txt)。注意:考生不得修改窗体文件中已经存在的程序。保存时,工程文件名仍为execise58.vbp,窗体文件名仍为execise58.frm。
(1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,“文件”菜单下有三个子菜单项,标题分别为“新建”、“打开”和“存盘”,名称分别为vbNew、vbOpen和vbSave。要求程序运行后,如果选中“文件”下的某个菜单项,则通过MsgBox对话框显示该菜单项的标题,如图47—4所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。(2)在考生文件夹中有一个工程文件sj4.vbp,相应的窗体文件为sj4.frm。在名为Form1的窗体上有一个命令按钮(名称为Cmdl,标题为“求和”),其功能是产生30个0~1000的随机整数,放入一个数组中,然后输出它们的和。程序运行后,单击命令按钮,即可求出其和,并在窗体上显示出来,如图47—5所示。本程序不完整,请补充完整,并能正确运行。注意:去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。