在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后,如果单击“读取”按钮,则读入in.txt文件中的50个整数,放入一个数组中(数组下界为1),并在文本框Text1中显示出来,运行界面如图6-5所示。如果单击“保存”按钮,则把数组中的前30个数据在文本框Textl中显示出来,并存入考生文 件夹中的文件result.txt中。(考生文件夹中有标准模块mode5.bas,其中的writeData过程可以把指定个数的数组元素存人result.txt文件。)
注意:在考生乏件夹中有工程文件si5.vbp及其窗体文件sj5.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“b”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下,窗体文件名为sis.frm,工程文件名为sj5.vbp,结果存入result.txt文件,否则没有成绩。 在考生文件夹中有工程文件sis.vbp及其窗体文件sis.frm,该程序是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
第1题
在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图4-3所,示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放人整型变量a中,然后汁算a!.(提示:运算结果应放人Lon9型变量中),在文本框中显示结果,如图4—4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。 注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
第2题
下面这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码完成程序。
Private Sub numCount()
Dim hum As Integer
s$ = "software And hardware"
num = Len(s$)
For i = 1 To hum
b$=______
If b$ = "a" Then x = x+1
Next i
Print "x="; x
End Sub
第3题
和“和”。在三个标签下分别有三个文本框(名称分别为Textl、TexQ和Text3)用来输入数字。要求编写一个事件过程,程序运行后在文本框Text1和Text2中输入数字,单击文本框删后其中输出两个数的和。如图14所示。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为ylc2.vbp,窗体丈件名为ylc2.frm。
第6题
为Image1的图像框,有一个名为Timer1的计时器,有一个名为HS1的滚动条,还有一个名为Cmd1、标题为Begin的命令按钮。要求程序运行后,单击Begin按钮,则图像框中的图片根据计时器中设定的时间间隔交替变更,如果改变滚动条中滚动框的位置,则图片交替变换的速度也随之变化(如下图所示)。
本程序不完整,请补充完整,并能正确运行。
要求:
去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
第7题
编程实现加法运算,在两个文本框中输入加数,用标签表示结果,单击按钮进行计算,完成下列计算过程。
Private Sub Command1_Click()
Dim AAs Integer,B As Integer
A= ____________
B=Val(Text2.Text)
________ =A+B
End Sub
第9题
如果一个工人可管理多个设施,而一个设施只被一个工人管理,则实体“工人”与实体“设备”之间存在【 】关系。
第10题
合框中输入一个项目并单击命令按钮,则搜索组合框中的项目;如果已有此项,则弹出提示:“已有此项”,之后清除输入的内容。界面如图20所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为ylc6.vbp,窗体文件名为ylc6.frm。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!