急需一个VB小程序,清除冒号右方的第一个数字
来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/05/01 20:45:02
急需一个VB小程序,清除冒号右方的第一个数字
设计一个VB小程序,在文本框输入或粘贴一段数字,点击按钮后清除所有冒号(该冒号为英文输入法的冒号:不是汉字输入法的冒号:)右方的第一个数字(无论该冒号离第一个数字有多远,即允许冒号后面的数字有多个空格或下一行).举例:
123:367:68904:3578:5698:
2349:
123
则要清除的数字为363521,其它数字全部保留.要求自己验证通过!不要错误的还发!
大虾们帮帮弟弟吧,我分不多,全给了
设计一个VB小程序,在文本框输入或粘贴一段数字,点击按钮后清除所有冒号(该冒号为英文输入法的冒号:不是汉字输入法的冒号:)右方的第一个数字(无论该冒号离第一个数字有多远,即允许冒号后面的数字有多个空格或下一行).举例:
123:367:68904:3578:5698:
2349:
123
则要清除的数字为363521,其它数字全部保留.要求自己验证通过!不要错误的还发!
大虾们帮帮弟弟吧,我分不多,全给了
Private Sub Command1_Click()
Dim i As Long
Dim s As String
Dim r As String
Dim F As Boolean
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text,i,1)
If s = ":" Then
F = True
End If
If Not (F = True And IsNumeric(s) = True) Then
r = r & s
Else
F = False
End If
Next i
Text1.Text = r
End Sub
'记得textbox的multiline属性是true,添加一个按钮即可
Dim i As Long
Dim s As String
Dim r As String
Dim F As Boolean
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text,i,1)
If s = ":" Then
F = True
End If
If Not (F = True And IsNumeric(s) = True) Then
r = r & s
Else
F = False
End If
Next i
Text1.Text = r
End Sub
'记得textbox的multiline属性是true,添加一个按钮即可
急需一个VB小程序,清除冒号右方的第一个数字
急需一个VB小程序,计算0-9数字总次数
vb中判断一个数字的第一个数是什么
如何用vb设计一个程序,可以将输入的10个以上的数字 按大小顺序排列出来,可以给我思路,也可以给我答案.
哪位大侠可以帮我编个VB程序:数字0到5和字母A到F随机生成一个12位的组合……
求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absinα
一个关于评委打分的VB程序.
用VB编一个程序,随机产生10个100以内的不同的偶数
用VB语言设计程序,把一个正整数写成若干个素数相乘的形式.
我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位
VC里面的 :符号和 ::一个的单冒号 一个是2个冒号
如何用vb程序写一个由数字组成的三角形,一行为1,二为121,三行12321,四行1234321,五行12321……程序