VB程序设计例题程序改错程序填空程序设计Word格式文档下载.doc
《VB程序设计例题程序改错程序填空程序设计Word格式文档下载.doc》由会员分享，可在线阅读，更多相关《VB程序设计例题程序改错程序填空程序设计Word格式文档下载.doc（13页珍藏版）》请在冰点文库上搜索。
当x〉1或x〈-1时，函数值为0。
当n〈=0时，输入数
据错误。
X、N都是由用户输入。
注意：
不可增加或删除程序行，也不可以更改程序结构
PrivateSubCommand1_Click（）
DimsAsSingle
DimnAsInteger,xAsSingle,kAsInteger
n=Val（InputBox（"
Pleaseinputaintegervalue:
"
））
x=Val（InputBox（"
Pleaseinputasinglevalue:
Ifn<
=0Then
k=MsgBox（"
数据输入错误！
vbRetryCancel+vbExclamation,"
数据输入"
）
ExitSub
EndIf
s=Sum（x,n）
Prints
FunctionSum（xAsSingle,nAsInteger）
DimiAsInteger,ssAsLong
ss=1
Sum=0
Ifx>
1Orx<
-1Then
'
**********FOUND**********
ExitDo改为ExitFunction
Else
Fori=2Ton改为Fori=2Ton+1
ss=ss*i
'
Sum=x^（i-1）/ss改为Sum=sum+x^（i-1）/ss
Nexti
EndFunction
题目:
编程将一个数从已经有序（设从小到大排序）的数组
中删除，使数组还继续保持有序而且其余元素按照下
标连续存放。
DimA（）AsInteger,NAsInteger,FlagAsInteger
DimiAsInteger,XAsInteger,PAsInteger
Flag=0
N=InputBox（"
输入元素个数"
'
DimA（N）改为ReDimA（N）
Fori=1ToN
A（i）=InputBox（"
输入数组的第"
&
i&
"
个元素"
Nexti
Print"
删除某元素前的数组"
PrintA（i）;
Start:
X=InputBox（"
输入要删除的元素：
IfX=A（i）ThenP=i:
Flag=1
IfFlag=0ThenMsgBox（"
没有此元素"
）:
GoToStart
Fori=PToN-1
A（i+1）=A（i）改为A（i）=A（i+1）
N=N+1改为N=N-1
删除元素后的数组:
-------------------------------------------------
【程序设计】
（事件）单击窗体。
（响应）输出一个如图所示的由数字组成的倒三角形
请将结果存入变量S中（要求利用msgbox函数
显示结果，使用for...next语句完成程序）
请在指定的事件内编写代码。
DimsAsString
*****************Program**************
Dimi%,j%,w$
w="
Fori=10To1Step-1
Forj=0Toi-1
w=w&
CStr（j）
Next
vbCrLf
Next
MsgBoxw
s=w
'
***************End*************************
CallYZJ（s）
PrivateSubYZJ（iAsString）
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&
\out.txt"
ForOutputAs#OUT
Print#OUT,i
Close#OUT
（响应）求100到500之间奇数的和，将结果输出
在窗体上并存入变量SUM中。
使用do...loopuntil语句完成程序
DimsumAsLong
CallYZJ（sum）
PrivateSubYZJ（iAsLong）
EndSubOptionExplicit
-------------------------------------------------------
【程序填空】
下面的程序用于求三个数中最大数
请在【?
】处填入正确的内容
PrivateSubCommand1_Click（）
Dima,b,c,max,minAsInteger
a=Val（InputBox（"
请输入第一个数：
"
b=Val（InputBox（"
请输入第二个数：
"
c=Val（InputBox（"
请输入第三个数：
【?
】=a
min=a
'
Ifb>
maxThen【?
】
Ifb<
minThenmin=b
'
If【?
】Thenmax=c
Ifc<
minThenmin=c
Print"
最大数为：
;
max
最小数为：
min
EndSub
下面过程max（）用于求3个数中最大值，利用这个过程求5个数中最大值。
Print"
5个数34、124、68、73、352的最大值是：
max1=max（34,124,68）
max1=【?
Printmax1
PublicFunctionmax（ByVala%,ByValb%,ByValc%）
If【?
】Then
m=a
Else
m=b
EndIf
If【?
max=m
max=c
本程序执行功能为，输入系列字符串，按递减次序排列。
（1）在文本框输入字符串，按回车键后存放到数组a（）中；
（2）单击"
排序"
按钮（Command1）时，进行递减次序排列，并在图形框控件显示。
请在【】处填入正确的内容
Dima（）AsString,nAsInteger
n=n-1
Fori=0Ton-1
imin=i
Forj=【?
】Ton
Ifa（imin）【?
】Thenimin=j
Nextj
t=a（i）
【?
a（imin）=t
Fori=0Ton
Me.Picture1.Printa（i）
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
ReDim【?
a（n）=【?
Text1.Text="
n=n+1
下列程序进行-n阶乘运算，当阶乘的值超过-21147483648
溢出报错，并将结果输出为-1。
不可增加或删除程序行，也不可以更改程序结
构
PrivateFunctionjc（ByValnAsInteger）AsInteger
DimIAsInteger
DimresultAsLong
result=1
I=1
DoWhileI<
=n
Ifresult<
2114748348/IThen
result=result
I=I+1
Else
lblerr.Caption="
溢出"
jc=-I
ExitFunction
EndIf
Loop
jc=result
MsgBoxjc（3）
给定三角形的三条边，计算三角形的面积。
要求
程序首先判断给定的三条边能否构成三角形。
DimaAsSingle,bAsSingle,cAsSingle
DimsAsSingle,tAsSingle
start:
a=InputBox（"
输入1边长：
b=InputBox（"
输入2边长：
c=InputBox（"
输入3边长：
Ifa+b<
cOrb+c<
aThen
MsgBox（"
不能构成三角形，请重新输入个边"
GoTostart
t=（a+b）/2
s=Sqr（（t-a）*（t-b）*（t-c））
该三角形的面积：
s
下面函数的功能是：
求变量s（s=a+aa+aaa+aaaa+……）
的值。
其中，a是一个0-9的数字，总共累加a项。
列如，
当a=3时,s=3+33+333（共累加3项）。
PublicFunctionCalc（aAsInteger）
DimsAsLong
DimtAsLong
DimiAsInteger
s=a
t=1
Fori=2Toa
t=t+a
s=s+t
Calc=s
i=InputBox（"
请输入数字（0-9）:
Calc（i）
：
编写函数fun其功能是:
判断一个整数w的各位
数字平方之和能否被5整除,可以被5整除则返
回1,否则返回0
PrivateFunctionfun（wAsInteger）AsBoolean
**********Program*********
升级会员 