7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lixishen 2004-08-17
- 打赏
- 举报
狼行天下:你好捧我的场哦。每次我发贴子你都要出来。呵呵……谢谢你了哈。
northwolves 2004-08-16
- 打赏
- 举报
好
laisiwei 2004-08-16
- 打赏
- 举报
Option Explicit
Private Sub Form_Load()
Dim i As Long
For i = -22847 To -22824
Debug.Print Chr(i)
Next
End Sub
Private Sub Form_Load()
Dim i As Long
For i = -22847 To -22824
Debug.Print Chr(i)
Next
End Sub
northwolves 2004-08-16
- 打赏
- 举报
晕。设置字体就可以了：
Private Sub Command1_Click()
Dim i As Integer
Me.FontSize = 10
Me.Cls
For i = 0 To 25
Me.FontName = "system"
Me.Print Chr(i + 65) & "-->";
Me.FontName = "symbol"
Me.Print Chr(i + 65) & vbTab;
Me.FontName = "system"
Me.Print Chr(i + 97) & "-->";
Me.FontName = "symbol"
Me.Print Chr(i + 97) & vbTab;
If i Mod 3 = 2 Then Me.Print
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer
Me.FontSize = 10
Me.Cls
For i = 0 To 25
Me.FontName = "system"
Me.Print Chr(i + 65) & "-->";
Me.FontName = "symbol"
Me.Print Chr(i + 65) & vbTab;
Me.FontName = "system"
Me.Print Chr(i + 97) & "-->";
Me.FontName = "symbol"
Me.Print Chr(i + 97) & vbTab;
If i Mod 3 = 2 Then Me.Print
Next
End Sub
ryuginka 2004-08-16
- 打赏
- 举报
up
szmickylee 2004-08-16
- 打赏
- 举报
chr() , asc()
看一下这两个函数
看一下这两个函数
ryuginka 2004-08-16
- 打赏
- 举报
不懂，顶
loverpyh 2004-08-16
- 打赏
- 举报
if keyascii=vbkeyreturn then
keyascii=0
end if
keyascii=0
end if
kmzs 2004-08-16
- 打赏
- 举报
好特别的问题
lixishen 2004-08-16
- 打赏
- 举报
或是用关于UNICODE码的函数谢谢大家。
