VB程序设计考试题库 考试专用.docx
- 文档编号:4475787
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:16
- 大小:18.25KB
VB程序设计考试题库 考试专用.docx
《VB程序设计考试题库 考试专用.docx》由会员分享,可在线阅读,更多相关《VB程序设计考试题库 考试专用.docx(16页珍藏版)》请在冰豆网上搜索。
VB程序设计考试题库考试专用
程序设计题
1、题目:
(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零",并根据输入的数用消息框显示"正数"、"负数”或"零"。
2、题目:
(事件)单击窗体。
(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中
3、题目:
单击窗体。
(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。
4、题目:
(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和,将和保存在变量s中。
5、题目:
(事件)双击窗体。
(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚),求出其所有的换法,把结果输出在窗体上。
将所有的换法的数目存入变量N中
6、题目:
单击窗体。
)求1!
+2!
+3!
+4!
+5!
并将结果输出到窗体上。
结果存入变量S中
7、题目:
(事件)单击窗体。
(响应)生成一个一维数组(10个数组元素依此为:
'15、23、72、43、96、23、3、65、88、17
写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。
将最大值,最小值,平均值分别存入变量Max,Min,Aver中
8、题目:
(事件)单击窗体。
(响应)在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。
9、题目:
(事件)单击窗体。
(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中。
10、题目:
(事件)单击窗体。
(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。
将结果存入变量J中。
1题
n=InputBox("输入一个自然数")
Ifn>0Then
result="正数"
ElseIfn<0Then
result="负数"
ElseIfn=0Then
result="零"
EndIf
MsgBox"输入的数据"&n&"为:
"&result
2题
DimiAsInteger
Fori=201To300
If((iMod3)=0)And((iMod7)=0)Then
Print(CStr(i))
sum=sum+i
EndIf
Next
Printsum
3题
DimiAsInteger
s=0
Fori=1To10
s=s+1/(i^i)
Next
Print(s)
4题
Dimi,j,k,mAsInteger
s=0:
i=2:
j=1
Fork=1To10
s=s+i/j
m=j
Print(CStr(i))&"/"&CStr(j)
j=i
i=i+m
Next
5题
Dimi,j,kAsInteger
Fori=1To100
Forj=1To50
Fork=1To20
If((i+2*j+k*5)=100)Then
Print(CStr(i))
Print(CStr(j))
Print(CStr(k))
n=n+1
EndIf
Next
Next
Next
6题
Dimi,j,kAsInteger
Fori=1To5
k=1
Forj=1Toi
k=k*j
Next
s=s+k
Next
Print(CStr(s))
7题
Dima(9)AsInteger
Dimi,sAsInteger
a(0)=15:
a
(1)=23:
a
(2)=72
a(3)=43:
a(4)=96:
a(5)=23
a(6)=3:
a(7)=65:
a(8)=88
a(9)=17:
max=a(0):
min=a(0)
s=0
Fori=0To9
Ifa(i)>maxThen
max=a(i)
EndIf
Ifa(i) min=a(i) EndIf s=s+a(i) Next aver=Int(s/10) Print(CStr(max)) Print(CStr(min)) Print(CStr(aver)) 8题 Dimi,j,sAsInteger Fori=100To200 Forj=2ToSqr(i) If(iModj)=0Then Print(CStr(i)) sum=sum+i ExitFor EndIf Next Next Printsum 9题 Dimi%,j%,bAsBoolean l=1: b=False Fori=10To20 Forj=2Toi-2 IfiModj=0Then b=True EndIf Next Ifb=FalseThen l=l*i EndIf b=False Next PrintStr(l) 10题 DimiAsInteger Fori=1To100 IfiMod2=1Then j=j+1/i ElseIfiMod2=0Then j=j-1/i EndIf Next Printj 11、题目: (事件)单击窗体。 (响应)如果一个数的真因子之和等于这个数本身,则称这样的数为“完全数”。 例如,整数28的真因子为1、2、4、7、11,其和是28。 因此28是一个完全数。 请编写一个程序,求出500以内最大的完全数。 并存入变量SUM中。 使用for...next语句完成程序 12、题目: 应用选择法对数组A按升序排列 13、题目: 单击窗体。 求一个数,它除3余2,除5余3,除7余2,请将满足上面条件的最小数保存到sum变量中。 使用for...next语句完成程序。 14、题目: 编写函数fun,函数的功能是: 判断一个字符是字母字符、数字字符还是其他字符,并做相应的显示。 字母字符显示字符串"字母",数字字符显示字符串"数字",其他字符显示字符串"其他",要求使用IF语句来实现。 PrivateFunctionfun(nAsString)AsString '**********Program********** '**********End********** EndFunction PrivateSubForm_Load() Show Printfun("A") Printfun("9") Printfun("&") NJIT_VB EndSub PrivateSubNJIT_VB() DimiAsInteger DimlAsInteger Dima(10)AsString*1 DimfInAsInteger DimfOutAsInteger fIn=FreeFile OpenApp.Path&"\in.dat"ForInputAs#fIn fOut=FreeFile OpenApp.Path&"\out.dat"ForOutputAs#fOut Fori=1To10 LineInput#fIn,a(i) Print#fOut,fun(a(i)) Next Close#fIn Close#fOut EndSub 15、题目: 编写函数fun,函数的功能是: 根据一个百分制成绩mark(整数),显示对应五级制的评定。 条件如下: 'mark大于等于90显示"优秀" 'mark小于90且大于等于80显示"良好" 'mark小于80且大于等于70显示"中等" 'mark小于70且大于等于60显示"及格" 'mark小于60显示"不及格" '要求使用IF语句来实现。 PrivateFunctionfun(markAsInteger)AsString '**********Program********** '**********End********** EndFunction PrivateSubForm_Load() Show Printfun(90) NJIT_VB EndSub PrivateSubNJIT_VB() DimiAsInteger DimsAsString Dima(10)AsInteger DimfInAsInteger DimfOutAsInteger fIn=FreeFile OpenApp.Path&"\in.dat"ForInputAs#fIn fOut=FreeFile OpenApp.Path&"\out.dat"ForOutputAs#fOut Fori=1To10 LineInput#fIn,s a(i)=Val(s) Print#fOut,fun(a(i)) Next Close#fIn Close#fOut EndSub 16、题目: 编写函数fun,函数的功能是: 当x的初值为10,每年增长率为千分之八,计算多少年以后x的值能达到y,并显示所需年数的值(变量名必须为n)。 '要求使用DoWhile...Loop语句来实现。 PrivateFunctionfun(yAsSingle)AsLong DimxAsSingle,nAsLong '**********Program********** '**********End********** EndFunction PrivateSubForm_Load() Show Printfun(15) NJIT_VB EndSub PrivateSubNJIT_VB() DimiAsInteger Dima(10)AsString DimfInAsInteger DimfOutAsInteger fIn=FreeFile OpenApp.Path&"\in.dat"ForInputAs#fIn fOut=FreeFile OpenApp.Path&"\out.dat"ForOutputAs#fOut Fori=1To10 LineInput#fIn,a(i) Print#fOut,Trim(Str(fun(Val(a(i))))) Next Close#fIn Close#fOut EndSub 17、题目: 编写函数fun,函数的功能是: 求从m到n的乘积并显示,'如: m为2,n为4时,显示"24"'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。 PrivateFunctionfun(mAsInteger,nAsInteger)AsLong DimProductAsDouble,tAsInteger Ifm>nThent=m: m=n: n=t '**********Program********** '**********End********** EndFunction PrivateSubForm_Load() Show Printfun(4,2) NJIT_VB EndSub PrivateSubNJIT_VB() DimiAsInteger Dima(10)AsString DimfInAsInteger DimfOutAsInteger fIn=FreeFile OpenApp.Path&"\in.dat"ForInputAs#fIn fOut=FreeFile OpenApp.Path&"\out.dat"ForOutputAs#fOut Fori=1To10Step2 LineInput#fIn,a(i) LineInput#fIn,a(i+1) Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1))))) Next Close#fIn Close#fOut EndSub 18、题目: 编写函数fun,函数的功能是: 判断一个数是否为素数。 并显示相应提示。 如: 该数为素数时,显示"素数";该数为非素数时,显示"非素数"'要求使用For语句来实现,用布尔型变量flag作为该数是否为素数的标志,注意: 不得使用Goto语句。 PrivateFunctionfun(mAsLong)AsString DimflagAsBoolean '**********Program********** '**********End********** EndFunction PrivateSubForm_Load() Show Printfun(225) NJIT_VB EndSub PrivateSubNJIT_VB() DimiAsInteger Dima(10)AsString DimfInAsInteger DimfOutAsInteger fIn=FreeFile OpenApp.Path&"\in.dat"ForInputAs#fIn fOut=FreeFile OpenApp.Path&"\out.dat"ForOutputAs#fOut Fori=1To10Step1 LineInput#fIn,a(i) Print#fOut,fun(Val(a(i))) Next Close#fIn Close#fOut EndSub Next Close#fIn Close#fOut EndSub 19、题目: 编写函数fun,函数的功能是: 求1~100以内能被m整除或能被n整除的数的总和并显示。 如: 'm为15,n为11时,显示"810",'存储总和的变量必须为Sum,'要求使用For语句来实现。 PrivateFunctionfun(mAsInteger,nAsInteger)AsLong DimSumAsLong '**********Program********** '**********End********** EndFunction PrivateSubForm_Load() Show 16题x=10 n=0 DoWhilex x=x*1.008 n=n+1 Loop fun=n Printfun(15,11) 19题Sum=0 Fori=1To100 IfiModm=0OriModn=0Then Sum=Sum+i EndIf Nexti fun=Sum NJIT_VB EndSub PrivateSubNJIT_VB() DimiAsInteger 15题Ifmark>=90Then fun="优秀" ElseIfmark>=80Then fun="良好" ElseIfmark>=70Then fun="中等" ElseIfmark>=60Then fun="及格" Else fun="不及格" EndIf Dima(10)AsString 20题 Dims,iAsInteger Fori=2Ton-1 IfnModi=0Then s=s+i EndIf Next Fun=s DimfInAsInteger DimfOutAsInteger fIn=FreeFile OpenApp.Path&"\in.dat"ForInputAs#fIn fOut=FreeFile OpenApp.Path&"\out.dat"ForOutputAs#fOut Fori=1To10Step2 LineInput#fIn,a(i) LineInput#fIn,a(i+1) Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1))))) Next Close#fIn Close#fOut EndSub 20、题目: 编写函数fun,函数的功能是: 计算并输出给定整数n的所有因子之和(不包括1与自身)。 规定n的值不大于1000? 例如: n的值为855时,应输出704。 21、题目: : 编写函数fun其功能是: 判断一个整数w的各位数字平方之和能否被5整除,可以被5整除则返回1,否则返回0 22、题目: 编写函数fun其功能是: 根据整型形参m,计算如下公式的值: 'y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5) 求: 函数中用到的中间变量必须声明为Single类型。 11题 DimiAsInteger dimsasinteger Fori=500To1Step-1 s=i Forj=i-1To1Step-1 IfiModj=0Then s=s-j EndIf Nextj Ifs=0Then ExitFor EndIf Nexti Printi sum=i 12题 Dimi,j,imin,tempAsInteger Fori=1Ton-1 imin=i Forj=i+1Ton Ifa(imin)>a(j)Thenimin=j Nextj temp=a(i) a(i)=a(imin) a(imin)=temp Nexti 13题 DimiAsInteger Fori=2To1000 IfiMod3=2AndiMod5=3AndiMod7=2Then Printi ExitFor EndIf Nexti sum=i 14题IfUCase(n)>="A"AndUCase(n)<="Z"Then fun="字母" ElseIfn>="0"Andn<="9"Then fun="数字" Else fun="其他" EndIf 15题 Ifmark>=90then Fun=优秀 Elselfmark>=80then Fun=良好 Elseifmark>=70then Fun=中等 Elseifmark>=60then Fun=及格 Else Fun=不及格 16题x=10 n=0 DoWhilex x=x*1.008 n=n+1 Loop fun=n 17题Product=1 Fori=mTon Product=Product*i Nexti fun=Product 18题flag=True Fori=2Tom-1 IfmModi=0Thenflag=False Nexti IfflagThen fun="素数" Else 19题Sum=0 Fori=1To100 IfiModm=0OriModn=0Then Sum=Sum+i EndIf Nexti 20题 Dims,iAsInteger Fori=2Ton-1 IfnModi=0Then s=s+i EndIf Next 21题 DimkAsInteger,sAsInteger Do s=s+(wMod10)*(wMod10) w=Int(w/10) LoopWhilew<>0 IfsMod5=0Then k=1 Else k=0 EndIf fun=k 22题 DimyAsDouble DimiAsInteger Fori=0Tom y=y+1/(i+5) Next Fun=y
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB程序设计考试题库 考试专用 VB 程序设计 考试 题库 专用