{"version":"1.0","provider_name":"Blog - Silicon Cloud","provider_url":"https:\/\/www.silicloud.com\/blog","author_name":"Ava Mitchell","author_url":"https:\/\/www.silicloud.com\/blog\/author\/avamitchell\/","title":"Develop a lottery program using VB6.0.","type":"rich","width":600,"height":338,"html":"<blockquote class=\"wp-embedded-content\" data-secret=\"Nxfs3yLEWA\"><a href=\"https:\/\/www.silicloud.com\/blog\/develop-a-lottery-program-using-vb6-0\/\">Develop a lottery program using VB6.0.<\/a><\/blockquote><iframe sandbox=\"allow-scripts\" security=\"restricted\" src=\"https:\/\/www.silicloud.com\/blog\/develop-a-lottery-program-using-vb6-0\/embed\/#?secret=Nxfs3yLEWA\" width=\"600\" height=\"338\" title=\"&#8220;Develop a lottery program using VB6.0.&#8221; &#8212; Blog - Silicon Cloud\" data-secret=\"Nxfs3yLEWA\" frameborder=\"0\" marginwidth=\"0\" marginheight=\"0\" scrolling=\"no\" class=\"wp-embedded-content\"><\/iframe><script>\n\/*! This file is auto-generated *\/\n!function(d,l){\"use strict\";l.querySelector&&d.addEventListener&&\"undefined\"!=typeof URL&&(d.wp=d.wp||{},d.wp.receiveEmbedMessage||(d.wp.receiveEmbedMessage=function(e){var t=e.data;if((t||t.secret||t.message||t.value)&&!\/[^a-zA-Z0-9]\/.test(t.secret)){for(var s,r,n,a=l.querySelectorAll('iframe[data-secret=\"'+t.secret+'\"]'),o=l.querySelectorAll('blockquote[data-secret=\"'+t.secret+'\"]'),c=new RegExp(\"^https?:$\",\"i\"),i=0;i<o.length;i++)o[i].style.display=\"none\";for(i=0;i<a.length;i++)s=a[i],e.source===s.contentWindow&&(s.removeAttribute(\"style\"),\"height\"===t.message?(1e3<(r=parseInt(t.value,10))?r=1e3:~~r<200&&(r=200),s.height=r):\"link\"===t.message&&(r=new URL(s.getAttribute(\"src\")),n=new URL(t.value),c.test(n.protocol))&&n.host===r.host&&l.activeElement===s&&(d.top.location.href=t.value))}},d.addEventListener(\"message\",d.wp.receiveEmbedMessage,!1),l.addEventListener(\"DOMContentLoaded\",function(){for(var e,t,s=l.querySelectorAll(\"iframe.wp-embedded-content\"),r=0;r<s.length;r++)(t=(e=s[r]).getAttribute(\"data-secret\"))||(t=Math.random().toString(36).substring(2,12),e.src+=\"#?secret=\"+t,e.setAttribute(\"data-secret\",t)),e.contentWindow.postMessage({message:\"ready\",secret:t},\"*\")},!1)))}(window,document);\n\/\/# sourceURL=https:\/\/www.silicloud.com\/blog\/wp-includes\/js\/wp-embed.min.js\n<\/script>\n","description":"Here is an example code of a simple lottery program developed using VB6.0. Private Sub Form_Load() Randomize ' \u521d\u59cb\u5316\u968f\u673a\u6570\u751f\u6210\u5668 End Sub Private Sub btnDraw_Click() Dim participants() As String Dim winnerIndex As Integer ' \u5047\u8bbe\u6709\u4ee5\u4e0b\u53c2\u4e0e\u8005 participants = Split(\"\u5f20\u4e09,\u674e\u56db,\u738b\u4e94,\u8d75\u516d,\u9648\u4e03\", \",\") ' \u751f\u6210\u968f\u673a\u6570\u6765\u9009\u62e9\u4e2d\u5956\u8005 winnerIndex = Int(Rnd * UBound(participants) + 1) ' \u663e\u793a\u4e2d\u5956\u8005 MsgBox \"\u4e2d\u5956\u8005\u662f\uff1a\" &amp; participants(winnerIndex - 1) [&hellip;]"}