红皮书关于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,bc=a-bIf 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="女生"ThenMsgBox“老是输入的是女生”ElseIfText1.Text="男生" ThenMsgBox"老师输入的是男生"ElseMsgBox "老师输入的是" & Text1.TextEnd IfEnd IfEnd Sub
三大结构是咱们学习当中很重要的一个部分,无论多么繁杂的语句,有了三大结构,所有问题都可以变得很简单,在你没有太多思想去思考你要干什么的时候,你会听从父母的意愿,小时候从托儿所直到高中毕业,当你思想开阔,有了梦想,你开始选择,大学里你想修哪个专业,毕业后找什么样地工作,在多种选择里你用多种方式循环着你的生活,目的很简单,变得更好。
InputBox和MsgBox函数不知道该怎样叙述,所以找了两个例子。
InputBox函数:
形式:
1.strnname=inputbox(“请输入你的账户名称:”,“登录信息”)2.strnname=inputbox(title:=“登录信息”,prompt=:“请输入你的账户名称”)
题目:
声明一个有5个元素的一维数组A,使用InputBox函数为其所有元素赋值,然后将其所有元素的值及其下标显示出
解答:
MsgBox函数:Private Sub Form_Click()
Dim a(1 To 5), i As Integer, j As Integer
For i = 1 To 5a(i) = InputBox("")Next iFor j = 1 To 5Print "a(" & j & ")=" & a(j)Next jEnd Sub
形式:
1.MsgBox prompt仅用于显示信息,不使用返回值。
2.VarName=MsgBox(prompt,对话框类型,对话框标题)
题目:
在任意程序中,可增加一个窗体关闭时确认是否退出程序的功能。
ADO可以在VB中开发数据库应用程序,也可在Active Server Pages(活动服务器页面)中构建Web数据库应用程序。ADO通过OLEDB对不同类型的数据源进行访问。private sub form_unload()x=msgbox("确实要退出吗?",4+32+256,"关闭窗口")
if x=6 then
cancel=0else
cancel=1
end if
end sub