vb经典程序100例(vb经典程序例题及分析)

一般用vb编写什么程序？具体举几个简单的例子

vb可以写的程序很多，比如我学的就是用于测绘方面的

对于初学者来说，简单的啊需要了解vb的三要素“对象”“事培滑毕件”“方法”

比如单机窗体加载一张图片作为背景：

privatesubform1_()load

form1.picture=loadpicture("")，""号内为需要加载的图片的路径后面在加上\图片名.格式。就可以了

endsub

再如单机命令按配芹钮，窗体出现文字：

privatesubcommand_()click

print"你好"'因号内为你让羡要窗体显示的文字

endsub

语句自己找给思路。

第一种：暴力运算

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

这个用循环语句计算比较方便，例如dowhile语句，doloop语句隐轮，fornext语句都可以

fornext语句举例：

PrivateSubCommand1_Click()

Dimi%,iSum

Fori=0To4Step2

iSum=i+iSum

Debug.Printi

Debug.Print

Next

Debug.PrintiSum

EndSub

更多帮档渣助请登录加技术QQ即可灶蠢信

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

dimiasinteger

dimsumasinteger

i=1

方法1

dowhilei100

sum=sum+i

i=i+1

loop

方中基饥法卖返锋局3

do

sum=sum+i

i=i+1

loopwhilei100