vb 获取汉字拼音的首字母

vb 获取汉字拼音的首字母

Public Function py(mystr As String) As String
i = Asc(mystr)
Select Case i
Case -20319 To -20284: py = "A"
Case -20283 To -19776: py = "B"
Case -19775 To -19219: py = "C"
Case -19218 To -18711: py = "D"
Case -18710 To -18527: py = "E"
Case -18526 To -18240: py = "F"
Case -18239 To -17923: py = "G"
Case -17922 To -17418: py = "H"
Case -17417 To -16475: py = "J"
Case -16474 To -16213: py = "K"
Case -16212 To -15641: py = "L"
Case -15640 To -15166: py = "M"
Case -15165 To -14923: py = "N"
Case -14922 To -14915: py = "O"
Case -14914 To -14631: py = "P"
Case -14630 To -14150: py = "Q"
Case -14149 To -14091: py = "R"
Case -14090 To -13319: py = "S"
Case -13318 To -12839: py = "T"
Case -12838 To -12557: py = "W"
Case -12556 To -11848: py = "X"
Case -11847 To -11056: py = "Y"
Case -11055 To -10247: py = "Z"
Case Else: py = mystr
End Select
End Function

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/417938.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

mysql 使用索引_mysql使用索引的注意事项

使用索引的注意事项使用索引时,有以下一些技巧和注意事项:1.索引不会包含有NULL值的列只要列中包含有NULL值都将不会被包含在索引中,复合索引中只要有一列含有NULL值,那么这一列对于此复合索引就是无效的。所以我们在数据库设计时…

IIS问题

问题1:未启用父路径 症状举例: Server.MapPath() 错误 ASP 0175 : 80004005 不允许的 Path 字符 /0709/dqyllhsub/news/OpenDatabase.asp,行 4 在 MapPath 的 Path 参数中不允许字符 ..。 原因分析: 许多Web页面里要用到诸…

shape的简单用法

shap节点-----------------------------------定义shape的值&#xff0c;必须是下面的之一&#xff1a;"rectangle" 矩阵&#xff0c;这也是默认的shape"oval"    椭圆"line"     一条水平的直线。这种shape必须使用 <stroke> 元素…

mysql 存储过程 set into_mysql存储过程之创建(CREATE PROCEDURE)和调用(CALL)及变量创建(DECLARE)和赋值(SET)操作方法...

本文实例讲述了mysql存储过程之创建(CREATE PROCEDURE)和调用(CALL)及变量创建(DECLARE)和赋值(SET)操作方法。分享给大家供大家参考&#xff0c;具体如下&#xff1a;存储过程创建(CREATE PROCEDURE)和调用(CALL)这个咱就不说什么定义啦术语啦啥的&#xff0c;直接看着实例来慢…

bzoj2060[USACO2010,Nov]Visiting Cows拜访奶牛

题目链接&#xff1a;bzoj上是权限题~ 题目大意&#xff1a; 题解&#xff1a; 树型DP f[i][0]表示不选i&#xff0c;f[i][1]表示选i。(因为很水..就不详写了) 可列出方程&#xff1a; f[i][0]sigama(max(f[y][1],f[y][0])); f[i][1]sigama(f[y][0]); y为i的孩子 #include<c…

SQL中及Access的空值

在SQL中及Access有空值这个类型,不能直接用""去比较,即使是打开数据库要用以下字符串 select from * where filed is null 打开之后也必须有isnull(rs(" "))来判断.它的值是否为空. 所以只要涉及到数据为空的情况都应用isnull(rs(" "))来返回tru…

mysql修改engine_mysql下修改engine引擎的方法

修改my.ini&#xff0c;在[mysqld]下加上default-storage-engineINNODB其中红色字体部分是要指定的引擎名称。用sql语句修改已经建成表的引擎&#xff1a;alter table tableName typeInnoDB下面贴出我的my.ini文件供参考(http://www.my400800.cn)&#xff1a;[mysqld]basedirC:…

Controller的返回值

public String editItems(Model model) throws Exception {//itemsQueryVo参数如果没有的话 可以传一个null ItemsCustom items itemsService.findItemsById(1);model.addAttribute("items", items);return "items/editItems";} 1、返回String类型 表示返…

mysql保存plc数据_MySQL空间数据的保存

MySQL支持空间数据的存储&#xff0c;再做数据存储时&#xff0c;可以直接将数据转为WKT格式。WKT几何对象表示的示例(请注意,点坐标对以逗号分隔)&#xff1a;POINT(6 10)LINESTRING(3 4,10 50,20 25)POLYGON((1 1,5 1,5 5,1 5,1 1),(2 2,2 3,3 3,3 2,2 2))MULTIPOINT(3.5 5.6…

javascript event

event代表事件的状态&#xff0c;例如触发event对象的元素、鼠标的位置及状态、按下的键等等。 event对象只在事件发生的过程中才有效。 event的某些属性只对特定的事件有意义。比如&#xff0c;fromElement 和 toElement 属性只对 onmouseover 和 onmouseout 事件有意义。 例子…

如何让 C++ 和 C# 一样易用,而且效率更高?

&#xff08;未完成&#xff0c;待续。。&#xff09; 第一章&#xff1a;C基本功 1. 养成良好的编码习惯。 2. 堆上的资源随用随还&#xff0c;严格控制生命周期。 第二章&#xff1a;一些调试心得 1. 在VisualStudio环境下&#xff0c;曾出现 Detected memory leaks!&#xf…

mysql 51cto 数据类型_Mysql支持的数据类型

一.数值类型Mysql支持所有标准SQL中的数值类型&#xff0c;其中包括严格数据类型(INTEGER,SMALLINT,DECIMAL,NUMBERIC)&#xff0c;以及近似数值数据类型(FLOAT,REAL,DOUBLE PRESISION),并在此基础上进行扩展。扩展后增加了TINYINT,MEDIUMINT,BIGINT这3种长度不同的&#xff0c…

XP操作系统最优视觉效果

想让系统运行得快&#xff0c;又不想桌面弄得像2000似的&#xff0c;哪应该怎么做能&#xff1f; 右击我的电脑——属性 点击高级选项夹——点性能中的设置按钮 在视觉效果选项夹里点调整为最佳性能&#xff08;此时如果确定的话就跟2000的界面一样了&#xff09; 再在“在窗口…

【JZOJ4819】【NOIP2016提高A组模拟10.15】算循环

题目描述 输入 输出 样例输入 167 198 样例输出 906462341 数据范围 解法 令f(n)∑ni1i&#xff0c;g(n)∑ni1i2 易得ans∑ni1∑mj1f(n−i1)∗f(m−j1) 等价于ans∑ni1∑mj1f(i)∗f(j) 显然f(n)n∗(n−1)/2&#xff1b; 拆开得ans14∑ni1∑mj1i∗(i1)∗j∗(j1) 再得ans14∑…

vb装入系统启动项

装入系统启动项 Dim WshShell Set WshShell CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\shi", "d:\shi.exe /start", "REG_SZ"