
没办法恢复的。
解释:运行的程序具有不可逆性,关系的是结果,只要结果计算成功,那么是不关系具体的实现的,也就是说中间过程是没有被保存下来,也就无法逆向的推出之前的输入值,所以也就没办法知道最原始的数据了。
Option Explicit
Private Sub Command1_Click()
Dim InS As String, S As String, T As String
Dim I As Integer, J As Integer, L As String
Dim C() As String, X As String InS = InputBox("请输入字符串", "", "1Ae4ui95487KuywY1Z2Faz")
f InS = "" Then Exit Sub
J = Len(InS)
For I = 1 To J
S = Mid(InS, I, 1)
T = T & S & " "
Next I
T = Trim(T)
C = Split(T, " ")
L = UBound(C)
'按逆序排列
Next I
扩展资料:
1、连接运算 concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn
例:concat(‘11’,'aa’)='11aa’;
2、求子串。 Copy(s,I,I) 从字符串s中截取第I个字符开始后的长度为l的子串。
例:opy(‘abdag’,2,3)=’bda’。
3、删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。
例:s:=’abcde’;delete(s,2,3);结果s:=’ae’。
4、插入子串。 过程Insert(s1,s2,I) 把s1插入到s2的第I个位置。
例:s:=abc;insert(‘12’,s,2);结果s:=’a12bc’。
VB程序运行时,把窗口最大化后,窗口是不能被调整大小的(最小化除外),在程序中也不行。
设计时,可以正常窗口呈现,并屏蔽窗体的最大化按钮,自己做个替代的“最大化”按钮,实现窗体放大。当点击“最大化”时,触发Form的ReSize事件,在Form的ReSize事件中,写入:
Private Sub Form_Resize()
Form1Left = 0
Form1Top = 0
Form1Width = ScreenWidth
Form1Height = ScreenHeight - GetTaskbarHeight
End Sub
(当程序启动时,也会同时触发Form_ReSize的)
其中,GetTaskbarHeight的获取要写进模块文件中:
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETWORKAREA = 48
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Function GetTaskbarHeight() As Integer
Dim lRes As Long
Dim rectVal As RECT
lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
GetTaskbarHeight = ((ScreenHeight / ScreenTwipsPerPixelX) -rectValBottom) ScreenTwipsPerPixelX
End Function
但是,这样做还要考虑到有些人把任务栏移到其他地方的,比如左侧,右侧,甚至隐藏,所以,也是很麻烦的哦
可以参考下面的代码:
private sub command1_click()
x=inputbox("输入一个三位数")
X1=X\100 'x1=三位数 的百位
X2=(X-X1100)\10 '十位
X3=X-X1100-X210 '个位
msgbox X3&X2&X1
end sub
扩展资料:
VB基本函数
CBool 函数: 返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数: 返回已被转换为字节子类型的变体的表达式。
CCur 函数 :返回已被转换为货币子类型的变体的表达式。
CDate 函数: 返回已被转换为日期子类型的变体的表达式。
CDbl 函数: 返回已被转换为双精度子类型的变体的表达式。
参考资料来源:百度百科-Visual Basic
VB软件相对于其他编程语言的软件来说,反编译的难度并不是太大。反编译是指通过逆向工程的方式将已经被编译的程序转换成可读的源代码。VB程序可以使用反编译工具进行反编译,常用的反编译工具有net Reflector、ILSpy等。通过反编译工具反编译VB程序可以轻松地获取其源代码,这对于一些需要保护自己程序源代码的开发者来说是个问题。
为了防止VB程序被反编译,我们可以使用一些防护技术,如混淆(Obfuscation)。混淆是指通过改变已编译的程序源代码中的标识符名称、函数名称等方式来隐藏源代码的含义,从而使其难以被反编译。除此之外,还可以使用加密解密技术、代码签名等方式来进一步提高程序的安全性。
总的来说,虽然VB程序可能会更容易被反编译,但借助防护技术和措施,我们也可以尽量保护我们的程序安全。
以上就是关于vb:如何恢复转变为大小写字母后的原始字母全部的内容,包括:vb:如何恢复转变为大小写字母后的原始字母、vb输入一个字符串 并将它逆序输出、VB 窗体最小化与还原等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)