EXCEL VBA （课堂随机点名程序）

第1到5步按照

http://jingyan.baidu.com/article/f54ae2fcf401941e92b849e7.html

操作。

然后用工具箱

中的各种控件构建如下界面，就和以前高中学的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

大功告成！

点击按钮进行运行吧！（纯手打，有点累。。。）

 由于比较简单，就不配图片了