编写函数fun,函数的功能是判断一个字母

Private Function mYfun(strMy As String) As String

Dim strA As String

Dim intA As Integer

strA = Mid(strMy, 1, 1) 取第一个字符

intA = Asc(strA)

If intA > 64 And intA < 91 Or intA > 96 And intA < 123 Then

mYfun = strA & " 是字母"

ElseIf intA > 47 And intA < 58 Then

mYfun = strA & " 是数字"

Else

mYfun = strA & " 是其它"

End If

End Function

VAL是返回包含于字符串内的数字，字符串中是一个适当类型的数值。

在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。

Val("2457") 返回 2457

Val(" 2 45 7") 返回 2457

Val("24 and 57") 返回 24

InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

#include <stdioh>

int isChar(char c)

{return (c>='0'&&c<='9'||c>='a'&&c<='z'||c>='A'&&c<='Z')c:0;

}

int main()

{char c;

 scanf("%c",&c);

 printf("%d\n",isChar(c));

 return 0;

}

#include<stdioh>

void change(char ch){

if(ch>='a' && ch<='z')

printf("%c是小写字母\n", ch);

else if(ch>='A' && ch<='Z')

printf("%c是大写字母\n", ch);

else

printf("%c是不是字母\n", ch); 

}

int main(){

char ch;

printf("请输入一个字母:");

scanf("%c", &ch);

change(ch);

return 0;

}