精华内容
下载资源
问答
  • Vb中Index的用法

    千次阅读 2012-12-26 20:05:24
    函数INDEX()有两种形式:数组和引用。数组形式通常返回数值或数值数组;...INDEX(reference,row_num,column_num,area_num)返回引用指定单元格或单元格区域的引用。 参数: Array为单元格区域或数组常数;R
    
    

             函数INDEX()有两种形式:数组和引用。数组形式通常返回数值或数值数组;引用形式通常返回引用。
    语法:

    INDEX(arrayrow_numcolumn_num)返回数组中指定的单元格或单元格数组的数值。

    INDEX(referencerow_numcolumn_numarea_num)返回引用中指定单元格或单元格区域的引用。

    参数:

    Array为单元格区域或数组常数;Row_num为数组中某行的行序号,函数从该行返回数值。如果省略row_num,则必须有column_numColumn_num是数组中某列的列序号,函数从该列返回数值。如果省略column_num,则必须有row_numReference是对一个或多个单元格区域的引用,如果为引用输入一个不连续的选定区域,必须用括号括起来。Area_num是选择引用中的一个区域,并返回该区域中row_numcolumn_num的交叉区域。选中或输入的第一个区域序号为1,第二个为2,以此类推。如果省略area_num,则INDEX函数使用区域1

    实例:

    如果A1=68A2=96A3=90,则公式“=INDEX(A1:A311)”返回68=INDEX(A1:A3111)返回68

     

    展开全文
  • VB中如何发送一个浮点数,例如 -7.738263E-09 如何通过串口(mscomm控件发送,在另一端使用单片机接收。我知道在VC中只要使用 union {  char temp[4];  float num; }at; at.num = -7.738263E-09; 利用  ...

    第一段:

    回复次数2

    发表于 2007-06-06 13:55:41 楼主

    在VB中如何发送一个浮点数,例如 -7.738263E-09  如何通过串口(mscomm控件发送,在另一端使用单片机接收。我知道在VC中只要使用
    union
    {
        char temp[4];
        float num;
    }at;
    at.num =  -7.738263E-09;
    利用
        CByteArray array;     
        array.RemoveAll();
        array.SetSize(Count);
        for(i=0;i<4;i++)
            array.SetAt(i, at.num[i]);

        m_Comm.SetOutput(COleVariant(array)); // 发送数据
    但是在VB中如何实现呢?求助呀。

     

    回答者:

    Option Explicit
    
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
    
    
    Dim a As Single, Buffer(3) As Byte
    
    a = -7.738263E-09
    CopyMemory Buffer(0), a, 4
    MSComm1.Output = Buffer

     

    追答:

    '谢谢,我测试过了您的方法可以。只是我使用API浏览器看到的CopyMemory的格式是
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    
    '同样也可以解决问题。等结帖的时候一定给您加分。

     

    展开全文
  • Option Explicit Private Sub Command1_Click() ... Dim Num, I, J, Temp, Len1 As Long Dim FileNO As Long Dim Count As Long Dim str, strTemp, strArr() As String, Arr() As String ...
    Option Explicit
    
    Private Sub Command1_Click()
        Dim Num, I, J, Temp, Len1 As Long
        Dim FileNO As Long
        Dim Count As Long
        Dim str, strTemp, strArr() As String, Arr() As String
        '********************************************************************
        str = InputBox("请输入字符串,数字或者字母组成:", "提示")
        
        If str = "" Then Exit Sub
        
        '===by gary20130208
        'Len1 = Len(str): ReDim strArr(Len1)
        strArr() = Split(str, " ")
        Len1 = UBound(strArr) + 1
        
    '    For I = 1 To Len1
    '        strArr(I - 1) = Mid(str, I, 1)
    '    Next
        '===
        
        '********************************************************************
        Count = 1
        For I = 2 To Len1
            Count = Count * I
        Next
        ReDim Arr(Count)
        '*********************************************************************
        Randomize
        For I = 0 To Count - 1
            '******************************************
    Lab2:   strTemp = ""
            Num = 0
            Do While Num < Len1
    Lab1:       Temp = Int(Rnd * Len1)
                If InStr(strTemp, CStr(Temp)) Then GoTo Lab1
                strTemp = strTemp & Temp
                Num = Num + 1
            Loop
            '******************************************
            For J = 0 To UBound(Arr)
                If Arr(J) = strTemp Then GoTo Lab2
            Next
            Arr(I) = strTemp
        Next
        '**********************************************************************
        FileNO = FreeFile
        Open "e:\字符组合.txt" For Output As #FileNO
        '**************************
        For I = 0 To Count - 1
            strTemp = ""
            For J = 1 To Len1
                strTemp = strTemp & strArr(CLng(Mid(Arr(I), J, 1))) & ","
            Next
            Print #FileNO, Left(strTemp, Len(strTemp) - 1)
        Next
        '**************************
        Close #FileNO
    End Sub

    这是网上找到的一段代码(vb 6.0版本),原来是算单个字符有多少种组合。我在这基础上做了下修改。

    比如:A B C D E ,这样就总共有120种组合字符,然后输出到文本文件。

    转载于:https://www.cnblogs.com/garyxiao/archive/2013/02/08/2909280.html

    展开全文
  • VB开发——VB中如何四舍五入

    万次阅读 2006-03-29 21:55:00
    在 Visual Basic 要做到四舍五入的功能应该用 Format 这个函数,用 CInt 或 CLng 都只能取到整数部分,而用 ...副程式:Public Function Round(num As Variant, n As Long) As String Round = Format(num, IIf(n > 0,
    
    

    在 Visual Basic 要做到四舍五入的功能应该用 Format 这个函数,用 CInt 或 CLng 都只能取到整数部分,而用 Format 函数可以取到你所指定的小数位数。

    副程式

    
    

    叁数说明

    • num:欲四舍五入的数值。因为欲四舍五入的数值可能是 Double 或 Single 或是其它资料型态,所以这里把 num 宣告成 Variant;如果把 num 宣告成 Double,而欲四舍五入的数值是 Single 型态,就会出现资料型态不符合的错误;但是把 num 宣告成 Variant 则可避免这种错误,或是使用传值呼叫 (ByVal) 也可避免这种错误。其实我不确定这个观念是否正确,如果有误请来信指正,谢谢。
    • n:取到小数点以下第 n 位。

    Round 函数传回的是一个字串资料。

    范例

    
    

    执行後在 VB 的即时运算视窗出现以下结果:

     

    Fix 和 Int 是属於无条件舍去,但是他们两者在处理负数的部分仍有些微差异,请自行叁阅VB Help;CInt 和 CLng 也有四舍五入的功能,但是只能取到整数部分;Format 则可以四舍五入到你所指定的小数位数。

    有一点值得一提的是,Format 的第二个叁数使用 "0" 和 "#" 的差异:

    format(123.4,".000") 输出 123.400

    format(123.4,".###") 输出123.4

    也就是说:第二个叁数使用 "0" 的,会自动补上多馀的 0,有时候为了编排好看会希望这麽做;使用 "#" 的则不会自动补上 0。

    展开全文
  • 可以用关键字True与False给Boolean变量赋值,写法如下:Function IsInt(Num) As BooleanIf Int(Num) =NumThenIsInt = TrueElseIsInt = FalseEndIfEndFunction其中,Num就是要处理的o1,IsInt返回值就是布尔型的变量...
  • 1.(2016·杭州模拟)有一Access数据库“school.accdb” 存放在f:\2015mt\vb文件夹,其中的“student”数据表用来存储学生的基本情况信息,包括学号(num)、姓名(name)、性别(sex)、分数(score),括号内的为对应字段...
  • 若只是要取得这三个按键 (NumLock / 只要呼叫 GetKeyState API 就可以了!若是要设定这三个按键的状态,则要呼叫 GetKeyboardState 及 SetKeyboardState 二个 API! 程序代码:   '在表单的声明区,加入...
  • VB枚举网络的服务器会话: For cnt = 0 To dwEntriesread - 1 将数据转换为SESSION_INFO_502 type类型,并将其添加到列表 CopyMemory si502, ByVal bufptr (nStructSize * cnt), nStructSize sesi502_cname ...
  • 说在前面分段数组是近年来选考VB中的热门考点,各种联考卷或模拟卷中也出现了大量相关的题目。常见的一种应用是把一个长度为n的数组a,等分成n\k段(其中每段元素个数为k),若最后有不足k个元素,则自成一段。给每段...
  • 首先winform设置 _ Public Class Form1   formload设置 webbrowser.ObjectForScripting = Me   调用的函数要是 public  Public Sub add(ByVal numAs String)   网页 window.external.add(num)
  • 说在前面分段数组是近年来选考VB中的热门考点,各种联考卷或模拟卷中也出现了大量相关的题目。常见的一种应用是把一个长度为n的数组a,等分成n\k段(其中每段元素个数为k),若最后有不足k个元素,则自成一段。给每段...
  • VisualBasic是微软公司推出的简单易学、... 本文主要介绍的就是vb语言代码大全,分别从五种常用的vb语言代码来详细说明,跟随小编一起来了解一下吧。 vb语言代码大全 1、数值型函数: abs(num): 返回绝对值 ...
  • 我想提取下这个网页下一页的网址,但是提取失败,代码如下:有一些网页是可以提取的,我对比了下,觉得应该是GetAttribute("title")title的问题,只要把它换了就行了,但是不知道应该换成什么,我试了不行...
  • 能生成不重复随机数的代码,是一个类似于C语言的循环语句,花了一整晚才明白,够笨的... Dim i As Integer = 0 Dim j As Integer = 0 dim Num as Integer Dim StrTempArr(Num) As String Dim strZhongJiangArr(...
  • vb语言代码大全

    千次阅读 2019-09-25 03:24:17
    VisualBasic是微软公司推出的简单...本文主要介绍的就是vb语言代码大全,分别从五种常用的vb语言代码来详细说明,跟随小编一起来了解一下吧。 vb语言代码大全 1、数值型函数: abs(num): 返回绝对值 ...
  • '程序的思路是将a,b分别给一个0到num-1的随机数,循环多次,观察(a,b)的所有组合出现的次数,用来反映其出现的概率'测试结果表明连续使用Randomize,出现的(a,b)组合并不是等概率的Option Explicit Sub Cal...
  • VB_改变内存变量的值

    千次阅读 2008-08-08 10:54:00
    先用API获得进程句柄,然后获得权限以后直接修改............ Private Sub Command1_Click()If ToKen Then Text1 = "" Dim PID As Long, Num_Reset As Long, HStr As StringHStr = Right$("00000000
  • 说是会写这个就很快会写结束远程进程的,可是对于初学者而言有很大的困难,现就我整理出的代码给大家贴出一份,保证能用,源码比较乱,请大家不要打我就行,下面是我的源码:  Dim num As Integer = L_list....
  • VB调用Matlab编写的dll

    2020-11-18 11:20:59
    首先在Matlab2010b建立一函数文件,本文命名为add_num: 运行命令:deploytool,新建一工程,“Target”选为“Generic COM Component” 在deploytool窗口,添加class,然后添加文件,选刚才创建的...
  • 摘要:VB源码,系统相关,扫雷  vb6扫雷,初级版源代码,程序编写...关于雷的变量说明:num2 为雷的个数,NUM为全局变量,num3的数值为周围雷的个数!num4为内部的判断是否相符,初始为5,在begingame中将NUM2出使化为5。
  • VB6.0制作的界面挺花哨的七星彩摇奖机,类似于电视节目的摇奖画面,开始摇奖后,一串数字开始转动,变化很快,停止来的一串数字就是中奖号码了,可用于举办活动时的抽奖程序,关于程序的实现,可参考以下核心部分...
  • 扫雷初级版源代码,扫雷游戏,VB6.0开发,程序编写:徐自涛。...关于雷的变量说明:num2 为雷的个数,NUM为全局变量,num3的数值为周围雷的个数!num4为内部的判断是否相符,初始为5,在begingame中将NUM2出使化为5。
  • VB 汉字转换拼音

    千次阅读 2009-04-15 18:15:00
    在引用,选择 Microsoft Scripting Runtime Dim d As New Scripting.DictionaryFunction g(num) Dim sN1, sN2 As String If num > 0 And num g = Chr(num) Else If num -10247 Then 
  • VB.net WPF DataTable用法总结

    千次阅读 2018-12-20 12:15:03
    Dim ds As New DataSet Dim dt As New DataTable 根据DataSet的DataTable的...获取 DataTable 某行的值,Num是列名(遍历DataTable) Return dt.Rows("Num").ToString '此方法适用于只有一行数据...
  • VB的基本使用2

    2015-10-31 16:50:33
    '4. 先声明一个一维动态数组,然后将其数组元素个数...Option Explicit '强制显式声明模块的所有变量  Dim a(9),i '数组元素个数确定为10  'Sub num  For i=0 to 9'For Next 循环遍历  a(i)=i+1 Next 'E
  • 下为全局键盘钩子(也称系统键盘钩子)的代码,原文资料是英文的,在下也只是勉强能看懂,...代码功能:实时监测Caps Lock、NumLock、Scroll Lock三个按件的状态,并显示在Label1 Label2 Label3三个标签 ''.bas模块

空空如也

空空如也

1 2 3 4
收藏数 78
精华内容 31
热门标签
关键字:

vb中num