VB数据格式问题

请教VB中一个数据格式的问题~

有两个方法
1,在数据库里金钱类直接用金钱的数据类型,出来后自动就会自动转为金钱型
2\在程序里处理,加入round(val(还款金额),2)

你定义了a为single类型但是a/10^-2是什么类型呢？
修改如下：
Dim
a
As
Single
dim
b
as
single
Private
Sub
Command1_Click()
a
=
Val(txt.Text)
b=
a
/
10
^
-2
txt1.Text
=b
End
Sub
这样就可以了

张老师,你粗心了!
1 & 2 = 12
应该是:
"1" & "2" 的结果是"12"
我来罗嗦几句：
在程序中所谓的数据最基本的包括两类：数字和文字（VB术语称为字符），比如：
Dim a As Integer
Dim S As String
中，变量a被声明为数值（整数）类型，而S被声明为字符（字符串）类型，这样在程序中对这两个变量的赋值就有了数据类型的要求：a只能存放整数，S只能存放字符，例如：
a = 5
s = "5"
或者S = "中国"
将一个字符串赋值给变量，必须将字符串用双引号。
关于运算符号：& 和+，可以将两个字符串首尾连接起来成为一个字符串，例如：
S = "中国" & "人民" ，这样在变量里其实存放的是"中国人民"
即这句与S = "中国人民"具有相同的作用。再例如：
Dim S1 As String
Dim S2 As String
S = S1 & S2 将得到同上的结果
上面几个例子里的&符号改用+符号，效果一样。
那么，也许有人要问为什么Print 1 & 2
结果，看到的是12呢？
原因，VB具有自动转换类型的功能，当它看到&时，它会自动将前后的整数类型转换成字符类型。所以VB 的这种宽容，并非好事情。

括号：表示优先计算或者执行，括号内返回一个数值或者逻辑值等。(1+2) /3
引号：表示字符型
双引号：表示字符型，一般来说，双引号内用单引号。　"abd" , '123'
& ：是连接字符的，合并。1 & 2 =12
+：数值计算。 1+2=3

张志晨：vb的帮助中有。

---

息烽县19886822430： 请教VB中一个数据格式的问题 - ？
宇维天晴： 用Format(字符串,格式) Text1=Format(0.51,＂0.00＂)

息烽县19886822430： vb 书写格式问题？
宇维天晴： 只要语法正确就行了,用缩进格式是为了方便查找错误

息烽县19886822430： VB 数值格式如何定义 - ？
宇维天晴： 希望可以帮到你. Sub ttt() a = 12343222222# If Len(a) <= 6 And InStr(a, ＂.＂) = 0 Then b = a ElseIf InStr(a, ＂.＂) = 0 Then b = Format(a, ＂000000E+＂) ElseIf InStr(a, ＂.＂) <> 0 Then b = Format(a, ＂0.00000E+＂) End If Debug.Print b End Sub

息烽县19886822430： vb excel 文件格式和扩展名不匹配 - ？
宇维天晴： 1.开始→运行, 输入regedit回车;2.定位到注册表子项HKEY_CURRENT_USER/Software/Microsoft/Office/14.0/Excel/Security.3.在右侧空白处点击鼠标右键,选择“新建 -> DWORD值(D)”,输入“ExtensionHardening”,点击确定;4.用鼠标右键点击ExtensionHardening,单击“修改(M)”,在数值数据中填写“0”回车; 5、关闭注册表编辑器即可解决问题.

息烽县19886822430： 关于VB限制输入格式的问题 - ？
宇维天晴： 还要求数据不得出现“2008-13-56”这样错误的日期吗? 答案补充: Private Sub Command1_Click() On Error GoTo cuowu Dim date0 As Date date0 = CDate(Text1) MsgBox ＂你已经正确的输入了日期:＂ & Format(date0, ＂yyyy年mm月dd日＂) Exit Sub cuowu: MsgBox ＂日期无效或者格式错误!＂ End Sub

息烽县19886822430： 关于vb MSComm控件 发送数据的格式 问题 - ？
宇维天晴： 一个例子:Private Sub Command1_Click() Dim aa(0) As Byte aa(0) = Val(Text1.Text) MSComm1.Output = aa End Sub Private Sub Form_Load()'----------------------------初始化串口配置---------------------------------------------- With MSComm1 If ....

息烽县19886822430： vb 使用数据窗体向导时 出现不可识别的数据库格式是怎么回事 - ？
宇维天晴： 两种可能,数据库版本或格式不对,或密码不对.

息烽县19886822430： vb设置excel格式问题？
宇维天晴： 可以用NumberFormatLocal 和NumberFormat 两个属性设置 假设你的worksheet对象是 Mysheet,下面是几个实例 Mysheet.Range(＂C4:D9＂).NumberFormatLocal = ＂[$-F800]dddd, mmmm dd, yyyy＂ Mysheet.Range(＂F14:F16＂).Select ...

息烽县19886822430： VB中检查文本文件格式是否正确 - ？
宇维天晴： Public Function checkStr(str As String) As Boolean Dim a() As String a = Split(str, ＂,＂) For i = 0 To UBound(a) - 1 If (IsNumeric(a(i)) = False) Then checkStr = False Exit Function End If Next i checkStr = True End Function 你弄一个字符串 试试应该可以的 是数字返回true 不是纯数字返沪false

息烽县19886822430： VB关于字符与数字之间转换的问题 - ？
宇维天晴： Access数据库的数字数据包括整形、长整型、单精度、双精度、字节,“结果小数点都消失不见了”可能你的数据类型是整形、长整型、字节数据. 对于单精度数据在vb中显示的格式是32.5、3.2、.8,而像30.2,03.5显示为30.2,3.5,如果你必须显示为:30.2,03.5,可以将其转换成字符串才可以. 数字转换为字符串的函数:CStr()、Str() 字符串转换为数字的函数:val() 例如:要显示3.5的数字为03.5:A = ＂0＂ & CStr(3.5)