红皮书基本知识总结（二）

         红皮书关于ADO控件部分看了，并且掌握一点，但是着实不懂得地方太多。下面的知识和思维导图是接着上次总结的，是红皮书16页到35页的知识点。这部分讲的主要有赋值语句、if语句、三大结构，InputBox函数、MsgBox函数以及ADO。

         赋值语句总体来说分两种情况，一是把自己的当前值给了别人，二也可能是别人的加给你，从而我们互相改变自己的大小或者方法。

        if语句私下里也被分为三部分，不过单行if可以归到块if里面去，所以也可以说是两部分，条件语句可以这样理解为假设，在小的时候我们都希望长大，梦想着长大后干啥，即I will be a teacher if I am more older.

行if语句

题目：计算两个数的差，判断这个数是正数还是负数，还是零。

Input“a，b”；a，b
c=a-b
If c>0 Then Print "+,正数" Else If c=0 Then Print "0,a=b" Else Print "-,a<b"
End

块if语句

题目：如果文本框中输入的是女生，则在MsgBox中显示“老师输入的是女生”否则，如果文本框中输入的是男生，则在MsgBox中显示“老师输入的是男生”。

Private Sub Command1_Click()
If Text1.Text="女生"Then
MsgBox“老是输入的是女生”
Else
IfText1.Text="男生" Then
MsgBox"老师输入的是男生"
Else
MsgBox "老师输入的是" & Text1.Text 
End If 
End If
End Sub

三大结构是咱们学习当中很重要的一个部分，无论多么繁杂的语句，有了三大结构，所有问题都可以变得很简单，在你没有太多思想去思考你要干什么的时候，你会听从父母的意愿，小时候从托儿所直到高中毕业，当你思想开阔，有了梦想，你开始选择，大学里你想修哪个专业，毕业后找什么样地工作，在多种选择里你用多种方式循环着你的生活，目的很简单，变得更好。

        InputBox和MsgBox函数不知道该怎样叙述，所以找了两个例子。

        InputBox函数：

        形式：1.strnname=inputbox（“请输入你的账户名称：”，“登录信息”）2.strnname=inputbox（title：=“登录信息”，prompt=：“请输入你的账户名称”）

        题目：声明一个有5个元素的一维数组A，使用InputBox函数为其所有元素赋值，然后将其所有元素的值及其下标显示出

        解答：

Private Sub Form_Click()
Dim a(1 To 5), i As Integer, j As Integer
For i = 1 To 5
a(i) = InputBox("")
Next i
For j = 1 To 5
Print "a(" & j & ")=" & a(j)
Next j
End Sub

MsgBox函数：

形式：1.MsgBox prompt仅用于显示信息，不使用返回值。2.VarName=MsgBox（prompt，对话框类型，对话框标题）

题目：在任意程序中，可增加一个窗体关闭时确认是否退出程序的功能。

private sub form_unload()
x=msgbox("确实要退出吗？",4+32+256,"关闭窗口")
if x=6 then
        cancel=0
    else
        cancel=1
    end if 
end sub

ADO可以在VB中开发数据库应用程序，也可在Active Server Pages（活动服务器页面）中构建Web数据库应用程序。ADO通过OLEDB对不同类型的数据源进行访问。

ADO对象模型：