问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

用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 &amp; 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 "输入的字符串是:" &amp; word jieguo = StrReverse(word)Print "反序结果:" &amp; 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 &lt; 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 &amp; 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) &amp; Text2.Text 这是 Sub Text1_KeyPress(KeyAscii As Integer)做的!!前插 把Text1.Text和Text2.Text看做两个字符链表,或队列;一个是前插建表,一个后插建表;建成后的两个表(两个字符串)自然就是反序的了!!!

...过程reverse功能为输入一个字符串按与输入的字符相反的次序输出这个...

StrReverse(str)就是反序函数 StrReverse("abc") -&gt; "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

写一个程序输入有四个字符的字符串 写一个程序逆反输入的字符串 以下程序判断输入的字符串是否回文 编译一个将字符串逆转的程序 程序的功能是输入字符串 本程序用scanf函数输入字符串 编写程序实现字符串的反序 下列程序从键盘输入任意一行字符串 使输入的字符串按反序存放
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
如何通过官网查询车次信息? 华为c8812屏幕上一直出现一个黑框,求大家帮帮忙,看看怎么解决 华为8812手机屏幕出现这种情况,屏幕上有英文,乱七八糟,怎么办,怎么也... 华为C8812点击屏幕的时候屏幕为什么会有红框?求解答 我的手机型号是华为c8812,才用了几天,感觉屏幕好像下陷了点点,点上去... 华为c8812e屏手写时出现十字坐标右侧有许多英文字母时不时跳岀来这是... 华为c8812e屏幕上方出现一行数据而且触摸时有条纹状出现是怎么回事? 为什么在excel表格输入函数时不计算结果? 表格单元格为什么求不出总和? 健身教练行业比较有用的证书是哪个? 怎么把原来的微信好友转移到另一个上 ...了如下的电费收费标准:每户每月用电不超过60度时,以每度0.5元收费... 长沙和韶山旅游景点有哪些?3 苏东坡在黄州做了哪些好事? 双男仙侠小说十大巅峰之作 苏东坡写于黄州的那些杰作,既宣告着黄州进入了一个新的美学等级 一年内怎么改第二次 电脑没有无线网卡,怎么连接wifi? 本田缤智故障灯全亮怎么消除? 米4怎么边打电话边存号码 如何强制二次修改 济南迈克管件有没有安全生产许可证 一个号码注册了两个 怎么找回第一个? 汉中到南昌多少公里 如何办理边防证(想去珠峰阿里的看过来) 改一年内怎么改第二次 枸杞子夏天变软粘在一起可以食用吗还有没变软的它俩哪各药用好_百度知... ...加入10mL标准溶液的比色管,为什么测出来吸光度值? 俞静唱的《香港别来无恙》是哪一年的,香港回归之前流行没有,或者说社... 准备去西藏阿里自驾,临时边防证要怎么办?25 去西藏阿里要办边防证吗?55 用的新买的路由器台式电脑和手机WIFI经常重新连接网络怎么回事啊 在武汉哪里办理去西藏阿里地区的边防证?3 预算10万想买一台空间大动力强的车?不妨看看这几款! ...我说给她寄回去。他说扔掉。 我说东西我帮你留着。 本命年穿枣红行不行? 长白山北、西景区26日天池景点关闭 u盘坏掉了,怎么样能恢复里面的数据~ 奥斯卡经典100部电影11275 韶山旅游景点10 世界十大经典电影38 txt文件怎么创建? 为什么新注册的加不了好友 BoBo组合唱 我们唱的歌 这首歌曲里面一共出现过几首歌曲名... 歇后语“后娘的拳头、揍极了”打一生肖并注明理由(急用、谢谢各位)_百 ... 《我们唱的歌》有多少歌名 白薇的主要功能 (移动大众卡与联通如意卡)怎么打电话才比较便宜,如开业务~~...5 怎么把微信好友转移到另一个? 网上总流传说 嚼花生刷牙 牙齿能变白 说花生有让牙齿变白的成...5