計算機程式及 實習 期末報告
8
計計計計計計 計計 計計計計 班班 : 班班 班 一 班班 : 班班班 班班 :4A115047 班班 : 班班班
-
Upload
jaime-tillman -
Category
Documents
-
view
58 -
download
0
description
計算機程式及 實習 期末報告. 班級 : 車輛一甲 姓名 : 陳昱亘 學 號 :4A115047 老師 : 謝慶存. 題目說明. 這次期末要我們做的是遊戲 而我第一個想到就是類似占卜的抽籤. 解題分析. 開始執行時 , 馬上顯示表單名稱 , 還有開始抽籤等等 並利用亂數產生 1~6 之隨機亂數 , 並與附檔名 gif 字串做結合成檔案名稱 , 並顯示出來. 程式碼撰寫. Public Class Form1 - PowerPoint PPT Presentation
Transcript of 計算機程式及 實習 期末報告
:::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
