用VB设计一个程序,将输入的字符串以反序显示24
发布网友
发布时间:2023-11-28 06:36
我来回答
共3个回答
热心网友
时间:2024-10-05 12:37
Private Sub Command1_Click()
Dim S As String, T As String
S = InputBox("输入一个字符串")
Print T
Dim I As Integer
For I = Len(S) To 1 Step -1
T = T & Mid(S, I, 1)
Next
Print T
End Sub最简单的Private Sub Command1_Click()
Dim S As String, T As String
S = InputBox("输入一个字符串")
'T = StrReverse(S)
End Sub
热心网友
时间:2024-10-05 12:38
Option Explicit
Private Sub Form_Load()
Dim a() As String
Dim i As Integer
Dim j As Integer
Dim s As String
Dim t As String
Dim n As Integer
s = InputBox("输入字符串")
ReDim a(Len(s))
i = 1
n = Asc(Mid(s, 1, 1))
While n <> 32
a(i) = Mid(s, i, 1)
i = i + 1
n = Asc(Mid(s, i, 1))
Wend
j = i - 1
While j > 0
Print a(j);
j = j - 1
Wend
End Sub
热心网友
时间:2024-10-05 12:38
Public Function reverseStr(ByVal revStr As String) As String
reverseStr = StrReverse(revStr)
End Function
用VB设计一个程序,将输入的字符串以反序显示
Command1_Click()Dim S As String,T As String S = InputBox("输入一个字符串")Print T Dim I As Integer For I = Len(S)To 1 Step -1 T = T & Mid(S,I,1)Next Print T End Sub最简单的Private Sub Command1_Click()Dim S As String,T As String S = InputBox("输入一个...
用VB编程,将输入的字符串以反序输出。
Private Sub Command1_Click()Text2 = ""Text2 = StrReverse(Text1.Text)End Sub
VB讲输入的字符串以反序显示怎么做?
Print "输入的字符串是:" & word jieguo = StrReverse(word)Print "反序结果:" & jieguo End Sub
vb文本框1中的字符反序显示在文本框2中
文本框1中的字符反序显示在文本框2中:Text2.Text = StrReverse(Text1.Text)Private Sub Command1_Click()Dim m As Long, t As Long, n As Integer m = Val(InputBox("输入大于1的正整数m:", "输入数据"))n = 1 t = 0 Do While t < m n = n + 1 t = 2 ^ n Loop Print...
VB编程:将输入的字符串以反序显示。
a = "ABCD"ReDim p(Len(a) - 1)For i = Len(a) - 1 To 0 Step -1 b = b & Mid(a, i + 1, 1)Next i Print b
将输入的字符串以反序显示。例如输入“ASDFGHJKL”,显示“LKJHGFDSA...
VB6.0可采用StrReverse函数来实现逆序输出。StrReverse函数,返回一个字符串,其中一个指定子字符串的字符顺序是反向的 语法:StrReverse(string1)参数string1是一个字符串,它的字符顺序要被反向。如果string1是一个长度为零的字符串(""),则返回一个长度为零的字符串。如果string1为Null,则产生一个...
VB中实现字符反这输出
这是系统自动做的!!!后插 Text2.Text = Chr(KeyAscii) & Text2.Text 这是 Sub Text1_KeyPress(KeyAscii As Integer)做的!!前插 把Text1.Text和Text2.Text看做两个字符链表,或队列;一个是前插建表,一个后插建表;建成后的两个表(两个字符串)自然就是反序的了!!!
...过程reverse功能为输入一个字符串按与输入的字符相反的次序输出这个...
StrReverse(str)就是反序函数 StrReverse("abc") -> "cba"
vb题:输入一串字符,然后反序输出,代码按是打出来了,但我不理解ss =...
ss = Chr(KeyAscii) + ss 这个的意思,是把新输入的字符放在ss的前面,然后再赋值给ss,这样的话,每次新添加的字符都是放在最前面的,那它的顺序不就会反过来了吗?如果是下面这样,那就是顺序不变:ss = ss + Chr(KeyAscii)现在理解了没?
输入一组数据,使其反向输出,用VB如何编程,很急
把一组数据放在一个数组里,就可以了 dim a(10) as single '输入数据 for i=0 to 10 a(i)=val(inputbox("输入数据:"))next '输出 for i=10 to 0 step -1 print a(i),next print