VB 简单计算器
Option Explicit
Dim potflag As Integer '标识是否用小数点
Dim numcol As Integer ' 点击运算符的个数
Dim LastInput ' 指示上一次操作的内容
Dim colflag 'numcol为1时，保存运算符
Dim temp1, temp2 '分别保存运算符两端的运算数
Private Sub CmdCel_Click() '重新开始计算按钮，个计量数和标识初始化
Res = Format(0, "0.")
temp1 = 0
temp2 = 0
numcol = 0
potflag = False
LastInput = "cel" '标识此操作为"cel"
End Sub
Private Sub CmdPot_Click() '使用小数点
If LastInput <> "num" Then
Res = Format(0, "0.")
ElseIf String(1, Res) = "-" Then
Res = Format(0, "-0.")
End If
potflag = True
LastInput = "num" '标识此操作为"num"
End Sub
Private Sub Cmdsign_Click() '使用正负号
If String(1, Res) <> "-" Then '如果当前是正数添加负号
Res = "-" & Res
Else: Res = Right(Res, Len(Res) - 1) '如果当前是证号，取消负号
End If
LastInput = "num" '标识此操作为"num"
End Sub
Private Sub ComCol_Click(Index As Integer) '点击操作符，可进行连续运算
numcol = numcol + 1 '通过numcol标识点击运算符的次数
If numcol = 1 Then '当前数为操作符左侧运算数时，记录当前操作数
temp1 = Res
&
相关文档：
大家都知道共享软件都有它们的试用期，即给你一个固定的期限免费使用。
应有的功能：
1）给定一个试用期限，在系统每次启动时会判断软件已经使用了几天，还有几天可以及启动的次数。
2）当系统日期被修改成往日的日期后，系统能自动判别，禁止修改日期 ，不� ......
参照案例教程建立的数据库管理系统在甚多方面都存在问题。可能是新手，不管是对于大一就学过的VB编程还是这个学期刚接触的SQL，很多小问题常常出现在调试过程中。想请熟悉使用这两个平台的高手帮忙指点一下。
1.如何解决DataGrid中多个column和SQL中多个表的绑定？目的 ......
VB编写托盘图标有两个要点，一是使用 Shell_NotifyIcon 函数显示图标；二是向系统注册 TaskbarCreated 消息，以便explorer崩溃时恢复托盘的图标。
首先需要增加一个模块文件，内容如下：
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......
VB学的用的都不精，编个程序用了很长时间了，现在这个通讯部分还没做好，求助大家一下：
ctrMSComm.Output = "@01R" '读命令
instar = ctrMSComm.Input '读通讯
wy_I = val(HEX_to_DEC(Mid(instar, 29, 4))) * (20 / 4095#)
&n ......
mxl=1 && 最大的文本框编号
mnl=1 &n ......
