首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
admin
2015-06-30
32
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.tXt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示,如图所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五人),并在Text2中显示。
每吨运费的计算方法是:距离×折扣×单价。
其中,单价为0.3。
折扣为距离<500 折扣为1
500≤距离<1000 折扣为0.98
1000≤距离<1500 折扣为0.95
1.500≤距离<2000 折扣为0.92
2000≤距离 折扣为0.9
单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。
已经给出了所有控件和部分程序,要求:
①去掉程序中的注释符,把程序中的?改为正确的内容。
②编写“计算运费”按钮的Click事件过程。
③编写列表框的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须使用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(10) As Integer, n As Integer Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 While Not EOF(1) ’ n = n + ? Input #1, ch$, a(n) ’ List1.AddItem ? Wend Close #1 End Sub Private Sub Command2_Click() ’需要考生编写的内容 End Sub Private Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, List1.Text, Text1, Text2 Close #1 End Sub Private Sub List1_Click() ’需要考生编写的内容 End Sub 程序结束 参考答案 第1个?处填入:1 第2个?处填入:ch Private Sub List1_Click() Text1 = a(List1.ListIndex + 1) End Sub Private Sub Command2_Click() b = Val(Text1) If b >= 0 And b < 500 Then m = 0.3 * b ElseIf b >= 500 And b < 1000 Then m = 0.3 * b * 0.98 ElseIf 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 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/7fQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列可以激活属性窗口的操作是
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_click()Dima(1To10)Dimp(1To3)k=5Fori=1To10
使用通用对话框控件时,要在打开的对话框的标题栏上显示“保存文件”,应把这4个汉字赋给的属性变量是
设有如下声明:DimxAsInteger如果Sgn(x)的值为-1,则表示x的值是
下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt,请填空。PrivateSubFormC1ick()DimchAsStringOpen"C:\a1.txt"For【】
控件数组的名字由【】属性指定,而数组中的每个元素由【】属性指定。
在关系数据库中,对一个关系做投影操作后,新关系的元组个数将
以下Prime过程,用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数:如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整:
Jackson方法是一种面向【】的结构化方法。
Jackson结构化程序设计方法是英国的M.Jackson提出的,它是一种面向【】的设计方法;
随机试题
Wegotupearlythismorningand【C1】______alongwalkafterbreakfast.Wewalked【C2】______thebusinesssectionofthecity.Ito
下列传染病强制管理的是
患儿,男,8岁。反复咳嗽1个半月,咳嗽呈发作性,夜间剧,干咳痰少,用多种抗生素治疗无效,口服氨茶碱咳嗽明显减轻。应首先考虑的诊断是
根据《污水综合排放标准》(GB8978-1996),()属于第一类污染物。
下列说法中正确的是()。
(操作员:张主管;账套:101账套;操作日期:2014年1月1日)设置账套的凭证类型为记账凭证。编码:记名称:记账凭证格式:记账凭证
关于股份支付中的取消或结算(因未满足可行权条件而被取消的除外),下列各项表述中正确的有()。
“无论犯罪人是本国人还是外国人,只要在本国领域内犯罪,都适用本国刑法。”这体现了()。
从装有1个白球,2个黑球的罐子里有放回地取球,记这样连续取5次得样本X1,X2,X3,X4,X5。记Y=X1+X2+…+X5,求:,S2分别为样本X1,X2,…,X5的均值与方差).
WhatdidthemandolastSaturday?
最新回复
(
0
)