题目是这样的:
VB设计:输入任意长字符串,将其顺序倒置输出,例如将输入的“qwert”变换成“trewq”
答案如下
Dim s As String
Private Sub Command1_Click()
s = InputBox("输入字符串")
Label3.Caption = s
End Sub
Private Sub Command2_Click()
l = Len(s)
For i = 1 To l
t = t & Mid(s, l - i + 1, 1)
Next i
Text1 = t
End Sub
请帮忙介绍一下mid 函数,还有它的用法
还请解释一下每个步骤的意思及功能
例如t = t & Mid(s, l - i + 1, 1)中,我不懂这个&放在这里是什么意思,还有mid括号里的每个式子是什么意思..
急求答案~谢谢!!!!!!!!!!
关于VB的循环及函数(与mid函数有关)
Private Sub Command1_Click()s = InputBox("输入字符串") '为s赋值(输入要颠倒的字母)Label3.Caption = s '将标签显示你的要颠倒的 End Sub Private Sub Command2_Click()l = Len(s) '取字母的总个数 For i = 1 To l '从1 循环到 字母的总个数 t = t & Mid(s, l - i ...
VB有for循环有mid还有
mid(x,i,1)是从x的第i个开始取一个字符,i=1 to 4分别取的是a b c d left(y,1)是取y左侧的一个字符,始终是1 组合起来就是a1b1c1d1 如果右边不用z,z=mid(x,i,1)+left(y,1)i=1时z=a1 i=2时z=b1 i=3时z=c1 i=4时z=d1 最后z的值是d1 ...
VB 中MID函数的问题
问题就在q = Mid(Text1, o, o + 5)这句上,string要取值MID函数首先不能从0号位取值,至少都为1。应该为q = Mid(Text1, 1, o + 5)另外 for next循环next后面要跟参数o,next o都才对了。
VB编程,请用循环语句,mid等演示给我看
Private Sub Command1_Click()Dim t1 As String, t2 As String, c As String Dim i As Integer, k As Integer, n As Integer t1 = Text1.Text k = Text2.Text For i = 1 To Len(t1)c = Mid(t1, i, 1)n = Asc(c) + k If (n > 90 And n < 97) Or n > 122 Then ...
在VB中,怎么用MID函数,抓取文本框中的数据
For i = 1 To Len(Text1) Step 2 '循环取出字符 If i <= 100 Then a((i - 1) \/ 2) = Mid(Text1, i, 2) 'Mid(原字符,从什么位置开始读取,读取字符的个数)Next For j = 0 To (i - 1) \/ 2 - 1 '显示到窗口 Print a(j)Next Print i Print Len(Text1)'结果为a(...
vb中的Mid函数问题
mid 是取中间字符串的函数,格式是:mid$(a$,m,n),意思是从a$的第m位起,取n个字符的字符串。你这个题里,从第0个开始取值,初始值应该是1,循环体应该从1开始。
vb中的mid函数
mid是截取子字符串函数。用法:dim a$,b$,n1%,n2 a=mid(b,n1,n2)从b字符串左边的第n1个字符开始,从左到右连续截取n2个字符,形成一个新的字符串,并赋值给a。举例:a=mid(“abcdefg”,3,4)结果a=“cdef”b=mid(a,2,2)结果b=“de”
VB里关于mid函数的使用
dimtest test=mid("无人区45大街",4,2) 你可以循环语句,读表的字段,而且这个函数是在你知道你要取的字符的位置才可以用,如里有一连串,那就不要用这个函数呀。 你这里的A2应该是时单元格的内容吧 FIND("-",A2,15) 1“-”表示你要找的文本为“-”,查找的对象A2,15表示从第15个开找...
用vb.net 随意输入一个数字或一个字符串,用mid(,,)及循环,返回倒叙,请教...
直接用StrReverse函数即可返回倒叙,比如:StrReverse("1abc23")="32cba1"如果一定要用循环的话,就用以下方法 Dim Str1 As String, Str2 As String, I As Long 'Str1为待转换字符串 For I = Len(Str1) To 1 Step -1 Str2 = Str2 + Mid(Str1, I, 1)Next '把Str1倒叙排列并保存在...
vb程序题
1、由于s先被赋值16个的字符串,那么ten(s)=16,所以for循环16次。但是题目只问第一行和第三行,那么只要分析第一次和第三次就可以了。2、mid函数是截取函数,例如:mid(”1234“,1,2)就是从第1个字符开始,共截取2个字符,得到的结果是:“12”。注意n()是一个数组,程序定义n(9)...