代码如下: 复制代码 代码如下: USE [tempdb] GO /****** Object: UserDefinedFunction [dbo].[fun_getPY] Script Date: 05/23/2012 18:03:45 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO /* 获取汉字的首拼音 如果是非汉字字符 */ ..
复制代码 代码如下:dim a,b,c a =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") b =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") c =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") if not(IsNUmberic(a..