параграф бағдарламасы (редактор VBA)

Виженер шифрлау / шифрлау бағдарламасы: 

Sub  Wiziner()(3).Activate(3).Name  =  "Wiringer"=  Worksheets(3).  UsedRange. 

Rows.Count  +  1Mesg  As  Variantkey As  VariantCryptg As  VariantU  alf  As  VariantLen 

mes  as  IntegerLen  key  As  IntegerLen  alf  As  Integer  alf  As  Integer  alf  = 

"абвгдеєжзіийклмнопрстуфхцчшщьюя  

Криптограммада  жиі  пайдаланылған  k-граммның  санын  (3-тен  артық) 

есептейтін бағдарлама: 

Sub  An  let()(3).Activate=  Worksheets(3).UsedRange.Rows.Count  +  1Mesg  As 

VariantMesg f As Variantlit f As VariantLen mes As Integerk As Integerm As IntegerLen 

lit As Integer= Cells(R, 1).Value(Mesg) mes = Len(Mesg)= 0j = 1 To Len mes - 2= kl > 

0//тексереді, осы Cells(R + 1, l) кездеспеді.Value = Mid (Mesg, j, 3) Then///бұрын=  -

1If=  l  -  1L  >  -1  Then/  /  жоқ  болса,  онда=  0i  =  1  To  Len  mes  -  2mid(Mesg,  j,  3)  = 

Mid(Mesg, i, 3) Then//осындай сандар санын есептейді= m + 1//