- 1、本文档共2页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
编程漫谈:自动输入性能数据方法 在运行程序时,确定产品的系列和输入容量后,如何使损耗、阻抗等 自动输入,在 VB 和 Excel 中,有不同的方法,现将代码介绍如下: 1. VB 优化设计的方法
1.1 输入“容量”,点击《产品系列》 按健, 程序取出性能数据的 .TXT 文件,代码如下;
Open App.Path \ S11.TXT For Input As #inN
1.2程序对.TXT文件进行取数循环,当.TXT文件中的容量等于输入 容量时,将其性能数据赋于相应的变量,结束循环。
Do Until EOF(inN)
Input #inN, SP, SPK, SPO, SUK, SIO
If P = SP Then PK = SPK: PO = SPO: UK = SSUK: IO = SIO
Exit Do
Loop
Close #inN
2. Excel 优化设计的方法
2.1 性能数据放在工作表中。输入“容量” ,点击《产品系列》按健, 程序在工作表,如( 表 1)中取出事先输入的性能数据放入一个二 维数组里,代码如下;
Private Sub CommandButton4_Click()《产品系列》按健
Dim S11(18, 6) ‘定义二维数组
P = Range(D4).Value将单元格的值赋于“容量
P = Range(D4).Value
For I = 1 To 18
二维数组循环For j = 1 To 6
二维数组循环
S11(l, j) = Worksheets(表 1).Cells(l + 22, j + 7).Value
If S11(l, 1) = P Then II = I ‘找出容量P所在行II,供查找用
Next j
Next I
Range(B4).Value = S11(II, 2) ‘将 II 行相应列的数据输入到单元格 Range(C8).Value = S11(II, 4)
Range(D8).Value = S11(II, 3)
Range(F8).Value = S11(II, 5)
Range(E8).Value = S11(II, 6)
End Sub 从二维数组中找到输入容量所在行; 自动将性能数据放到所在位置的单元格,完成。
您可能关注的文档
- 编程漫谈程序调试方法.docx
- 编程语言perl开发环境在windows下的安装与配置.docx
- 编程训练题目3.docx
- 编码解码芯片pt2262pt2272芯片原理及编码说明.docx
- 编程漫谈最优解排队方法.docx
- 编组牵引机操作说明.docx
- 编译原理复习资料整理,你一定用的上哦.docx
- 编码解码芯片pt2262.docx
- 编辑出版论文选题参考.docx
- 缘分文章_爱情感悟.docx
- 2024年05月山东交通职业学院招考聘用博士研究生50人笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月安徽芜湖市弋江区老年学校(大学)工作人员特设岗位公开招聘2人笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月山东东营河口区教育类事业单位招考聘用22人笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月山东交通职业学院招考聘用100人笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月山东威海职业学院招考聘用高层次人才2人笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月安徽石台县事业单位工作人员33人笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月山东滨州市博兴县事业单位公开招聘考察笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月安徽蚌埠固镇县湖沟镇选聘村级后备干部7人笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月山东省安丘市教育和体育局所属事业单位学校公开2024年招考232名工作人员笔试历年典型题及考点剖析附带答案含详解.docx
- 2024年05月山东临沂临港经济开发区工作人员(5人)笔试历年典型题及考点剖析附带答案含详解.docx
文档评论(0)