"dim i& S$"中的&、$代表什么意思？

huzh · 发表于 2014-9-7 08:42

dim i& S$
在代码区为什么要用&、$这些符号定义变量，它们分别代表什么意思？

zhaojiaoyang200 · 发表于 2014-9-7 08:45

&：长整型
$:字符型

dajiahaoxinku12 · 发表于 2014-9-7 09:14

integer % 短整型
long & 长整型
single ! 单精度浮点型
double # 双精度浮点型
currency @ 货币型
string $ 字符型

huzh · 发表于 2014-9-7 19:14

dajiahaoxinku12 发表于 2014-9-7 09:14
integer % 短整型
long & 长整型
single ! 单精度浮点型

谢谢老师*-*，祝您中秋快乐！

huzh · 发表于 2014-9-7 19:15

zhaojiaoyang200 发表于 2014-9-7 08:45
&：长整型
$:字符型

谢谢老师*-*，祝您中秋快乐！

aoe1981 · 发表于 2014-9-7 23:05

dajiahaoxinku12 发表于 2014-9-7 09:14
integer % 短整型
long & 长整型
single ! 单精度浮点型

分别对应数字键1、2、3、4、5、7，由此判断，我想一共有这6种有简明符号表示了……

zhlsh2007 · 发表于 2016-5-31 09:43

学习了，简明！

chwj110 · 发表于 2017-3-6 17:50

学习了。。。。

yyyzw0125 · 发表于 2017-6-22 10:33

从零开始的小白,学习了,谢谢

182197315 · 发表于 2018-6-9 17:31

Sub aa()
Application.ScreenUpdating = False
Dim i%, sr1$, sr2$, x!, myPath$, myFile$, aDoc As Document
myPath = ThisDocument.Path & "\"
myFile = Dir(myPath & "*.doc?")
Do While myFile <> ""
If myFile <> ThisDocument.Name Then
      Set aDoc = Documents.Open(myPath & myFile)
      With aDoc.Tables(1)
         For i = 2 To .Rows.Count - 1
            sr1 = Replace(.Cell(i, 2).Range.Text, Chr(7), "")
            If sr1 Like "*保洁不到位*" Or sr1 Like "*零星垃圾*" Then
                  sr2 = "-0.5分"
            ElseIf sr1 Like "*卫生差*" Or sr1 Like "*乱搭盖*" Or sr1 Like "*乱张贴*" Or sr1 Like "*乱拉挂" Then
                  sr2 = "-1分"
            ElseIf sr1 Like "*垃圾堆积*" Or sr1 Like "*建筑垃圾*" Then
                  sr2 = "-2分"
            ElseIf sr1 Like "*陈年垃圾*" Or sr1 Like "*卫生死角*" Or sr1 Like "*焚烧垃圾*" Then
                  sr2 = "-3分"
            End If
            .Cell(i, 4).Range.Text = sr2
            x = x + Val(sr2)
         Next
         .Cell(.Rows.Count, 4).Range.Text = 100 + x & "分"
      End With
      aDoc.Close True
End If
myFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

		自动登录	找回密码
密码			免费注册

[求助] "dim i& S$"中的&、$代表什么意思？

评分