1. Trang chủ
  2. » Tất cả

Sub

4 1 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 4
Dung lượng 18,13 KB

Nội dung

Sub pictureArray() 02 03 Randomize() 04 05 pictures.Add("Cat") 06 pictures.Add("Spade") 07 pictures.Add("Butterfly") 08 pictures.Add("Shoes") 09 pictures.Add("Radio") 10 pictures.Add("Grasshopper") 11 pictures.Add("Lamp") 12 pictures.Add("Coconut") 13 pictures.Add("Clock") 14 pictures.Add("Lightbulb") 15 pictures.Add("Binoculars") 16 pictures.Add("Diamond") 17 pictures.Add("Hammer") 18 pictures.Add("Bell") 19 pictures.Add("Snail") 20 pictures.Add("Bag") 21 pictures.Add("Camera") 22 pictures.Add("Pencil") 23 pictures.Add("Horseshoe") 24 pictures.Add("Brush") 25 pictures.Add("Gloves") 26 pictures.Add("Ball") 27 pictures.Add("Umbrella") 28 pictures.Add("Gnome") 29 pictures.Add("Mouse") 30 pictures.Add("Crown") 31 pictures.Add("Torch") 32 pictures.Add("Paperclip") 33 pictures.Add("Handprint") 34 pictures.Add("Hat") 35 pictures.Add("Car") 36 pictures.Add("Star") 37 pictures.Add("Wheel") 38 pictures.Add("Book") 39 pictures.Add("Triangle") 40 pictures.Add("Die") 41 pictures.Add("Glasses") 42 pictures.Add("One") 43 pictures.Add("Shell") 44 pictures.Add("Apple") 45 pictures.Add("Bowling Pin") 46 pictures.Add("Spoon") 47 pictures.Add("Magnifier") 48 pictures.Add("Letter R") 49 pictures.Add("Aeroplane") 50 pictures.Add("Scissors") 51 pictures.Add("Mask") 52 pictures.Add("Bow") 53 pictures.Add("Coin") 54 pictures.Add("Frog") 55 pictures.Add("Snake") 56 pictures.Add("Key") 57 pictures.Add("Rope") 58 pictures.Add("Peg") 59 pictures.Add("Bottle") 60 pictures.Add("Belt") 61 pictures.Add("Angel") 62 pictures.Add("Pawprint") 63 pictures.Add("Clover") 64 pictures.Add("Phone") 65 pictures.Add ("Ring") lblOne.Text = (pictures(RandIndex)) 02 pictures.RemoveAt(RandIndex) 03 04 RandIndex = RandGen.Next(0, pictures.Count) 05 lblTwo.Text = (pictures(RandIndex)) pictures.Remov eAt(RandIndex) 06 07 08 RandIndex = RandGen.Next(0, pictures.Count) 09 lblThree.Text = (pictures(RandIndex)) pictures.Remove At(RandIndex) 10 11 12 RandIndex = RandGen.Next(0, pictures.Count) 13 lblFour.Text = (pictures(RandIndex)) pictures.Remove At(RandIndex) 14 15 16 RandIndex = RandGen.Next(0, pictures.Count) 17 lblFive.Text = (pictures(RandIndex)) pictures.Remove At(RandIndex) 18 19 20 RandIndex = RandGen.Next(0, pictures.Count) 21 lblSix.Text = (pictures(RandIndex)) pictures.Remov eAt(RandIndex) 22 23 24 RandIndex = RandGen.Next(0, pictures.Count) 25 lblSeven.Text = (pictures(RandIndex)) pictures.Remove At(RandIndex) 26 27 RandIndex = RandGen.Next(0, pictures.Count) 28 29 30 31 lblEight.Text = (pictures(RandIndex)) pictures.Remove At(RandIndex) RandIndex = RandGen.Next(0, pictures.Count)

Ngày đăng: 03/10/2016, 03:22

w