精华内容
下载资源
问答
  • 有一个函数定义 ``` Private Function CountOrder(ByRef SampleNo As Short) As Short ``` 执行如下语句: (其中一段) ``` If (SampleNo >= 90 Or SampleNo ) Then CountOrder = 90 Exit Function ...
  • 1 inputbox()函数值 1.1inputbox() 的返回值 inputbox()的返回值,... 如果用户单击 Cancel,则此函数返回一个长度零的字符串 ("")。 2 inputbox的后续处理 2.1把inputbox返回的值,处理数字等 如果是...

    1 inputbox()函数值

     

    1.1inputbox() 的返回值

    • inputbox()的返回值,String 类型
    • 在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 String。
    • 如果用户单击 Cancel,则此函数返回一个长度为零的字符串 ("")。

     

    2  inputbox的后续处理

    2.1 把inputbox返回的值,处理为数字等

    • 如果是一个语句默认会返回void? false
    • 如果是字符串相加是连接
    • int()  cint()  val() 功能类似,都可以把  “数字类字符串” 转成 数字

     

    Sub cs2()
    
    x1 = InputBox("请输入一个数字")
    x2 = InputBox("请输入一个数字")
    
    Debug.Print "x1+x2=" & x1 + x2
    Debug.Print "x1+x2=" & Val(x1) + Val(x2)
    Debug.Print "x1+x2=" & Int(x1) + Int(x2)
    Debug.Print "x1+x2=" & CInt(x1) + CInt(x2)
    Debug.Print "x1+x2=" & Sum = Val(x1) + Val(x2)
    
    End Sub
    

     

     

     

    别人写的例子

    Sub Judge()
    Dim x, y As Integer
    x = GetNum("X")
    y = GetNum("Y")
    If x < y Then
    MsgBox "X < Y"
    Else
    MsgBox "X >= Y"
    End If
    End Sub
    Function GetNum(s) As Integer
    Dim str As String
    Do While str = ""
    str = InputBox("", "请输入数" + s)
    If Not IsNumeric(str) Then
    MsgBox "你输入的不是整数"
    str = ""
    Else
    GetNum = CInt(str)
    End If
    Loop
    End Function

     

    3 inputbox 可以同时要求输入多个参数吗?

     

    3.1 要求输入参数必须是有分隔符

    • 输入多个参数,中间有 , 分隔
    • 但是这个不能限制玩家不按要求输入
    • 如果按要求输入可以按 split() 分隔

     

    Sub cs3()
    
    i1 = InputBox("请输入")
    
    arr1 = Split(i1, ",")
    
    For Each i In arr1
      Debug.Print i
    Next
    
    End Sub
    

     

     

     

    inputbox() 函数 和application.inputbox() 方法


    inputbox() 函数
    InputBox(Prompt[,Title][,Default][,Xpos][,Ypos][,Helpfile,Context])
    application.inputbox() 方法
    Object.InputBox(Prompt,Title,Default,Left,Top,HelpFile,HelpContextID,Type)


    inputbox() 函数
    (1)如果同时提供了Helpfile与Context参数,可以按F1键来查看与Context相应的帮助主题,Excel通常会在输入框中自动添加一个帮助(Help)按钮。
    (2)如果单击确定(OK)或按下ENTER键,则InputBox函数返回文本框中的内容;如果单击取消(Cancel),则此函数返回一个长度为零的字符串("")。
    (3)如果要输入多个参数并省略中间的某些参数,则必须在相应位置加入逗号分界符。
    (4)InputBox函数返回的是一个字符串,若需要得到数值,则需要使用Val函数将字符串转换为一个值。


    application.inputbox() 方法
    若使用适当代码的和,则返回多种数据类型。若要显示一个可以接受文本或数字的输入框,则将Type设置为3(即1和2之和,或者数字加上文本);若Type设置为8,那么可以输入一个单元格或单元格区域,或者用鼠标在工作表中的选择某个单元格区域。

    https://blog.csdn.net/ZOU_SEAFARER/article/details/1495674
    https://blog.csdn.net/iamlaosong/article/details/53376336
    http://www.360doc.com/content/18/0611/00/22637415_761312889.shtml

     

     

    Sub ponyma1()
    Dim in2 As Object
    
    in1 = Application.InputBox("请输入数字", "输入窗口", , , , , 1)
    Debug.Print in1 + 1
    
    
    Set in2 = Application.InputBox(prompt:="请选择几个单元格", Title:="输入窗", Type:=8)
    in2.Interior.ColorIndex = 3
    
    End Sub

     

    选择的range区域会变红

     

     

    展开全文
  • 关于shell中函数返回值

    千次阅读 2016-12-05 22:19:20
    shell中函数返回值有两种情况 1 直接通过标准输出返回  ...因此,我们可以用这种方式,在函数中如果得到了某个想要作为返回值的变量,直接执行echo $varname,即可将这个变量的值作为函数值


    shell中函数的返回值有两种情况

    1 直接通过标准输出返回 

    2 用return返回


    1 直接通过标准输出返回 ,这是我比较推荐的方法

    在shell中定义的函数,如果不用return作为返回值,函数就会直接将输出到标准输出中的内容作为返回值。

    因此,我们可以用这种方式,在函数中如果得到了某个想要作为返回值的变量,直接执行echo $varname,即可将这个变量的值作为函数值返回。

    用这种方法时就要注意,这时函数的定义中一定用控制好标准输出,比如不能用echo来做一些调试操作,比如打印一些输出变量。


    2  return

    shell函数的返回值,可以和其他语言的返回值一样,通过return语句返回

    这时,return一般配合$?使用,

    如:

    a=16
    b=3
    
    add()
    {
        result=$(expr $1 + $2)
        
        return $result
        
    }
    add $a $b
    
    sum=$?
    echo $sum
    19

    这种情况一般是先定义好函数,然后执行函数,最后用$?来获得函数返回值

    这种方法的实质是返回函数中最后一条语句的返回值,因此在获得需要得到的变量的值以后,就可以用return $result的方法,将$result这条语句的返回值,也就是result的值,作为函数返回值。有时我们也可以在if的判断条件中直接调用函数,来判断函数是否执行成功。

    要注意的是,用return如果返回数字,只能返回整形,而标准输出的方法没有这个限制。



    展开全文
  • VB InStr函数

    万次阅读 2013-01-29 16:35:09
    InStr([start, ]string1, string2[, compare])  返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。 语法 InStr([start, ]string1, string2[,compare]) ...为数值表达式,设置每次搜索的


    InStr([start, ]string1, string2[, compare]) 

    返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。

    语法

    InStr([start, ]string1string2[,compare])

    InStr 函数的语法具有下面的参数:

    部分说明
    start可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果 start 包含 Null,将发生错误。如果指定了 compare 参数,则一定要有start 参数。
    string1必要参数。接受搜索的字符串表达式。
    string2必要参数。被搜索的字符串表达式。
    Compare可选参数。指定字符串比较。如果 compare是 Null,将发生错误。如果省略compareOption Compare 的设置将决定比较的类型。

    设置

     compare 参数设置为:

    常数描述
    vbUseCompareOption-1使用Option Compare 语句设置执行一个比较。
    vbBinaryCompare0执行一个二进制比较。
    vbTextCompare1执行一个按照原文的比较。
    vbDatabaseCompare2仅适用于Microsoft Access,执行一个基于数据库中信息的比较。

    返回值

    如果InStr返回
    string1 为零长度0
    string1 为 NullNull
    string2 为零长度Start
    string2 为 NullNull
    string2 找不到0
    在 string1 中找到string2找到的位置
    start > string20

    说明

    InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置,而不是字符位置。

    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    VB中如何实现文本查找功能 

      实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法:

       InStr([start, ]string1, string2[, compare]) 

      这个函数需要的的参数是起始位置、主体字符串、要查找的字符串;Compare是

    VB中如何实现文本查找功能 

      实现查找功能的关键在于使用InStr函数,这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法:

       InStr([start, ]string1, string2[, compare]) 

      这个函数需要的的参数是起始位置、主体字符串、要查找的字符串;Compare是可选参数。指定字符串比较。此compare参数是可以省略的,也可以是 0, 1或 2。指定0(缺省)做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置,则使用下面的语句就可以实现:

       pos=InStr(1,"abcdefg","cd") 

      则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现,而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。

      下面举例说明:

      放置一个文本框TEXT1供用户输入文本或调入文本文件,用来做在其中查找文本的验证,放置另一个文本框TEXT2供用户输入要查找的字符串,放置两个命令按钮,Command1、Command2,其标题分别为“查找”、“查找下一个”。

      在窗体的总体声明部分写如下代码 : 

       Option Explicit ’定义目标位置变量
       Private TargetPosition As Integer 

        ’编写一个查找函数 
       Private Sub FindText(ByVal start_at As Integer) 
       Dim pos As Integer 
       Dim target As String
       ’获取用户输入的要查找的字符串 
       target = text2.Text 
       pos = InStr(start_at, text1.Text, target) 
       If pos > 0 Then 
          ’找到了匹配字符串 
          TargetPosition = pos 
          text1.SelStart = TargetPosition - 1 
          ’选中找到的字符串 
          text1.SelLength = Len(target) 
          text1.SetFocus 
       Else ’没有找到匹配的字符串
       MsgBox "没找到!" 
       text1.SetFocus 
       End If 
       End Sub 

       ’双击“查找”命令按钮: 
       Private Sub command1_Click() ’从第一个字符处开始查找 
       FindText 1 
       End Sub 

       ’双击“查找下一个”按钮: 
       Private Sub command2_Click() ’从当前位置继续查找 
       FindText TargetPosition + 1
       End Sub 

      运行程序,在文本框1中输入一些字符串,在文本框2中输入要查找的字符串,单击 “查找”按钮和“查找下一个”按钮进行验证。

    展开全文
  • ShellExecute函数返回值含义 如果函数执行成功,那么返回值就是该运行的程序的实例句柄(例如你打开一个txt文件,如果成功了,返回的是关联到txt文件类型的应用程序的句柄)。或者是一个DDE服务器应用...

     

    如果函数执行成功,那么返回值就是该运行的程序的实例句柄(例如你打开一个txt文件,如果成功了,返回的是关联到txt文件类型的应用程序的句柄)。或者是一个DDE服务器应用程序的句柄。   

     如果函数执行失败了,那么返回值表示一个错误,值会小于等于32。下面是错误列表   
        
        
      0 操作系统内存溢出或者系统资源不够   
      ERROR_FILE_NOT_FOUND 指定的文件没有找到   
      ERROR_PATH_NOT_FOUND 指定的地址没有找到   
      ERROR_BAD_FORMAT EXE文件是一个无效的PE文件格式,或者EXE文件损坏了   
      SE_ERR_ACCESSDENIED 无权访问该文件     
      SE_ERR_ASSOCINCOMPLETE 文件关联无效   
      SE_ERR_DDEBUSY DDE事物无法完成相应,因为DDE事物正在被处理   
      SE_ERR_DDEFAIL DDE事务失败。   
      SE_ERR_DDETIMEOUT DDE事务无法完成响应,因为请求超时   
      SE_ERR_DLLNOTFOUND 指定的DLL文件没找到     
      SE_ERR_FNF 指定文件未找到   
      SE_ERR_NOASSOC 没有关联程序   
      SE_ERR_OOM 内存不够,无法完成响应   

      SE_ERR_PNF 指定的地址未找到   

      SE_ERR_SHARE 共享越界异常

     

     

    posted on 2011-12-15 16:59 speakornow 阅读( ...) 评论( ...) 编辑 收藏

    转载于:https://www.cnblogs.com/speakornow/archive/2011/12/15/2289133.html

    展开全文
  • C语言

    万次阅读 多人点赞 2019-12-18 23:01:50
    C语言 42.C语言是一种计算机高级语言。...47.C语言允许有空函数 48.C程序书写格式,允许一行内可以写几个语句 49.C程序的语句无行号 50.C语言的每个语句的最后必须有一个分号 51.C语言本身没有输入...
  • VB函数大全

    万次阅读 2012-03-14 15:50:36
    VB函数大全  Calendar 常数 可在代码中的任何地方用下列常数代替实际值: 常数 值 描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -----------------------------------...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    本章介绍C#语言的基础知识,希望具有C语言的读者能够基本掌握C#语言,并以此基础,能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的,如需进一步学习C#语言...
  • VB里能不能从另外一个函数中直接调用一个变量过来,而不通过返回值调用?怎么把变量直接输入到函数里呢?
  • VB常用函数

    千次阅读 2011-10-27 13:51:04
    1.日期和时间函数 Time 返回系统时钟的当前时间。 Date 返回系统时钟的当前日期。  Now 返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。  Hour(Time) 返回指定时间的小时部分...
  • VB中常用的函数(一)

    热门讨论 2017-12-22 21:03:08
    前言学习VB很长时间了,有些函数虽然很简单,但是记得还不是很清楚,所以干脆在总结一次。Msgbox函数 这些不同的弹出的提示框,就是我们常用的msgbox函数,Message Box的简写。语法:MsgBox (Prompt [,Buttons] [,...
  • VB中format函数的使用。

    万次阅读 2018-11-19 13:28:11
    VB格式输出函数可以使数值、日期或字符串按指定的格式输出。其格式: Format(&amp;lt;表达式&amp;gt;[, &amp;lt;格式字符串&amp;gt;]) 其中,&amp;lt;表达式&amp;gt;:要格式化的数值、...
  • VB.NET GET接口传送数据,获取返回值

    千次阅读 2016-07-29 14:08:30
    VB.NET GET接口传送数据,获取返回值
  • VB Format函数

    千次阅读 2017-01-02 20:31:21
    VB Format函数
  • vb常用的内部函数(六):颜色函数

    千次阅读 2010-04-15 21:17:00
    ·格式:RGB(红色值,绿色值,蓝色值)·取值范围0--255,分别代表所要颜色中的红、绿、蓝分量的大小。QBColor函数:用一个整数值对应RGB的常用颜色值·格式QBColor(颜色值)·颜色值是一个整数,取值范围0--15...
  • VB讲课笔记04:数据类型、运算符与表达式、常用函数一、标识符VB6.0中,标识符分两类,一类是系统内部定义的标识符, 一类是用户定义的标识符。 系统内部定义的标识符又称关键字或保留字,主要用于标识内部符号常量、...
  • 另外一种是在VB6.0中运用SetAttr函数对文件进行操作,语句: SetAttr "D:\test",vbNormal     这章要写的就是这么一点了,下面贴上一些简单的程序: Private Sub Form_Load() Dim answer As ...
  • 问题出现:调试发现进入entropy_0_order函数计算正确,返回6.78...。但是一旦跳出函数,运行a=。。。就会出现a编程2048.0的情况 问题解决:entropy_0_order的声明在tools.h中,将这个头文件包含进来就可以返回...
  • VB常用字符串函数

    千次阅读 2015-02-27 09:27:30
    则Lcase(X)的结果vb and vc”,Ucase(X)的结果VB AND VC”  7. InStr函数:寻找字符串  [格式]:  P=InStr(X,Y)  从X第一个字符起找出Y出现的位置  P=InStr(n,X,Y)  从X第n个字符起...
  • VB中求Val("&H ffff")的返回值

    千次阅读 热门讨论 2014-12-23 10:18:30
     VB中的Val函数含义是返回包含于字符串内的数字,字符串是一个适当类型的数值,在它不能识别数字的第一个字符上,停止读入字符串,那些被认为是数值的一部分的符号和字符,例如美元号与逗号,都不能被识别。...
  • VB6.0函数集合

    千次阅读 2011-09-05 15:33:40
    转自:http://blog.sina.com.cn/s/blog_55eb2195010002qm.html  (一)类型转换类函数 1. CType(X) [格式]: P=CBool(X) ' 将X转换“布尔”(Boolean)类型 P=CByte(X) ' 将X
  • VB之Val()函数的使用

    千次阅读 2019-10-08 09:28:57
    VB中,也许你或多或少会希望得到的数据转换成数字类型,数字类型既可以是整形,单精度,双精度,浮点数,只要是数字类型这个都可以使用,不过此函数只返回字符串中包含的数字,若第一个字符字母或者非数字字符,...
  • VB字符串处理函数一览

    万次阅读 2017-10-10 11:49:20
    VB字符串处理函数一览 mid(字符串,从第几个开始,长度) ByRef 在[字符串]中[从第几个开始]取出[长度个字符串]  例如 mid("小欣无敌",1,3) 则返回 "小欣无"  instr(从第几个开始,字符串1,...
  • VB中常用函数

    千次阅读 2011-11-17 16:34:00
    以下为VB中常用函数: 1.p=ABS(X):取X的绝对值. 2.p=Log(X):求X的自然对数. 3.Y=Sgn(X):符号函数. 说明: X>0时Y=1;X=0时 Y=0;X 例: Response.write sgn(5)  输出: 1 4.Sin(x),Cos(x), Tan(x),Atn(x): 三角...
  • VB 一个函数传回多个值

    千次阅读 2010-06-23 11:32:00
    '想传回A、B、C、D四个数值回去,怎么写? End Function '●这是一个基本的观念问题,子程序与子程序间的传值有ByVal与ByRef两种,ByVal是两个子程序间的传值放在不同的内存位置,而预设的ByRef则是将传值放在同一个...
  • VB InstrRev函数

    千次阅读 2012-08-31 10:11:04
    返回某字符串在另一个字符串中最后出现的位置。... InstrRev 函数的语法有以下参数:  参数  string1  必选项。接受搜索的字符串表达式。  string2  必选项。被搜索的字符串表达式。  Start

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,089
精华内容 2,035
关键字:

vb函数返回值为数值的是