求個很簡單的函數 要求根據Text里的內容返回;例如:Text1.text = "a" 函數返回1Text1.text = "b" 函數返回2Text1.text = "c" 函數返回3Text1.text = "d" 函數返回4 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Function ASCOUT( byval S as string) as integerASCOUT= Asc(S) - 96end Function调用: msgbox ASCOUT(text1.text) 呵呵,我忘记说明白了,Text里面的内容没规律Text1.text = "hello" 函數返回1Text1.text = "every" 函數返回2Text1.text = "body" 函數返回3Text1.text = "nice" 函數返回4只是一个顺序 谁有VB调用 7-ZIP 动态连接库实现解压缩的代码? 怎么实现DataGrid的内容自动全部显示?急!!! RPT文件 数据源问题!急! 如何获取扫码器信息 很初级的问题!! ★★★★★★急啊,如何判断用Set newfrm = New Form4这种方式打开的窗体是否已打开?★★★★★★ vb API 解决给100分 新手上路!请帮忙看看这段程序那错了谢谢! 国庆节了,程序员最想做的一件事是什么? 高手请进!!!(一百分奉上)(关于OFFICE宏的相关问题!!!) 谁有vba 基础教程!!100分送上 怎樣實現從VB程式向java窗口發送中文字串
ASCOUT= Asc(S) - 96
end Function调用:
msgbox ASCOUT(text1.text)
Text1.text = "hello" 函數返回1
Text1.text = "every" 函數返回2
Text1.text = "body" 函數返回3
Text1.text = "nice" 函數返回4
只是一个顺序