精华内容
下载资源
问答
  • 西南石油大学成人高等教育平台 VB 语言程序设计 - 线上考试 批次专业 202001- 电气工程及其自动化 ( 专升本 )课程 VB 语言程序 设计 (专升本 )总时长 100 分钟 剩余时间 : 98 分 : 12 秒 1. ( 单选题 ) 下面程序段...
  • vb 语言

    2020-09-19 15:24:33
    声明一个变量 Sub DimTest() '声明整数类型变量 Dim i As Integer '声明文本类型变量 Dim name As String '声明单元格对象 Dim rng As Range '声明工作簿对象 Dim book As Workbook '设置name变量的值 name = "vba ...

    打开vba编辑器:1. 开发者工具—visual Basic  2.alt+f11
    右击单元簿—插入---模块
    注释:英文版的左引号  
    给变量赋值  只能用双引号
    基础:https://www.jianshu.com/p/1a529d5f824a

    Vba 基本语法
    1.给A1单元格赋值
    Sub MyCode()
        '给A1赋值
        Sheet1.Range("A1") = "HelloWorld"
    End Sub
    2.声明一个变量
    Sub DimTest()

        '声明整数类型变量
        Dim i As Integer
        
        '声明文本类型变量
        Dim name As String
        
        '声明单元格对象
        Dim rng As Range
        
        '声明工作簿对象
        Dim book As Workbook
        
        '设置name变量的值
        name = "vba 工作簿"
        
        '设置工作簿名称
        book.name = name
        
    End Sub
    3.判断-if
    Sub IfTest()

        Dim i As Integer
        i = 10
        If i > 0 Then
            
            '表达式为真时执行的代码
            MsBox "执行了"
        End If
    End Sub

    4.循环-for
    For i = 1 To 31
       '从1到31  循环执行31次
       '新建一个工作簿
        Set sh = Worksheet
        
        '工作表名称设置为i
        sh.name = i   
    Next
    5.批量复制工作表
    Sub CopySheets()
        '声明循环使用的整数变量
        Dim i As Integer
        
        '声明一个工作簿变量
        Dim sh As Worksheet
        For i = 1 To 31
            '新建一个工作表
            Set sh = Worksheets.Add
            '工作名称设置为i
            sh.name = i
        Next
            
    End Sub


     Vba  连接数据库-sql server
    连接:https://www.cnblogs.com/shandongmiao/p/9820566.html
    1.连接数据库
     Option Explicit ‘关键字强定义说明
    Sub ConnSql()
        '1. 引用ADO工具
        '2. 创建连接对象
        Dim con As New ADODB.Connection
        '3. 建立数据库的连接
        con.ConnectionString = "Driver={ODBC Driver 17 for SQL Server};Server=ip;DB=db;UID=user;PWD=pwd;OPTION=3;"
        con.Open
        MsgBox ("连接成功!" & vbCrLf & "数据库状态:" & con.State & vbCrLf & "数据库版本:" & con.Version)
        con.Close
        Set con = Nothing
    End Sub


    注释:Dim con As New ADODB.Connection   执行这句报:用户未定义类型,原因时在定义之前没有引入对象,点击工具---引入 -- Microsoft ActiveX Data Object 2.6
    在使用Dim Conn As New ADODB.Connection
    2. 连接数据库  ---查询
    Sub linkMySQL()
        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Set conn = New ADODB.Connection
        Set rs = New ADODB.Recordset
    '配置连接串
        conn.ConnectionString = "Driver={ODBC Driver 17 for SQL Server};Server=ip;DB=db;UID=user;PWD=pwd;OPTION=3;"
        conn.Open
    '从test数据库的YGXM表中取出所有数据
        rs.Open "select * from sys_version", conn
    '设置表头
        Range("A1:B1").Value = Array("ID", "Name")
    '将数据输出到工作表
        Range("A2").CopyFromRecordset rs
    '关闭连接
        rs.Close: Set rs = Nothing
        conn.Close: Set conn = Nothing
    End Sub
       

    展开全文
  • VB语言基础 VB语言基础 一数据类型 一数据类型 1数值型 取值范围 Byte(字节型)占1字节 0 255无符号 Integer(整型)占2字节 -32768 32767 long(长整型)占4字节 -2147483648 2147483647 single(单精度浮点)占4字节 略 ...
  • C语言和VB语言比较.doc

    2020-12-01 10:12:46
    比较项目 C VB 基本数据类型 int, long int, float, double bool(0False, OtherTrue) char, 指针 Byte, Integer, Long, Single, DoubleBooleanDateStringVariant 字符串 字符以单引号)括住 字符串以双引号括住以\0...
  • 大一 VB语言程序设计期末考试题 一选择题 1 下列常量中是 Integer 类型常量的是 C A 123& B -38844 C 123% D 32768 2 下面选项中 )是字符连接运算符 . A A & B And C % D Mod 3 下面关于 VB的集成开发环境 IDE的叙述...
  • VB语言概述;探究求半径为r的圆的面积的程序;VB程序一般包括四个基本知识;二基本数据类型;VB中的常用基本数据类型;VB定义的常用基本数据类型;整型数Integer;长整型数Long;单精度型Single;双精度型Double;字符串型...
  • VB编程语言基础知识点总结(转)

    万次阅读 多人点赞 2019-04-11 14:30:10
    Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。海风教育投诉 海风教育在线辅导0元一...

    Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。海风教育投诉

    海风教育在线辅导0元一对一试听课等你来领取,领取课程方法:
    1、私信留下您的手机号和姓名,需要补习的科目。
    2、也可以在海风教育官网留下您的手机号领取 https://www.hfjy.com

    “Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象add到屏幕上即可。

    “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言,是一种在计算技术发展历史上应用得最为广泛的语言。

    Visual Basic源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建Active X控件,用于高效生成类型安全和面向对象的应用程序 。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

    VB语言知识点总结

    第一章知识点

    (1) VB的语言特点

    可视化开发环境:界面设计所见所得;面向对象程序设计:程序和数据封装作为一个对象,在工具箱里面的都是一个一个的类,比如commandbutton类,当你把它从工具箱拖出来已经,它就被实例化成了一个对象,名称叫command1,如果你拖了2个command,就是2个不同的对象;事件驱动编程:VB程序没有明显的入口和出口,都在等待用户或者系统或者代码触发某个事件,然后执行事件对应的任务。

    (2) VB的工作模式

    设计模式,运行模式,中断模式;

    程序在运行模式是没有办法修改代码和设计界面窗口的。

    (3) VB的文件类型

    窗体文件frm;程序模块文件bas;类模块文件cls;工程文件vbp;

    工程组文件vbg;资源文件res;

    保存工程的时候应该同时保存工程文件vbp和窗体文件frm。

    (4) VB的窗口

    任何窗口被关闭了找不到了,都可以在视图菜单下面来寻找,工具箱窗口,代码窗口,窗体布局窗口,立即窗口(可以在中断模式下查询程序运行对象值,ctrl+G打开立即窗口)

    第二章知识点

    (1) 面向对象的基本概念

    类:具有类似属性和方法的对象的抽象,比如大学;

    对象:类实例化就成为一个对象,每个对象都具有自己的属性和方法,比如西南财经大学天府学院。

    属性:对象的静态特征,最重要的属性是name,在VB里面对象的name是不能省略的,而且在程序运行的过程中是不能修改的;

    事件:人或者系统对对象的作用,对象是被动者,比如load,unload,timer;click等;

    方法:对象发出的行为,对手是主动者,比如move,show,hide等。

    (2) VB的开发流程

    第一步分析后画流程图

    第二步界面设计

    第三步编写代码

    第四步测试运行

    3 第三章知识点

    (1) VB书写代码的格式

    VB代码中不区分字母的大小写。

    同一行可以书写多条语句,语句间用冒号“:”分隔。

    一条语句可以写在同一行,也可以写在多行。续行符号是一个空格加下划线“_”。

    注释语句以Rem开头,也可以使用单引号“‘”。后者注释内容可直接出现在相关语句的后面。

    VB6中新增了“块注释/取消块注释”:在代码模式下,右击工具栏,在弹出菜单里把“编辑”项选中„„

    变量和常量的命名规则:有数字,字母,下划线组成;字母作首字符;不超过255个字符;不能以VB关键字和系统常量做名字

    (2) VB的数据基本类型

    数值类型:

    字符串类型:

    string 用“”双引号作为定界符

    声明一个字符串变量,不规定串长:dim s as string

    例: dim s as string

    S=”中国”

    Print len(s) „ 长度为4个字节

    S=”abs”

    Print len(s) „ 长度为3个字节

    声明一个定长字符串,在后面加 *指定字符串的长度 dim s as string * 8

    例:

    Dim s as sting * 6

    Dim a as integer

    S=”12345678”

    Print len(s) „ 长度为6个字节

    a=len(s)

    print len(a) „ 长度为2个字节,如果打印其他类型的长度,则为其数据类型

    所占用的字节数

    日期类型

    用“”双引号或者# #井号作为定界符

    例: dim a as date

    A=#4/20/1999#

    A=A-10

    Print A „ #4/10/1999# 减去的是天数

    对象类型

    对象类型变量可以用来引用程序中各种对象,对象类型的使用分为声明,

    赋值,代表三步,类似给控件取一个小名

    例:

    Dim a as commandbutton

    Set a=command1

    a.caption=”hello” „等价于command1.caption=”hello”

    变体类型

    变体型声明方式 dim c或者dim c as variant

    例:

    Dim a ,b as double „a是变体型

    变体型在未进行变量赋值前是值是empty

    变体型是数据类型根据赋值不同可以改变

    例: Dim A

    A=”88” „A是字符串 “88”

    A=A+10 „A的值是98

    (3) VB常量的声明

    符号常量声明:关键字是const,必须在声明的时候进行初始化

    符号常量声明分隐式声明和显式声明

    例:

    Const a as string=”123” 显式声明

    Const a =true 隐式声明

    (4) VB变量的声明

    变量声明:关键字是dim,变量必须要定义,再使用

    变量声明分隐式声明和显式声明

    例:

    Dim a as double

    Dim a%,b#

    (5) VB运算符

    运算符分类

    算术运算符:() ^ * / \ mod + -

    关系运算符:《 》 = 《= 》= 《》

    逻辑运算符:not and or xor eqv imp

    运行符优先级

    算术运算符》关系运算符》逻辑运算符

    优先级的顺序:

    由上至下对应由高到低,同一行的优先级相同,程序顺序执行。

    算术运算符(优先级最高)

    ()

    sin cos„

    ^

    • / \

    mod

    关系运算符

    》 》= 《 《= = 《》

    逻辑运算符(优先级最低)

    Not

    And Or Xor Eqv Imp

    运算符

    除法/ \ mod :/ 是真正除法,返回商23/5=4.6

    \ 是整除 23\5.8=3 23\5.2=4

    Mod返回余数 23mod5.8=5 23mod5.2=3 1mod2=1

    +号运算符:两边都是字符串做字符串连接 “1“+”2“=”12“

    一边是字符串一边是数值,把字符串转换成数值再加 1+”2”=3

    两边都是数值做数值加法 1+2=3

    +号的优先级高于& “300”& “123”+200=“300323”

    关系运算符:运算结果是true或者false 1《=2 为true

    “a”《”b” 比较的是ASCII

    “abc” 《“abd” 从首字符依次比较ASCII

    逻辑运算符:not 取反

    And 取幷 两个同时为true才为true

    Or取或 有一个为true就为true

    Xor异或 不同为true,相同为false

    Eqv同或 相同为true, 不同为false

    imp蕴含 true imp false 为false 其他都为true

    (6) VB函数

    数学运算函数

    abs:取参数绝对值,如果变量未初始化,则为0 abs(-10)=10

    int:取整,当为负数的时候,返回小于等于参数的第一个负整数int(-1.1)=-2

    fix:取整,当为负数的时候,返回大于等于参数的第一个负整数fix(-1.1)=-1

    exp:返回e的多少次方

    log:返回参数的自然对数

    字符串处理函数

    Len:取字符串的长度,len(“abcdefg”)=7 len(“小白”)=4

    Trim:去除字符串左右两边的空格

    String:连续返回多少个字符串首字符 string(3,”abc”)=”aaa”

    Lcase:大写字母变小写 lcase(“ABcd”)=”abcd”

    Ucase:小写字母变大写 Ucase(“ABcd”)=”ABCD”

    Left:返回字符串左边起多少个字符,如果个数大于长度全返回

    left(“abcdef”,3)=”abc”

    Right:返回字符串右边起多少个字符,如果个数大于长度全返回

    right(“abcdef”,3)=”def”

    mid:从中间某个位置返回指定长度的字符串

    mid(“abcdef”,3,2)=”cd”

    instr:返回指定字符串在另一字符串中出现的位置

    instr(1,”abcdef”,”de”)=4 instr(4,“abcdef”,”cd”)=0

    日期函数

    类型转换函数

    其他函数

    Cstr:把数值转化成字符串

    Val:把字符串转化成数值

    Rnd:产生随机数

    Int(Rnd()*90+10) 范围是10-99

    Int(Rnd()*99+1) 范围是1 - 99

    4第四章知识点

    (1) inputbox函数

    inputbox用于接收用户的键盘数据的输入,只接收一个数据输入

    inputbox的语法格式:inputbox(“提示信息”,”标题”,”默认值”)

    提示信息长度不能超过1024字节

    对话框标题如果不写,默认为工程1,和““空标题不一样

    Inputbox返回的数据类型是string,因此通常返回数值类型的时候需要加

    val函数把字符串转换成数值

    (2) msgbox函数

    msgbox函数用于进行消息的提示,并且接受用户的反馈的单击按钮信息

    msgbox的语法格式:

    msgbox(“提示信息”,对话框按钮组合方式+图标+默认按钮,”标题”)

    提示信息长度不能超过1024字节

    对话框标题如果不写,默认为工程1,和““空标题不一样

    Msgbox返回的数据类型是integer类型,即用户单击了消息框按钮后返回vbyes,vbno等VB常量,详细请参考书上对应的表格

    (3) msgbox语句

    msgbox语句和msgbox函数的相同之处都是给出一个消息提示

    msgbox语句和msgbox函数的不同之处是语句没有返回值,即用户单击了消息框按钮后,也没有任何的信息返回

    其他语法规则,包括对话框的组合方式都和msgbox函数是完全一样的

    (4) print方法

    print方法用于在form上或者在打印机上输出数据

    print单独写是打印一个空行

    print后面加;号是连续在一行输出

    print后面加,号是以14个字符为一个输出区输出各表达式

    tab(n)是绝对距离

    spc(n)是相对距离

    第六章知识点

    标签

    类名叫label,实例化对象名字默认叫label1,即name属性

    Caption:显示标签的文本内容,例如label1.caption=”欢迎vb”

    Backstyle:设置标签透明效果,0为透明,1为不透明

    文本框

    类名叫textbox,实例化对象名字默认叫text1,即name属性

    Text:用来显示或者获取文本框的内容,例如:text1.text=”12”显示12到

    文本框,a=text1.text获取文本框输入的内容

    Alignment:文本框的对齐方式

    Enable:设置文本框是不是可用

    Visible:设置文本框可见与否

    Tooltiptext:设置鼠标放置上去后的提示信息

    Passwordchar:输入或者显示密码的符号

    Maxlength:设置输入字符的最大长度,为0可以输入任意长度

    Change事件:文本框内容发生变化的时候就触发

    命令按钮

    类名叫commandbutton,实例化对象名默认叫command1,即name属性

    Canel:设置按钮是否为当前窗体中默认取消按钮,ESC时触发

    Default:设置按钮是否为当前窗体默认确定按钮,ENTER时触发

    计时器

    类名叫timer,实例化对象名默认叫timer,即name属性

    Enable:设置文本框是不是可用

    Interval:设置计时间隔,单位毫秒

    图形按钮

    类名叫pictureBox,实例化对象名默认叫picture1,即name属性

    Picture:设置该属性装载图片,格式Picture1.picture=loadpicture(“URL”)

    单选按钮

    类名叫optionbutton,实例化对象名默认叫option1,即name属性

    Caption:显示单选按钮的文本内容

    Value:确定单选按钮是不是被选中,值为true和false

    If option1.value=true then

    Label1.caption=option1.caption

    Elseif option2.value=true then

    Label1.caption=option2.caption

    End if

    复选按钮

    类名叫checkbox,实例化对象名默认叫check1,即name属性

    Caption:显示复选按钮的文本内容

    Value:确定复选按钮是不是被选中,值为0和1,2分别表示为未选中,

    选中,不可以使用

    If check1.value=1 then

    Label1.caption=check1.caption

    endif

    If check2.value=1 then

    Label1.caption=check2.caption

    End if

    滚动条

    类名叫scrollBar,实例化对象名默认叫scroll1,即name属性

    Max:滚动条的最大值

    Min:滚动条的最小值

    Smallchange:单击滚动条箭头时value的变化量

    Largechange:单击滚动条空白时value的变化量

    Value:滑动块所处的位置

    Scroll事件:滑动块实时移动的时候一直触发

    Change:单击空白,单击箭头,滑动块移动鼠标释放的时候触发一次

    列表框

    类名叫listbox,实例化对象名默认叫list1,即name属性

    List:列表框第i-1项的内容,存放数据的地方,访问用下标list(1)

    Listcount:表示列表框的列表项数

    Listindex:选中项下表,例:被选中项内容:list1.list(list1.listindex)

    Selected:下标表示项选中与没选中的状态

    Additem:在列表框指定位置插入一行文本,例:插入到最后

    List1.additem “aaaa” ,list1.listcount-1

    Removeitem:删除列表项,例:删除当前选中项

    List1.remveitem list1.listindex

    Clear:清空列表框

    组合框

    类名叫combobox,实例化对象名默认叫combo1,即name属性

    组合框是组合的textbox和listbox,所以有这两个控件共同的属性

    使用的时候只是对象名要变成combo1,其他属性参考list

    第七章知识点

    重点是要能写程序,灵活应用

    程序设计有三种结构,顺序结构,条件结构,循环结构

    条件结构

    If 条件 then 任务 ,end if省略

    If 条件 then 任务 else 任务 ,end if省略

    If 条件 then

    任务

    Endif

    If 条件

    then

    任务

    Else

    任务

    Endif

    If 条件 then

    任务

    Elseif 条件 then

    任务

    Elseif 条件 then

    任务

    Elseif 条件 then

    任务

    Endif

    只要有一个条件满足,后面都不会判断

    Select case 变量

    Case 值

    任务

    Case 值列表

    任务

    Case 值范围

    任务

    Case 条件表达式

    任务

    End select

    只要有一个条件满足,后面都不会判断

    循环结构

    For型循环

    For 变量=初值 to 终值 step 步长

    任务

    Next 变量

    退出循环的时候变量要多加一次1

    例子for i=1 to 100 step 1

    S=s+i

    Next i

    While型循环

    变量=初值

    While 条件

    任务

    变量=变量+步长

    Wend

    例子:while i《=100

    S=s+i

    i=i+1

    wend

    Do型循环

    Do while 条件

    任务

    Loop

    例子:Do while i《=100

    S=s+i

    I=i+1

    Loop

    Do until 条件

    任务

    Loop

    例子: Do until i》100

    S=s+i

    I=i+1

    Loop

    Do

    任务

    Loop while 条件

    例子: Do

    S=s+i

    I=i+1

    Loop while i《=100

    Do

    任务

    Loop until 条件

    例子: Do

    S=s+i

    I=i+1

    Loop until i》100

    Goto 语句

    语句标号:任务

    If 条件 then

    Goto 语句标号

    Endif

    例子:a:s=s+i

    I=i+1

    If i》=100 then

    Goto a

    End if

    Exit语句强制退出循环

    第八章知识点

    数组的声明

    Dim 数组名(下标 to 上标)as 数据类型

    Dim a(1 to 10) as integer 长度为10

    Dim b(5) as integer 长度为6,下标省略

    如果想让默认下标从1开始,加option base 1

    数组的操作:赋值,引用,输入,输出,复制

    在对数据进行操作的时候要保证数组下标不溢出

    输入10个数,找最大最小平均,冒泡排序

    Private Sub Command1_Click()

    Dim (1 To 10) As Integer

    Dim i As Integer

    Dim j As Integer

    Dim max As Integer

    Dim min As Integer

    Dim avg As Integer

    Dim sum As Integer

    For i = 1 To 10

    a(i) = Val(InputBox(“”, “”, “1”))

    Print a(i);

    Next i

    max = a(1)

    min = a(2)

    For i = 1 To 10

    If max 《 a(i) Then

    max = a(i)

    End If

    If min 》 a(i) Then

    min = a(i)

    End If

    sum = sum + a(i)

    Next i

    avg = sum / 10

    Print “max=”; max; “min=”; min; “avg=”; avg;

    For i = 1 To 9

    For j = 1 To 10 - i

    If a(j) 》 a(j + 1) Then

    t = a(j)

    a(j) = a(j + 1)

    a(j + 1) = t

    End If

    Next j

    Next i

    For i = 1 To 10

    Print a(i);

    Next i

    End Sub

    展开全文
  • VB语言写CRC16校验

    千次阅读 2019-06-20 14:28:10
    Private Sub Command1_Click(Index As Integer)  ReDim buf(7) As Byte  Dim dcrc1 As Long, crcc(1) As Byte, ret As String  Dim astr  buf(0) = "&H01"  buf(1) = "&H04"  buf(2) = "&H00"  buf(3)...

    1. CRC 校验概述

    CRC 校验码的基本思想是利用线性编码理论,在发送端根据要传送的 k 位二进制码序 列,以一定的规则产生一个校验用的监督码(既 CRC 码)r 位,并附在信息后边,构成一 个新的二进制码序列数共(k+ r)位,最后发送出去。在接收端,则根据信息码和 CRC 码之间 所遵循的规则进行检验,以确定传送中是否出错。

    2、在使用CRC校验的时候,最常用查表法,在网上找教程已经讲得很详细了。

    参考网上的资料写了一个例子:

    首先是高位数组:

    Function GetCRCHi(Ind As Long) As Byte
    GetCRCHi = Choose(Ind + 1, &H0, &HC0, &HC1, &H1, &HC3, &H3, &H2, &HC2, &HC6, _
        &H6, &H7, &HC7, &H5, &HC5, &HC4, &H4, &HCC, &HC, &HD, &HCD, &HF, &HCF, &HCE, _
        &HE, &HA, &HCA, &HCB, &HB, &HC9, &H9, &H8, &HC8, &HD8, &H18, &H19, &HD9, &H1B, _
        &HDB, &HDA, &H1A, &H1E, &HDE, &HDF, &H1F, &HDD, &H1D, &H1C, &HDC, &H14, &HD4, _
        &HD5, &H15, &HD7, &H17, &H16, &HD6, &HD2, &H12, &H13, &HD3, &H11, &HD1, &HD0, _
        &H10, &HF0, &H30, &H31, &HF1, &H33, &HF3, &HF2, &H32, &H36, &HF6, &HF7, &H37, _
        &HF5, &H35, &H34, &HF4, &H3C, &HFC, &HFD, &H3D, &HFF, &H3F, &H3E, &HFE, &HFA, _
        &H3A, &H3B, &HFB, &H39, &HF9, &HF8, &H38, &H28, &HE8, &HE9, &H29, &HEB, &H2B, _
        &H2A, &HEA, &HEE, &H2E, &H2F, &HEF, &H2D, &HED, &HEC, &H2C, &HE4, &H24, &H25, _
        &HE5, &H27, &HE7, &HE6, &H26, &H22, &HE2, &HE3, &H23, &HE1, &H21, &H20, &HE0, _
        &HA0, &H60, &H61, &HA1, &H63, &HA3, &HA2, &H62, &H66, &HA6, &HA7, &H67, &HA5, _
        &H65, &H64, &HA4, &H6C, &HAC, &HAD, &H6D, &HAF, &H6F, &H6E, &HAE, &HAA, &H6A, _
        &H6B, &HAB, &H69, &HA9, &HA8, &H68, &H78, &HB8, &HB9, &H79, &HBB, &H7B, &H7A, _
        &HBA, &HBE, &H7E, &H7F, &HBF, &H7D, &HBD, &HBC, &H7C, &HB4, &H74, &H75, &HB5, _
        &H77, &HB7, &HB6, &H76, &H72, &HB2, &HB3, &H73, &HB1, &H71, &H70, &HB0, &H50, _
        &H90, &H91, &H51, &H93, &H53, &H52, &H92, &H96, &H56, &H57, &H97, &H55, &H95, _
        &H94, &H54, &H9C, &H5C, &H5D, &H9D, &H5F, &H9F, &H9E, &H5E, &H5A, &H9A, &H9B, _
        &H5B, &H99, &H59, &H58, &H98, &H88, &H48, &H49, &H89, &H4B, &H8B, &H8A, &H4A, _
        &H4E, &H8E, &H8F, &H4F, &H8D, &H4D, &H4C, &H8C, &H44, &H84, &H85, &H45, &H87, _
        &H47, &H46, &H86, &H82, &H42, &H43, &H83, &H41, &H81, &H80, &H40)
    End Function

    低位函数:

    Function GetCRCLo(Ind As Long) As Byte
    GetCRCLo = Choose(Ind + 1, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, _
        &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, _
        &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, _
        &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, _
        &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, _
        &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, _
        &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, _
        &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, _
        &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, _
        &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, _
        &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, _
        &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, _
        &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, _
        &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, _
        &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, _
        &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, _
        &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, _
        &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, _
        &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, _
        &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, _
        &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, _
        &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, _
        &H41, &H0, &HC1, &H81, &H40)
    End Function

    CRC计算函数:

    Private Function CRC16(data() As Byte, crc() As Byte) As String
        Dim CRC16Hi As Byte
        Dim CRC16Lo As Byte
        CRC16Hi = &HFF
        CRC16Lo = &HFF
        Dim i As Integer
        Dim iIndex As Long
        For i = 0 To 5
            iIndex = CRC16Lo Xor data(i)
            CRC16Lo = CRC16Hi Xor GetCRCLo(iIndex)        '低位处理
            CRC16Hi = GetCRCHi(iIndex)                   '高位处理
        Next i
         crc(0) = CRC16Hi
         crc(1) = CRC16Lo
    End Function

    然后建立一个数组控件,就是一个寻常的按钮控件在index赋予一个值(比如1)。

    在响应事件下面写:

    Private Sub Command1_Click(Index As Integer)
        ReDim buf(7) As Byte
        Dim dcrc1 As Long, crcc(1) As Byte, ret As String
        Dim astr
        buf(0) = "&H01"
        buf(1) = "&H04"
        buf(2) = "&H00"
        buf(3) = "&H63"
        buf(4) = "&H00"
        buf(5) = "&H02"
        ret = CRC16(buf, crcc())‘CRC的入口函数,有的例子上还有数组长度,但是对于特定工程,那个不需要。一般来讲家还是那个CRC一共就是8位
        buf(6) = crcc(1)‘高低位处理反了,先高后低
        buf(7) = crcc(0)
        For i = 0 To 7
        If Len(Hex(buf(i))) = 1 Then
        astr = astr & "0" & Hex(buf(i))
        Else
        astr = astr & Hex(buf(i))
        End If
    Next
    Text3.Text = astr‘用一个text3控件将数组显示出来
    End Sub

    可以看到得到结果:

    和使用CRC校验计算器计算得到结果一样:

    展开全文
  • vb编程语言中怎么通过获取一个变量的值去算它在数组中下标的integer值?获取下标integer值的代码怎么思路?
  • 语法 Function 函数名[参数列表] 或 Call 函数名[参数列表] 或 函数名[参数列表] 说明无参数时不能省略 调用方法同系统内部函数 例用辗转相除法求最大公约数 Public Function Divisor(ByVal x As Integer,...
  • VB编程语言简史

    2020-03-12 09:51:22
    但是BETA1惊人的变化让所有的VB开发者怕了,他们觉得这种语言被改的千疮百孔,有些人干脆转去研究传说中的新语言C#。但是 Visual Basic. NET渡过几个BETA版本之后还是找到了正确的定位。Visual Basic. NET有对CLR最...

    Visual Basic从1991年诞生以来,现在已经13年了。BASIC是微软的起家产品,微软当然不忘了这位功臣。随着每一次微软技术的浪潮,Visual Basic都会随之获得新生。可以预见,将来无论微软又发明了什么技术或平台,Visual Basic一定会首先以新的姿态登上去的。如果你想紧跟微软,永远在最新的技术上最快速地开发,你就应该选择Visual Basic。

    1991-西雅图夜空的雷电 VB1.0

    随着Windows 3.0的推出,越来越多的开发商对这个图形界面的操作系统产生了兴趣,大量的Windows应用程序开始涌现。但是,Windows程序的开发相对于传统的DOS有很大的不同,开发者必须将很多精力放在开发GUI上,这让很多希望学习Windows开发的人员却步。1991年,微软公司展示了一个叫 Thunder的产品,所有的开发者都惊呆了,它竟然可以用鼠标“画”出所需的用户界面,然后用简单的BASIC语言编写业务逻辑,就生成一个完整的应用程序。这种全新的“Visual”的开发就像雷电(Thunder)一样,给Windows开发人员开辟了新的天地。这个产品最终被定名为Visual Basic,采用事件驱动,Quick BASIC的语法和可视化的IDE。Visual Basic 1.0带来的最新的开发体验就是事件驱动,它不同于传统的过程式开发。同时,VBX控件让可视化组件的概念进入Visual Basic。Visual Basic 1.0是革命性的BASIC,它的诞生也是VB史上的一段佳话。
    Visual Basic 1.0

    1992-渐入佳境的Visual Basic VB2.0

    由于Windows 3.1的推出,Windows已经充分获得了用户的认可,Windows开发也进入一个新的时代。Visual Basic 1.0的功能过于简单,相对于Windows 3.1的强大功能没有发挥出来。所以,微软在1992年推出了新版本Visual Basic 2.0。这个版本最大的改进就是加入了对象型变量,比如
    Dim b As CommandButton
    Dim c As Control
    而且有了最原始的“继承”概念,对象型变量分为一般类型(Control和Form)和专有类型(CommandButton和Form1等),一般类型的变量可以引用专有类型的实例,甚至通过后期绑定访问专有类型的属性和方法。还可以通过TypeOf…Is运算符获取对象实例的运行时类型信息(这个功能就是当今C#的is运算符或Java的instanceof运算符)。除了对语言的改进和扩充,Visual Basic 2.0对VBX有了很好的支持,许多第三方控件涌现出来,极大地丰富了Visual Basic的功能。微软还为Visual Basic 2.0增加了OLE和简单的数据访问功能。
    Visual Basic 2.0标准版
    Visual Basic 2.0专业版

    1993-数据库组件新添力量 VB3.0

    Visual Basic 2.0推出没几个月,微软就发布了新版本的Visual Basic 3.0,可以看出VB这时候旺盛的生命力。乍一看,Visual Basic 3.0的界面没有太大的变化,但其实这个版本是非常及时的。它增加了最新的ODBC2.0的支持,Jet数据引擎的支持和新版本OLE的支持。最吸引人的地方是它对数据库的支持大大增强了,Grid控件和数据控件能够创建出色的数据窗口应用程序,而Jet引擎让Visual Basic能对最新的Access数据库快速地访问。Visual Basic 3.0还增加了许多新的金融函数。此外还增加了相当多的专业级控件,可以开发出相当水平的Windows应用程序。Visual Basic 3.0是98年以前中国最流行的Visual Basic版本,因为它开发出来的可执行文件非常小,通常能用一张软盘装下。不过,Visual Basic采用虚拟机运行P代码的做法也让很多开发者不满,他们认为这样程序运行的效率很低,这时候Visual Basic的竞争者Delphi也诞生了。
    Visual Basic 3.0标准版
    Visual Basic 3.0特别版

    1995-第二次革命性变化,向COM进军。VB4.0

    从1993年到1995年年中,Visual Basic一直没有新的动静,焦急的开发者都想一窥这个神秘的新版本到底发生了什么变化。Visual Basic 4.0的BETA最后终于和大家见面了。这个版本包含了16位和32位两个版本,16位的版本就像是Visual Basic 3.0的升级版,而32位版则是一场新的革命。首先,人们发现VBX控件不见了,全部换成了OCX控件,这个OCX可能是指OLE Custom Controls,这个OLE已经不是传统的OLE了,用现在的话说,它就是COM控件。第二个最大变化是Visual Basic 4.0所用的语言换成了Visual Basic For Application,这就和Office 95所采用的宏语言统一起来,这个新语言有很多亮点:
    1、 加入了“类模块”。这是面向对象最重要的封装性的基础。
    2、 加入了属性过程,加上函数过程,子程序过程,VB已经有组件开发所需的封装性特征。
    3、 加入了Byte类型、Boolean类型和Object类型。这大大完善了VB的类型系统。
    4、 For Each语句和Collection对象。For Each语句给遍历集合类型提供了极大的方便,现在可以在动态增长的Collection上使用For Each,而不用担心集合内容的总数或烦人的下标问题。
    这个版本的Visual Basic还能够开发DLL工程,其实就是COM的DLL,可以将书写好的类用这种方式和其他语言共享。
    总之,这个4.0的版本为Visual Basic成为一种COM语言奠定了基础。用Visual Basic 4.0开发基于COM的DLL比任何一种开发工具都方便。但是,Visual Basic 4.0的性能问题变得更加严重了,P-代码的组件成为Visual Basic 4.0严重的性能瓶颈,而且巨大的运行库也让用户感到不满。Visual Basic 4.0对以前版本的支持也不好,使用了大量VBX的项目很难移植到Visual Basic 4.0中。因此,Visual Basic 4.0在中国的普及程度非常低。
    Visual Basic 4.0

    1997-Visual Basic的丰收年 VB5.0

    1997年,微软推出了Visual Basic 5.0,这个版本的重要性几乎和4.0一样高。COM(这时候叫ActiveX)已经相当成熟,Visual Basic 5.0当然对它提供了最强的支持。不过,国内还没有意识到COM的重要性前主要对这个版本另一个最大的亮点十分关注:本地代码编译器。Visual Basic 5.0终于在用户的呼声中加入了一个本地代码编译器,它可以让应用程序的效率大大提升。除了这个大家都知道的改进以外,Visual Basic 5.0对Visual Basic For Application语言有重大的完善和丰富:
    5、 事件。Visual Basic 5.0终于允许用户自己创建事件,而且这事件的语法相当强健和完善,这在一种不支持函数回调的语言中是很难得的。现在,VB拥有属性、方法和事件的完整封装性。
    6、 接口。这是VB实现多态性的基础。同时为编写COM组件提供了更多方便。
    7、 枚举。在Visual Basic 5.0中枚举作为Long整型的子类型出现,用枚举可以对常量进行完善的封装。
    8、 类模块的改进。通过类模块的属性可以指定类模块具有多种指定的行为,如私有构造函数等,可以通过这个功能创建符合Singleton和Monostate模式的设计。
    9、 Debug.Assert。虽然这个断言系统有点鸡肋,但是总算是给调试带来了方便。
    10、 Visual Basic 5.0支持创建自己的集合类。可以创建用于For Each语句的集合类型。
    11、新的数据类型Decimal,可以精确地处理有效数位较多的计算。
    Visual Basic 5.0的IDE支持“智能感知”,这是一项非常方便开发者的功能,可以不必记住很长的成员名称和关键字,只要按“.”,想要的东西统统弹出来。
    Visual Basic 5.0还支持开发自己的ActiveX 控件、进程内的COM DLL组件、进程外的COM EXE组件以及在浏览器中运行的ActiveX文档。这极大丰富了Visual Basic的开发能力,在Internet开发上,Visual Basic 5.0也能有所建树。

    1998-企业真正高效的源泉 VB6.0

    Visual Basic 6.0作为Visual Studio 6.0的一员发布,证明微软正在改变Visual Basic的产品定位,他想让Visual Basic成为企业级快速开发的利器。Visual Basic 6.0在数据访问方面有了很大的改进,新的ADO组件让对大量数据快速访问成为可能。数据环境和新的报表功能也让数据开发有了全新的体验。Visual Basic 借助COM/COM+强大的功能,可以开发具有N层结构的分布式应用程序。同时,Visual Basic还可以在IIS上开发性能超群的Web应用程序。Visual Basic 6.0在语言方面和IDE方面的改进都不大,但是许多新增的组件成为Visual Basic开发人员手中的利器,如File System Object等。新的字符串函数Split和Replace等也给Visual Basic的程序员带来很大方便。
    总之Visual Basic 6.0已经是非常成熟稳定的开发系统,能让企业快速建立多层的系统以及Web应用程序,成为当前Windows上最流行的Visual Basic版本。
    Visual Basic 6.0

    2002-第三次革命性变化,向.NET进军 VB.Net

    从1998年发布到2002年正式推出Visual Basic. NET简直吊足了开发者的胃口。从2000年就开始传言的具有继承、Try…Catch语句等新功能的全新VB7.0一直没有露面。直到2001 年,Visual Studio.NET的第一个BETA版问世的时候,所有人都呆了——这是Visual Basic吗?And语句变成了BitAnd,数组只能从0下标开始,而且连Dim语句的意义都变了,几乎所有的窗体控件都变了,Long变成了 Integer而Integer变成了Short,Variant不见了,Static不能用了……简直是翻天覆地,人们已经无暇关注这个版本有什么改进,转而担心我怎么才能接受这个本本了。其实Visual Basic. NET完全是为了.NET Framework这一全新的平台而设计的,Visual Basic. NET的设计者一开始没有掌握好新平台和旧语言的平衡。到了BETA2中,很多东西回归了6.0,如BitAnd又变回了And,数组的定义语句也变回了原有的意义,Static也回到了Visual Basic中。但是BETA1惊人的变化让所有的VB开发者怕了,他们觉得这种语言被改的千疮百孔,有些人干脆转去研究传说中的新语言C#。但是 Visual Basic. NET渡过几个BETA版本之后还是找到了正确的定位。Visual Basic. NET有对CLR最完善的支持,同时尽量保留着BASIC易懂的语法风格和易用性。这个版本新增加的功能已经数不清,最重要的几个是:
    1、 继承。至此,Visual Basic完成了向面向对象转变的道路。
    2、 共享成员。
    3、 Try…Catch结构化异常处理。
    4、 Delegate和Interface。
    5、 名称空间。
    6、 对自由线程的支持。
    特别的是,Visual Basic. NET大大减少了Visual Basic语言的关键字,如GoSub、PSet等等。原先的Visual Basic有多达120个关键字,这给写程序带来了很大的不便,现在经过精简,Visual Basic脱下了这个沉重的包袱。
    Visual Basic. NET现在是一门现代的、强壮的、面向对象的、简单的可视化开发语言。强大的语言功能吸引了很多开发者。历史是在不断重演的,Visual Basic. NET如今的处境和Visual Basic 4.0很相似,由于兼容性变差,人气也降低了。同时由于依附于.NET Framework,程序发布造成了一定的困难。现在国内使用Visual Basic. NET的人相对于Visual Basic 6.0来讲显得很少。但是凭借Visual Basic. NET强大的语言功能和MS的支持,Visual Basic. NET一定会显出它的光辉来。

    2003-稳中求变的新版本

    Visual Basic. NET 2003是一个相当稳重的版本,改变很少,但对小处有很多改进。首先Visual Basic 6.0升级向导做了很大改进,这给从老版本痛苦升级的人带来了更多一些的希望。其次在IDE方面,Visual Basic. NET 2003修正了许多错误,还让事件处理恢复了6.0的开发体验。语言方面只有两项改进:
    1、 在For、For Each语句中声明循环变量。
    2、 增加了数学移位运算符<<和>>。
    在这个比较成熟稳定的新版本下,许多Visual Basic的爱好和开始重新了解Visual Basic. NET,社区里面也渐渐热闹起来。但是,有些使用C#的开发者坚持认为Visual Basic. NET是垃圾,尽管Visual Basic. NET拥有比C#更多的功能和更好的IDE。这说明不了解Visual Basic. NET成为它普及的最大障碍。
    2005-完美主义的Visual Basic,能否再现辉煌?
    为了让Visual Basic有最佳的开发体验,Visual Basic 2005的设计者绞尽了脑汁。这次Visual Basic 2005光语言上的改进就足以让Visual Basic的开发人员高兴一阵子。大家可以去看看我那篇介绍Visual Basic2005新增功能的贴子。挑重要的列在下边:
    1、泛型
    2、运算符重载
    3、Partial Type
    4、窗体的默认实例(让你用VB6的语法使用窗体)
    5、语法的多种改进
    6、My关键字
    现在用Visual Basic 2005只要一行代码就可以读写注册表、访问文件、读写串口、获取应用程序信息…… 用Visual Basic 2005完全可以称作享受开发。而泛型、运算符重载等功能又可以让Visual Basic的开发人员深入.NET Framework的全部功能,开发出最优秀的应用程序。
    Visual Basic 2005预示着Visual Basic光明的前景,所有Visual Basic的爱好者和使用者都和我一起等待这个新版本吧。

    PS编程语言分类:

    • 第一代语言–机器语言与汇编语言(1GL)。
    • 第二代语言–早期的高级语言(2GL) 如:BASIC、ALGOL 60、COBOL、PL/1等。
    • 第三代语言–结构化高级语言(3GL)如:C语言、Pascal 等。
    • 第四代语言–面向对象的高级语言(4GL)如:C+、Java、Visual Basic等。
    展开全文
  • DoEvents 函数会返回一个 Integer,以代表 Visual Basic 独立版本中打开的窗体数目,例如,Visual Basic,专业版,在其它的应用程序中,DoEvents 返回 0。 DoEvents 会将控制权传给操作系统。当操作系统处理完...
  • VB初步入门

    2020-09-20 11:31:04
    VB 入门记录(一) 一、Visual Basic 界面简介 打开题目进入界面是这个样子的 ​ 图一 我们的题目信息在这里 ​ 图二 然后当你双击那个产生按钮的时候 ​ ...
  • Casting is the process of converting one data type to another, for example, from an Integer type to a String type. Some operations in VB.NET require specific data types to work. Casting ...
  • VB中各简易符号的含义

    千次阅读 2019-01-30 13:52:21
    integer % 短整型 long &amp;amp; 长整型 single ! 单精度浮点型 double # 双精度浮点型 currency @ 货币型 string $ 字符型
  • C语言

    万次阅读 多人点赞 2019-12-18 23:01:50
    42.C语言是一种计算机高级语言。 43.C语言允许直接访问物理地址,能进行位操作。 44.C语言是结构化程序设计语言 45.c程序要通过编译,连接才能得到可执行的目标程序 46.用c语言编写程序,可以编写出任何类型的程序 ...
  • VB.NET 教程_01_基础语法

    万次阅读 多人点赞 2018-08-08 00:48:58
    VB.Net是一种简单,现代,面向对象的计算机编程语言,由微软开发,将.NET Framework和公共语言运行库的强大功能与作为Visual Basic标志的生产力优势相结合。 Visual Basic .NET(VB.NET)是在.NET Framework上...
  • 应用VB语言程序生成十个随机数

    千次阅读 2016-04-14 16:15:56
    1.在窗体的适当位置创建一个commandbutton,并在其属性窗口中将caption改为“生成数”。 2.在窗体中双击“生成数”,并在弹出的...Dim n As Integer Dim wzs(10) As Integer n = 1 While n wzs(n) = Int(Rnd * 1
  • vb语言

    2014-08-22 18:25:54
    数值(Numeric)数据类型 用于处理数值型数据,包括:  整型(Integer)表示整数  长整型(Long)表示整数,但表示的数据范围更大  单精度型(Single)表示带有小数的实数(最多7位有效数字)  双精度型
  • Dim datan As Integer '电压值的数字量形式 Dim dataV As Single '电压实际值 Dim byteToRead As Int16 = SerialPort1.BytesToRead '(读取缓冲区的字节长度) Dim Inbyte(byteToRead) As Byte Dim bytesRead As ...
  • 三、树的VB6语言实现以及显示 一、树的C#语言实现以及显示 1树的存储结构设计 一旦一个工程选择了用C#来完成,那么肯定意味着这是一个真实的应用项目。在现实中的应用项目中,树的存储基本都是用双亲表示法。在...
  • 入门:一个简单的VB.NET程序结构2.VB.NET的基本数据类型3.VB.NET中的类型转换函数4.Shared(共享)修饰符和Static(静态)修饰符的区别5.VB.NET中常量和枚举类型的声明6.VB.NET声明语句7.VB.NET指令8.VB.NET流程控制...
  • VB入门基础。 清楚易懂,适合初学者 本课程主要从开发环境、窗体、命令按钮、文本框、标签、消息框和输入框、代码基础、选择结构、循环结构、数组、过程、控件等方面进行讲解 ...
  • vb.net语言之集合练习

    2019-07-24 19:12:44
    vb.net语言的基础知识终于被我拿下了 ,以下是今天所做练习的源码:Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim x As New Collection Dim i As ...
  • VB语言基础

    千次阅读 2013-08-28 13:19:24
    一 注释 '要注释掉的内容 Rem 要注释掉的内容 二 续行符:空格加一个下划线...Byte(字节型)、Integer(整型)、Long(长整型)、Single(单精度浮点型)、Double(双精度浮点型)和Currency(货币型) 字符串类型
  • VBVB.NET使用API创建窗口,AddressOF表达式不能转换"Long"或者"Integer" 我已经把定义类型换过了还是不行 <p style="text-align:center"><img alt="" height="113" src=...
  • 我之前因学习昆仑通态的组态软件MCGS,用并学习过VB,还买了一本书《VB语言程序设计(第3版)》。现在在某公司实习,最近接触老的项目,又要用到VB。我就又把那本书大体看了一遍,并对其进行了总结。之所以总结这个...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    本章介绍C#语言的基础知识,希望具有C语言的读者能够基本掌握C#语言,并以此为基础,能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的,如需进一步学习C#语言...
  • 索引数组就是脚本语言中的a[5],把a数组中第6个元素取出来。 下面就分别把这个数组中,a[i],a[i+1],a[i+2],a[i+3]这4个元素分别拿出来。i是遍历的从0-9。 然后判断, 如果 满足a[ i ]  =109,a[i+3]=110,(109和...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,861
精华内容 3,144
关键字:

vb语言integer