VB 小程序 计算器

微信公开课小程序热门讨论「VB 小程序 计算器」最新回复-你还不如用EXCEL做=(A1/B1)*(C1/D1)*((PI()*90)/3)如果非用VB,百度Hi我吧PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Cells(1,A)==PI()Cells(1,B)=下面的4个框中输入Z1234的备选值,多个值用逗号隔开Cells(2,A)=Z1Cells(3,A)=Z2Cells(4,A)=Z3Cells(5,A)=Z4Dimz1,z2,z3,z4Dima1,a2,a3,a4DimnRow,OutRowz1=Split(Cells(2,B),,)z2=Split(Cells(3,B),,)z3=Split(Cells(4,B),,)z4=Split(Cells(5,B),,)nRow=7OutRow=(UBound(z1)+1)*(UBound(z2)+1)*(UBound(z3)+1)*(UBound(z4)+1)Cells(6,B)=共&OutRow&条结果Range(Cells(nRow,A),Cells(nRow+1000,B)).ClearRows(nRow).ClearOnErrorResumeNextFora1=0ToUBound(z1)Fora2=0ToUBound(z2)Fora3=0ToUBound(z3)Fora4=0ToUBound(z4)Cells(nRow,A)=(&z1(a1)&/&z2(a2)&)*(&z3(a3)&/&z4(a4)&)*((&Cells(1,A)&*90)/3)Err.ClearCells(nRow,B)=(z1(a1)/z2(a2))*(z3(a3)/z4(a4))*((Val(Cells(1,A))*90)/3)IfErr.Number0ThenCells(nRow,B)=除数不能为0EndIfnRow=nRow+1NextNextNextNextEndSub
dimz1asdouble,z2asdouble,z3asdouble,z4asdoubledimpiasdouble,dasdoublepi=3.14159z1=val(txtZ1.text)z2=val(txtZ2.text)z3=val(txtZ3.text)z4=val(txtZ4.text)d=(z1*z2*pi*90)/(z2*z4*3) 更多有关「VB 小程序 计算器」的疑问请扫码关注微信公开课+小程序！了解更多