vb程序与子程序.docx

《vb程序与子程序.docx》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、OptionExplicitDimmy_yh_dataAsyh_data'优化后的数据存放数组PrivateSubcmd_para_Click()Form1.txt_fd.Enabled=TrueForm1.txt_gg.Enabled=TrueForm1.txt_gm1.Enabled=TrueForm1.txt_gm2.Enabled=TrueForm1.txt_gm3.Enabled=TrueForm1.txt_gm4.Enabled=TrueForm1.txt_hb1.Enabled=TrueForm1.txt_hb2.Enabled=TrueForm1.txt_hb3.Enab

2、led=TrueForm1.txt_hb4.Enabled=TrueForm1.txt_ka.Enabled=TrueForm1.txt_kt.Enabled=TrueForm1.txt_ly.Enabled=TrueForm1.txt_mh1.Enabled=TrueForm1.txt_mh2.Enabled=TrueForm1.txt_mh3.Enabled=TrueForm1.txt_mh4.Enabled=TrueForm1.txt_n1.Enabled=TrueForm1.txt_np.Enabled=TrueForm1.txt_p.Enabled=TrueForm1.txt_

3、rc1.Enabled=TrueForm1.txt_rc2.Enabled=TrueForm1.txt_rc3.Enabled=TrueForm1.txt_rc4.Enabled=TrueForm1.txt_st.Enabled=TrueForm1.txt_uu.Enabled=TrueForm1.txt_wn.Enabled=TrueForm1.opt_hb.Enabled=TrueForm1.opt_rc.Enabled=TrueForm1.opt_ds_y(1).Enabled=TrueForm1.opt_ds_n(1).Enabled=TrueForm1.cmd_tran.Ena

4、bled=TrueForm1.cmd_para.Enabled=FalseEndSubPrivateSubcmd_tran_Click()my_gear_data.p=CDbl(Val(txt_p.Text))my_gear_data.n1=CDbl(Val(txt_n1.Text))my_gear_data.uu=CDbl(Val(txt_uu.Text))my_gear_data.st=CDbl(Val(txt_st.Text))my_gear_data.gg=CInt(Val(txt_gg.Text))my_gear_data.fd=CDbl(Val(txt_fd.Text))my

5、_gear_data.np=CDbl(Val(txt_np.Text))my_gear_data.kt=CDbl(Val(txt_kt.Text))my_gear_data.ka=CDbl(Val(txt_ka.Text))my_gear_data.ly=CDbl(Val(txt_ly.Text))my_gear_data.wn=CDbl(Val(txt_wn.Text))my_gear_data.gm(1)=CInt(Val(txt_gm1.Text))my_gear_data.gm(2)=CInt(Val(txt_gm2.Text))my_gear_data.gm(3)=CInt(V

6、al(txt_gm3.Text))my_gear_data.gm(4)=CInt(Val(txt_gm4.Text))my_gear_data.mh(1)=CInt(Val(txt_mh1.Text))my_gear_data.mh(2)=CInt(Val(txt_mh2.Text))my_gear_data.mh(3)=CInt(Val(txt_mh3.Text))my_gear_data.mh(4)=CInt(Val(txt_mh4.Text))'---------------------------------------------------'一组原始数据my_gear_dat

7、a.uu=11.89my_gear_data.kt=1.3my_gear_data.ka=1my_gear_data.p=2.239my_gear_data.n1=710my_gear_data.fd=1my_gear_data.gg=8my_gear_data.gm(1)=1my_gear_data.gm(2)=1my_gear_data.gm(3)=1my_gear_data.gm(4)=1my_gear_data.ly=5my