首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个控件数组,名称为Label1,含三个标签,标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为Text1的控件数组,含三个初始内容为卒的文本框;此外还有两个名称分别为Cmd1和C
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个控件数组,名称为Label1,含三个标签,标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为Text1的控件数组,含三个初始内容为卒的文本框;此外还有两个名称分别为Cmd1和C
admin
2020-06-30
23
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个控件数组,名称为Label1,含三个标签,标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为Text1的控件数组,含三个初始内容为卒的文本框;此外还有两个名称分别为Cmd1和Cmd2的命令按钮,标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”
①如果单击“通话开始”按钮,则在“开始时间”右侧的文本框中显示开始时间,且“通话结束”命令按钮变为可用,“通话开始”命令按钮变为不可用。
②如果单击“通话结束”按钮,则在“结束时间”右侧的文本框中显示结束时间,同时计算通话费用,并将其显示在“通话费用”右侧的文本框中,“通话开始”命令按钮变为可用,“通话结束”命令按钮变为不可用。
在窗体文件中已经给出了全部控件(如图所示)和程序,但程序不完整,要求太掉程序中的注释符,把?改为正确的内容,以实现上述功能。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
(2)在考生文件央下有一个工程文件sjt4.vbp,文件in4.txt中有5组数据,每组10个,依次代表10个人语文、英语、数学、物理、化学这5门课程的成绩。程序运行时,单击“读入数据”按钮,可以从文件in4.txt中读入数据放到数组a中。单击“计算”按钮,则计算5门课程的平均分(平均分取整),并依次放入Text1文本框数组中。单击“显示图形”按钮,则显示平均分的图表,如图所示。窗体文件中已经有了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件,设置Cmd2的Enabled属性为False。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Cmdl Click() Text1 (0)=Str(Time())’当单击"通话开始"按钮时,则将当前时间显示 Textl(1).Text="":Textl(2).Text="" Cmd1.Enabled=False Cmd2.Enabled=True End Sub Private Sub Cmd2 C1ick() Textl(1).Text=Str(Time())’当单击"通话结束"按缸则显示当前时间 t start=Hour(Textl(0).Text)*3600+Minute(Text1(0).Text)*60+Second(Text1 (0).Text) t end=Hour(Text1(1).Text)*3600+ Minute(Text1(1).Text)*60+Second(Text1(1).Text) t=t end-t start’求两时间之差 m=t\60 If m
0 Then’如果通话在3分钟以上 s=s+(m-3)*0.15’计算通话赍用 End If Textl(2).Text=Str(S)+"元" Cmd1.Enabled=True ’使Cmdl可用 Cmd2.Enabled=False’Cmd2不可用 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim a(5,10)As Integer Dim s(5) Private Sub Commandl C1ick() Open app.Path&"\in4.txt"For Tnput As #1 ’时文件进行读操作 For i=1 To 5 For j=1 To 10 Input#1,a(i,j)’依次将文件中的数据读入教组a中 Next j Next i Close #1 End Sub Private Sub Command2click() For i=1 To 5 S(i)=0 For j=1 To 10 s(i)=S(i)+a(i,j)将10个人的各科成绩累加并存入S Next j S(j)=CInt(s(i)/10)’求平均值并取整 Text1(i-1):s(i)’依次显示各科成绩 Next i End Sub Private Sub Command3_Click() For k=1 To 5’依次绘图并显示 Shapel(k-1).Height=S(k)*20 m=Line2.Y1 Shape1(k-1).Top=Line2.Y2Shape1(k-1).Height Shape1(k-1).Visible=True 设置图形可见 Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)单击“通话开始”按钮,通过Str(Time())语句在“开始时间”右侧的文本框中显示开始时间,即系统的当前时间,且“通话结束”命令按钮的Enabled属性设置为True,变为可用状态,“通话开始”命令按钮的Enabled属性设置为False,变为不可用。
单击“通话结束”按钮,通过Str(Time())语句在“结束时间”右侧的文本框中显示结束时间,即系统的当前时间,同时把系统时间通过Minute()函数、Hour()函数和Second()函数换算成以秒为时间单位,计算通话费用,并将其显示在“通话费用”右侧的文本框中,“通话开始”命令按钮变为可用状态,“通话结束”命令按钮不可用。
(2)单击“读入数据”按钮,运用文件操作和For循环语句从文件in4.txt中读入数据放到二维数组a中。在Command2_Click事件过程,计算5门课程的平均分,通过CInt()甬数对平均分取整,存人数组s(i),并依次放入Text1文本框数组中。在Command3_Click事件过程中,通过形状控件的Height、Top属性和线条的Y1属性,画出直方图,并通过设置形状控件的Visible属性使平均分的直方图显示出来。
转载请注明原文地址:https://kaotiyun.com/show/nhHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序执行后,在窗体上输出的图案是()。Form1.ClsFora=1To5PrintSpace(5-A);String(a,"*") Nexta
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
使用()方法,可清除列表框中所有的列表项。
下列VisualBasic变量名中,正确的是()。
文件列表框中用于设置或返回所选文件路径和文件名的属性是
下列关于控件数组的叙述中,正确的是
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
数据库技术的根本目标是要解决数据的
下面描述中不属于数据库系统特点的是()。
随机试题
麻黄碱滴鼻治疗鼻塞已被羟甲唑啉取代。
简述公共政策变动的原因。
甲市人民政府决定,一项地方规章由于客观情况发生重大变化而失效,下列与此相关的表述中,正确的有()。
在进行员工满意度调禽时,要根据()确定调查的内容。
陈鹤琴主张教育的设计性、整体性、________三者结合的教学法,强调从幼儿的认知水平、能力、经验、兴趣出发,在他们所直接接触到的自然与社会环境中选取中心。
(2009年真题)如图3.11,长方形ABCD中,AB=a,BC=b(b>a),若将长方形ABCD绕A点顺时针旋转90°,则线段CD扫过的面积(阴影部分)等于[]。
下列选项中,属于犯罪预备行为的有()。
MindYourCaloriesorYourWaistline?Cuttingbackthecaloriesmaydomorethanwhittleyourwaistline;itcouldprotecty
TowardstheendofJune,auniquejointexpeditionbeganinthewatersnearIndonesia.Inanareaofremarkablemarinediversity
Itisdifficulttobelievethat,onlyeightyyearsago,theideaofthedomesticelectriclightwasheldincontemptbyallthe
最新回复
(
0
)