Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Seven-sided-dice-from-five-sided-dice/VBScript/seven-sided-dice-from-five-sided-dice.vb
+++ b/Task/Seven-sided-dice-from-five-sided-dice/VBScript/seven-sided-dice-from-five-sided-dice.vb
@ -0,0 +1,13 @@
+Option Explicit
+
+function dice5
+	dice5 = int(rnd*5) + 1
+end function
+
+function dice7
+	dim j
+	do
+		j = 5 * dice5 + dice5 - 6
+	loop until j < 21
+	dice7 = j mod 7 + 1
+end function