vb程序设计简单程序？c语言程序设计
大家好，今天来为大家解答vb程序设计简单程序这个问题的一些问题点，包括c语言程序设计也一样很多人还不知道，因此呢，今天就来为大家分析分析，现在让我们一起来看看吧！如果解决了您的问题，还望您关注下本站哦，谢谢~
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程序设计
Visual Basic程序设计是BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件，用于高效生成类型安全和面向对象的应用程序。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
扩展资料：
VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。
和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。
参考资料来源：百度百科-Visual Basic
VB程序设计
我自能给亲说一下思路，，如图所示，应该建立2个form，第一个用于成绩显示查询，当然前提应该把成绩的数据库导入进去，如果这是老师要求的作业，用access数据库简单编几个数据就好了。当点击“生成图表”按钮时，form1隐藏，form2出现，坐标轴事先用line画好，生成一些标签，每个标签等长度，填充颜色：label.backgroundcolor(即标签背景颜色）=。。。。。（颜色自选）
label.length=label.length*（val(textbox1（即数学成绩的文本框）.text)\100)
就是先把label填充好颜色，再通过form1的text中的数值除以100来控制其长度就可达到该效果。当然，其他的成绩包括平均分的图表也是这样控制。
关于vb程序设计简单程序的内容到此结束，希望对大家有所帮助。