点击command1，label1随机显示1.2.3-Function a() As String Dim b(2) As String b(0) = 1 b(1) = 2 b(2) = 3 Randomize a = b(Rnd* 2) End Function Private Sub Command1_Click() Label1.Caption = a End Sub

文本计算器说明 一、用法： 1、文本计算器具有关闭时是否保存计算结果的功能、计算结果的小数位选择功能，小数位0表示计算精度； 2、文本计算器打开时，可以自动加载上次的计算结果以及上次关闭时窗口位置； 3、双击计算器的文本框可打开数字键盘，方便笔记本用户使用； 4、输入数学表达式后，按回车键，自动计算结果； 5、一个表达式必须在一行内全部输入； 6、表达式不输入内容时直接回车，不再出现错误提示； 7、需要当记事本用时，在本行最前面加入 号，可不出现错误提示！