首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2019-05-14
49
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示,如图所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并在Text2中显示。
每吨运费的计算方法是:距离×折扣×单价。
其中,单价为0.3。折扣为 距离<500
折扣为1
500≤距离<1000
折扣为0.98
1000≤距离<1500 折扣为0.95
1500≤距离<2000 折扣为0.92
2000≤距离
折扣为0.9
单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。
已经给出了所有控件和部分程序,要求:
①去掉程序中的注释符,把程序中的?改为正确的内容。
②编写“计算运费”按钮的Click事件过程。
③编写列表框的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须使用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并编写相应的代码。 参考代码 Dim a(10)As Integer,n As Integer Private Sub Cornmand1_Click() Open App.Path&"\in5.txt"For Input As#1 While Not EOF(1) n=n+
1
’下标循环加1 Input#1,ch$,a(n)’将文件依次读入ch,a(n)中 List1.AddTtem
ch
将城市名添加到List1中 Wend Close:#1 End Sub Private Sub Command2_lick() ’需要考生编写的内容 b=Val(Text1) Tf b>=0 And b<500 Then’判断b的范围 m=0.3*b ElseTf b>=500 And b<1000 Then m=0.3*b*0.98 ElseTf b>=1000 And b<1500 Then m=0.3*b*0.95 ElseIf b>=1500 And b<2000 Then m=0.3*b*0.92 ElseIf b>=2000 Then m=0.3*b*0.9 End If Text2=int(m) End Sub Private Sub List1_Clck() 需要编写的内容 Text1=a(List1.ListIndex+1) ’通过List1.ListIndex+1来确定所选城市对应的距离 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/iUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在文本框中,要设置显示的文本颜色,应该设置()属性。
设在工程中有一个标准模块,并定义了如下类型:TypeStutypeinoAsIntegerstmameAsString*20strsexAsString*2smarkAsSingle
以下()操作不能触发滚动条Change事件。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为CmdChange、标题为“改变颜色”的命令按钮,窗体标题为“设置窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红
在考生目录下有一个工程文件sit5.vbp。窗体中已经给出了所有控件(如图3—82所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Text1;单击“计算”按钮,.则计算出大于该数的第一个素数,并
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为.CDl的通用对话框,通过属性窗口设置CDl的初始路径为C:\,默认的文件名为None,标题为“保存等级考试”,如图3.125所示。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tul一1jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片框
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text
在考生文件夹中有一个工程文件sjt5.vbp,如图3.129所示。运行程序时,从文件中渎入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Command1、标题为“开始”的命令按钮,如图所示。要求:通过属性窗口设置适当的属性
随机试题
设y=ex(C1sinx+C2cosx)为某二阶常系数齐次线性微分方程的通解,则该方程为___________.
B型胃炎伴大量C细胞丧失胃溃疡
麻疹早期可见水痘皮疹是
职工发生工伤,经治疗伤情相对稳定后存在残疾、影响劳动能力的,应当进行劳动能力鉴定。根据《工伤保险条例》的规定,工伤职工劳动能力鉴定结论应由()做出。
质量管理体系文件一般由()构成。
某教师在进行“守护生命”教学时,通过展示实物、图片,让学生初步了解火灾、水灾等灾害,感受自护、自救的重要性。这里运用的教学方法是()。
我国的根本政治制度是()。
执行完下列语句段后,i值为()。intf(intx){return((x>0)?x*f(x—1):2):}i=f(f(1));
智能实验室开发了三个能简单回答问题的机器人,起名为天使、魔鬼、常人。天使从不说假话,魔鬼从不说真话,常人既说真话也说假话。他们被贴上A、B、C三个标记,但忘了标记和名字的对应。试验者希望通过他们对问题的回答来判断他们。三个机器人对问题“A是谁?”分别作了以
Inmostpeople’sideas,peoplelosetheabilitytolearnlanguagewell
最新回复
(
0
)