好象有個(gè)StrReverse函數(shù)是直接反轉(zhuǎn)字符串的吧..
目前成都創(chuàng)新互聯(lián)已為1000多家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁(yè)空間、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、和布克賽爾蒙古網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng),共同發(fā)展。
我平時(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
試試了?
我寫了一段代碼,注意你讀取的方法,我改進(jìn)了一下 Imports System.IO ‘代碼窗體的最上端一定要聲明
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意選擇編碼方式,按你原來(lái)的方法,未設(shè)置編碼,顯示的是亂碼!路徑請(qǐng)按你的情況改! TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已經(jīng)載入" i - 1 "個(gè)文件") End Sub注意:這樣的代碼是倒序的,第一個(gè)文本框顯示的是最后一個(gè)文件的內(nèi)容!請(qǐng)酌情處理!
dim i
for i=2 to 1
msgbox("*")
next
語(yǔ)法沒(méi)問(wèn)題,這應(yīng)該在winform里面能夠調(diào)試成功,顯示運(yùn)行框,但是在web application里面就不能出現(xiàn)彈出信息框了,在網(wǎng)頁(yè)上要出現(xiàn),建議用response.write("scriptalert('***')/script").
for i=100 to 1 這樣的語(yǔ)句在VB9.0后是支持的。樓下的,不要天天抱著VB6啃。