第1到5步按照

操作。

然後用工具箱

中的各種控制元件構建如下介面，就和以前高中學的vb一樣。

建3個標籤，分別是“課堂隨機點名系統”，“起始學號”，“截止學號”

建2個文字框，TextBox1放在“起始學號”後面，TextBox2放在“截止學號”後面

把工具箱拉大點

建1個button，修改caption為“隨機生成學號”

最後得到比較像樣的介面（所有控制元件中顯示的中文通過下面的caption修改，比如下面UserForm1改成課堂點名系統）

然後雙擊“隨機生成學號”按鈕，會跳出一個寫程式碼的框

程式碼如下

Private Sub CommandButton1_Click()

    a = Val(TextBox1.Text)

    b = Val(TextBox2.Text)

    d = b - a

    Randomize

    c = Int(a + Rnd * d)

    MsgBox (c)

End Sub

大功告成！

點選按鈕進行執行吧！（純手打，有點累。。。）