在线时间7281 小时威望1384 金钱15154 人气411 最后登录注册时间帖子精华0积分82340阅读权限255UID80817
逍遥宝殿CEO
擂点35 人气411 威望1384 注册时间精华0帖子
(86.45 KB, 下载次数: 14)
23:45 上传
点击文件名下载附件
吃了吗？您呐！“吃饱了不饿”是一句放之四海而皆准的至理名言。
明天偶请您吃：蒸羊羔,蒸熊掌,蒸鹿尾儿
烧花鸭,烧雏鸡儿,烧子鹅 ,卤煮咸鸭,酱鸡,腊肉,松花,小肚儿
晾肉,香肠,什锦苏盘, 熏鸡,白肚儿,清蒸八宝猪,江米酿鸭子
罐儿野鸡,罐儿鹌鹑, 卤什锦,卤子鹅,卤虾,烩虾,炝虾仁儿,山鸡
兔脯,菜蟒,银鱼, 清蒸哈什蚂,烩鸭腰儿,烩鸭条儿,清拌鸭丝儿
黄心管儿, 焖白鳝,焖黄鳝,豆鼓鲇鱼,锅烧鲇鱼,烀皮甲鱼,锅烧鲤鱼
......板鸭,筒子鸡。
明天__永远的明天
在线时间7281 小时威望1384 金钱15154 人气411 最后登录注册时间帖子精华0积分82340阅读权限255UID80817
逍遥宝殿CEO
擂点35 人气411 威望1384 注册时间精华0帖子
其实18#还应该考虑科学记数含有&E&的情况才完整
在线时间910 小时威望47 金钱2330 人气14 最后登录注册时间帖子精华0积分10127阅读权限150UID135957
网络程序员, 积分 10127, 距离下一级还需 5873 积分
擂点0 人气14 威望47 注册时间精华0帖子
single能表示最大精度是小数点后约六位，double能表示的精度是小数点后14位，
楼上再测试一下看看，理论上来说 single的确是够了
在线时间910 小时威望47 金钱2330 人气14 最后登录注册时间帖子精华0积分10127阅读权限150UID135957
网络程序员, 积分 10127, 距离下一级还需 5873 积分
擂点0 人气14 威望47 注册时间精华0帖子
定义为double或干脆不去定义让VB自己决定
(24.25 KB, 下载次数: 10)
05:58 上传
点击文件名下载附件
在线时间910 小时威望47 金钱2330 人气14 最后登录注册时间帖子精华0积分10127阅读权限150UID135957
网络程序员, 积分 10127, 距离下一级还需 5873 积分
擂点0 人气14 威望47 注册时间精华0帖子
本帖最后由 qzxym 于
06:15 编辑
Private Sub Form_Load()
& & f2 1.00019
& & Debug.Print &----------------& & &
& & f 1.00019
Function f(x)
&&Debug.Print Format(x - 0.00005, &0.0000&)
End Function
Function f2(x As Single)
& &Dim i As Integer
& &i = InStr(x, &.&)
& &Debug.Print Format(Mid(x, 1, i) & Mid(x, i + 1, 4), &0.0000&)
End Function
(36.26 KB, 下载次数: 9)
06:13 上传
点击文件名下载附件
在线时间910 小时威望47 金钱2330 人气14 最后登录注册时间帖子精华0积分10127阅读权限150UID135957
网络程序员, 积分 10127, 距离下一级还需 5873 积分
擂点0 人气14 威望47 注册时间精华0帖子
本帖最后由 qzxym 于
06:22 编辑
当测试数据再次变更为 100.0.00019 时得到的答案就更有趣了：
(28.28 KB, 下载次数: 10)
06:20 上传
点击文件名下载附件
在线时间910 小时威望47 金钱2330 人气14 最后登录注册时间帖子精华0积分10127阅读权限150UID135957
网络程序员, 积分 10127, 距离下一级还需 5873 积分
擂点0 人气14 威望47 注册时间精华0帖子
结论是：要么定义为double,要么就不要定义，所以最好还是直接用format-0.00005吧
在线时间910 小时威望47 金钱2330 人气14 最后登录注册时间帖子精华0积分10127阅读权限150UID135957
网络程序员, 积分 10127, 距离下一级还需 5873 积分
擂点0 人气14 威望47 注册时间精华0帖子
至于是否用字符串的方法取数计算，我认为完全没有必要，要相信MS的工程师，既然提供format函数，必定也做过很多测试，我们直接使用岂不更为方便？即便要出错也是精度不够或者更底层的东西有bug，各位认为如何？
在线时间4 小时威望0 金钱67 人气0 最后登录注册时间帖子精华0积分67阅读权限10UID225828
初级程序员, 积分 67, 距离下一级还需 133 积分
擂点0 人气0 威望0 注册时间精华0帖子
第68期[3D窗体]擂主
第68期[3D窗体]擂主请教vb高手！_百度知道
请教vb高手！
有命令按钮名称为CmdA。怎么实现，将焦点改变到文本框TxtA上！”，将标签LabA上的文字改变为“你好，要求单击该按钮时；单击另一按钮CmdB则结束程序，并将LabB为不可见
提问者采纳
caption=&你好&quot.setfocustxtaprivate sub cmda_click()laba
提问者评价
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请教大神一个vb编程问题_百度知道
请教大神一个vb编程问题
E, min%max = -1min = 1000For i = 1 To 100If h(a(i)) ThenIf max &lt, k(i)k(i) = (Int(k(i) &#47.txt&quot.txt&= a(i) Then max = a(i)If min & 10) - a * 10) ^ 3 + (k(i) Mod 10) ^ 3Nexth =End FunctionPrivate Sub Command1_Click()Dim max%; 100)) ^ 3 + (Int(k(i) &#47:\ For Input As #1For i = 1 To 100Input #1; For Output As #1For i = 1 To 100a(i) = Int(Rnd * 999)Print #1:&#92！Private Function h(k() As Integer)Open &= a(i) Then min = a(i)End IfNextText1 = maxText2 = minEnd SubPrivate Sub Command2_Click()Open &E;abc窗体有2个text
2个command
单击command1
一个txt文件中100个0~999数字读取到a数组中
单击command2
找出这100数字中的水仙花数
并且判断这些水仙花数中的最值分别显示在2个text中
求代码谢谢
或者帮我改下我写的代码
注意大神们
我要function过程·
提问者采纳
不过原题是有问题的;E，水仙花数一般指的是三位数; 10)) Mod 10
a3 = j Mod 10
If a1 * a1 * a1 + a2 * a2 * a2 + a3 * a3 * a3 = j Then
If max &lt.txt&= j Then min = j
End IfNext iText1 = maxText2 = minEnd SubPrivate Sub Form_Load()Randomize TimerOpen & 100)
a2 = (Int(j / For Input As #1For i = 1 To 100
Input #1, k(i)Next iClose #1End SubPrivate Sub Command2_Click()max = -1min = 1000For i = 1 To 100
a1 = Int(j /= j Then max = j
If min &E帮你写了个程序:&#92, aNext iClose #1End Sub 若满意请及时采纳，而题中给出0到999范围不合适:&#92.txt& For Output As #1For i = 1 To 100
a = Int(Rnd * 1000)
Print #1，应该改为100到999Dim k(100) As IntegerPrivate Sub Command1_Click()Open &quot
这样写我也会
function过程！！
你想把哪个部分做成函数呢？
提问者评价
太给力了，你的回答完美地解决了我的问题，非常感谢！
其他类似问题
为您推荐：
vb编程的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 1359|回复: 11
请教！Labview怎样控制VB里面控件？
用vb写了个程序，上面有3个按钮，请问我能在lv里面控制这些按钮吗？
新手请教!!能传上点新手学习教程么!
大侠们能传上一些比较好上手的LV学习资料么?
最好是有讲解的教程!
在这个论坛提了两个问题都没有人回答个我听，真是心凉啊！
兄弟要打起精神
要控制VB的程式,你可以先取得窗口句柄,然后用SENDMESSAGE,控制
还有一种是,取得窗口位置,然后模拟真实控作,即点鼠标等事件
谢谢版主真诚赐教，请问版主可以发一个简单例子给我看看吗？
剑情斑竹：
可不可以把第二中方法说的更详细点？
真希望和你交流
是这样的，通过FINDWINDOW获得句柄 ,然后可以通过GetWindowRect获得坐标
然后SetCursorPos调整鼠标，
通过keyboard event及MOUSE event来进行模拟操作
谢谢 我回去做做看 做好了贴出来大家看看！！！可能也做不好
大家有别的方法也可以说说啊
我是按照这样的思路去做的：
首先取得vb一按钮在屏幕的坐标，然后用lv一开关对应鼠标左击事件，指定鼠标事件坐标，则点击开关就相当与点击vb按钮。这样的思路不知道对不对，望高手指教！！望浪子指点！！我现在还没有做出来啊
考虑一下我的思路.....
在LV中调用windows API函数设置一个环境变量A,在LV程序中通过改变A的值来启动VB程序的按键事件。然后，在VB中用一个定时器去不断取得A的值，并根据A的值去触发相应的按键事件。。。
这个方法有个不好的地方，就是往系统中增了一个环境变量。可以在退出程序前，把这个环境变量删掉。。。
是这样的，通过获得句柄 ,然后可以通过GetWindowRect获得坐标
然后SetCursorPos调整鼠标，
通过keyboard event及MOUSE event来进行模拟操作
剑情斑竹：不好意思，这方面做的太少了，还是要虚心向你请教。根据你的思路：
先通过CLF调用api函数FINDWINDOW获得句柄，调用时怎么才知道我获得的是我vb程序的句柄，获得句柄后又怎样得到另外三个按钮（vb中）的信息，并用lv去控制他们。
我搜索了论坛，前辈们好象讨论过这个问题，可惜当时没有答案！
谢谢大家帮忙
Powered by