首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹有一个工程文件sjt3.vbp,其中的窗体中有一个名为Textl的文本框,初始文本为0;一个计时器;一个标签;一个有两个元素的单选按钮数组,名称为Op1,标题依次为“1秒”、“3秒”;两个命令按钮,名称分别为C1、C2,标题分别为“开始计
(1)在考生文件夹有一个工程文件sjt3.vbp,其中的窗体中有一个名为Textl的文本框,初始文本为0;一个计时器;一个标签;一个有两个元素的单选按钮数组,名称为Op1,标题依次为“1秒”、“3秒”;两个命令按钮,名称分别为C1、C2,标题分别为“开始计
admin
2020-02-27
17
问题
(1)在考生文件夹有一个工程文件sjt3.vbp,其中的窗体中有一个名为Textl的文本框,初始文本为0;一个计时器;一个标签;一个有两个元素的单选按钮数组,名称为Op1,标题依次为“1秒”、“3秒”;两个命令按钮,名称分别为C1、C2,标题分别为“开始计数”、“停止计数”,同时给出两个事件过程,但不完整。在运行时要完成下面的功能:
单击一个单选按钮,可以设置计时间隔为1秒或3秒;单击“开始计数”按钮,则Text1中的数按设定的计时间隔每次加1;单击“停止计数”按钮,则Textl中的数不再变化。
请按下述要求设置属性并编写程序,以实现上述功能:
①设置计时器的属性,使其在初始状态下不计时。
②去掉程序中的注释符,把其中的“?”改为正确的内容。
③为两个命令按钮编写适当的事件过程,每个事件过程中只能有一条语句,不能使用变量。
注意:不能修改已有程序的其他部分和控件的其他属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,功能如下:
①单击“读数据”按钮,则把考生文件夹下in4.dat文件中已按升序排列的60个数读人数组a,并在Text1中显示。
②单击“输入”按钮将弹出输入框,供接收用户输入的任意一个数。
③单击“删除”按钮,首先判断“输入”的数是否存在于数组a中,若存在,则将该数从数组a中删除,并将删除后数组的内容重新显示在Text1中,若不存在,则给出相应提示。
在给出的窗体文件中已经有了全部控件(如图所示),但程序不完整,要求:去掉“删除”按钮Click事件过程中的注释符,把“?”改为正确的内容,以实现上述程序功能。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件,计时器的Enabled属性设置为False。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Op1_Click(Index As Integer) ’ Select Case ? Case 0 Timer1.Interval = 1000 Case 1 Timer1.Interval = 3000 End Select End Sub Private Sub Timer1_Timer() ’ Text1.Text = ?.Text + 1 End Sub 程序结束 参考答案 第1个?处填入:Index 第2个?处填入:Text1 Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub C2_Click() Timer1.Enabled = False End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(100) As Integer, num As Integer, n As Integer Private Sub Command1_Click() Dim k As Integer n = 60 Open App.Path & "\in4.dat" For Input As #1 For k = 1 To n Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() num = InputBox("请输入一个数") End Sub Private Sub Command3_Click() For i = 1 To n ’"读数据"事件过程中已给出n的初值 ’ If num = ? Then Exit For Next i ’ If ? Then MsgBox "该数不存在于数组中,不能执行删除操作!" Else n = n - 1 ’ For j = i To ? ’ a(j) = ? Next End If Text1 = "" ’以下程序段将执行删除操作后的数组a重新显示在Text1中 ’ For k = 1 To ? Text1 = Text1 + Str(a(k)) + Space(2) Next k End Sub 程序结束 参考答案 第1个?处填入:a(i) 第2个?处填入:n < i 第3个?处填入:n 第4个?处填入:a(j + 1) 第5个?处填入:n 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/mtTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是()。①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为()。
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为()。
下列叙述中正确的是()。
将自然数集设为整数类I,则下面属于类I实例的是()。
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为()。
以下关于VB对象属性的叙述中,错误的是
在面向对象方法中,不属于“对象”基本特点的是()。
在面向对象方法中,不属于"对象"基本特点的是( )。
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
随机试题
一家新成立的公司,为了迅速拓展市场,增加市场占有率,总经理万总每天都认真地部署每一个部门的工作,要求部门之间不能随意交流信息。研发部对新产品的构思、目标客户等思路的确定,都需要请示万总的认可。在刚成立的第一个月,研发部对产品设计的每一个细节都是得
对胰腺分泌HCO3-的叙述,错误的是
A.清热化湿解毒B.清热凉血解毒C.散寒燥湿化浊D.温中理脾E.温补固涩
女性,45岁,间歇性发作咽下困难3个月,伴反酸、烧心,可因情绪波动诱发。食管造影未见异常。可加重症状的药物
某工程现场采用出料容量1000L的混凝土搅拌机,每一次循环中,装料、搅拌、卸料、中断需要的时间分别为1min、3min、1min、1min,机械正常功能利用系数为0.9,则该机械的台班产量定额为()m3/台班。
某企业为扩大经营规模融资租入一台机床,该机床的市价为398万元,租期10年,租赁公司的融资成本为20万元,租赁手续费为15万元。租赁公司要求的报酬率为15%。要求:已知(P/A,15%,9)=4.7716,(P/A,15%,10)=5.0188,(P/A
下列各项中,属于行政复议范围的是()。
下列情况中,不得进行呆账核销的有()。
欧共体委员会主席雅克.德洛尔说“欧共体不单单是‘冷战’的产物,因而它肯定不会随着冷战的结束而消亡。”由此判断,欧洲走向联合的出发点是()。
简述网络广告的优缺点。
最新回复
(
0
)