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中函数的返回值有两种情况
 
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如果返回数字，只能返回整形，而标准输出的方法没有这个限制。
 

 
 

 

 
 
 
InStr([start, ]string1, string2[, compare]) 
 
返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
 
语法
 
InStr([start, ]string1, string2[,compare])
 
InStr 函数的语法具有下面的参数：
 
部分
说明
start
可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有start 参数。
string1
必要参数。接受搜索的字符串表达式。
string2
必要参数。被搜索的字符串表达式。
Compare
可选参数。指定字符串比较。如果 compare是 Null，将发生错误。如果省略compare，Option Compare 的设置将决定比较的类型。
 

 
设置
 
 compare 参数设置为：
 
常数
值
描述
vbUseCompareOption
-1
使用Option Compare 语句设置执行一个比较。
vbBinaryCompare
0
执行一个二进制比较。
vbTextCompare
1
执行一个按照原文的比较。
vbDatabaseCompare
2
仅适用于Microsoft Access，执行一个基于数据库中信息的比较。
 

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

 
说明
 
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服务器应用程序的句柄。   
 如果函数执行失败了，那么返回值表示一个错误，值会小于等于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