计算机在材料科学与工程中的应用实验设计与指导 教学课件 作者 叶卫平波长筛选和吸收率计算程序.docVIP

波长筛选和吸收率计算程序 下为波长选取与吸收率计算的VB主程序。 波长筛选程序： Private Sub Command6_click() List1.Clear Text1= Text2= Text3= Dim I As Integer,TempLine As String CommonDialog1.Filter=TXT格式|*.txt|XLS格式|*.xls|所有格式|*.* CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 I=-2 Do While Not EOF(1) I=I+1 If I=-1 Then Line Input #1, TempLine Else Input #1, WaveLength(I), RValue(I) End If Loop Close #1 For I=305-300+1 To 350-300+1 Step 5 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I For I=360-300+1 To 550-300+1 Step 10 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I For I=57