VB.NET中字符串倒序的問(wèn)題

好象有個(gè)StrReverse函數(shù)是直接反轉(zhuǎn)字符串的吧..

創(chuàng)新互聯(lián)建站是一家專業(yè)提供元謀企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站建設(shè)、成都做網(wǎng)站、HTML5、小程序制作等業(yè)務(wù)。10年已為元謀眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進(jìn)行中。

我平時(shí)用的是VB6.但是.NET中應(yīng)該也是可以用MID的

你注意看FOR 是從len-1到0的..而mid中是不允許出現(xiàn)0的..

你看看MID運(yùn)行不了時(shí),是不是返回I是0的時(shí)間

改成:

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

試試了?

vb數(shù)組中顛倒數(shù)字順序

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 如何顛倒數(shù)組中的數(shù)字

你可以使用Arraylist數(shù)組類，這個(gè)數(shù)組類存放元素可以動(dòng)態(tài)添加和刪除．而且可以存放任何類型的數(shù)據(jù)！

dim arr as New ArrayList() ’將變量arr定義為Arraylist類

以下是該類的常用方法：

arr.add() ’將括號(hào)內(nèi)的數(shù)據(jù)添加到數(shù)組的末尾

arr.count '返回?cái)?shù)組元素的總數(shù)目

arr.item（） ’設(shè)定或取得由索引所指的數(shù)組元素內(nèi)容

arr.sort() ’將數(shù)組內(nèi)所有元素以遞增方式排序

arr.Reverse（） ’將數(shù)組類中的所有元素反轉(zhuǎn)（顛倒順序），配合sort方法可以實(shí)現(xiàn)降序排列

arr.insert(索引值，數(shù)據(jù)) ’在數(shù)組指定索引值的位置插入數(shù)據(jù)

arr.clear（） '清除所有數(shù)組元素

arr.indexof（） ’返回?cái)?shù)組中第一個(gè)符合指定對(duì)象的索引值，未找到返回負(fù)值

arr.binaryserach（） ’在數(shù)組中尋找指定對(duì)象，找到返回該對(duì)象的索引，否則返回負(fù)值；此方法使用前，必須先將數(shù)組作升序排列．

以上VB2005版本適用

VB中有函數(shù)可以直接將字符串倒過(guò)來(lái)嗎?

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

我原來(lái)用循環(huán) 解決。

看來(lái)落后了

a="abcdef"

la=len(a)

for i=1 to la

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

next i

'b和是a倒過(guò)來(lái)了，估計(jì)是strReverse函數(shù)的分解吧 哈哈

2.可以有兩種做法 1.ASCII檢測(cè):

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

’補(bǔ)充問(wèn)題我不明白你什么意思啊

VB編程—如何輸入數(shù)字并將其倒序輸出結(jié)果？？？

1、用len(字串)得到輸入字符串的長(zhǎng)度n

2、然后用n循環(huán)

注：循環(huán)體內(nèi)用left(字串，x)得到該字符串的第x個(gè)字母。x反著循環(huán)，按這順序依次加進(jìn)一個(gè)新的字符串變量即可。

gb2312>unicode>utf8， 以及逆轉(zhuǎn)的方法'>VB.net 字符轉(zhuǎn)換問(wèn)題 字符（漢字、數(shù)字、字母、符號(hào)）>gb2312>unicode>utf8， 以及逆轉(zhuǎn)的方法

字符編碼轉(zhuǎn)換嗎?

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中都是以u(píng)nicode編碼存儲(chǔ)的

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

'轉(zhuǎn)化為字節(jié)碼

For i As Integer = 1 To n

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

Next

'將字節(jié)碼轉(zhuǎn)化為字符串

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

'這里可以類推出好幾種。