Sub SayisalLoto(sayiaraligi,kactane)
\n‘ Developer\u00a0Burhan KARADERE<\/p>\n
Dim tuzaksayisi(10)
\nDim sayi, j
\nDim buldu<\/p>\n
sayi = 0
\nj = 0<\/p>\n
‘ tumu oalcak ise
\nif sayiaraligi = kactane then<\/p>\n
For j = 0 To kactane – 1
\ntuzaksayisi(j) = j + 1
\nWscript.echo tuzaksayisi(j)
\nNext<\/p>\n
else<\/p>\n
buldu = False<\/p>\n
For i = 0 To kactane<\/p>\n
buldu = False<\/p>\n
Do While buldu = False<\/p>\n
sayi = Int((sayiaraligi * Rnd + 1) )<\/p>\n
For j = 0 To kactane
\nIf tuzaksayisi(j) = sayi Then
\nExit For<\/p>\n
End If
\nNext<\/p>\n
If j = kactane + 1 Then
\ntuzaksayisi(i) = sayi
\nbuldu = True
\nEnd If
\nLoop
\nNext<\/p>\n
For i = 1 To kactane<\/p>\n
Wscript.echo tuzaksayisi(i)<\/p>\n
Next
\nend if
\nEnd Sub
\nCall SayisalLoto(10,6)<\/p>\n","protected":false},"excerpt":{"rendered":"
Visual Basic VB Script ile rasgele say\u0131 bulmak<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":"","_links_to":"","_links_to_target":""},"categories":[41,63,66],"tags":[552,622,1312,1473,1615,1758,1759,1768,1799,1857,1862,2187,2188,2212],"class_list":["post-4716","post","type-post","status-publish","format-standard","hentry","category-programlama-software","category-vb-ms-visual-script","category-visual-basic-6-0","tag-basic","tag-bulma","tag-kod","tag-microsoft","tag-ornek","tag-random","tag-randomize","tag-rastgele","tag-rnd","tag-sayi","tag-script","tag-vb","tag-vb-script","tag-visyual","has-post-title","has-post-date","has-post-category","has-post-tag","has-post-comment","has-post-author",""],"aioseo_notices":[],"views":2011,"_links":{"self":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts\/4716","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/comments?post=4716"}],"version-history":[{"count":0,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts\/4716\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/media?parent=4716"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/categories?post=4716"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/tags?post=4716"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}