VB.NET 之 Chr 函数

Chr 函数

返回与指定的 ANSI 字符代码相对应的字符。

Chr(charcode)

charcode 参数是可以标识字符的数字。

说明

从 0 到 31 的数字表示标准的不可打印的 ASCII 代码。例如,Chr(10) 返回换行符。

下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:

Dim MyChar
MyChar = Chr(65)    '返回 AMyChar = Chr(97)    '返回 aMyChar = Chr(62)    '返回 >MyChar = Chr(37)    '返回 %

注意 ChrB 函数与包含在字符串中的字节数据一起使用。ChrB 不是返回一个或两个字节的字符,而总是返回单个字节的字符。ChrW 是为使用 Unicode 字符的 32 位平台提供的。它的参数是一个 Unicode (宽字符)的字符代码,因此可以避免将 ANSI 转化为 Unicode 字符。

 

二: ASCII码字符表结构组成   
  
 第0~32号及第127号(共34个)是控制字符或通讯专用字符,如控制符:LF(换行)、CR(回车)、FF(换页)、DEL(删除)、BEL(振铃)等;通讯专用字符:SOH(文头)、EOT(文尾)、ACK(确认)等;   
   
第33~126号(共94个)是字符,其中第48~57号为0~9十个阿拉伯数字;65~90号为26个大写英文字母,97~122号为26个小写英文字母,其余为一些标点符号、运算符号等。  

Chr("32")

 

Chr("33")

!

Chr("34")

"

Chr("35")

#

Chr("36")

$

Chr("37")

%

Chr("38")

&

Chr("39")

'

Chr("40")

(

Chr("41")

)

Chr("42")

*

Chr("43")

+

Chr("44")

,

Chr("45")

-

Chr("46")

.

Chr("47")

/

Chr("48")

0

Chr("49")

1

Chr("50")

2

Chr("51")

3

Chr("52")

4

Chr("53")

5

Chr("54")

6

Chr("55")

7

Chr("56")

8

Chr("57")

9

Chr("58")

:

Chr("59")

;

Chr("60")

Chr("61")

=

Chr("62")

Chr("63")

?

Chr("64")

@

Chr("65")

A

Chr("66")

B

Chr("67")

C

Chr("68")

D

Chr("69")

E

Chr("70")

F

Chr("71")

G

Chr("72")

H

Chr("73")

I

Chr("74")

J

Chr("75")

K

Chr("76")

L

Chr("77")

M

Chr("78")

N

Chr("79")

O

Chr("80")

P

Chr("81")

Q

Chr("82")

R

Chr("83")

S

Chr("84")

T

Chr("85")

U

Chr("86")

V

Chr("87")

W

Chr("88")

X

Chr("89")

Y

Chr("90")

Z

Chr("91")

[

Chr("92")

/

Chr("93")

]

Chr("94")

^

Chr("95")

_

Chr("96")

`

Chr("97")

a

Chr("98")

b

Chr("99")

c

Chr("100")

d

Chr("101")

e

Chr("102")

f

Chr("103")

g

Chr("104")

h

Chr("105")

i

Chr("106")

j

Chr("107")

k

Chr("108")

l

Chr("109")

m

Chr("110")

n

Chr("111")

o

Chr("112")

p

Chr("113")

q

Chr("114")

r

Chr("115")

s

Chr("116")

t

Chr("117")

u

Chr("118")

v

Chr("119")

w

Chr("120")

x

Chr("121")

y

Chr("122")

z

Chr("123")

{

Chr("124")

|

Chr("125")

}

Chr("126")

~

Chr("127")

 

Chr("128")

 

Chr("129")

 

Chr("130")

 

Chr("131")

 

ASCII 非打印控制字符表 
  

十进制  
字符 十进制字符
0 16数据链路转意
1头标开始 17设备控制 1
2正文开始 18设备控制 2
3正文结束 19设备控制 3
4传输结束 20设备控制 4
5查询 21反确认
6确认 22同步空闲
7震铃 23传输块结束
8backspace 24取消
9水平制表符 25媒体结束
10换行/新行 26替换
11竖直制表符 27转意
12换页/新页 28文件分隔符
13回车 29组分隔符
14移出 30记录分隔符
15移入 31单元分隔符
 
扩展的 ASCII 打印字符表 
  
十进制字符 十进制字符
128Ç 192
129ü 193
130é 194
131â 195
132ä 196
133à 197
134å 198
135ç 199
136ê 200
137ë 201
138è 202
139ï 203
140î 204
141ì 205
142Ä 206
143Å 207
144É 208
145æ 209
146Æ 210
147ô 211
148ö 212Ô
149ò 213
150û 214
151ù 215
152ÿ 216
153Ö 217
154Ü 218
155¢ 219
156£ 220
157¥ 221
158 222
159ƒ 223
160á 224α
161í 225ß
162ó 226Γ
163ú 227π
164ñ 228Σ
165Ñ 229σ
166ª 230µ
167º 231τ
168¿ 232Φ
169 233Θ
170¬ 234Ω
171½ 235δ
172¼ 236
173¡ 237φ
174« 238ε
175» 239
176 240
177 241±
178 242
179 243
180 244
181 245
182 246÷
183 247
184 248
185 249
186 250·
187 251
188 252
189 253²
190 254
191 255



  • 1
    点赞
  • 12
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: VB.NET中,可以使用多线程实现并发操作。下面是一个VB.NET多线程的例子。 首先,在VB.NET中创建一个新的控制台应用程序项目。使用以下代码示例: ``` Imports System.Threading Module Module1 Sub Main() ' 创建线程对象 Dim t1 As New Thread(AddressOf ThreadMethod) ' 启动线程 t1.Start() ' 执行主线程代码 For i As Integer = 1 To 5 Console.WriteLine("主线程 " & i) Thread.Sleep(1000) Next ' 等待线程结束 t1.Join() ' 程序执行结束 Console.WriteLine("程序执行结束") Console.ReadLine() End Sub ' 子线程方法 Sub ThreadMethod() For i As Integer = 1 To 5 Console.WriteLine("子线程 " & i) Thread.Sleep(1000) Next End Sub End Module ``` 在以上示例代码中,我们首先创建一个模块(Module1)并在其中编写了一个Main函数作为程序的入口点。 在Main函数中,我们创建了一个名为t1的线程对象,并将其启动。后续的代码会在主线程中执行。 在ThreadMethod函数中,我们编写了子线程的代码。该函数将在子线程中执行。 在主线程中,我们循环5次打印一条消息,并在每次循环之间暂停1秒。在子线程中,同样循环5次打印一条消息,并在每次循环之间暂停1秒。 通过使用Thread.Sleep方法,我们模拟了线程之间的并发操作。 最后,在主线程中,我们使用Join方法等待子线程结束,然后打印一条消息表示程序执行结束。 以上就是一个简单的VB.NET多线程的例子。通过创建线程对象并使用Thread.Start方法启动线程,在不同的线程中执行不同的代码,我们可以实现多线程的并发操作。 ### 回答2: VB.NET是一种面向对象的编程语言,它允许开发人员使用多种方式来实现多线程。以下是一个简单的VB.NET多线程的例子: ```vb Imports System.Threading Public Class MultiThreadExample ' 创建一个共享资源 Private Shared counter As Integer Public Sub RunThreads() ' 创建两个线程并运行 Dim thread1 As New Thread(AddressOf IncrementCounter) Dim thread2 As New Thread(AddressOf IncrementCounter) thread1.Start() thread2.Start() ' 主线程等待两个线程执行完毕 thread1.Join() thread2.Join() ' 输出共享资源的值 Console.WriteLine("Counter value: " & counter) End Sub ' 线程执行的方法 Private Sub IncrementCounter() ' 使用互斥锁来保证线程安全 SyncLock Me For i As Integer = 0 To 99 ' 递增共享资源 counter += 1 Next End SyncLock End Sub End Class ``` 上述例子创建了一个名为`MultiThreadExample`的类,其中包含一个共享资源`counter`,它用于存储两个线程递增的计数器的值。在`RunThreads`方法中,我们创建了两个线程并分别启动它们。这两个线程会同时执行`IncrementCounter`方法,该方法使用互斥锁来确保每次只有一个线程可以访问共享资源。每个线程会递增共享资源100次,最终输出共享资源`counter`的值。 通过这个例子,我们可以看到如何在VB.NET中创建和管理多个线程,以及如何处理共享资源的线程安全问题。这对于处理大量并发任务或提高程序性能非常有帮助。 ### 回答3: 在VB.NET中,我们可以使用多种方式实现多线程的例子。下面是一个简单的例子: 首先,我们需要在代码文件的顶部引用Threading命名空间,以便使用多线程相关的类和方法。 ``` Imports System.Threading ``` 然后,我们可以创建一个简单的多线程示例,例如打印数字1到10。 ``` Public Class Program Shared Sub Main() ' 创建一个新的线程 Dim myThread As New Thread(AddressOf PrintNumbers) ' 启动线程 myThread.Start() ' 在主线程中打印字母 For i As Integer = 0 To 10 Console.WriteLine("Letter: " & Chr(65 + i)) Next ' 等待子线程完成 myThread.Join() End Sub Shared Sub PrintNumbers() For i As Integer = 1 To 10 Console.WriteLine("Number: " & i) Next End Sub End Class ``` 在上述例子中,我们创建了一个名为`myThread`的新线程,并将其设置为执行`PrintNumbers`方法。我们使用`myThread.Start()`方法启动线程。 在主线程中,我们使用`For`循环打印字母A到K。然后,我们使用`myThread.Join()`方法等待子线程完成。这确保子线程在主线程结束之前完成。 当我们运行该程序时,我们将同时看到数字和字母以交替的方式打印出来。这说明了多线程的并发性。 希望这个例子能帮助你理解在VB.NET中如何使用多线程。请注意,在实际应用中,我们需要注意线程同步和资源共享的问题,以确保多线程的正确性和可靠性。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值