/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
docs/fundamentals/runtime-libraries/snippets/System/String/Overview/vb/immutable1.vb
23 строки
573 B
Genevieve Warren
Move member remarks (#39270)
30 янв 2024, 00:43
Не верифицирован
30 янв 2024, 00:43
6c88824
Код
Авторство
О чём код?
' Visual Basic .NET Document Option Strict On ' <Snippet16> Imports System.IO Imports System.Text Module Example11 Public Sub Main() Dim rnd As New Random() Dim sb As New StringBuilder() Dim sw As New StreamWriter(".\StringFile.txt", False, Encoding.Unicode) For ctr As Integer = 0 To 1000 sb.Append(ChrW(rnd.Next(1, &H530))) If sb.Length Mod 60 = 0 Then sb.AppendLine() Next sw.Write(sb.ToString()) sw.Close() End Sub End Module ' </Snippet16>