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

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

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

我平时用的是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反着循环，按这顺序依次加进一个新的字符串变量即可。

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

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