-
基于数据库的VB编程代码收藏程序.rar
2019-07-10 12:26:22基于数据库的VB文章资料收集程序,可用来收集网上的精彩文章、收集文本格式的资料,比如源代码等,序基于Access数据库,可看作是一个简单的数据库程序,可作为VB学习者的数据库编程示例。本程序可自定义文章分类、... -
Visual Basic 编程资源大全(VB源代码编写)HTM格式教程,非常详细
2010-01-29 16:55:51Visual Basic 编程资源大全(VB源代码编写)HTM格式教程,非常详细 -
VB6.0格式化代码.
2019-05-10 09:46:40smidt.exe用于使VB6编程环境支持代码格式化。安装后在VB环境中点击右键将出现“Smart Indent”项,它可使代码自动缩进。常用其中“Indent Module”等项。速度快,功能强。 注:本人亲测可用!!!!(支持Win10) -
VB 编程辅助插件.rar
2019-06-14 10:15:06VB6.0开发代码助手,可以非常方便的对源代码进行格式化,加入调试代码,发现其中错误,VB6.0编程好助手 -
VB病毒编程源代码资料及教程
2009-05-15 09:43:50近期收集的一些用VB进行病毒编写的源代码资料,涉及的内容可以看codeFans.net如上截图。压缩包中还附有一个CHM格式的教程,教程与资料不是配套的,只是讲述相关的知识。 源码爱好者注:发布病毒编程资料的目的是... -
VB6鼠标滚轮支持和代码格式化工具
2010-04-11 22:53:53mwfix.exe用于使VB6编程环境支持鼠标滚轮,...smidt.exe用于使VB6编程环境支持代码格式化。安装后在VB环境中点击右键将出现“Smart Indent”项,它可使代码自动缩进。常用其中“Indent Module”等项。速度快,功能强。 -
oracle 9i中文版基础培训教程,PDF格式+VB例程代码
2008-10-16 12:29:45oracle 9i中文版基础培训教程:PDF格式+VB例程代码 本书是一本专门针对Oracle 9i数据库技术的基础培训教程。全书精心组织Oracle 9i数据库初学者需要掌握的知识,循序渐进地介绍Oracle 9i数据库管理和应用系统开发的... -
VB编程技巧280例(大量实例和源码)
2009-04-22 14:58:07VB编程技巧280例(PDF格式) 本书是学习VB编程的一本很好的教材,它侧重于用实例讲解如何编写一些高级的VB程序,如“用VB6.0实现动态增减控件”、“用VB制作即时动态按钮” 等,特别对高级编程人员进一步提高自己的... -
VB.Net-C#代码集合-Word格式
2008-11-29 14:10:32VB.Net-C#代码集合-Word格式有图片,有的讲的不错,学习知识点。包括下面的文章: NET环境下水晶报表使用总结 NET中各种数据库连接大全 Visual C#的Excel编程 Visual C#中的数据绑定 把.NET程序部署到没有安装.NET... -
VB编程的好帮手--【VB源码之友】快速进阶
2004-09-11 10:03:00VB源码之友是VB软件开发的好助手,它即能规范源码开发的格式,又能提高编程的速度,是一款不可多得的好工具。 它是是继API浏览器之后,叶帆软件系列家族中又一款重量级VB程序开发辅助软件... 4、代码格式自动整理;VB源码之友是VB软件开发的好助手,它即能规范源码开发的格式,又能提高编程的速度,是一款不可多得的好工具。 它是是继API浏览器之后,叶帆软件系列家族中又一款重量级VB程序开发辅助软件。
主要有以下几个功能:
1、程序注释自动生成;
2、变量自动添加前缀(符合匈牙利命名规则、也可以自定义);
3、命令字自动补齐功能(可自定义);
4、代码格式自动整理;
5、源码信息统计;
6、VB工程自动保存(时间间隔可以设定);
7、智能查询(可以直观地切换所查到的信息);
8、智能定位(可以直观地切换到标记位置)。【下载链接】------------------------------------------------
http://www.softreg.com.cn/shareware_view.asp?id=/6FAE6D34-825B-4862-B771-B3EA1BD8A417/
【功能说明】------------------------------------------------
一、基本配置
1、作者:对未注册版、个人版、专业版该选项不能配置,信息来源于注册信息中的软件使
用者;对企业版或定制版,该作者名称可以根据实际进行设定。
2、公司:对未注册版、个人版、专业版、企业版该选项不能配置,信息来源于注册信息中
的公司信息;对定制版,该公司名称可以根据实际进行设定。
3、日期格式:该格式是“模块说明”、“函数说明”、“出错处理”等中显示的日期格式
来源;注:该日期格式设置一定有效正确,否则会出现不可预料的错误。
4、配置文件:该配置文件默认为当前插件所在的目录,可以设定该文件的路径信息。也可
以通过选择不同的配置文件,定做不同的格式模板。
5、VB工程文件定时保存:该功能启用后,根据设定的保存间隔,自动保存VB工程文件。
6、功能热键有效:该功能启用后,所有的热键方有效。
7、VB IDE鼠标滚轮有效:该功能启用后,使VB编辑器支持鼠标滚轮功能。
二、添加模块说明
进入编辑模式
1、添加模块说明
单击菜单栏的【添加模块说明】图标或按热键Ctrl+Alt+T,即在模块的顶端添加如下的信息:
'*************************************************************************
'**模 块 名:Form1 --Form1 自动填写模块的名称
'**说 明:叶帆软件 版权所有2003 - 2004(C) --叶帆软件 注册的的公司名
'**创 建 人:叶帆 --叶帆 注册的的作者
'**日 期:2003年06月26日 --自动填写当前日期
'**修 改 人:
'**日 期:
'**描 述:
'**版 本:V1.0 --自动填写当前的版本(保存后的版本)
'*************************************************************************2、配置模块说明的样式
*************************************************************************
**模 块 名:%ModuleName%
**说 明:%Company% 版权所有%DateYear%(C)
**创 建 人:%Writer%
**日 期:%Date%
**修 改 人:
**日 期:
**描 述:
**版 本:%Version%
*************************************************************************关键字说明:
1、%ModuleName%:模块名称,实际使用时,系统自动用实际的模块名称替换;
2、%Company%:公司名称,实际使用时,系统自动用注册的公司名称替换;
3、%DateYear%:版本所有的年限,系统以当前年为起始,延续一年的格式显示,
如2004-2005;
4、%Writer%:软件作者,系统自动用注册的软件使用者的名称替换;如果为企业
用户,该作者可以任意修改。
5、%Date%:添加日期,实际使用时,系统自动用当前的日期替换;注:日期格式
为基本配置中设定的日期格式。
6、%Version%:软件版本,实际使用时,系统自动用实际的软件版本替换;注意,
该版本显示的是工程文件保存后的版本。
三、添加函数说明
1、添加函数说明
先把光标放到目标函数或过程内部,然后单击菜单栏的【添加函数说明】图标或
按热键Ctrl+Alt+P,即在函数或过程的顶端添加如下的信息:
i、函数(下面的函数说明都是自动填写的)
'*************************************************************************
'**函 数 名:Add
'**输 入:A(Integer) -
'** :B(Integer) -
'**输 出:(Integer) -
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2003年06月26日
'**修 改 人:
'**日 期:
'**版 本:V1.0
'*************************************************************************
Private Function Add(A As Integer, B As Integer) As Integer
Add = A + B
End Functionii、过程(下面的函数说明都是自动填写的)
'*************************************************************************
'**函 数 名:Form_MouseDown
'**输 入:Button(Integer) -
'** :Shift(Integer) -
'** :X(Single) -
'** :Y(Single) -
'**输 出:无
'**功能描述:
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2003年06月26日
'**修 改 人:
'**日 期:
'**版 本:V1.0
'*************************************************************************
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X AsSingle, Y As Single)
End Sub2、配置函数说明的样式
*************************************************************************
**函 数 名:%FunctionName%
**输 入:%Input%
**输 出:%OutPut%
**功能描述:
**全局变量:
**调用模块:
**作 者:%Writer%
**日 期:%Date%
**修 改 人:
**日 期:
**版 本:%Version%
*************************************************************************输入前缀:输入信息有多个时,第二行起始的参数说明前的注释信息。
关键字说明:
1、%FunctionName%:函数名称,实际使用时,系统自动用实际的函数(或过程)
名称替换;
2、%Input%:输入参数,实际使用时,系统自动用实际的参数名称替换;当有多个输
入参数时,第二行起始的参数说明前的注释信息为“输入前缀”中的内容。
3、%OutPut%:输入信息;
4、%Writer%:软件作者,系统自动用注册的软件使用者的名称替换;如果为企业用
户,该作者可以任意修改。
5、%Date%:添加日期,实际使用时,系统自动用当前的日期替换;注:日期格式为
基本配置中设定的日期格式。
6、%Version%:软件版本,实际使用时,系统自动用实际的软件版本替换;注意,
该版本显示的是工程文件保存后的版本。
四、添加出错处理
1、添加出错处理信息
先把光标放到目标函数或过程内部,然后单击菜单栏的【添加出错处理】图标或按
热键Ctrl+Alt+E,则自动根据配置填写出错处理代码。
i、错误处理方式
错误处理方式有四种(能自动根据函数或过程的不同,填写相应代码):
1)、跳出:
'打开错误处理陷阱
On Error GoTo ErrGoto
'----------------------------------------------------
'----------------------------------------------------
Exit Sub
'-----------------------------
ErrGoto:2)、继续:Resume
3)、跳过:Resume Next
4)、结束:End
ii、把错误信息保存在数据文件
错误信息的格式:时间,信息类别,错误信息,所在模块,工程名称
Private Function Add(A As Integer, B As Integer) As Integer
On Error GoTo ToExit '打开错误陷阱
'----------------------------------------------------
Add = A + B
'----------------------------------------------------
Exit Function
'-----------------------------
ToExit:Dim lngErrFileNo As Integer '自由文件号
'把错误信息保存在文件里
lngErrFileNo = FreeFile()
Open App.Path & "/YFErrmsg.txt" For Append As lngErrFileNo
Print #lngErrFileNo, "ErrMsg:" & Format$(Now, "YYYY-MM-DD HH:MM:SS") & "," & Err.Number & "," & Err.Description & ",Add,Form1"
Close #intErrFileNo
Resume NextEnd Function
iii、自定义错误处理语句
错误信息的格式:时间,信息类别,错误信息,所在模块,工程名称
Private Function Add(A As Integer, B As Integer) As Integer
On Error GoTo ToExit '打开错误陷阱
'----------------------------------------------------
Add = A + B
'----------------------------------------------------
Exit Function
'-----------------------------
ToExit:Debug.Print "错误发生时间:"; Format(Now, "YYYY-MM-DD HH:MM:SS")
Debug.Print "错误 的 类型:"; Err.Number
Debug.Print "错误 的 信息:"; Err.Description
Debug.Print "错误函数名称:Add"
Debug.Print "错误模块名称:Form1"End Function
2、配置出错处理的样式
debug.print "错误发生时间:"%DateTime%
debug.print "错误 的 类型:"%ErrorType%
debug.print "错误 的 信息:"%ErrorDescription%
debug.print "错误函数名称:%ErrorSource%"
debug.print "错误模块名称:%SystemTitle%"关键字说明:
1、%AppPath%:工程路径,实际使用时,系统自动用实际的路径信息替换;
2、%DateTime%:出错日期,实际使用时,系统自动用当前的日期替换;注:日期格式为日
期类型中配置的格式。
3、%ErrorType%:错误类型,实际使用时,系统自动用Err.Number替换;
4、%ErrorDescription%:错误信息,实际使用时,系统自动用Err.Description替换;
5、%ErrorSource%:错误来源,实际使用时,系统自动用所在的函数或过程名称替换;
6、%SystemTitle%:系统标题,实际使用时,系统自动用所在的函数或过程所在的模
块名称替换;
五、代码格式整理
1、代码格式整理
单击菜单栏的【代码格式整理】图标或按 热键:函数内整理Ctrl+Alt+C 或 模块内整理
Ctrl+Alt+A,即可完成VB代码的格式整理。
注:选用函数内整理时,输入光标要在相应的函数内才有效。
代码整理前:
Private Function Add(A As Integer, B As Integer) As Integer
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
If A = B Then
Add = A + B + Val(Left("9999", 2))
End If
A = 0: B = 0
'------------------------------------------------
Exit Function
'----------------
ToExit:
Debug.Print "错误发生时间:"; Format(Now, "YYYY-MM-DD HH:MM:SS")
Debug.Print "错误 的 类型:"; Err.Number
Debug.Print "错误 的 信息:"; Err.Description
Debug.Print "错误函数名称:Add"
Debug.Print "错误模块名称:Form1"
Resume Next
End Function
代码整理后(进行了相应的缩格处理):
Private Function Add(A As Integer, B As Integer) As Integer
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
If A = B ThenAdd = A + B + Val(Left$("9999", 2)) --添加了“$”符号
End If
A = 0 --分行
B = 0
'------------------------------------------------
Exit Function
'----------------ToExit:
Debug.Print "错误发生时间:"; Format$(Now, "YYYY-MM-DD HH:MM:SS")
Debug.Print "错误 的 类型:"; Err.Number
Debug.Print "错误 的 信息:"; Err.Description
Debug.Print "错误函数名称:Add"
Debug.Print "错误模块名称:Form1"
Resume NextEnd Function
2、配置代码格式整理模式
i、启用[字符串命令添加"$"功能]:给字符串命令添加$,可以在编辑框中输入新的关键字,
也可以删除相应的关键字,同时也可设置关键字的有效性。
ii、函数内整理:设定后,按工具栏图标代码整理范围针对当前函数,否则对应整个模块。
iii、分拆以":"分隔的代码行,启用后,分隔代码中以":"分隔的代码行。
六、智能查找/智能定位
1、智能查找
单击菜单栏的【智能查找/定位】图标或按热键Ctrl+Alt+F,显示智能查找窗口:
基本界面:
选择半透明(对Win2000以上的版本有效),及隐藏设置区后的界面如下
“VB智能查找”是VB编辑下的“查找功能”加强版,它最大的特点有两条:
1、把所有匹配的数据一次查找出来,并在list框里显示。
2、双击list框的选项,输入光标直接定位到相对应的代码行。
2、智能定位
按热键Ctrl+Alt+D,显示智能定位窗口:
基本界面:(也可以设置窗体半透明(对Win2000以上的版本有效))
“VB智能定位”是VB编辑下的“书签功能”加强版,它最大的特点有两条:
1、把所有书签显示在list框里。
2、双击list框的书签,输入光标直接定位到相对应的代码行。
注:设定书签时,一定通过“VB智能定位”小旗帜设定,删除时也一样。
七、关键字自动补齐
1、关键字自动补齐
对配置好的关键字,在输入关键字后(回车后),系统自动添加相对应的关键字
输入的关键字 自动补齐的关键字
Do Loop
If End if
While Wend
For Next
... ...
2、关键字配置
可以添加和删除相应的关键字,除此之外还可以设定关键字的有效性。
注:函数说明:回车->输入前缀 该功能启用后,在函数说明行,回车自动添加输入前缀
信息。
八、关键字自动替换
1、关键字自动替换
对配置好的关键字,在输入关键字后(输入空格或回车后),系统自动替换为相对应的
关键字
输入的关键字 替换后的关键字
exf Exit Function
puf Public Function
... ...
2、关键字配置
可以添加和删除相应的关键字,同时可设置关键字的有效性。
注:空行:空格键->Tab 功能启用后,在函数内在每个空行中输入空格键相当于按Tab键。
九、关键字自动匹配
1、定位相对应的关键字
热键:Ctrl+[ 向前寻找匹配
热键:Ctrl+] 向后寻找匹配
2、配置关键字(和自动补齐功能的关键字相同)
可以添加和删除相应的关键字,除此之外还可以设定关键字的有效性。
十、变量自动添加前缀
1、变量自动添加前缀
对配置好的数据类型,在变量命名时自动添加相对应的前缀:
添加前 添加后(输入回车后)
dim data as String Dim strData As String
dim num as Long Dim lngNum As Long
dim index as Integer Dim intIndex As Integer
... ...
注:对一些特殊变量,如i,j,k等可以专门设定为不加前缀的变量。
2、前缀格式配置
(1)变量前缀设定:
可以添加和删除变量前缀的格式,同时也可以设定指定变量前缀的有效性。
(2)不加前缀的变量设定:
可以添加和删除不加前缀的变量名称,同时也可以设定指定变量的有效性。
十一、源码信息统计
按扫描按钮,可以根据不同的选项显示整个工程的所有打开的模块信息(各种函数声明)。
(可选定要扫描的模块)。
按保存文件,可以把扫描信息保存在文件里。
选项说明:
1、显示模块详细信息:启用后,统计信息显示模块的详细信息。
2、显示函数详细信息:启用后,统计信息显示函数顶端的注释信息。
3、显示代码量、注释量:显示代码的行数和注释行数等信息。
显示示例:
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
[工程名称] MMouse
[文件名称] MMouse.vbp
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
==================================================================
[模块名称] Mouse
[文件名称] MMouse.ctl
=================================================================='*************************************************************************
'**函 数 名:tmrMouse_Timer
'**输 入:无
'**输 出:无
'**功能描述:滚轮触发事件
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2002年12月31日
'**修 改 人:
'**日 期:
'**版 本:版本1.0
'*************************************************************************
Private Sub tmrMouse_Timer()
函数总行数:20
'*************************************************************************
'**函 数 名:UserControl_Resize
'**输 入:无
'**输 出:无
'**功能描述:限制在开发模式下的控件大小
'**全局变量:
'**调用模块:
'**作 者:叶帆
'**日 期:2002年12月31日
'**修 改 人:
'**日 期:
'**版 本:版本1.0
'*************************************************************************
Private Sub UserControl_Resize()
函数总行数:18...
==================================================================
总 行 数:103
代码行数:23
空行行数:5
注释行数:78
注释行数/代码函数:339.13%
==================================================================
函数总数:5
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%注册用户可以使用以下功能:
个人版:
1、模块说明格式定制功能
2、函数说明格式定制功能
3、出错处理格式定制功能(部分)
专业版:
1、具有全部的个人版功能
2、VB功能定时保存功能
3、热键功能有效(支持热键)
4、出错处理可配置保存文件信息功能
5、出错处理处理信息可以定制功能
6、代码整理定制功能
7、自动补齐定制功能
8、自动替换定制功能
9、自动匹配功能
10、智能定位功能
企业版:
1、具有全部的专业版功能
2、变量命名定制功能
3、源码统计功能
4、可以任意设定软件开发者
定制版:
根据需要定制。
-
写入文件_学习VB编程第20天,文件读取写入
2021-01-12 09:10:32今天学习了刘金玉老师VB编程教程的第28期,学习的主要内容是文件读取写入。1.do until......loop循环语句①语法结构do until条件表达式的值类型符合条件的要执行的代码......loop②代码解释:Do开始做事情until直到...今天学习了刘金玉老师VB编程教程的第28期,学习的主要内容是文件读取写入。
1.do until......loop循环语句
①语法结构do until条件表达式的值类型
符合条件的要执行的代码
......loop
②代码解释:Do开始做事情until直到什么条件下就不再执行代码了,loop一次循环结束。
③Until的意思是直到什么跳出循环
2.文件读写语法格式
①打开关闭文件:
open文件路径for打开方式 as #文件号
打开方式:
(Append追加写入,在原来的基础上在文件最后的位置追加新的内容,
Input读取,
Output写入,覆盖性写入。)
Close#文件名
②补充知识:eof函数,end of file文件的末尾,参数就是写文件号
③补充知识:文件的绝对路径和相对路径
实例:
绝对路径:C:VB学习编程第20天.txt。一般用app.path表示工程文件所在的文件夹。
相对路径:假设文件1路径:C:VB学习编程第20天.txt
假设文件2路径:C:VB学习编程第21天.txt
那么文件1相对于文件2的相对路径就是.../学习编程第21天.txt
④listbox清空方法,用来List1.clear函数清空
3代码分享:
①从i=1开始输出,直到i=10
Private Sub Command1_Click()
Dim i%
i = 1
Do Until i = 11
Print i
i = i + 1
Loop
End Sub
②输出工程的路径
Private Sub Command2_Click()
Print App.Path
End Sub
③追加写入,如果没有文件,那么将自动生成文件
Private Sub Command3_Click()
Open App.Path & "/t.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub
④覆盖写入,写入的内容将原有的内容覆盖
Private Sub Command4_Click()
Open App.Path & "/t.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
⑤读取文件内容,逐行读取文件内容,直到最后一行
Private Sub Command5_Click()
List1.Clear
Open App.Path & "/t.txt" For Input As #1
Do Until EOF(1)
Dim t$
Line Input #1, t
List1.AddItem t
Loop
End Sub
今天这期内容与我们平时工作学习比较紧密相关,可以用来管理我们的文本资料。马上中秋、国庆节就要到了,打算在川内走走,期间可能会断更。提前祝大家节日快乐。
-
VB网络编程实例
2007-05-29 15:46:04◆ 88.htm 用VB创建自己的通信程序 ◆ 89.htm 用VB构建Internet的应用[微软提供] ◆ 90.htm 用VB开发标准CGI程序 ◆ 91.htm 用VB实现客户——服务器(TCP IP)编程实例 ◆ 92.htm 用VB实现... -
利用VB6.0编程从A文件提取要素、计算生成Excel格式气象服务简表
2010-06-13 13:48:54通过Visual Basic6.0编程,实现从文本格式的地面气象月报数据A文件中提取所需要素,进行统计计算,以...讲述了如何利用VB制作Excel格式的气象服务简表,重点说明了思路方法和步骤及需要注意的问题,并给出部分源程序代码。 -
VB编程资源大全(源码 API)
2007-10-17 20:12:37VB编程者不可错过!英文 htm格式(99.4.3日版)(289KB) 37,api011.zip htm格式 中文(1019KB) 38,api012.zip VB的API说明下载包 (htm格式,中英文)(50KB) 39,34.zip 用API函数对注册表进行操作(8KB) 40,fileprops.zip ... -
VB编程的一些小技巧 - 创建无关硬件的555或565格式的16bit的surface
2007-03-15 11:17:00创建无关硬件的555或565格式的16bit的surface,请看以下代码 Public Sub InitDX(ByVal hWndMain As Long) Initialization procedure Set objDD = objDX7.DirectDrawCreate("") With objDD .SetCooperativeLevel...创建无关硬件的555或565格式的16bit的surface,请看以下代码
Public Sub InitDX(ByVal hWndMain As Long)
'Initialization procedure
Set objDD = objDX7.DirectDrawCreate("")
With objDD
.SetCooperativeLevel hWndMain, DDSCL_NORMAL
ddsd1.lFlags = DDSD_CAPS
ddsd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
Set objDDPrimSurf = .CreateSurface(ddsd1)
ddsd2.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT Or DDSD_PIXELFORMAT Or DDSD_PITCH
ddsd2.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
ddsd2.lWidth = 256
ddsd2.lHeight = 240
ddsd2.lPitch = 2 * 256
ddsd2.ddpfPixelFormat.lFlags = DDPF_RGB
ddsd2.ddpfPixelFormat.lRGBBitCount = 8 * 2
ddsd2.ddpfPixelFormat.lRBitMask = 31744
ddsd2.ddpfPixelFormat.lGBitMask = 992
ddsd2.ddpfPixelFormat.lBBitMask = 31
Set objDDSurf = .CreateSurface(ddsd2)
Set ddClipper = .CreateClipper(0)
ddClipper.SetHWnd hWndMain
objDDPrimSurf.SetClipper ddClipper
End With
End Sub
-
VB编程资源大全(源码 控制)
2007-10-17 22:13:32filemanager.zip 文件管理器(8KB) 52,mousedemo.zip 一些鼠标例子演示(3KB) 53,calendar.zip 一个小小的日历程序(4KB) 54,hotkey.zip VB编程中热键应用一例(3KB) 55,noalt+f4.zip ... -
for循环步长_学习VB编程第13天 FOR循环用来解决高中数学问题
2020-11-30 12:17:45今天学习了刘金玉老师VB编程教程的第20期,学习的主要内容是for循环的经典运用。1.语法格式:For 初始化变量=变量的初值 to 变量的终值[step 1]循环条件需要运行的代码Next 变量2.案例分析实例1:语法解释Dim X as ...今天学习了刘金玉老师VB编程教程的第20期,学习的主要内容是for循环的经典运用。
1.语法格式:
For 初始化变量=变量的初值 to 变量的终值[step 1]
循环条件需要运行的代码
Next 变量
2.案例分析
实例1:语法解释
Dim X as integer ‘申明变量X为整型
For X=0 to 10 step 1 ‘step含义为步长’经过依次循环后使得初始变量增加一个相应的值。这个循环过程包含了一个内部逻辑代码条件,就是从第一次赋值开始,赋值结果+步长<=变量的终值则继续执行代码,直到赋值结果+步长>变量的终值,执行Next X之后的代码。
需要执行的代码
Next X
实例2:运用FOR函数解决高中数学中常见的求和问题(求1+2+3+4+......+99的和/平均数)
输入代码:
Private Sub Form_Load()
Show
Dim S As Integer ‘定义S为整型数据,S默认值为0
Dim C As Integer ‘定义C为整型数据,C默认值为0
Dim A As Integer ‘定义A为整型数据,A默认值为0
For S = 1 To 99 Step 1 ‘相当于赋予S的值为1-99
C = C + S ‘这个公式的作用在于赋值为0的C依次与赋值为1-99的S循环相加,因为C没有赋值,默认值为0,这就达到了求1-99这组数据之和的目的。
A = A + 1 '这个公式的作用在于统计经过了多少次循环,也就是有多少个数相加
Next S
Print "1+2+3+......+99的和为" & C
Print "1加到99共有" & A
Print "1加到99的平均数为" & C / A
今天学的内容稍微有点烧脑,都是些抽象的东西,平时不喜欢数学或者逻辑差点(我就是这种)的学起来就需要时间慢慢领悟,所以今天学的内容有点少。
昨天写了一个模拟大乐透抽奖的程序,对我这个头条新手来说算是爆量了,头条的文章阅读量一下就上去了,不少感兴趣的朋友也关注了头条号,看来大家都喜欢把学了的东西运用到实际中,后面我会尽量每学一期内容就找一些贴近日常使用的案例来分享,不辜负大家的期望。
-
VB编程资源大全(源码 文件)
2007-10-17 22:40:03*.pgx中的图片(13KB) 28,f029.ZIP VB编程中突破64K的文本显示限制(3KB) 29,f028.ZIP 文件的拖拉操作(5KB) 30,f027.ZIP 实现多文档界面的记事本, 需要active threed control(29KB) 31,f026.... -
js读取动态txt文本最后一行_学习VB编程第20天,文件读取写入
2020-11-29 09:54:29今天学习了刘金玉老师VB编程教程的第28期,学习的主要内容是文件读取写入。1.do until......loop循环语句①语法结构do until条件表达式的值类型符合条件的要执行的代码......loop②代码解释:Do开始做事情until直到... -
VB编程资源大全(控件 文件)
2007-10-18 16:39:32dssk170d.EXE 由Dolphin System公司出品的用于互联网编程的控件(317KB) 6,f001.ZIP 可以将BIG5码转换成GB码的控件(42KB) 7,ccrpfd.ZIP VB6的公用对话框打开多个文件,取得文件名时是不是很麻烦, 试... -
vb代码大全_VB重点|VB中的各种文件操作方法
2020-12-11 14:45:12VB居然可以开发这么多实用程序软件●VB编程各文件格式大全,你值得一看!●VB知识之常量与变量的命名规则与使用注意Visual Basic文件操作方法知识要点一、顺序文件访问模式1.打开文件2.读/写文件3.关闭文件二、随机... -
VB编程资源大全(源码 网络)
2007-10-17 22:54:27src2html.ZIP <br>将VB源程序转换成HTML格式(4KB) 16,netdde.ZIP 演示怎样与Netscape Navigator进行DDE通行(2KB) 17,vbftp.ZIP 一个利用VB编写的FTP客户端程序(8KB) 18,hostname.ZIP 一个... -
VB编程资源大全(源码 多媒体)
2007-10-18 15:20:26(4KB) 85,mp3play.ZIP mp3播放器VB源代码,含MP3控件(174KB) 86,textefx.ZIP 用VB实现字体特效动画 VB源码(9KB) 87,screensaverx.zip 屏幕保护源代码(47KB) 88,mario.zip 超级玛丽游戏... -
VB编程资源大全(控件 窗体2)
2007-10-18 23:49:06免去了大量的编程代码 (37KB) 82,gvocx.zip 一个能看多种图形格式的控件(267KB) 83,flatbtn.zip 能创建类似IE风格的按钮(88KB) 84,spliter.zip Spliter.ocx控件主要是用来在程序中切分窗口,... -
VB编程资源大全(控件 窗体1)
2007-10-18 15:59:00免去了大量的编程代码 (37KB) 82,gvocx.zip 一个能看多种图形格式的控件(267KB) 83,flatbtn.zip 能创建类似IE风格的按钮(88KB) 84,spliter.zip Spliter.ocx控件主要是用来在程序中切分窗口,... -
VB编程资源大全(源码 控件)
2007-10-17 21:59:47(12KB) 61,mtw.zip 如何把MP3转换为WAV文件格式?(11KB) 62,httpexp.zip 如何编写自己的浏览器?(18KB) 63,callconnect.zip 如何启动默认的拨号连接?(2KB) 64,rottext.zip 如何输出... -
VB编程资源大全(源码 数据库)
2007-10-18 12:44:55datediff.zip 创建和修改自定义的数据库(2KB) 46,d011_databasesearch.zip 数据库查询示例程序(3KB) 47,d010_vbcodelib.zip 一个管理VB源码的数据库例子(101KB) 48,d009_creatmdb.zip 用代码在...