精华内容
下载资源
问答
  • vb四则运算程序

    2014-04-17 15:30:31
    简单的vb四则运算程序,有源码,能运行,简单毕业设计必备。
  • VB6四则运算器-数学计算器,可实现简单的加,减,乘,除和求余运算。严格来说还并不是一个计算器哦,只是一个运算器,太简单了,你可以用这个源码学习一些界面设计方面、基本数学运算方面的小技巧,运行效果如图所示。
  • sigmoid函数:nonlin(输出矩阵,矩阵,[是否求导(boolean)]) 底数矩阵:NumInd(输出矩阵,底常数,矩阵,[矩阵是否要系数(Double)]) 矩阵指数:ArrInd(输出矩阵,指常数,矩阵,[矩阵是否要系数(Double)]) ...
  • VB 简单的运算VB 简单的运算VB 简单的运算VB 简单的运算VB 简单的运算
  • 示例VB的阶乘运算,排列算法,组合运算算法等,在使用时注意,点击等号进行运算。在框输入计算值,然后点等号。
  • 一实验目的目标 综合运用本课程的相关知识完成两位数四则运算器的设计编写与测试培养学生的实践动手能力并检测本课程的学习效果 二实验内容 基本要求 两位数指10-99的自然数的加减乘除除法指的是整除运算其中减法和...
  • VB四则运算

    2012-05-26 18:39:28
    加减乘除的一些简单运算! Dim No As Long Dim OkNo As Long Dim s As Long Private Function Operator() As String Dim x As Long Randomize x = Int(4 * Rnd) Select Case x Case 0 Operator = "+" Case 1 ...
  • 实现计算器功能:本实例用到的commandbutton控件数组,利用控件数组可方便编程。
  • VB进行大整数乘法运算实例,实现两个超大整数的相乘功能,是数学计算器的一个功能部分,请注意乘数和被乘数都必须由数字组成。可以显示计算过程,可随机生成两个大整数以便测试,计算结果将显示在下边的文本框
  • VB.NET XOR 运算

    2019-10-06 22:33:53
    C# 里面的 ^ 运算符,在VB.NET可以用 XOR 表示,但是 byte x=(byte)(65535^254); 直接翻译成 dim x as Byte=CByte(65535 XOR 254) 会导致运算溢出,这里有一个很粗暴的办法可以解决 dim x as Byte=BitConvert...

    C# 里面的 ^ 运算符,在VB.NET中可以用 XOR 表示,但是

    byte x=(byte)(65535^254);

    直接翻译成

    dim x as Byte=CByte(65535 XOR 254)

    会导致运算溢出,这里有一个很粗暴的办法可以解决

    dim x as Byte=BitConvert.GetBytes(65535 XOR 254)(0)

     

    转载于:https://www.cnblogs.com/towerbit/p/9992861.html

    展开全文
  • Matrix.vb提供了可做简单矩阵运算(如矩阵乘法,转置,求逆,合并等)的一个Matrix类。可直接加载入工程应用,或做更全面的扩展。提供与大家交流,请勿转载。
  • vb矩阵运算

    2012-06-24 19:29:33
    运算公式运用计算机...此系统开发简单,功能完善,小巧实用,运用动态数组与常用VB知识编写,可以运用到大一新生的学习线性代数去,帮助新接触矩阵的大学生更好的学习矩阵,避免掉不必要的繁难运算,实用性超高。
  • VB的四则运算,适合初学者,不过外形不怎么美观,只有一个维尼熊,可以随意改动
  • VB字符串运算

    千次阅读 2013-10-12 21:15:13
    Public Function MyMainCount(ByVal Str As String) As Long '调用这个函数 Str为运算式:可带括号 返回求出来的值 '支持+,-,*,/,() '先从()算起 从左至右 Dim Str1 As String Dim Count As Long '整个算式的结果 Dim...
    '菜鸟的我写的不怎么好,高手莫笑吐舌头
    Option Explicit
    
    Public Function MyMainCount(ByVal Str As String) As Long '调用这个函数 Str为运算式:可带括号 返回求出来的值
    '支持+,-,*,/,()
    '先从()算起 从左至右
    Dim Str1 As String
    Dim Count As Long '整个算式的结果
    Dim i As Long
    Dim bracket As Long '括号位置
    bracket = 1 '从第一个
    Count = 0
    For i = 0 To Len(Str)  '循环检测是否有括号
        bracket = InStr(bracket, Str, "(", vbTextCompare)
        If bracket = 0 Then '没有括号
            Count = MyCount(Str)
        Else '有括号
            '先算括号里面的
            Str1 = Mid(Str, bracket + 1, InStr(bracket, Str, ")", vbTextCompare) - 2) '分解出括号里面的 无括号
            Count = Count + MyCount(Str1)
            Str = Replace(Str, "(" & Str1 & ")", CStr(Count), , , vbTextCompare) '将原来字符串中的()中的内容替换为运算后的得数
            Count = 0 '只是为了将括号去掉 所以不记返回值
        End If
        bracket = bracket + 1 '当前括号已经运算所以作废 先前移动一个字符
    Next i
    MyMainCount = Count
    End Function
    
    Public Function MyCount(ByVal Str As String) As Long 'Str不可带括号 四舍五入制
    On Error Resume Next
    Dim i As Long
    '判断有几个符号(数字=符号数量+1)
    Dim sym As Long '符号数量
    sym = 0
    For i = 0 To Len(Str)
        If Mid(Str, i + 1, 1) = "+" Or Mid(Str, i + 1, 1) = "-" Or Mid(Str, i + 1, 1) = "*" Or Mid(Str, i + 1, 1) = "/" Then
            sym = sym + 1
        End If
    Next i
    '提出所有数字存入数组 提出所有符号存入到数组
    Dim number() As Long '数字数组
    Dim numbercount As Long '数字总数
    Dim tmpbuffer As String '缓冲数组字符区
    ReDim number(sym) '动态设置数组维数
    '-------------------------------------------
    Dim symstring() As String '符号数组
    ReDim symstring(sym - 1) '动态设置数组维数
    Dim symcount As Long '符号总数
    numbercount = 0
    symcount = 0
    '开头不能是符号
    For i = 0 To Len(Str) - 1
        If Asc(Mid(Str, i + 1, 1)) >= &H30 And Asc(Mid(Str, i + 1, 1)) <= &H39 Then '是0~9的Ascii码
            tmpbuffer = tmpbuffer & Mid(Str, i + 1, 1) '添加到缓冲区
        Else '是运算符
            number(numbercount) = Val(tmpbuffer) '将缓冲区输入到数组
            numbercount = numbercount + 1 '数字总数+1
            tmpbuffer = "" '清空运算符 供下次使用
            '将运算符输入到数组
            symstring(symcount) = Mid(Str, i + 1, 1)
            symcount = symcount + 1
        End If
    Next i
    '将最后一个(结尾为数字)数组提出
    number(numbercount) = Val(tmpbuffer) '将缓冲区输入到数组
    numbercount = numbercount + 1 '数字总数+1
    tmpbuffer = "" '清空运算符 供下次使用
    '--------------------------------------------
    '开始运算
    '没有括号(不同级:先*/再+-)(同级:从左到右)
    '运算符有几个就算几次
    'Dim Level As Long '1=乘除级别 0=加减级别
    Dim ii As Long
    'Level = 0
    'For i = 0 To symcount - 1 '判断是否有乘除符号
    '    '找乘除
    '    If symstring(i) = "/" Or symstring(i) = "*" Then '有乘除
    '        Level = 1 '乘除级别
    '        Exit For
    '    End If
    'Next i
        '先乘除后加减-------------------------------------------------------------
        '乘除从左到右
        For i = 0 To symcount - 1
            If i > symcount - 1 Then '超出范围了
                Exit For
            End If
            If symstring(i) = "/" Or symstring(i) = "*" Then '乘法Or除法
                If symstring(i) = "/" Then
                    '没有算的最左边的/符号 开始进行除法运算
                    number(i) = number(i) / number(i + 1) '除法运算
                End If
                If symstring(i) = "*" Then
                    '没有算的最左边的*符号 开始进行乘法运算
                    number(i) = number(i) * number(i + 1) '除法运算
                End If
                '数字数组减少一个 缺了一个空补上
                For ii = i + 1 To numbercount - 1
                    number(ii) = number(ii + 1) '替换
                Next ii
                numbercount = numbercount - 1
                ReDim Preserve number(numbercount - 1) '保留+重定义
                '符号数组减少一个
                For ii = i + 1 To symcount - 1
                    symstring(ii - 1) = symstring(ii)
                Next ii
                symcount = symcount - 1
                ReDim Preserve symstring(symcount - 1)
                i = i - 1 '回滚
            End If
        Next i
        '加减从左到右
        For i = 0 To symcount - 1
            If i > symcount - 1 And symcount < 1 Then '超出范围了并且没有运算符号了就退出循环(不用运算了)
                Exit For
            Else '其中有一个为False特别是第二个就说明还有一个运算符 还要运算一次 所以将第一个与第二个进行运算
                If i > symcount - 1 Then
                    i = 0 '设置数组元素第1个
                End If
            End If
            If symstring(i) = "+" Or symstring(i) = "-" Then '加法Or减法
                If symstring(i) = "+" Then
                    '没有算的最左边的/符号 开始进行除法运算
                    number(i) = number(i) + number(i + 1) '加法运算
                End If
                If symstring(i) = "-" Then
                    '没有算的最左边的*符号 开始进行乘法运算
                    number(i) = number(i) - number(i + 1) '减法运算
                End If
                '数字数组减少一个 缺了一个空补上
                For ii = i + 1 To numbercount - 1
                    number(ii) = number(ii + 1) '替换
                Next ii
                numbercount = numbercount - 1
                ReDim Preserve number(numbercount - 1) '保留+重定义
                '符号数组减少一个
                For ii = i + 1 To symcount - 1
                    symstring(ii - 1) = symstring(ii)
                Next ii
                symcount = symcount - 1
                ReDim Preserve symstring(symcount - 1)
                i = i - 1
            End If
        Next i
    '-----------------------------------------------------------------------------------------------
    MyCount = number(0) '返回结果(数组的第一个元素) 因为前面删除了空出来的元素 最后只剩下答案了
    End Function
    


    展开全文
  • VB.NET怎样实现位运算

    千次阅读 2014-04-03 19:54:46
    这几天一直在边学习边写一个PC应用程序,用来接收串口收到的数据,并已要求的格式保存,并将数据以实时曲线的方式绘制出来。下位机是和ADI的ads21469通信,...这样就涉及到DSP那边的位移运算。先发高位: int SendDat

    这几天一直在边学习边写一个上位机PC应用程序,用来接收串口收到的数据,并已要求的格式实时保存,再将数据以实时曲线的方式绘制出来。下位机是和ADI的ads21469通信,数据时1K Hz/s的采样率,即每秒采1024个点。以整数型式传过来,每个整数32bit表示。由于DSP那边只能是char型发送数据,所以我们把一个整数拆成了4个字节发送。这样就涉及到DSP那边的位移运算。先发高位:

    int SendData[1024];

    int i=0;

    int tmpSend = 0;

    int* sendPtr = NULL;

    //Get real time sendData here

    int sendFuntion(int * argSendData, int argSendNum)

    {

    for(i=0;i<argSendNum;++i)

    {

    tmpSend = SendData[i];

    sendPtr[i*4] = (tmpSend >> 24) & 0xFF;

    sendPtr[i*4+1] = (tmpSend >> 16) & 0xFF;

    sendPtr[i*4+2] = (tmpSend >> 8) & 0xFF;

    sendPtr[i*4+3] = tmpSend  & 0xFF;

    }

    //send data through uart, realize by DMA module

    }

    ......

    由于VB.NET 没有位移运算,故数学方式还原,即就是DSP左移24位,VB.NET中则乘以2^24还原,DSP左移16位则VB.NET中乘以2^16还原。。。。可是后面调试时就发现一个问题:当DSP端采集的数据为负值时,例如-398(FF FF FE 72)。到PC端接受时,就为255*2^24+255*2^16+254*2^8+114*2^0 = 4294966898, 已超出VB.NET中32位interger类型所能表示的最大范围:(-2147483648~~2147483647),程序运行时就会报错!我只能以long型来接受来自DSP端的数据,但是这样收到的就是个正数,刚开始尝试用转为16进制再通过求补码来获得,最后没能力实现,或者这样的想法在VB中可能行不通。

    到最后其实发现真正问题的解决方法很简单,还是自己对VB不熟悉的缘故:

    bitarray类BitVector32类实现,VB中提供了很方便的库函数,这很类似于C++中的bitset类型操作(需要包含<bitset>文件)。BitVector32对象可以存储一组占用32个连续位的小整数,因此对位编码字段非常有用,尤其在和硬件设备传递数据时!(大家可以参考《Visuanl Basic 2005 技术内幕》,(意)Francesco Balena 著,贾洪峰 译,清华大学出版社)

    VB实现大致如下:

    Imports System.Collections.Specialized

    ...


    Dim bvData as BitVector32

    Dim sec1 As BitVector32.Section = BitVector32.CreateSection(255)

    Dim sec2 As BitVector32.Section = BitVector32.CreateSection(255,sec1)

    Dim sec3 As BitVector32.Section = BitVector32.CreateSection(255,sec2)

    Dim sec4 As BitVector32.Section = BitVector32.CreateSection(255,sec3)


    Dim Buf(4096) as Byte 'receive byte size matched with DSP send data: 1024*4Byte

    Dim recCount as Integer

    Dim Data(1024) as long

    ....

    For recCount = 0 To 1023

    bvData(sec4) = buf(recByte*4)

    bvData(sec3) = buf(recByte*4+1)

    bvData(sec2) = buf(recByte*4+2)

    bvData(sec1) = buf(recByte*4+3)


    Data(recCount) = bvData.Data '这样数据肯定是-398

    Next

    ....

    展开全文
  • 内容索引:VB源码,算法相关,计算器 用VB编写的一个支持超大数据运算的计算器程序,可以支持以字符存储的超大数的计算,进行加、减、乘、除、乘方、进制转换、阶乘等运算,程序作者是VB初学者,因此本程序可以为Vb...
  • vb编写的实现四则运算的简单计算器,适合vb初学者熟悉编程环境,有详细注释。
  • vb.net 四则运算

    2015-07-06 13:43:05
    利用vb.net写的四则运算器代码,简单易懂,适合初学者
  • VB.NET+数据库实现数据的修改添加及数据库运算,帮助初学用户快速入门数据库开发
  • vb中的乘法运算

    千次阅读 2016-04-21 17:43:43
    简单型 功能:一位数乘以一位数  一位数乘以两位数  两位数乘以两位数 程序:Private Sub Command1_Click()  Dim a As Byte, c As Integer  Dim b As String  b = Me.Text1.Text ... 

    简单型

    功能:一位数乘以一位数

                一位数乘以两位数

                两位数乘以两位数

    程序:Private Sub Command1_Click()
                 Dim a As Byte, c As Integer
                Dim b As String
                b = Me.Text1.Text
                 a = Int(Val(b))
                b = Me.Text2.Text                                                            
                c = Int(Val(b))
                Dim r As Byte
                 r = a * c
                Print r

              End Sub


    复杂型

    多位数乘以一位数

    Private Sub command1_Click()
    Cls
    Me.Font.Size = 24
    Dim c As Byte
    Dim a() As Byte
    Dim b As String
    Dim changdu As Long, i As Long
    changdu = Len(Text1.Text)
    ReDim a(changdu)

    For i = 1 To changdu
    b = Mid(Me.Text1.Text, i, 1)
    a(i) = Int(Val(b))
    Next i

    b = Me.Text2.Text
    c = Int(Val(b))
    Dim m As Byte
    Dim rm As Byte
    Dim r() As Byte
    ReDim r(changdu)
    Dim d As Byte

    For i = changdu To 1 Step -1
    rm = a(i) * c + d
    r(i) = rm Mod 10
    d = rm \ 10
    Next i

    If d <> 0 Then
    Print d;
    End If

    For i = 1 To changdu
    Print r(i);
    Next i


    End Sub


    未完待续。。。。。。

    展开全文
  • VB.net实现小学生登录 然后选择答题 或者查分,答完题目最后将结果返回给“record.txt”文件
  • VB6位运算

    千次阅读 2010-11-03 20:21:00
    这几天在网上看到几篇关于VB位运算符的帖子,有篇文章叫《VB移位运算函数》的,代码不仅繁琐、效率低,而且存在漏洞,在网上被四处转载,有些误人子弟。为此,写了几个关于VB运算的函数,以供大家学习交流。
  • VB6.0 使用递归过程实现阶乘运算  Function F(n As Integer) As Single  If n > 1 And n  F = n * F(n - 1)  Else  F = 1  End If  End Function  Private Sub Command1_Click()  Text2.Text = F(Val(Text...
  • 能够算超大型的数字,有加,减,乘,阶乘等等。可以运行,是个不错的例子。
  • VB 矩阵的加法运算

    2010-06-07 14:32:44
    VB 矩阵的加法运算 VB 矩阵的加法运算
  • 利用vb设计乘法运算

    千次阅读 2016-04-14 16:57:27
    今天下午我历经千辛万苦终于将这个算法让计算机明白。。。。。。。。。。 首先在电脑上建立两个text和 command 让后再输入代码 Private Sub Command1_Click() Cls Me.Font.Size = 30 ...Di
  • VB编程乘阶运算

    2015-12-18 19:48:06
    通过数据的键盘输入由运算程序对数据进行分析以及计算
  • 内容索引:VB源码,算法相关,VBScript,字符串计算 VB利用VBScript进行字符串运算,这个小东东是在以前编程时无意看到了类似功能,后来来了灵感,觉得用VBScript是不是也能实现呢,于是自己试着写的,可能还不太好用,...
  • VB小学数学四则运算程序代码 “加”、“减”、“乘”、“除”
  • VB6.0上实现的关于矩阵(使用类)的各种运算

空空如也

空空如也

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

vb中的比较运算