小可愛是知名中學老師，今天突然問我能不能幫她寫一個隨機數生成的程式，用於學生上課點名回答問題用，哈哈，裝逼的時候到啦：）

基本思路

最近寫慣了shell、python、js、java、android，要麼是不帶介面的，要麼是非windows平臺的，要實現這麼一個程式，一定是在windows平臺上的，想到了以下三種方式：

1. MFC       最熟悉也最笨重，業界早淘汰的東西，總有種排斥感
2. .net      windows平臺超簡單的開發工具，開發便捷
3. qt        支援跨平臺介面程式開發，不過電腦沒有安裝相關開發程式

基於以上考量，採用.net進行開發。

基本實現

本質上，這個就是一個隨機數生成器的UI版，廢話不多說了，直接上程式碼吧

Public Class Form
    Dim allStuNum As Integer = 42
    'Dim allStuName As New ArrayList
    Dim useName As Boolean
    Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        Timer1.Interval = 20
        Try
 

            Dim fn = FreeFile()
            FileOpen(fn, "config.txt", OpenMode.Input)
            Dim num As Integer
            Input(fn, num)
            allStuNum = num
        Catch
            allStuNum = 42
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles
 
 Timer1.Tick
        Randomize()
        Dim randNum As Integer = Rnd() * (allStuNum - 1) + 1
        Label1.Text = randNum
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Button1.Text = "開始" Then
            Timer1.Enabled = True
            Button1.Text = "關閉"
        Else
            Timer1.Enabled = False
            Button1.Text = "開始"
        End If
    End Sub
End Class

實現效果

專案程式碼