通过一个函数,已经使得整型变量为0,在一个过程里,picture1.currenty被赋与这个0,可是在监视窗口里显示currenty为-1.626016E-03,这和它为SINGLE型有关吗?
解决方案 »
- winsock Get网页问题
- 如何用WinVerifyTrust验证文件的数字签名?
- 求一算法(可能涉及组合与排列),就这么多分了,求救啊
- 请问如何使用Listview控件下的finditem方法呢?
- 请各位急救?关于把数据导出到EXCEL中的问题?在线等待......
- 怎样将TreeView中的记录按从上到下的顺序存储到数据库中?
- VB中关于unicode->byte的问题
- VB 中如何实现两个窗体之间信息的传递?FORM1到FORM2的传递!
- 来人谁有个VB 制造业 bom管理,源码的
- 如何将print的输出输出到打印机?
- 有个叫ANTIGIF的ACTIVEX控件,谁知道哪里有?
- 请教一个SQL数据库查询语句的问题?急50分做报酬
For n = 0 To L - 1
X1 (n)
picIn.CurrentX = n
picIn.CurrentY = CSng(PutIn)
picIn.PSet (picIn.CurrentX, picIn.CurrentY), vbRed
AR(n) = PutIn
AI(n) = 0
Next n
Private Sub X1(n As Integer)
If n >= 0 And n <= 3 Then
PutIn = 1
Else
PutIn = 0
End If
End Sub
难道真的是机器的问题?我之前提的问题难道也是机器的事吗?
picIn.ScaleMode = 1 '加上这个看看
End Sub
Single除0以外的最小值是±1.626016E-03解决方法:
在该过程的前部加上“Dim n As Long”