20200420使用VB6.0求12选3的全组合数
最近需要求组合数（买双色球生成号码用^_）
以前在大学专门学习过VB6.0，今后会迁移到VC6.0。
预计会在2020.5.1强化一下MFC，就可以了！
Option Explicit
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
Dim h1%, h2%, h3%, h4%, h5%, h6%
Dim h6sum%
广泛用于生物单分子研究的光镊力谱技术,其皮牛级的力学测量性能依赖于光阱刚度和微球位移的精确测量.为实现纳米精度的位移测量能力,在分析背焦平面干涉法测量精度的基础上,提出了基于四象限光电探测器(QPD)和现场可编程门阵列(FPGA)开发板的测量方案,并建立了相应的测量系统.实验采用精密位移台驱动固定微球往复经过光阱,对系统的测量性能进行了标定.结果表明,该方案的探测灵敏度达到12.1 m V/nm,探测精度优于3 nm,探测分辨力小于1 nm,满足生物单分子拉伸力谱测试对微球位移探测的要求.
