首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2019-05-14
31
问题
在考生文件夹下有一个工程文件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
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
在考生目录下有一个工程文件sit5.vbp。窗体左边的图片框名称为Picturel,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为“文件”,名称为File,此菜
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.85所示。要求:①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;②请编写适当的程序完成以下功能:在Textl中输入40(度数),选择一
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为.CDl的通用对话框,通过属性窗口设置CDl的初始路径为C:\,默认的文件名为None,标题为“保存等级考试”,如图3.125所示。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为ShapeI的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求:①圆角矩形中填满绿色(颜色值为&
考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图3.187所示,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入到5行40列的二维数组a中,并按5行显示在Textl文本框内;单击“统计"按钮,则计算每行中小于50的数之和,及这
在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时,若选中“累加”单选按钮,则“10”、“12”菜单项不可用,若选中“阶乘”单选按钮,则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后,单击“计算”按
随机试题
2003年7月,海信、康佳等5家企业发起成立了“闪联”组织,目的是制定“3C”产业标准。这些企业通过成立“闪联”进行合作的战略应属于
三棱药材来源于
下列平喘药物中不属于β肾上腺素受体激动药的是
骨囊肿好发于
体现医患之间契约关系的有下列做法,但不包括
有位营养师对某家庭用称重记账法进行了食物摄取量的调查,他设计了调查表。并入户作了详细的调查。您认为他的做法有无不当之处。[浙江省2011年三级真题]入户的调查步骤:(1)入户。(2)填写家庭食物量登记表中的食物编码。(3)登记购进量。(4)收取调
()认为人的本质是好的,具有发挥自身内在各种潜在能力、追求不断发展的基本倾向。
日本有机蔬菜的认证条件非常苛刻,要求种植有机蔬菜的土地3年以内没有使用过任何农药、化肥。日本有机蔬菜的售价只比普通蔬菜高20%-30%。而在中国,有机蔬菜的价格是普通蔬菜的数倍甚至10倍。这说明,中国的有机蔬菜种植业是暴利行业。以下哪项陈述是上述结论需要假
设三阶方阵A,B满足A2B—A—B=E,其中E为三阶单位矩阵,若A=则|B|=_______.
Intellectistothemind_______sightistothebody.
最新回复
(
0
)