If (Input<>"") And (Not InStr(",",Input)) Then
MyArray = Split(Input, ",")
MsgBox MyArray(0) & " . " & MyArray(1)
End If
vb中怎样在inputbox函数中输入一组数并分别处理
'示例代码如下： Private Sub Form_Click() Dim a() As Integer Do x = Val(InputBox("请输入整数：")) If x <> -1 Then b = b + 1 ReDim Preserve a(b) a(b) = x If x > 0 Then z = z + 1 If x < 0 Then f = f + 1 Print a(b); " "; End If Loop Until...
vb.net 中inputbox 用法
一共有三个地区啊，第一就是弹出来窗口上面蓝条下面的位置，显示比如“请输入”。第二就是弹出来窗口的标题了，第三个位置就是可输入部分显示的示范内容。如inputbox("请输入生日","标题","1986-12-11")
VB inputbox 如何实现一个inputbox 输入框输入两个参数
private sub command1_click()a=inputbox("请按格式输入：参数1，参数2")b=split(a,",")print b(0),b(1)end sub
VB编程,输入平面上任一点的坐标(x,y),判断并显示该点位于哪个象限的信息...
InX = val(inputbox("请输入X轴数值"))InY = val(inputbox("请输入Y轴数值"))if InX>0 then if InY>0 then 'X,Y >0 第一象限 msgbox "坐标(" & inx & "," & Iny & ") 在第一象限"elseif InY<0 then ' X> 0 >Y第四象限 msgbox "坐标(" & inx & "," & Iny ...
利用inputbox输入三个数(x、y、z),使它们从大到小显示
xv, yv, zv: Integer;Value3: array[0..2] of Integer;i, tmv: Integer;Ok: boolean;begin tm := InputBox('等待输入', '请输入三个数值：', 'x=1000y=200z=30');xv := AnsiPos('x=', tm) + 2;yv := AnsiPos('y=', tm) + 2;zv := AnsiPos('z=', tm) + 2;Value...
vb6.0inputbox输入的数字怎么在lab中显示
vb6.0inputbox输入的数字怎么在lab中显示 我来答 分享 微信扫一扫 网络繁忙请稍后重试 新浪微博 QQ空间 举报 浏览1 次 可选中1个或多个下面的关键词,搜索相关资料。也可直接点“搜索资料”搜索整个问题。 vb6.0 inputbox 数字 lab 搜索资料 本地图片 图片链接 代码 提交回答 匿名 回答自动保存中 你...
1、使用Inputbox输入框输入两个数x、y,比较他们大小,使得x<y。
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 ...
VB表达式,输入x,y,z三个数,按照从大到小的次序显示
简单啊，给你吧。Private Sub Command1_Click()x = InputBox("输入第一个数：")y = InputBox("输入第二个数：")z = InputBox("输入第三个数：")Print " x y z"Print "排序前 ", x, y, z Print "排序后 ";If x > y And x > z Then If y > z Then Print "...
vb中inputbox函数参数
input box函数形式：变量【$】=input box（提示【，【标题】【，默认内容】【，【x坐标位置】【，y坐标位置】】】）函数中个参数的作用：1、提示： 必选项，是字符串表达式，在对话框中作为输入提示信息。2、标题：可选项，是字符串表达式，在对话框的标题栏显示；若省略，则显示工程名。3、默认内容...
在VB中 在字符串中怎样提取特殊位置的字符
Private Sub Command1_Click()Dim x%, y$, z%, r y = InputBox("请输入一组字符串")x = Len(y)For z = 1 To x Step 2 r = r & Mid(y, z, 1)Next Text1 = y & "抽取之后为：" & r End Sub 另外，我起问下一楼回答者： （oaita - ）getResultStr是什么函数，怎么不...
