自己编写的VB程序，请大家多指教！（赚一点积分嘿嘿……）部分代码如下：PrivateSubCommand1_Click()k=1.4D=Val(Text1.Text)S=Val(Text2.Text)Ne=Val(Text3.Text)nh=Val(Text4.Text)ε=Val(Text5.Text)L=Val(Text6.Text)R=Val(Text7.Text)ge=Val(Text8.Text)P0=Val(Text13.Text)T0=Val(Text12.Text)gc=Val(Text9.Text)gh=Val(Text10.Text)go=Val(Text11.Text)mt=Val(Text14.Text)i=Val(Text15.Text)ι=Val(Text16.Text)α=Val(Text38.Text)ξz=Val(Text40.Text)φi=Val(Text41.Text)ηm=Val(Text42.Text)n=Val(Text45.Text)Vh=(S*0.01)*3.14*(D*0.01)^2/4'排气过程Pr=1+0.3*n/nhTr=850+350*n/nhText17.Text=Val(Pr)Text18.Text=Val(Tr)'进气过程δ=0.5ΔT=ΔTh*(110-0.0125*n)/(110-0.0125*nh)Pa=Int(10^3*(P0*(1-((10*n^2/520/10^6)/10.6^2/0.75^2)*(ε-δ)^2/(ε-1)^2)^(k/(k-1))))/10^3γ=Int(10^3*(T0+ΔT)*Pr/Tr/(ε*Pa-Pr))/10^3Text44.Text=γText19.Text=PaTa=(T0+ΔT+γ*Tr)/(1+γ)ηv=ε*Pa*T0/(ε-1)/P0/Ta/(1+γ)Text20.Text=Val(Int(1000*Ta)/1000)Text21.Text=Val(Int(1000*ηv)/1000)'压缩过程n1=1.46-0.05*Nn/nPc=Pa*ε^n1Tc=Ta*ε^(n1-1)Text22.Text=Val(Int(1000*Pc)/1000)Text23.Text=Val(Int(1000*Tc)/1000)'燃烧过程L0=(gc/12+gh/4-go/32)/0.21M1=α*L0+1/mtCv1=(4.815+0.415*10^(-3)*Tc)*4.1868M2=0.79*α*L0+gh/2+gc/12A=(3.7+3.3*α)*10^(-4)*4.1868B=(4.4+0.62*α)*4.1868μ0=M2/M1μ=(μ0+γ)

一款用于地磅称重管理的软件（vb源代码），有仪表通讯串口以及地磅毗邻读取份量的示例。
能够展现皮重，毛重，有数据库清单。
登录密码为admin，阻滞能帮手朋友

图书管理系统(VB),源代码+word文档,里面有VB代码，可执行文件，Access数据库，文档。
绝对可以运转，拿来分享。

先生信息管理系统(vb)源代码先生信息管理系统(vb)源代码先生信息管理系统(vb)源代码先生信息管理系统(vb)源代码先生信息管理系统(vb)源代码先生信息管理系统(vb)源代码先生信息管理系统(vb)源代码

VB源代码200例.zip

8X8X8光立方取模软件，内有VB源代码，有了它就可以仿照写出本人的光立方取模软件了

职工考勤管理零碎-VB源代码-VB编程毕业设计.doc

一款用于地磅称重管理的软件（vb源代码），有仪表通信串口和地磅连接读取重量的示例。
可以显示皮重，净重，有数据库清单。
登录密码为admin，希望能协助朋友

功能比较齐全，支持高清视频720P（1280x720）和全高清视频1080P（1920x1080）的实时视频，可实现一对一的高清实时通话，还可以实现多对多的高清实时会议。
是难得的优秀视频会议系统VB源代码。
在WINDOWS平台运转。
可在局域网内使用。

在日常工作中，钉钉打卡成了我生活中不可或缺的一部分。然而，有时候这个看似简单的任务却给我带来了不少烦恼。 每天早晚，我总是得牢记打开钉钉应用，点击"工作台"，再找到"考勤打卡"进行签到。有时候因为工作忙碌，会忘记打卡，导致考勤异常，影响当月的工作评价。而且，由于我使用的是苹果手机，有时候系统更新后，钉钉的某些功能会出现异常，使得打卡变得更加麻烦。 另外，我的家人使用的是安卓手机，他们也经常抱怨钉钉打卡的繁琐。尤其是对于那些不太熟悉手机操作的长辈来说，每次打卡都是一次挑战。他们总是担心自己会操作失误，导致打卡失败。 为了解决这些烦恼，我开始思考是否可以通过编写一个全自动化脚本来实现钉钉打卡。经过一段时间的摸索和学习，我终于成功编写出了一个适用于苹果和安卓系统的钉钉打卡脚本。