Question

VB 感叹号作用

private sub form _ click（）
dim a!,b!,c!
a=val(inputbox("请输入")
b=val(inputbox("请输入")
C=val(inputbox("请输入")

Answer 1

VB感叹号作用：

• Single 的类型声明字符为感叹号 (!)。

  例    Dim a!，声明了一个Single数据类型的变量a。

• ！作为通配符使用于Like 运算符用来比较两个字符串之一`。

  语法

  result = string Like pattern

  Like 运算符的语法具有以下几个部分：

  部分            描述    

  result    
  必需的；任何数值变量。    

  string    
  必需的；任何字符串表达式。    

  pattern    
  必需的；任何字符串表达式，遵循“说明”中的模式匹配约定。

  pattern 中的字符    
  符合 string 中的

  [!charlist]    
  不在 charlist 中的任何单一字符.

• ADO数据对象中语句的使用作为记录集的一个字段标识。

  见下列代码：

Private Sub Command2_Click()
    Dim cn As New ADODB.Connection '定义数据库的连接
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim l As Integer
    Dim i As Integer
    Dim fieldName() As String
    sql = "select * from jishijilu "
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
    l = rs.Fields.Count
    Dim docApp As Object
    Set docApp = CreateObject("excel.Application")
    docApp.Visible = False
    Dim doc As Object
    Dim win As Object
    Set doc = docApp.Workbooks.Open(App.Path & "\123\biao.xls")
    Set win = doc.worksheets("sheet1")
    docApp.Visible = True
    For i = 0 To rs.Fields.Count - 1
        win.range("c" & i + 1).Value = rs!shijian '使用!感叹号标识
    rs.MoveNext
    Next
End Sub

Answer 2

single类型的变量用感叹号

Answer 3

! 是 single 单精度类型

Answer 4

Single数据类型