[VBS] Trik Menghitung Kemunculan Angka Pada Suatu Interval

Saya sering sekali membaca soal OSN (Olimpiade Sains Nasional) bidang komputer dan matematika yang menanyakan tentang jumlah kemunculan suatu angka pada suatu interval bilangan. Contoh:

"Hitunglah berapa kali kemunculan angka 5 pada interval 1-1000?"

Nah loh, kalo dihitung secara manual kamu bakalan kehabisan kertas tuh, hehehe. Walau cara ini tidak bisa diterapkan pada saat tes berlangsung, namun semoga trik ini bisa membantu teman-teman untuk mencocokkan jawabannya pada saat teman-teman latihan mengerjakkan soal. Yang kamu butuhkan cuma komputer bersistem operasi windows. Oke kita langsung buat skrip VBS untuk menyelesaikan soal diatas. Berikut adalah listening code-nya.

Dim angka, interval_bawah, interval_atas, hitung

angka=5
interval_bawah=1
interval_atas=1000

if interval_atas >= interval_bawah then
 For i = interval_bawah to interval_atas
  if instr(i,cstr(angka))>0 then hitung = hitung + 1
 next
end if

Msgbox hitung

Nah, kurang lebih begitulah. Jika sobat menemukan soal seperti ini tp berbeda angka, sobat hanya perlu mengganti angka yg ada d skrip nya saja. Semoga bermanfaat. Jangan Lupa Komentar Yaa..