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编程题目
2、
(1)
穷举法，列出从1000到9999所有的4位数，分别测试其是否等于所分两个两位数和的平方。
(2)
计算结果：
2025=(20+25)^2
3025=(30+25)^2
9810=(98+10)^2
(3)
代码如下：
Private Sub Command1_Click()
For i= 1000 To 9999
If((i\ 100)+(i Mod 100)) ^ 2= i Then
Print i;"=("; i\ 100;"+"; i Mod 100;")^2"
End If
Next i
End Sub
3、
(1)
穷举法，列出从1001到29999所有的自然数，分别测试其是否能同时被32和47整除。
(2)
由于47是质数，所以判断这个数是否能被32和47的最小公倍数1504整除，如果能整除那么这个数能同时被32和47整除。
代码如下：
For i= 1001 To 29999
a= 32* 47
If i Mod a= 0 Then
Print i
End If
Next i
(3)
计算结果：
1504 3008 4512 6016 7520 9024 10528 12032 13536 15040 16544 18048 19552 21056 22560 24064 25568 27072 28576
================
希望对你有所帮助！
VB编程题目求解
该工程文件中有两个窗体form1、form2，要求将form2设为启动窗体。运行时，单击form2上的“显示”按钮，则显示出form1窗体，单击form1的“隐藏”按钮，则form1窗体消失。
form2的“显示”按钮代码：
form1.Show
单击form1的“隐藏”按钮，则form1窗体消失。代码：
form1.hide
以下数列：1,1,2,3,5,8,13,21，……，的规律是从第3个数开始，每个数是它前面两个数之和。按如下界面设计，运行时，选中一个单选按钮后，单击“计算“按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示，计算结果较大，使用长整型变量）。
DimaAsLong'长整型变量
Dimi,j,k
i=1
j=1
a=0
Text1=""
IfOption1.Value=TrueThen'30
Fork=3To30
a=i+j
i=j
j=a
Nextk
Text1=""&a
ExitSub
EndIf
IfOption1.Value=1Then'33
Fork=3To33
a=i+j
i=j
j=a
Nextk
Text1=""&a
ExitSub
EndIf
IfOption1.Value=1Then'35
Fork=3To35
a=i+j
i=j
j=a
Nextk
Text1=""&a
ExitSub
EndIf
关于vb编程题经典100例到此分享完毕，希望能帮助到您。