1楼:匿名用户
方法很抄多,袭
我用ascii码减
去64的方法.
private sub ***mand1_click()chlen = len(text1.text)for i = 1 to chlen
ch = mid(text1.text, i, 1)text2.text = text2.text & asc(ch) - 64
next
end sub
private sub text1_click()text1.text = ""
text2.text = ""
end sub
在vb中怎么把一个数字转换成对应的字符,比如26个英文字母?
2楼:匿名用户
dim s as string
s = cstr(55) 's = "55"
如果获得字符,应该用chr()函数
例如 c = chr(65) , 则c= 'a'
vb中如何把数字转换成字母?
3楼:vb妮可
chr(65)
在vb中..可以使用asc("a")来得到字符的asc码,
也可以反过来使用chr(65), 将asc码转回到字符
4楼:
晕chr(65) 就会输出a
asc("a") 就会输出65
两者的转换
5楼:阿幸
private sub ***mand1_click()msgbox chr(65)
end sub
private sub ***mand1_click()msgbox right(20071028, 2)end sub
6楼:手机用户
dim a
a=65
msgbox(a)
在vb中怎样用**将26个英文字母按顺序写出来
7楼:匿名用户
在一个文本框里显示26个顺序英文字母
dim num as integer
num = asc("a") '获取字母a的ascii码dim s as string
for i = 0 to 25
s = s + chr(num + i) ' 根据ascii码反求字符并顺序连接
next
text1.text = s '在文本框里打印
vb中怎样将输入的字母转换成数字? 10
8楼:匿名用户
'用isnumeric函数即可,比如判断text1.text是不是数字
if not isnumeric(text1.text) then msgbox "不是数字"
9楼:匿名用户
转换成数字转化成什么数字呢?ascii吗?那就用asc函数就行了。
10楼:匿名用户
val(text1.text)
VBA如何将首句字母变成大写,WORD VBA如何将首句字母变成大写？
1楼 再见图安 sub test dim str as string str activedocument paragraphs 1 range text 获取第 1 段内容 activedocument paragraphs 1 range text str 设置第 1 段内容 activedoc...
读《十万个为什么》有感作文,读《十万个为什么》有感 作文 600字
1楼 树影摇曳丨 我从小到大，心里有千千万万的为什么，也有属于自己的书，我也有一本书叫《十万个为什么》。 去年，我买了一本《十万个为什么》，在那时起我像是着了魔一样的，去读那一本书，我的心里的为什么也解了不少，可是有一个问题从小到大就缠的我，它就是 为什么说海洋是未来的粮仓呢？ 我在这本书中知道。海...
在中如何将大写字母转为小写,在WORD中如何将大写字母转为小写？
1楼 匿名用户 你是说英文字母还是1000元中的1000？？？ 如是英文字母，你这样做 比如输入了abedefg后，你选定abcdefg后，按键盘上的shift f3键，它会在首个字母大写，全部小写，全部大写之间进行转换的。很有意思的，你试试，绝对管用。 如是1000元中的1000想改为壹仟，这个功...