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