vb.net数字倒过来,vb转数字

VB.NET中字符串倒序的问题

好象有个StrReverse函数是直接反转字符串的吧..

创新互联建站是一家专业提供元谋企业网站建设,专注与成都网站建设、成都做网站、HTML5、小程序制作等业务。10年已为元谋众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

我平时用的是VB6.但是.NET中应该也是可以用MID的

你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..

你看看MID运行不了时,是不是返回I是0的时间

改成:

For i = Len(sstr) To 1 Step -1

试试了?

vb数组中颠倒数字顺序

for i = 0 to 4

temp = A( 10 - i ) 'A( 10 - i ) 赋给中间变量 temp

A( 10 - i ) = A( 1 + i ) 'A( 10 - i ) 等于 A( 1 + i )

A( 1 + i ) = temp ' A( 1 + i ) 等于中间变量 temp

next

vb 如何颠倒数组中的数字

你可以使用Arraylist数组类,这个数组类存放元素可以动态添加和删除.而且可以存放任何类型的数据!

dim arr as New ArrayList() ’将变量arr定义为Arraylist类

以下是该类的常用方法:

arr.add() ’将括号内的数据添加到数组的末尾

arr.count '返回数组元素的总数目

arr.item() ’设定或取得由索引所指的数组元素内容

arr.sort() ’将数组内所有元素以递增方式排序

arr.Reverse() ’将数组类中的所有元素反转(颠倒顺序),配合sort方法可以实现降序排列

arr.insert(索引值,数据) ’在数组指定索引值的位置插入数据

arr.clear() '清除所有数组元素

arr.indexof() ’返回数组中第一个符合指定对象的索引值,未找到返回负值

arr.binaryserach() ’在数组中寻找指定对象,找到返回该对象的索引,否则返回负值;此方法使用前,必须先将数组作升序排列.

以上VB2005版本适用

VB中有函数可以直接将字符串倒过来吗?

strReverse("abcd") 我还真不知道 呵呵。

我原来用循环 解决。

看来落后了

a="abcdef"

la=len(a)

for i=1 to la

b=b mid(a,la-i+1,1)

next i

'b和是a倒过来了,估计是strReverse函数的分解吧 哈哈

2.可以有两种做法 1.ASCII检测:

a="DK253+234.24"

la=len(a)

for i=1 to la

c=mid(a,la-i+1,1)

if Asc(c)=46 or (Asc(c)=48 and Asc(c)=57)then b=b c

next i

'或,混用拉

a="DK253+234.24"

la=len(a)

for i=1 to la

c=mid(a,la-i+1,1)

if Asc(c)=46 or IsNumeric(Asc(c))then b=b c

next i

’补充问题我不明白你什么意思啊

VB编程—如何输入数字并将其倒序输出结果???

1、用len(字串)得到输入字符串的长度n

2、然后用n循环

注:循环体内用left(字串,x)得到该字符串的第x个字母。x反着循环,按这顺序依次加进一个新的字符串变量即可。

gb2312>unicode>utf8, 以及逆转的方法'>VB.net 字符转换问题 字符(汉字、数字、字母、符号)>gb2312>unicode>utf8, 以及逆转的方法

字符编码转换吗?

1.字符与gb2312(gbk的子集):

Public Function GBKEncode(ByVal sInput As String) As String

Dim ret_GBKEncode As String = ""

Dim i As Integer

Dim startIndex As Integer = 0

Dim endIndex As Integer

Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode编码存储的

endIndex = x.Length - 1

For i = startIndex To endIndex

ret_GBKEncode = "%" Hex(x(i))

Next

Return ret_GBKEncode

End Function

'GBK解码

Public Function GBKDecode(ByVal sInput As String) As String

sInput = sInput.Replace("%", "")

Dim ret_GBKDecode As String = ""

Dim sLen As Integer = sInput.Length

Dim n As Integer = sLen \ 2

Dim sBytes(0 To n - 1) As Byte

'转化为字节码

For i As Integer = 1 To n

sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))

Next

'将字节码转化为字符串

ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)

Return ret_GBKDecode

End Function

2.Unicode字符串为UTF-8

Imports System.Text

Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()

Dim bytes() As Byte

bytes = Encoding.UTF8.GetBytes(strData)

Return bytes

End Function

'这里可以类推出好几种。


网站名称:vb.net数字倒过来,vb转数字
网页链接:http://scyanting.com/article/dssccec.html