VB 输出所有Ascii字符和对应的编码
VB 输出所有Ascii字符和对应的编码
前面是这样,后面不会了..请指教
private sub form_click()
for i =33 to 127
print tab (j*8+1)
print chr(i)&"-"&i
.
前面是这样,后面不会了..请指教
private sub form_click()
for i =33 to 127
print tab (j*8+1)
print chr(i)&"-"&i
.
赞 tsingtao_sy 春芽
共回答了19个问题采纳率：84.2% 举报
Private Sub Picture1_Click()
Dim asc As Integer, i%
Picture1.Print " ASC码对照表"
For asc = 32 To 126
Picture1.Print Tab(8 * i + 2); Chr(asc); "="; asc; '8表示每项占8列
i = i + 1
If i = 7 Then i = 0: Picture1.Print '每行显示7项
Next asc
End Su
Dim asc As Integer, i%
Picture1.Print " ASC码对照表"
For asc = 32 To 126
Picture1.Print Tab(8 * i + 2); Chr(asc); "="; asc; '8表示每项占8列
i = i + 1
If i = 7 Then i = 0: Picture1.Print '每行显示7项
Next asc
End Su
1年前
1
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗