Chars

返回指定位置的字符，起始位置为0。

例如：

"ABC".Chars(0)等于"A"，"ABC".Chars(1)等于"B"，而"ABC".Chars(2)等于"C"。

下面的代码可以用中文的形式，显示今天是星期几：

Dim Today As Date = Date.Today
Dim Names As String = "日一二三四五六"
Dim Result As String
Result = "星期" & Names.Chars(Today.DayOfWeek)
Output.Show(Result)

DaysOfWeek是日期类型的一个属性，返回一个整数，表示这个日期是该周的第几天。

上述代码其实可以简写为一句：

Output.Show("星期" & "日一二三四五六".Chars(Today.DayOfWeek))