vb编程代码100例，c语言必背100代码
各位老铁们好，相信很多人对vb编程代码100例都不是特别的了解，因此呢，今天就来为大家分享下关于vb编程代码100例以及c语言必背100代码的问题知识，还望可以帮助大家，解决大家的一些困惑，下面一起来看看吧！
用VB编写一个计算器程序的代码
1、创建控件组的方法
首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption属性为数字 0；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：
设置效果如下图所示：
二、编写代码
Dim s1 As Single， s2 As Single， ysf As String
‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符
Private Sub Command1_Click（Index As Integer）
Text1.Text= Text1.Text& Command1（Index）.Caption’将command1的单击事件与文本框显示的内容连接
End Sub
Private Sub Command2_Click（）
Text1.Text= Text1.Text+“。”
If（InStr（Text1.Text，“。”）= 1） Then‘第一位不能为小数
Text1.Text=“”
End If
If InStr（Text1.Text，“。”）《 Len（Text1.Text） Then’防止出现两个小数点
Text1.Text= Left
（Text1.Text， Len（Text1.Text）- 1）
End If
End Sub
Private Sub
Command3_Click（）
s2= Val（Text1.Text）‘开始加减乘除运算
Select Case ysf Case“+”
Text1.Text= s1+ s2
Case“-”
Text1.Text= s1- s2
Case“*”
Text1.Text= s1* s2
Case“/”
If s2= 0 Then
MsgBox“分母不能为零！”
Text1.Text=“”
Else
Text1.Text= s1/ s2 End If End Select
Text1= IIf（Left（Text1.Text， 1）=“。”， 0& Text1.Text， Text1.Text）‘
这个很关键，如果没有这个的话，得出小于1的小数前面没有0
End Sub
Private Sub Command4_Click（）
If Text1.Text=“” Then’文本为空就结束
Exit Sub
End If
Text1.Text= Left（Text1.Text， Len（Text1.Text）- 1）‘文本退一格
End Sub
Private Sub Command5_Click（）
Text1.Text=“”’清除当前框内文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1= Val（Text1.Text）‘将s1隐藏起来 ysf= Command6（Index）.Caption
Text1.Text=“”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1）《》“-” Then’判断作为负数
Text1.Text=“-”& Text1.Text
Else
Text1.Text= Right（Text1.Text， Len（Text1.Text）- 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text= Text1.Text* Text1.Text‘平方
End Sub
拓展资料Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。
参考链Visual Basic——百度百科接
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代码
1.使用整数（Integer）和长整数（Long）
提高代码运行速度最简单的方法莫过于使用正确的数据类型了。也许你不相信，但是正确地选择数据类型可以大幅度提升代码的性能。在大多数情况下，程序员可以将Single，Double和Currency类型的变量替换为Integer或Long类型的变量，因为VB处理Integer和Long的能力远远高于处理其它几种数据类型。
在大多数情况下，程序员选择使用Single或Double的原因是因为它们能够保存小数。但是小数也可以保存在Integer类型的变量中。例如程序中约定有三位小数，那么只需要将保存在Integer变量中的数值除以1000就可以得到结果。根据我的经验，使用Integer和Long替代Single，Double和Currency后，代码的运行速度可以提高将近10倍。
2.避免使用变体
对于一个VB程序员来说，这是再明显不过的事情了。变体类型的变量需要16个字节的空间来保存数据，而一个整数（Integer）只需要2个字节。通常使用变体类型的目的是为了减少设计的工4作量和代码量，也有的程序员图个省事而使用它。但是如果一个软件经过了严格设计和按照规范编码的话，完全可以避免使用变体类型。
在这里顺带提一句，对于Object对象也存在同样的问题。请看下面的代码：
Dim FSO
Set FSO= New Scripting.FileSystemObject
或
Dim FSO as object
Set FSO= New Scripting.FileSystemObject
上面的代码由于在申明的时候没有指定数据类型，在赋值时将浪费内存和CPU时间。正确的代码应该象下面这样：
Dim FSO as New FileSystemObject
3.尽量避免使用属性
在平时的代码中，最常见的比较低效的代码就是在可以使用变量的情况下，反复使用属性（Property），尤其是在循环中。要知道存取变量的速度是存取属性的速度的20倍左右。下面这段代码是很多程序员在程序中会使用到的：
Dim intCon as Integer
For intCon= 0 to Ubound(SomVar())
Text1.Text= Text1.Text& vbcrlf& SomeVar(intCon)
Next intCon
下面这段代码的执行速度是上面代码的20倍。
Dim intCon as Integer
Dim sOutput as String
For intCon= 0 to Ubound(SomeVar())
sOutput= sOutput& vbCrlf&
SomeVar(intCon)
Next
Text1.Text= sOutput
4.尽量使用数组，避免使用集合
除非你必须使用集合（Collection），否则你应该尽量使用数组。据测试，数组的存取速度可以达到集合的100倍。这个数字听起来有点骇人听闻，但是如果你考虑到集合是一个对象，你就会明白为什么差异会这么大。
5.展开小的循环体
在编码的时候，有可能遇到这种情况：一个循环体只会循环2到3次，而且循环体由几行代码组成。在这种情况下，你可以把循环展开。原因是循环会占用额外的CPU时间。但是如果循环比较复杂，你就没有必要这样做了。
6.避免使用很短的函数
和使用小的循环体相同，调用只有几行代码的函数也是不经济的--调用函数所花费的时间或许比执行函数中的代码需要更长的时间。在这种情况下，你可以把函数中的代码拷贝到原来调用函数的地方。
7.减少对子对象的引用
在VB中，通过使用.来实现对象的引用。例如：
Form1.Text1.Text
在上面的例子中，程序引用了两个对象：Form1和Text1。利用这种方法引用效率很低。但遗憾的是，没有办法可以避免它。程序员唯一可以做就是使用With或者将用另一个对象保存子对象（Text1）。
注释：使用With
With frmMain.Text1
.Text="Learn VB"
.Alignment= 0
.Tag="Its my life"
.BackColor= vbBlack
.ForeColor= vbWhite
End With
或者
注释：使用另一个对象保存子对象
Dim txtTextBox as TextBox
Set txtTextBox= frmMain.Text1
TxtTextBox.Text="Learn VB"
TxtTextBox.Alignment= 0
TxtTextBox.Tag="Its my life"
TxtTextBox.BackColor= vbBlack
TxtTextBox.ForeColor= vbWhite注意，上面提到的方法只适用于需要对一个对象的子对象进行操作的时候，下面这段代码是不正确的：
With Text1
.Text="Learn VB"
.Alignment= 0
.Tag="Its my life"
.BackColor= vbBlack
.ForeColor= vbWhite
End With
很不幸的是，我们常常可以在实际的代码中发现类似于上面的代码。这样做只会使代码的执行速度更慢。原因是With块编译后会形成一个分枝，会增加了额外的处理工作。
8.检查字符串是否为空
大多数程序员在检查字符串是否为空时会使用下面的方法：
If Text1.Text="" then
注释：执行操作
End if
很不幸，进行字符串比较需要的处理量甚至比读取属性还要大。因此我建议大家使用下面的方法：
If Len(Text1.Text)= 0 then
注释：执行操作
End if
9.去除Next关键字后的变量名
在Next关键字后加上变量名会导致代码的效率下降。我也不知道为什么会这样，只是一个经验而已。不过我想很少有程序员会这样画蛇添足，毕竟大多数程序员都是惜字如金的人。
注释：错误的代码
For iCount= 1 to 10
注释：执行操作
Next iCount
注释：正确的代码
For iCount= 1 to 10
注释：执行操作
Next
10.使用数组，而不是多个变量
当你有多个保存类似数据的变量时,可以考虑将他们用一个数组代替。在VB中，数组是最高效的数据结构之一。
11.使用动态数组，而不是静态数组
使用动态数组对代码的执行速度不会产生太大的影响，但是在某些情况下可以节约大量的资源。
12.销毁对象
无论编写的是什么软件，程序员都需要考虑在用户决定终止软件运行后释放软件占用的内存空间。但遗憾的是很多程序员对这一点好像并不是很在意。正确的做法是在退出程序前需要销毁程序中使用的对象。例如：
Dim FSO as New FileSystemObject
'执行操作
'销毁对象
Set FSO= Nothing
对于窗体，可以进行卸载：
Unload frmMain
或
Set frmMain= Nothing
13.变长和定长字符串
从技术上来说，与变长字符串相比，定长字符串需要较少的处理时间和空间。但是定长字符串的缺点在于在很多情况下，你都需要调用Trim函数以去除字符串末的空字符，这样反而会降低代码效率。所以除非是字符串的长度不会变化，否则还是使用变长字符串。
14.使用类模块，而不是ActiveX控件
除非ActiveX控件涉及到用户界面，否则尽量使用轻量的对象，例如类。这两者之间的效率有很大差异。
15.使用内部对象
在涉及到使用ActiveX控件和DLL的时候，很多程序员喜欢将它们编译好，然后再加入工程中。我建议你最好不要这样做，因为从VB连接到一个外部对象需要耗费大量的CPU处理能力。每当你调用方法或存取属性的时候，都会浪费大量的系统资源。如果你有ActiveX控件或DLL的源代码，将它们作为工程的私有对象。
16.减少模块的数量
有些人喜欢将通用的函数保存在模块中，对于这一点我表示赞同。但是在一个模块中只写上二三十行代码就有些可笑了。如果你不是非常需要模块，尽量不要使用它。这样做的原因是因为只有在模块中的函数或变量被调用时，VB才将模块加载到内存中；当VB应用程序退出时，才会从内存中卸载这些模块。如果代码中只有一个模块，VB就只会进行一次加载操作，这样代码的效率就得到了提高；反之如果代码中有多个模块，VB会进行多次加载操作，代码的效率会降低。
17.使用对象数组
当设计用户界面时，对于同样类型的控件，程序员应该尽量使用对象数组。你可以做一个实验：在窗口上添加100个PictureBox，每个PictureBox都有不同的名称，运行程序。然后创建一个新的工程，同样在窗口上添加100个PictureBox，不过这一次使用对象数组，运行程序，你可以注意到两个程序加载时间上的差别。
18.使用Move方法
在改变对象的位置时，有些程序员喜欢使用Width，Height，Top和Left属性。例如：
Image1.Width= 100
Image1.Height= 100
Image1.Top= 0
Image1.Left= 0
实际上这样做效率很低，因为程序修改了四个属性，而且每次修改之后，窗口都会被重绘。正确的做法是使用Move方法：
Image1.Move 0,0,100,100
19.减少图片的使用
图片将占用大量内存，而且处理图片也需要占用很多CPU资源。在软件中，如果可能的话，可以考虑用背景色来替代图片--当然这只是从技术人员的角度出发看这个问题。
20.使用ActiveX DLL，而不是ActiveX控件
如果你设计的ActiveX对象不涉及到用户界面，使用ActiveX DLL。
编译优化
我所见过的很多VB程序员从来没有使用过编译选项，也没有试图搞清楚各个选项之间的差别。下面让我们来看一下各个选项的具体含义。
1. P-代码（伪代码）和本机代码
你可以选择将软件编译为P-代码或是本机代码。缺省选项是本机代码。那什么是P-代码和本机代码呢？
P-代码：当在VB中执行代码时，VB首先是将代码编译为P-代码，然后再解释执行编译好的P-代码。在编译环境下，使用这种代码要比本机代码快。选择P-代码后，编译时VB将伪代码放入一个EXE文件中。
本机代码：本机代码是VB6以后才推出的选项。当编译为EXE文件后，本机代码的执行速度比P-代码快。选择本机代码后，编译时VB使用机器指令生成EXE文件。
在使用本机代码进行编译时，我发现有时候会引入一些莫名其妙的错误。在编译环境中我的代码完全正确地被执行了，但是用本机代码选项生成的EXE文件却不能正确执行。通常这种情况是在卸载窗口或弹出打印窗口时发生的。我通过在代码中加入DoEvent语句解决了这个问题。当然出现这种情况的几率非常少，也许有些VB程序员从来没有遇到过，但是它的确存在。
在本机代码中还有几个选项：
a)代码速度优化：该选项可以编译出速度较快的执行文件，但执行文件比较大。推荐使用
b)代码大小优化：该选项可以编译出比较小的执行文件，但是以牺牲速度为代价的，不推荐使用。
c)无优化：该选项只是将P-代码转化为本机代码，没有做任何优化。在调试代码时可以使用。
d)针对Pentium Pro优化：虽然该项不是本机代码中的缺省选项，但是我通常会使用该选项。该选项编译出的可执行程序在Pentium Pro和Pentium 2以上的机器上可以运行得更快，而在比较老的机器上要稍稍慢一些。考虑到现在用Pentium 2都是落伍，所以推荐大家使用该选项。
e)产生符号化调试信息：该项在编译过程中生成一些调试信息，使用户可以利用Visual C++一类的工具来调试编译好的代码。使用该选项会生成一个.pdf文件，该文件记录了可执行文件中的标志信息。当程序拥有API函数或DLL调用时，该选项还是比较有帮助的。
2.高级优化
高级优化中的设置可以帮助你提高软件的速度，但是有时候也会引入一些错误，因此我建议大家尽量小心地使用它们。如果在代码中有比较大的循环体或者复杂的数学运算时，选中高级优化中的某些项会大幅度提升代码的性能。如果你使用了高级优化功能，我建议你严格测试编译好的文件。
a)假定无别名：可以提高循环体中代码的执行效率，但是在如果通过变量的引用改变变量值的情况下，例如调用一个方法，变量的引用作为方法的参数，在方法中改变了变量的值的话，就会引发错误。有可能只是返回的结果错误，也有可能是导致程序中断运行的严重错误。
b)取消数组绑定检查、取消整数溢出检查和取消浮点错误检查：在程序运行时，如果通过这些检查发现了错误，错误处理代码会处理这些错误。但是如果取消了这些检查，发生了错误程序就无法处理。只有当你确定你的代码中不会出现上面的这些错误时，你才可以使用这些选项。它们将使软件的性能得到很大的提升。
c)允许不舍入的浮点操作：选择该选项可以是编译出来的程序更快地处理浮点操作。它唯一的缺点就是在比较两个浮点数时可能会导致不正确的结果。
d)取消Pentium FDIV安全检查：该选项是针对一些老的Pentium芯片设置的，现在看来已经过时了。
文章分享结束，vb编程代码100例和c语言必背100代码的答案你都知道了吗？欢迎再次光临本站哦！