中科新闻网抓烟机多少钱一台:一个关于VB程序的问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/05 22:44:23
我想制作一个小程序，用于计算人的生物节律，具体情况如下：
x=365.25A±B
x为整数，凡有小数，小数部分大于或等于0.75，则进一，其余舍去。
A为测试日减去测试人出世公元年。
B为算日那年生日到算日的天数。生日在算日前用加号，在后用减号。
最后用x除以33得出余数即可。
谢谢各位了。麻烦把代码写完整一点。（注意写注释，我才学VB不久）
对看那边的人说：生日在算日前用加号，在后用减号
x=365.25A±B
x为整数，凡有小数，小数部分大于或等于0.75，则进一，其余舍去。
A为测试日减去测试人出世公元年。
B为算日那年生日到算日的天数。生日在算日前用加号，在后用减号。
最后用x除以33得出余数即可。
谢谢各位了。麻烦把代码写完整一点。（注意写注释，我才学VB不久）
对看那边的人说：生日在算日前用加号，在后用减号
a b x 都为变量。
首先得在声明变量
option explicit
dim a as date '你的a是日期吧，写得我看不懂
dim b as variant
dim x as iteger
然后再load 那里把数值赋予a b x
a = text.text1
b = text.text2
然后应该有个按钮，在按钮的触发事件中加入
x = 365.25 * a + b
x = 365.25 * a - b
w = 33 mod x
print w
'加或减的处理方法你没说，自己加个if <条件〉then
..... if end 进去吧