vb程序设计实例100？vb语言程序设计实践教程
大家好，今天来为大家分享vb程序设计实例100的一些知识点，和vb语言程序设计实践教程的问题解析，大家要是都明白，那么可以忽略，如果不太清楚的话可以看看本篇文章，相信很大概率可以解决您的问题，接下来我们就一起来看看吧！
vb经典程序100例(vb经典程序例题及分析)
vb程序设计实例100试题一.1
PrivateSubForm_Click()
Printfs_sum(100)
EndSub
Functionfs_sum(ByValnAsInteger)AsSingle
Dims!,nc!'唤盯锋和与倒数
s=0
Fori=1Ton
nc=1/i
s=s+nc
Nexti
fs_sum=s
EndFunction
试题一.2
PrivateSubForm_Click()
Fori=1To4
PrintSpace(4-i);
Forj=1Toi
Print"则枣*";
Nextj
Nexti
EndSub
待续和晌，未完...
一般用vb编写什么程序？具体举几个简单的例子vb可以写的程序很多，比如我学的就是用于测绘方面的
对于初学者来说，简单的啊需要了解vb的三要素“对象”“事培滑毕件”“方法”
比如单机窗体加载一张图片作为背景：
privatesubform1_()load
form1.picture=loadpicture("")，""号内为需要加载的图片的路径后面在加上\图片名.格式。就可以了
endsub
再如单机命令按配芹钮，窗体出现文字：
privatesubcommand_()click
print"你好"'因号内为你让羡要窗体显示的文字
endsub
跪求用VB编写程序计算1~100之间的奇数和、偶数和。要源码。语句自己找给思路。
第一种：暴力运算
1.申请2个变量jsum，osum分别放奇数和、偶数和。赋初值0。
2.做个循环从1到100，变量用i
2.1判断i是否为奇数，是的话jsum=jsum+i，否则osum=osum+i
3.输出陆猛jsum，osum
第二侍历种：推算法。
由题意有
奇数和=1+3+5+。。。+99=50×（1+99）/2
偶数和=2+4+6+。。。+100=50×（2+100）/早谈桥2
直接输出50×（1+99）/2，50×（2+100）/2两值
如果是求1~n之间的奇数和、偶数和。n2
则
判断n是否为奇数，如果是则
奇数和=（(n+1)/2）*(1+n)/2
偶数和=（(n+1)/2-1）*(2+n-1)/2
不是则
奇数和=（n/2）*(1+n-1)/2
偶数和=（n/2）*(2+n)/2
大一VB使用循环结构编写程序，求2+4+6+8+到100这个用循环语句计算比较方便，例如dowhile语句，doloop语句隐轮，fornext语句都可以
fornext语句举例：
PrivateSubCommand1_Click()
Dimi%,iSum
Fori=0To4Step2
iSum=i+iSum
Debug.Printi
Debug.Print
Next
Debug.PrintiSum
EndSub
更多帮档渣助请登录加技术QQ即可灶蠢信
vb例子1..
DimWords,Chars,MyString
ForWords=10To1Step-1'建立10次循环。
ForChars=0To9'建立10次循环。
MyString=MyStringChars'将数字添加到字符串中。
NextChars'Incrementcounter
MyString=MyString""'添加一个空格。
NextWords
2.
Do...Loop语句示例
本示例示范如何使用Do...Loop语句。内层的Do...Loop语句循环到第10次时将标志值设置为False，并用ExitDo语句强制退出内层循环。外层循环则在检查到标志值为False时，马上退出。
DimCheck,Counter
Check=True:Counter=0'设置变量初始值。
Do'外层循环。
DoWhileCounter20'内层循环。
Counter=Counter+1'计数器加一。
IfCounter=10Then'如果条件成立。
Check=False'将标志值设成False。
ExitDo'退出内层循环。
EndIf
Loop
LoopUntilCheck=False'退出外层循扮枣环。
3.
While...Wend语句示例
本示例使用While...Wend语句来增加计数变量的值。如果条件判断值为True，则循环内的语句将一直执行下去。
DimCounter
Counter=0'设置变量初值。
WhileCounter20'测试计数器的值。告缺局
Counter=Counter+1'将计数器的值加一。
Wend'当Counter19时则循环终止。
Debug.PrintCounter'在“立即”窗口中显示数字20。
SelectCase语句示例
本示例使用SelectCase语句来判断变量的值。示例中第二个Case子句包含了变量值，故只有此区块内的语句会被完成到。袜让
DimNumber
Number=8'设置变量初值。
SelectCaseNumber'判断Number的值。
Case1To5'Number的值在1到5之间，包含1和5。
Debug.Print"Between1and5"
'下一个Case子句是本示例中唯一判断值为True的子句。
Case6,7,8'Number的值在6到8之间。
Debug.Print"Between6and8"
Case9到10'Number的值为9或10。
Debug.Print"Greaterthan8"
CaseElse'其他数值。
Debug.Print"Notbetween1and10"
EndSelect
用VB编一个程序,求从1至100的自然数的和dimiasinteger
dimsumasinteger
i=1
方法1
dowhilei100
sum=sum+i
i=i+1
loop
方中基饥法卖返锋局3
do
sum=sum+i
i=i+1
loopwhilei100
用vb做一个程序(100分)可追加50分
在窗体上添加一个文本框Text1用来输入一些数字和标点符号,再添加一个文本框Text2用来输出一些小写的英文或数字或标点符号,添加一个按钮控件cmdConvert,单击此按钮的时候用特定的方法转换Text1里的内容,并在Text2里输出.在按钮的单击事件里编写代码,代码如下:
----------------------------------------------------------------------------------------------------------------------------
Option Explicit
Private Sub cmdConvert_Click()
Dim n As Integer'用于储存输入字串的长度
Text2=""'清除文本框text2中的内容
n= Len(Text1)
If n= 0 Then Exit Sub'如果没有在text1中输入内容,退出事件过程
While n<> 0'如果字串长度不为零,执行循环,否则退出循环
Select Case Asc(Text1)
'检测字串text1的第一个字符的ASCII码值
Case 32'字串text1的第一个字符是空格字符
n= n- 1
Text1= Right(Text1, n)'去掉text1字串的第一个字符,字串长度变量减1
Case 40'字串text1的第一个字符是"("
If Asc(Mid(Text1, 2, 1))> 47 And Asc(Mid(Text1, 2, 1))< 58 And Asc(Mid(Text1, 3, 1))= 41 Then
'字符串的前三个字符是"("&"一个数字"&")"的情况(即输入字符是数字)条件为真,否则为假
Text2= Text2& Chr(32)& Mid(Text1, 2, 1)'直接取text1第二位的数字字符并附加到text2字符串的后面然后赋值给text2
n= n- 3
Text1= Right(Text1, n)'去掉text1字串的前三个字符,字串长度变量减3
Else
'字符"("后跟的不是"一个数字"&")"的情况,也就是说这个"("是标点字符
Text2= Text2& Chr(32)& Left(Text1, 1)'直接取text1第一位的标点字符并附加到text2字符串的后面然后赋值给text2
n= n- 1
Text1= Right(Text1, n)'去掉text1字串的第一个字符,字串长度变量减1
End If
Case 49'字串text1的第一个字符是数字字符1
Text2= Text2& Chr(32)& Chr(Val(Left(Text1, 2))+ 86)
'取text1字串的前两个数字字符,并将其转化为英文字母然后附加到原text2字串的后面
n= n- 2
Text1= Right(Text1, n)'去掉text1字串的前两个字符,字串长度变量减2
Case 50'字串text1的第一个字符是数字字符2
Text2= Text2& Chr(32)& Chr(Val(Left(Text1, 2))+ 81)
'取text1字串的前两个数字字符,并将其转化为英文字母然后附加到原text2字串的后面
n= n- 2
Text1= Right(Text1, n)'去掉text1字串的前两个字符,字串长度变量减2
Case 51'字串text1的第一个字符是数字字符3
Text2= Text2& Chr(32)& Chr(Val(Left(Text1, 2))+ 76)
'取text1字串的前两个数字字符,并将其转化为英文字母然后附加到原text2字串的后面
n= n- 2
Text1= Right(Text1, n)'去掉text1字串的前两个字符,字串长度变量减2
Case 52'字串text1的第一个字符是数字字符4
Text2= Text2& Chr(32)& Chr(Val(Left(Text1, 2))+ 71)
'取text1字串的前两个数字字符,并将其转化为英文字母然后附加到原text2字串的后面
n= n- 2
Text1= Right(Text1, n)'去掉text1字串的前两个字符,字串长度变量减2
Case 53'字串text1的第一个字符是数字字符5
Text2= Text2& Chr(32)& Chr(Val(Left(Text1, 2))+ 66)
'取text1字串的前两个数字字符,并将其转化为英文字母然后附加到原text2字串的后面
n= n- 2
Text1= Right(Text1, n)'去掉text1字串的前两个字符,字串长度变量减2
Case 54'字串text1的第一个字符是数字字符6
Text2= Text2& Chr(32)& Chr(Val(Left(Text1, 2))+ 61)
'取text1字串的前两个数字字符,并将其转化为英文字母然后附加到原text2字串的后面
n= n- 2
Text1= Right(Text1, n)'去掉text1字串的前两个字符,字串长度变量减2
Case Else'字串text1的第一个字符是标点字符
Text2= Text2& Chr(32)& Left(Text1, 1)'直接取text1第一位的标点字符并附加到text2字符串的后面然后赋值给text2
n= n- 1
Text1= Right(Text1, n)'去掉text1字串的第一个字符,字串长度变量减1
End Select
Wend
Text2= Right(Text2, Len(Text2)- 1)'因为第一次执行循环体时在字串text2的前面也放上了一个空格字符,所以从这里要去掉它
End Sub
-----------------------------------------------------------------------------------------------------------------------------
参考:
1、函数Left(string, length)
返回字符串(string)中从左边算起指定数量(length)的字符。
2、函数Right(string,length)
返回字符串(string)中从右边算起指定数量(length)的字符。
3、函数Mid(string, start[, length])
返回字符串(String)中从左边指定位(start)算起指定数量(length)的字符。
4、函数Len(string| varname)
返回字符串string内字符的数目，或是存储一变量varname所需的字节数。
5、函数Asc(string)
返回代表字符串string中首字母的字符代码。
6、函数Chr(charcode)
返回与指定的字符代码charcode相关的字符。
7、几个字符对应的ASCII码：
0<--> 9 a<--> z()空格字符
48<--> 57 97<--> 122 40 41 32
VB语言程序设计教程的目录
第1章 Visual Basic概述 1
1.1 Visual Basic的发展历程及特点 1
1.1.1 Visual Basic的发展历程 1
1.1.2 Visual Basic语言的主要特点 2
1.2 Visual Basic 6.0的安装与启动 3
1.2.1 Visual Basic 6.0的安装 3
1.2.2 Visual Basic 6.0的启动与退出 4
1.3 Visual Basic 6.0的集成开发环境 6
1.3.1主窗口 6
1.3.2窗体设计器窗口 7
1.3.3工程资源管理器窗口 8
1.3.4属性窗口 8
1.3.5工具箱窗口 9
1.3.6代码窗口 10
1.3.7立即窗口 10
1.3.8调色板窗口 11
1.3.9窗体布局窗口 11
1.3.10对象浏览器窗口 11
习题 12
第2章 Visual Basic简单程序设计 13
2.1面向对象程序设计基本概念 13
2.1.1对象 13
2.1.2对象的三要素 13
2.2窗体 15
2.2.1窗体结构 15
2.2.2窗体的属性、方法和事件 15
2.3基本控件 18
2.3.1标签 20
2.3.2文本框 21
2.3.3命令按钮 23
2.4 Visual Basic应用程序设计步骤 24
习题 30
第3章 Visual Basic程序设计基础 33
3.1命名规则和语法规则 33
3.1.1命名规则 33
3.1.2语句与语法规则 33
3.2数据类型 34
3.2.1基本数据类型 34
3.2.2自定义数据类型 37
3.3常量与变量 37
3.3.1常量 37
3.3.2变量 38
3.3.3变量的作用域 39
3.3.4默认声明 41
3.4运算符和表达式 42
3.4.1算术运算符 42
3.4.2关系运算符 43
3.4.3逻辑运算符 44
3.4.4字符串运算符 45
3.4.5表达式 45
3.5常用函数 46
3.5.1数学函数 46
3.5.2转换函数 47
3.5.3字符串函数 47
3.5.4日期和时间函数 48
3.5.5格式输出函数 48
习题 49
第4章 Visual Basic程序控制结构 51
4.1顺序结构程序设计 51
4.1.1算法 51
4.1.2顺序结构中的常用语句 52
4.1.3顺序结构中的数据输出 53
4.1.4 InputBox函数 56
4.1.5 MsgBox函数?56
4.2选择结构程序设计 59
4.2.1 if语句和iif函数 59
4.2.2 Select Case语句 63
4.3循环结构程序设计 66
4.3.1 Do loop语句 66
4.3.2 While Wend语句 67
4.3.3 For…Next语句 67
4.3.4循环嵌套语句 69
4.3.5其他控制语句 71
习题 72
第5章数组与过程 80
5.1数组 80
5.1.1一维数组 80
5.1.2二维数组及多维数组 83
5.1.3动态数组 85
5.1.4 For Each…Next语句 88
5.1.5控件数组 89
5.2过程 91
5.2.1过程的概念 91
5.2.2子程序过程Sub 91
5.2.3函数过程 Function 93
5.2.4过程之间参数的传递 95
5.2.5过程嵌套及递归 98
5.2.6变量、过程的作用域 100
习题 101
第6章 Visual Basic常用控件 106
6.1单选控件与复选控件 106
6.1.1单选控件(OptionButton) 107
6.1.2复选控件(CheckBox) 107
6.2列表框和组合框 109
6.2.1列表框控件(ListBox) 109
6.2.2组合框控件(ComboBox) 113
6.3图形框与图像框控件 115
6.3.1图形框控件(PictureBox) 115
6.3.2图像框控件(Image) 115
6.4滚动条与计时器 116
6.4.1滚动条(HscrollBar与VscrollBar) 116
6.4.2时间(Timer)控件 118
6.5文件操作控件 119
6.5.1磁盘列表框(DriveListBox)控件 119
6.5.2 DirListBox(文件夹列表框)控件 120
6.5.3文件列表框(FileListBox)控件 120
6.5.4 3个控件的连接 120
6.6直线与形状控件 121
6.7控件布局 123
习题 124
第7章 Visual Basic高级控件 128
7.1高级控件简介 128
7.2通用对话框(CommonDialog)控件 129
7.2.1 ShowOpen方法 129
7.2.2 ShowSave方法 130
7.2.3 ShowColor方法 131
7.2.4 ShowFont方法 131
7.2.5 ShowPrint方法 133
7.2.6 ShowHelp方法 134
7.3图像列表(ImageList)控件 135
7.4工具栏控件 138
7.4.1 ToolBar控件概述 138
7.4.2 ToolBar控件的属性 138
7.4.3用ToolBar与ImageList设计工具栏 139
7.5状态栏(StatusBar)控件 142
7.5.1 StatusBar控件概述 142
7.5.2 StatusBar控件的属性 142
7.5.3 StatusBar控件中添加窗格 143
7.6进度条(ProgressBar)控件 145
7.6.1进程条控件的概? 145
7.6.2进程条控件ProgressBar的属性 145
7.7树视图(TreeView)控件 147
7.7.1 TreeView控件概述 147
7.7.2 TreeView控件的属性 147
7.7.3 TreeView控件的方法 148
7.8列表视图(ListView)控件 151
7.8.1常用属性 151
7.8.2常用方法 152
7.9选项卡(TabStrip)控件 153
7.10图像组合(ImageCombo)控件 155
7.11滑块(Slider)控件 156
7.12绘图 158
7.12.1绘图基础 158
7.12.2绘图方法 159
习题 162
第8章菜单及MDI窗体设计 163
8.1下拉?菜单设计 163
8.1.1下拉式菜单的组成 163
8.1.2菜单编辑器的启动 164
8.1.3菜单编辑器的使用方法 164
8.2弹出式菜单设计 167
8.3 MDI多窗体程序设计 171
8.3.1创建MDI主窗体 172
8.3.2建立MDI子窗体 172
8.3.3 MDI窗口菜单设计 172
习题 173
第9章文件操作 174
9.1文件的基本概念 174
9.2顺序文件的存取 175
9.2.1顺序文件的打开与关闭 175
9.2.2写(存)顺序文件 176
9.2.3读(取)顺序文件 178
9.3随机文件的存取 179
9.3.1随机文件的打开与关闭 179
9.3.2读(取)随机文件 179
9.3.3写(存)随机文件 180
9.4二进制文件的存取 182
9.4.1随机文件的打开与关闭 182
9.4.2读(取)/写(存)二进制文件 182
9.5文件中常用的操作语句和函数 183
9.5.1常用的文件操作语句 183
9.5.2常用的文件操作函数 184
习题 185
第10章数据库应用程序设计 187
10.1数据库的基本知识 187
10.1.1数据库的相关概念 187
10.1.2数据库的查询 188
10.2数据库的创建和管理 189
10.3通过Data控件访问数据库 194
10.3.1 Data控件常用属性、方法、事件 195
10.3.2 Recordset对象 196
10.3.3数据绑定控件 198
10.3.4数据库应用程序的设计步骤 199
10.3.5 Data控件用法示例 199
10.4通过ADODC控件访问数据库 206
10.4.1 ADODC控件简介 206
10.4.2数据绑定控件 208
10.4.3 ADODC控件用法示例 208
10.5通过ADO对象访问数据库 219
10.5.1 ADO对象简介 219
10.5.2 Connection对象 220
10.5.3 Recordset对象 222
10.5.4 ADO对象用法示例 226
10.6数据库中图片的存取 233
10.6.1直接存取图片 233
10.6.2存取图片地址 239
习题 242
第11章多媒体应用程序设计 244
11.1多媒体控件 Multimedia MCI 244
11.1.1常用命令、属性和事件 245
11.1.2制作多媒体播放器 247
11.2动画控件Animation 250
11.2.1常用属性、事件和方法 250
11.2.2播放AVI动画 251
11.3调用多媒体API函数开发多媒体应用程序 252
11.3.1 API函数简介 252
11.3.2 API函数制作多媒体应用程序举例 253
第12章网络应用程序设计 255
12.1网络基础 255
12.1.1 IP地址 255
12.1.2域名 255
12.1.3端口 255
12.1.4协议 256
12.2 Winsock控件 256
12.2.1 Winsock控件的常用属性 257
12.2.2 Winsock控件的常用方法 258
12.2.3 Winsock控件的常用事件 259
12.2.4 Winsock编程模型 259
12.2.5 Winsock控件用法示例——简易聊天程序 260
12.3 WebBrowser控件 270
12.4 Internet Transfer控件 273
第13章程序调试与错误处理 278
13.1错误类型 278
13.2代码调试 279
13.2.1 Visual Basic3种模式 279
13.2.2调试?具 280
13.2.3调试窗口 281
13.2.4调试方法 282
13.3错误处理 283
附录常用字符与ASCII代码对照表 285
参考文献 286
VB语言的前景
在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了，在我写这篇文章的同时，微软已经透露了VB7.0将完全面向对象的消息，可以肯定下一代VB的功能一定会强大很多，我们这些所谓的 VB程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。
好了，侃了这么多关于VB的台前幕后，总之是为想学编程的你树立信心，编程一点都不难，只要你决定了开始，就让我们一起踏上愉快的编程之旅吧。
接下来谈谈怎样学习VB，先说说“看实例学VB6.0”系列教程，它是面向编程初学者的VB入门教程，这个教程的特点是抛开晦涩难懂的概念和语法，不做内容上的堆积和罗列，而是采用了每节一个生动有趣的小例子的形式，每个小例子中会涉及到一个或几个VB编程的知识点(可能是控件，也许会是某个函数或编程小技巧)，使你快速入门。希望你学完此教程后能达到下述的效果：
从对编程一窍不通或从未接触过编程的状态，通过学习能够对VB6.0的编程环境比较熟悉，掌握VB开发界面的使用方法；对VB语言的基本语法大致了解，知道常见的语句的意义；学习VB常用控件的使用方法，并能将它们灵活运用到应用程序中；能开发简单的VB程序。到那时你已经能够继续深入的学习VB编程，可以继续参与到程序设计栏目其他版块的学习中去，嘻嘻，目标就是这样啦。
然后谈谈学习编程的方法，万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。
另外，编程涉及到很多的知识，象操作系统的、软件工程的、硬件系统的以及编程思想等各个方面，这就需要我们多看看这方面的资料，扩充自己的知识面。
好了，文章到此结束，希望可以帮助到大家。