编程漫谈自动输入性能数据方法.docx

编程漫谈：自动输入性能数据方法 在运行程序时，确定产品的系列和输入容量后，如何使损耗、阻抗等 自动输入，在 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 从二维数组中找到输入容量所在行； 自动将性能数据放到所在位置的单元格，完成。