精华内容
下载资源
问答
  • VB定义字符串数组并赋值

    千次阅读 2019-06-26 16:56:56
    ReDim 语句用来定义或重定义原来已经用带空圆括号(没有维数下标)的 Private、Public 或 Dim 语句声明过的动态数组的大小。 EOF:指当前记录位置位于Recordset对象的最后一个记录之后。 UBound 函数返回数组中...

    一:代码如下

     --定义变量
      Dim J As Long  
      J = 0
      Dim sSQL As String
      Dim rs As ADODB.Recordset  ’--定义Recordset对象
      Dim sList() As String    '--定义数组      
      
      sSQL = "select WarehouseId from paraDBWarehouseId "     
      Set rs = K3Conn.Execute(sWarehouseIdSQL)
               
      While Not rs.EOF
           ReDim Preserve  sList(0 To J) As String '--重定义数组大小
           sList(J) = rs("name")           '--name 为表中的字段名
           J = J + 1
           rs .MoveNext
     Wend
    
      For c = 0 To UBound(sList)
           print sList(c)          
      Next c
    

    二:笔记:

    1. dim是声明私有变量的意思,另外还有公有变量和保护型变量,分别是public和private.
    2. ReDim 语句用来定义或重定义原来已经用带空圆括号(没有维数下标)的 Private、Public 或 Dim 语句声明过的动态数组的大小。
    3. EOF:指当前记录位置位于Recordset对象的最后一个记录之后。
    4. UBound 函数返回数组中指定数组维的最大下标值。
    展开全文
  • 请问在VB定义控件属性的方式采用字符串作为下标的数组是怎么定义的?这种类型的定义方法和函数的区别是什么,函数里可以定义么?
  • Private Sub Command1_Click() Dim b(0 To 6) As Byte定义Ansi字符串存放字节数组 doVBUniCodeToAnsiByte "123斯", b MsgBox StrConv(b, vbUnicode)Ansi字符串字节数组转UniCode字符串 End Sub Private Sub ...

    Private Sub Command1_Click()

       Dim b(0 To 6) As Byte'定义Ansi字符串存放字节数组

       doVBUniCodeToAnsiByte "123斯", b

       MsgBox StrConv(b, vbUnicode)'Ansi字符串字节数组转UniCode字符串

    End Sub

     

    Private Sub doVBUniCodeToAnsiByte(ByVal strUniCode As String, ByRef Dest() As Byte)

       Dim i As Long Dim b() As Byte

       Erase Dest

       b = StrConv(strUniCode, vbFromUnicode)

       ' For i = 0 To UBound(b)

       ' Debug.Print b(i)

       ' Next i

       For i = 0 To UBound(b)

          Dest(i) = b(i)

          If i > UBound(Dest) Then Exit For

       Next i

    End Sub

    展开全文
  • vb语言中定义了定长的字符串,那么怎么给它赋值呢,能不能像数组那样通过下标赋值,怎么得到某一位?
  • 对于scriptcontrol的数组问题,网上的文章很少,有的用addobject添加类模块,这个觉得繁琐还是,其他的方法什么窗体的属性函数,我也没弄懂,那个大侠只顾自己,也没详细说,于是...然后用字符串将其复制进去 dim ex...

    对于scriptcontrol的数组问题,网上的文章很少,有的用addobject添加类模块,这个觉得繁琐还是,其他的方法什么窗体的属性函数,我也没弄懂,那个大侠只顾自己,也没详细说,于是自己创立了一个方法如下,其实也很简单:

    首先,定义数组 dim arr(3) as integer

    arr(0)=0
    arr(1)=1
    arr(2)=2
    arr(3)=3

    然后用字符串将其复制进去 dim expStr as string
    expstr="dim arr(" & ubound(arr) &")" &vbcrlf 注意后面不要加as.....不然后面出错

    for i = 0 to ubound(arr)
    expstr=expstr & "arr(" & i ")=" & arr(i) & vbcrlf
    next i

    这样把数组全部放到字符串变量中的,然后在调用数组的时候就不用说来直接最前面加上这个,然后用

    scriptcontrol1.addcode expstr

    就可以了,想是想这样的,明天再试一下就知道了,应该没问题

    展开全文
  • 定义变量的时候可以同步定义变量的数据类型数据类型包括:整型integer,布尔Boolean,双精度浮点型Double,字符串String,变体型Variant等数据类型决定了变量在内存中的存储方式和占用空间,也会影响到程序运行速度,...

    Part 1: 数据的类型

    1. 变量的定义(Dim等)。
    2. 定义变量的时候可以同步定义变量的数据类型
    3. 数据类型包括:整型integer,布尔Boolean,双精度浮点型Double,字符串String,变体型Variant等
    4. 数据类型决定了变量在内存中的存储方式和占用空间,也会影响到程序运行速度,计算机硬件资源是有限的,合理选择数据类型,尤其对于大型程序是很有必要的
    5. 通过变量类型告诉计算机你想干啥,也可以防错
    6. 当不确定变量具体的类型时,数据类型可选择为变体型Variant
    7. 当变量定义采用Dim X 未指定类型时,默认即为变体型Variant

    Part 2:Array,IsArray

    • Array,创建一个数组,要求对应变量声明为变体型Variant,否则会报错
    • IsArray判断变量是否为数组,返回True,False
    • Option Explicit,在过程前加上这一句,即要求所有变量必须先定义再使用,及显式定义
    • 可以在菜单中统一设置显式定义工具-选项-编辑器-勾选要求变量声明
    8dd6e3a57bc8b792d22f7232dbf53daa.png

    代码如下

    Option ExplicitSub test() Dim astrTest1(1 To 3) As Integer Dim astrTest2 As Variant Dim intValue As Integer Dim bolValue1 As Boolean Dim bolValue2 As Boolean Dim intI As Integer For intI = 1 To 3 Step 1 astrTest1(intI) = intI Next intI astrTest2 = Array("VB
    展开全文
  • 数组定义格式,形如 typeName arrayName[arraySize]; short moths[12]; 从0开始编号,因此上面的语句中moths[0]是第一个元素,moths[11]是最后一个元素。 编译器不会检查下标是否有效,不会像VB那样有“下标越界...
  • 实例014动态数组

    2020-04-14 17:20:30
    VB.NET保持了VB 6.0中就存在的关键字Redim,Redim的作用是重新... 上面这行代码声明了一个名字叫做Words的字符串数组,它的元素个数不确定,当需要使用这个数组时,可以用Redim关键字为它重新声明元素个数: Redim ...
  • 动态数组在VB语言中常能起到出奇制胜的作用。但数组有没有被重新定义或释放,用“is empty...下面给出一个非错误侦别的代码,判断动态字符串数组的分配情况: Private Sub Command1_Click()Dim a() As String, i As Lo
  • 最近在开发一个串口通讯的项目中,需要将从串口中读出的16进制数据直接转换为浮点数,如16进制字符串“0064128”,如果使用VB来写数据转换是样的 '定义二进制结构 Private Type HexData4 byte1 As Byte byte2 As ...
  • 使用一个二维数组记录客车vb.net教程售票系统中的所有座位号,并在每个座位号上都显示有票,然后c#教程用户输入一个坐标位置,按Enter键,即可将该座位号显示为已售。 首先我定义的输入格式为:1,2 个人认为主要知识...
  • VB中关于Array函数与Split函数

    千次阅读 2019-02-11 15:15:53
    Split函数是一个用于分割字符串的函数,它能以一个字符串内容中的一个(或几个连续的)特定的字符为切割位点的标志,将这个字符串分割成若干个小字符串。它的用法是: 变量 = Split(原字符串变量, 切割标志) 2.关于...
  • vb Script参考文档

    2009-07-28 22:13:02
    Filter 函数 根据指定的筛选条件,返回含有字符串数组子集的、下限为 0 的数组。 FirstIndex 属性 返回字符串匹配的位置。 Fix 函数 返回数的整数部分。 For...Next 语句 以指定的次数重复一组语句。 For Each......
  • 第 5 章 数组与记录 5 1 填空题 1若要定义一个包含 10个字符串元素且下界为 1的一维数组S,则数组说明语句为 ( ) 答案 Dim S(1 To 10) AS String 若要定义一个元素为整型数据的二维数组 a且第一维的下标从 0到5,第二...
  • VB中的GetUserName函数

    2019-04-04 20:07:22
    当运行程序时报了如下错:“编译错误:常数、固定长度字符串数组、用户定义类型以及Declare语句不允许作为对象模块的Public成员。”在我的不断研究下发现,当工程的启动对象设置为个别的窗体时运行没问题,但当...
  • 计算大数阶乘--VB Script 版

    千次阅读 2012-05-30 17:18:10
    和Basic版相比,这个...计算结果没有直接输出,而是写到文件,因为当字符串太长时,MsgBox的会丢失部分内容 难点:确定n!的位数是难点,ln(n!) 可用 斯特林逼近 来计算,ln(n!)= (n+0.5)ln(n)- n + 0.5*ln(2*pi) 请
  • 首先,我在知道Split这个函数的作用,是把一个字符串按指定的分割符分割成一个字符串数组。ASP里有这个Split,是这样定义的dim Split(byval source as string ,byval str as string) as string()source是源字符串,...
  • 接受单一的字符串(Command), MATLAB将运行命令及结果作为一个字符串返回。用于执行一个合法的MATLAB命令; (2) PutFullMatrix方法 void PutFullMatrix pr, [in] SAFEARRAY pr, [in] SAFEARRAY pi ) 将一个...
  • 首先,我在知道Split这个函数的作用,是把一个字符串按指定的分割符分割成一个字符串数组。  ASP里有这个Split,是这样定义的dim Split(byval source as string ,byval str as string) as string() source是源字符...
  • 1、值类型,引用类型,拆,装箱,常用的引用类型,值类型。栈:一种先进后出(后进先出)的存储数据的结构体堆:一块...C#的引用类型包括:数组,用户定义的类、接口、委托,object,字符串数组的元素,不管是引用...
  • VB2010 读写txt数据

    2013-09-13 21:56:18
    最简单的 读写txt数据程序,里面添加了 OpenFileDialog控件,...2. 然后利用定义 的 Streamreader 读取里面的 txt数据 到 字符串tempstr 3. 利用split将数据分到三个数组里面 4. 利用 file2.streamwriter 写数据
  • 如果是使用c#解析器,那么就会是.cshtml结尾的文件,这样告诉编译器使用c#解析,如果是vb,那么就是...//使用Razor定义了一个字符串数组。 } @strArray.Length 输出定义的数组中元素的个数。还可以@foreach对象进...
  • delphi6串口通信

    2010-10-13 17:45:27
    在应用实例中我们使用Delphi的absolute关键字来定义两个同地址的动态数组,类型分别为字节型数组和短整型数组,使用字节动态数组接收数据后,可以直接使用短整型动态数组获得短整型数据,省却了数据转换的麻烦
  • 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。...5、使用Convert.ToBase64String将缓存(字节数组)转换为base64字符串。 那么...
  • VB错误数字号解释

    2011-10-12 08:38:00
    14字符串空间不足 16表达式太复杂 17不能完成所要求的操作 18发生用户中断 20没有恢复的错误 28堆栈空间不足 35没有定义 子程序、函数,或属性 47DLL 应用程序的客户端过多 48装入 DLL 时发生错误 49D...
  • VB程序设计及应用

    2012-11-26 14:07:12
    3.4.2 字符串函数 3.5 运算符和表达式 3.5.1 算术运算符与算术表达式 3.5.2 关系运算符与关系表达式 3.5.3 逻辑运算符与逻辑表达式 习题 第 4章 数据的输出与输入 4.1 数据的输出 4.1.1 Print方法 ...

空空如也

空空如也

1 2 3 4 5
收藏数 99
精华内容 39
关键字:

vb定义字符串数组