用VB计算1+1=2
之所以用VB计算1+1=2，是为把一个从没接触过VB的人带入VB的有趣世界。初步认识一下VB。
不管你能不能看懂这是什么意思，请先照下面说的去做吧（当然是对初学者来说），等学习了后面的教程你就会明白的！
第一步：运行VB（这里以VB5.0中文版为例，下同）。
第二步：新建一个标准EXE工程。运行VB时直接建立或使用“文件”菜单中的“新建工程”。
第三步：你会见到一个称为“Form1”的窗体。现在请点击一下工具箱（一般位于左边）中的那个大“A”，称为Label，然后在Form1中拖动一下。就绘出一个控件，记住，这个东西叫“控件”，而且是一个标签控件。你还可以调整它的大小。
第四步：点击一下刚才你绘出的控件，然后找到属性窗口（一般在右边），看到其中有一个Caption属性，属性值为Label1。请将其值改为“第一个加数”。
第五步：从工具箱中找到“TextBox”控件，鼠标悬停在上面会有提示。点击一下，然后在Form1中拖动一下，就绘出一个文本框控件。将这个文本框控件放在你刚才创建的标签控件的下面。再点击一下，找到属性窗口中的text属性，将该属性值改为空。
第六步：重复第三至第五步，只不过要把新的标签控件的Caption属性设为“第二个加数”。注意各个控件不要重叠在一起。
第七步：重复第三至第五步，只不过要把新的标签控件的Caption属性设为“两数的和”。注意各个控件不要重叠在一起。
第八步：从工具箱中找到“CommandButton”控件，用同样的方法绘制到Form1中，并将其Caption属性设为“两数相加”。
第九步：双击你刚才创建的CommandButton控件，会弹出代码窗口，其中已经有一部分自动生成的代码，如下所示：
Private Sub Command1_Click()
End Sub
请在其中加一行，成为：
Private Sub Command1_Click()
Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
End Sub
至此，你的第一个程序就完成了。
运行一下吧！点击工具栏上的启动按扭或使用运行菜单中的启动或按F5均可。运行时会弹出一个窗口（就是刚才那个Form1）。在前两个文本框中都输入1，然后点击“两数相加”按扭，看看出现了什么？
好了，别忘记存盘，会生成两个文件，一个.frm文件，一个.vbp文件，名字任你起。
现在让我们分析一下刚写的那句代码：
Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
聪明的你一定看明白了，这句代码的意思就是将两个文本框中的文本分别先转换为数字，然后相加，再转为字符串在Text3中输出。注意不能写成：
Text3.Text = Text1.Text + Text2.Text
因为字符串相加和数值相加是不一样的。数值相加时1+1=2，而字符串相加时"1"+"1"="11"。
思考题：将Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
改为：Text3.Text = Val(Text1.Text) + Val(Text2.Text)会发生什么情况？为什么？
请验证一下！
利用VB6.0设计屏幕保护程序
Windows操作平台设有一个屏幕的保护措施，即屏幕保护功能。经常在Windows操作平台上使用电脑的人们对系统提供给我们的几个屏幕保护程序是不是感到非常平常了，没有新鲜感了，是不是想自己设计屏幕保护程序。下面介绍如何利用VB设计用户自己的屏幕保护程序。屏幕保护程序可以保护显示屏不被损坏，同时节约能源。作为屏幕保护程序，应该具有如下特性：
1)屏幕保护程序运行时，鼠标光标被自动隐藏，在程序结束时，光标显示。2)当单击、移动鼠标或按下键盘时，屏幕保护结束，回到正常操作状态。为了实现这些特性，在编写VB应用程序时，可以采用如下方法：
1、VB应用程序的窗体都采用有边框的窗体外观，但作为屏幕保护程序，应设置窗体为无边框，且为最大化。
2、隐藏及显示鼠标光标在Visual Basic应用程序中隐藏及显示鼠标光标需要运用Windows的API函数，该函数名为ShowCursor。当用参数值True调用时显示鼠标光标，当用参数值False调用时，鼠标光标自动隐藏。
3、检测鼠标移动VB中有一个检测鼠标移动的对象事件MouseMove事件。MouseMove事件通常在应用程序启动时就会触发，有时在鼠标并未移动的情况下，MouseMove事件仍有可能被触发。因此如果在程序中直接用MouseMove事件检测鼠标是否发生了移动，并不能正确反映鼠标的移动状况。应该在MouseMove事件中编写代码加以控制。
为了正确反映鼠标的移动，先用变量记录下程序运行时的鼠标当前位置，然后用另外一组变量记录鼠标移动后的位置，当鼠标移动前后的位置差大于一定范围时，触发MouseMove事件。编写代码如下：
Private Sub Form-MouseMove(Button As Integer,shift As Inteqer,X As Single,Y As Single)
Static currentX,currentY As Single
Dim orignX,orignY As Single
’把当前的鼠标值赋给orignX和orignY
orignX=X
orignY=Y
’初始化currentX和currentY
if currentX=0 and currentY=0 Then
currentX=orignX
currentY=orignY
Exit Sub
Endif
’当鼠标移动大于一个象素时，显示鼠标光标并退出程序
If Abs(oriqnX-currentX)>1 or Abs(orignY-currentY)>1Then
X=ShowCursor(True)
End
Endif
EndSub
4、检测鼠标单击在Visual Basic中，单击事件是由“Click”触发的。当屏幕保护程序运行时遇到单击事件，则程序运行终止。代码编辑如下：
Private Sub Form-Click()
X=ShowCursor(True)
End
EndSub
注意在结束之前先设光标的显示为真，以免在程序结束后丢失光标。
5、检测键盘上各按键的状态Visual Basic中的键盘活动由KeyDown触发。代码与单击事件的代码一样。
Private Sub Form-KeyDown(KeyCode As Integer,Shift As Integer)
X=ShowCursor(True)
End
EndSub
下面我们将设计一个简单的屏幕保护程序，该程序运行时，从左至右显示一张图片，图片从屏幕左边出现，至屏幕右面消失，象拉幕一样，且重不停复该过程。假设图片文件名为PIC.BMP，并存放在Windows文件夹中。实际操作如下：
创建一新工程，在窗体中添加一图片框和一个Timer控件。设置它们的属性如下：
Form
BackColor=&H80000007&
BorderStyle=0 ’None
MaxButton=False
MinButton=False
Windowstate=2 ’Maximized
Timer
Intelval=5
PictureBox
BackColor=&H80000007&
BorderStyle=0 ’None
AutoSize=Ture
输入代码如下：
’在窗体的声明部分声明ShowCursor函数。
Private Declare Function ShowCursor Lib“user32”(By Val bShow As Long) As Long
’在窗体上单击鼠标时退出程序
Private Sub Form-Click()
X=ShowCursor(True)
End
EndSub
’在窗体上按下按键时退出程序
Private Sub Form-KeyDown(KeyCode As Integer,Shift As Integer) X=ShowCursor(True)
End
EndSub
’加载窗体时隐藏鼠标
Private Sub Form-Load()
Dim X As Long
X=ShowCursor(False)
Picture1.Visible=False
Picture1.PICTure=LoadPICTure(“C:\windows\PIC.BMP”)
Picture1.Left=-Picture1.Width
EnｄSub
’在窗体上移动鼠标时退出程序
Private Sub Form-MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
Static currentX,currentY As Single
Dim orignX,orignY As Single
’把当前的鼠标值赋给orignX和orignY
orignX=X
orignY=Y
’初始化currentX和currentY
If currentX=0 And currentY=0 Then
currentX=orignX
currentY=orignY
ExitSub
EndIf
If Abs(orignX-currentX)>1 Or Abs(orignY-currentY)>1
Then X=ShowCursor(True)
End
EndIf
EndSub
Private Sub Picture1-Click()
X=ShowCursor(True)
End
EndSub
Private Sub Picture1-KeyDown(KeyCode As Integer,Shift As Integer)
X=ShowCursor(True)
End
EndSub
Private Sub Picture1-MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
Static Xlast,Ylast As Single
Dim Xnow,Ynow As Single
Xnow=X
Ynow=Y
If Xlast=0 And Ylast=0 Then
Xlast=Xnow
Ylast=Ynow
ExitSub
EndIf
If Abs(Xnow-Xlast)>1 Or Abs(Ynow-Ylast)>1 Then
X=ShowCursor(True)
End
EndIf
EndSub
Private Sub Timer1-Timer()
Picture1.Visible=True
Picture1.Top=(Form1.Height-Picture1.Height)/2
Picture1.Left=Picture1.Left+50
If Picture1.Left>Form1.Width Then
Picture1.Left=-Picture1.Width
EndIf
EndSub
将以上代码编译生成可执行文件，在保存文件对话窗中输入文件名称时把扩展名改为”SCR”，最后将生成的屏幕保护程序添加到Windows的系统下即可。
