易截截图软件、单文件、免安装、纯绿色、仅160KB

大家帮忙看看VB中计算问题

大家帮忙看下,在VB中有个变量str=0.00016如何计算让它变成是1.6*10的4次方
还有个问题是关于数据库查询的
在ACCESS中如何查询时,判断字段1是否为空如果是则查询字段2
在SQL中应该是select case 字段1 isnul then 字段2 end from 表名
大家看看在ACCESS中是查询的,解决了再加分
str = cdbl(str) * 100000000#

VB code:
Option Explicit

Private Sub Form_Load()
Dim strP As String
strP = "0.00016"
strP = Val(strP) * 100000000
Text1.Text = strP
End Sub



第一个问题本是1.6×10的-4次方,你要变10的4次,就将其×10的8次方(问题有点过于简单?)
[access] select iif(isnull(字段1),字段2,字段1) from 表名

刚才说错了,应该是1.6*10负4次方,我按照你们的方法怎么结果是160000

VB code:
str = Format$(0.00016,"#.#E+")


VB code:

Dim istr As String
istr = Format(0.00016, "0.##E+")



str = Format$(0.00016,"#.#E+")

VB code:
Private Sub Form_Load()
s = Format(0.00016, "0.0E+")
MsgBox


相关问答:

vb打印问题


Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

为什么我感觉VB反比VC难学……

VB语句像英语,C++语句像数学,我数学比英语好……

有些VB语句干脆就是英语句子,虽然很容易懂,但我不是老外,对英语没有任何亲切感,也就不感觉VB更容易,相反C++语句逻辑性更强,像数学题似的,看的反而流 ......

怎样保存VB的combobox的list值?

form1 中,我在Text1里输入1111111111

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub

点Command1,就写到Combo1的 下拉菜单里去了 ......

VB窗体的属性设置代码

这段程序中
Begin VB.Forms_frmmain    BorderStyle = 1 'fixed single
    Caption = "速算24"
    clientHeight = 6375
    clientLeft = 154 ......

VB/VB.Net如何实现用Label在不同位置移动的效果?

还记得上微软网站更新系统补丁时,每当勾选一个升级项时,在当前勾选的位置会出现一个带文字的黑框平滑的飞向已选数量的位置上并加1,当取消勾选时以相反的方向从已选数量的位置上飞回并减1,这个效果动感有个性,现 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号