Post on 03-Jan-2016
description
:::4A115047:
,,1~6,gif,
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load () Me.Text = () Btn.Text = () txt.Text = ()End Sub
Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn.Click () Dim luck As Integer (luck) luck = Fix((6 - 1 + 1) * Rnd()) + 1 (luck1~6) Pic.Image = Image.FromFile(CStr(luck) & .gif) (luck ) Btn.Text = ?^^~ (?^^~ ) End SubEnd Class
Visual Basic 2010