<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[lfa001的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/lfa001</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; lfa001]]></copyright><item><title><![CDATA[vb循环 Do While…Loop 语句/Do Until…Loop语句]]></title><link>https://blog.youkuaiyun.com/lfa001/article/details/103723650</link><guid>https://blog.youkuaiyun.com/lfa001/article/details/103723650</guid><author>lfa001</author><pubDate>Thu, 26 Dec 2019 22:29:59 +0800</pubDate><description><![CDATA[实验内容
1\掌握使用Do While…Loop /Do Until…Loop语句进行循环控制
2\从页面输入一个值n，计算1+2+3+4+。。。+n的和（分别用Do While…Loop /Do Until…Loop语句做一遍）
3\从页面输入一个值n，计算n!的值（分别用Do While…Loop /Do Until…Loop语句做一遍）
编写实验报告。
代码
Do While…Loop 版本...]]></description><category></category></item><item><title><![CDATA[vb运行时弹出对话框或者提示上的标题]]></title><link>https://blog.youkuaiyun.com/lfa001/article/details/103319278</link><guid>https://blog.youkuaiyun.com/lfa001/article/details/103319278</guid><author>lfa001</author><pubDate>Fri, 29 Nov 2019 22:58:07 +0800</pubDate><description><![CDATA[VB对话框的显示按钮的问题：msgbox(“请选择一个按钮”,322，“按钮实验”)其中数字322就是表示按钮类型和显示在对话框中的图形，下面总结如下：
1、按钮的类型与对应值：
显示"确定"按钮，对应值：0
显示"确定"和"取消"按钮，对应值：1
显示"放弃"、“重试"和"忽略"按钮，对应值：2
显示"是”、"否"和"取消"按钮，对应值：3
显示"是"和"否"按钮，对应值：4
显示"重试"和"取...]]></description><category></category></item><item><title><![CDATA[VB中的IF语句]]></title><link>https://blog.youkuaiyun.com/lfa001/article/details/103319236</link><guid>https://blog.youkuaiyun.com/lfa001/article/details/103319236</guid><author>lfa001</author><pubDate>Fri, 29 Nov 2019 22:52:00 +0800</pubDate><description><![CDATA[Private Sub Command1_Click()
Dim a As String, b As String
a = Me.Text1.Text
b = Me.Text2.Text
If Val(a) = Val(b) Then
MsgBox "a与b输入点相同", 64, "提示"
Else

 If Val(a) &lt; Val(b) Then
 MsgBox "a小于b输入点", 6...]]></description><category></category></item><item><title><![CDATA[VB中的IF语句]]></title><link>https://blog.youkuaiyun.com/lfa001/article/details/103319090</link><guid>https://blog.youkuaiyun.com/lfa001/article/details/103319090</guid><author>lfa001</author><pubDate>Fri, 29 Nov 2019 22:35:50 +0800</pubDate><description><![CDATA[Private Sub Command1_Click()
Dim a As String, b As String
a = Me.Text1.Text
b = Me.Text2.Text
If Val(a) = Val(b) Then
MsgBox “a与b输入点相同”
Else
If Val(a) &lt; Val(b) Then
MsgBox “a小于b输入点”
Else
If Val(a) ...]]></description><category></category></item><item><title><![CDATA[VBS编辑字段]]></title><link>https://blog.youkuaiyun.com/lfa001/article/details/103191582</link><guid>https://blog.youkuaiyun.com/lfa001/article/details/103191582</guid><author>lfa001</author><pubDate>Thu, 21 Nov 2019 21:54:56 +0800</pubDate><description><![CDATA['为已经创建好的数据表添加字段
'参数：strDBPath 字符串型 数据库路径
'参数：strTableName 字符串型 需要创建的数据表的名称
'参数：strColumnName 字符串型 需要添加的字段名称
'参数：strColumnType 字符串型 需要添加的字段数据类型
Sub AddColumn(strDBPath, strTableName, strColumnName, str...]]></description><category></category></item></channel></rss>