VB程序设计考试题库 考试专用Word文档格式.docx
- 文档编号:17406049
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:16
- 大小:18.25KB
VB程序设计考试题库 考试专用Word文档格式.docx
《VB程序设计考试题库 考试专用Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB程序设计考试题库 考试专用Word文档格式.docx(16页珍藏版)》请在冰豆网上搜索。
(响应)在窗体上输出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<
负数"
ElseIfn=0Then
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题
s=0
Fori=1To10
s=s+1/(i^i)
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
5题
Dimi,j,kAsInteger
Fori=1To100
Forj=1To50
Fork=1To20
If((i+2*j+k*5)=100)Then
Print(CStr(j))
Print(CStr(k))
n=n+1
Next
6题
Fori=1To5
k=1
Forj=1Toi
k=k*j
s=s+k
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)
Fori=0To9
Ifa(i)>
maxThen
max=a(i)
Ifa(i)<
minThen
min=a(i)
s=s+a(i)
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
ExitFor
9题
Dimi%,j%,bAsBoolean
l=1:
b=False
Fori=10To20
Forj=2Toi-2
IfiModj=0Then
b=True
Ifb=FalseThen
l=l*i
b=False
PrintStr(l)
10题
Fori=1To100
IfiMod2=1Then
j=j+1/i
ElseIfiMod2=0Then
j=j-1/i
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"
9"
&
NJIT_VB
EndSub
PrivateSubNJIT_VB()
DimiAsInteger
DimlAsInteger
Dima(10)AsString*1
DimfInAsInteger
DimfOutAsInteger
fIn=FreeFile
OpenApp.Path&
\in.dat"
ForInputAs#fIn
fOut=FreeFile
\out.dat"
ForOutputAs#fOut
Fori=1To10
LineInput#fIn,a(i)
Print#fOut,fun(a(i))
Close#fIn
Close#fOut
15、题目:
根据一个百分制成绩mark(整数),显示对应五级制的评定。
条件如下:
mark大于等于90显示"
优秀"
mark小于90且大于等于80显示"
良好"
mark小于80且大于等于70显示"
中等"
mark小于70且大于等于60显示"
及格"
mark小于60显示"
不及格"
要求使用IF语句来实现。
PrivateFunctionfun(markAsInteger)AsString
Printfun(90)
DimsAsString
Dima(10)AsInteger
LineInput#fIn,s
a(i)=Val(s)
16、题目:
当x的初值为10,每年增长率为千分之八,计算多少年以后x的值能达到y,并显示所需年数的值(变量名必须为n)。
要求使用DoWhile...Loop语句来实现。
PrivateFunctionfun(yAsSingle)AsLong
DimxAsSingle,nAsLong
Printfun(15)
Dima(10)AsString
Print#fOut,Trim(Str(fun(Val(a(i)))))
17、题目:
求从m到n的乘积并显示,'
如:
m为2,n为4时,显示"
24"
存储连乘的乘积的变量必须为Product'
要求使用For语句来实现。
PrivateFunctionfun(mAsInteger,nAsInteger)AsLong
DimProductAsDouble,tAsInteger
Ifm>
nThent=m:
m=n:
n=t
Printfun(4,2)
Fori=1To10Step2
LineInput#fIn,a(i+1)
Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))
18、题目:
判断一个数是否为素数。
并显示相应提示。
该数为素数时,显示"
素数"
;
该数为非素数时,显示"
非素数"
要求使用For语句来实现,用布尔型变量flag作为该数是否为素数的标志,注意:
不得使用Goto语句。
PrivateFunctionfun(mAsLong)AsString
DimflagAsBoolean
Printfun(225)
Fori=1To10Step1
Print#fOut,fun(Val(a(i)))
19、题目:
求1~100以内能被m整除或能被n整除的数的总和并显示。
m为15,n为11时,显示"
810"
,'
存储总和的变量必须为Sum,'
DimSumAsLong
16题x=10
n=0
DoWhilex<
y
x=x*1.008
Loop
fun=n
Printfun(15,11)
19题Sum=0
IfiModm=0OriModn=0Then
Sum=Sum+i
Nexti
fun=Sum
15题Ifmark>
=90Then
fun="
ElseIfmark>
=80Then
=70Then
=60Then
Else
20题
Dims,iAsInteger
Fori=2Ton-1
IfnModi=0Then
s=s+i
Fun=s
20、题目:
计算并输出给定整数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题
dimsasinteger
Fori=500To1Step-1
s=i
Forj=i-1To1Step-1
s=s-j
Nextj
Ifs=0Then
Printi
sum=i
12题
Dimi,j,imin,tempAsInteger
Fori=1Ton-1
imin=i
Forj=i+1Ton
Ifa(imin)>
a(j)Thenimin=j
temp=a(i)
a(i)=a(imin)
a(imin)=temp
Nexti
13题
Fori=2To1000
IfiMod3=2AndiMod5=3AndiMod7=2Then
Printi
sum=i
14题IfUCase(n)>
="
AndUCase(n)<
Z"
Then
ElseIfn>
0"
Andn<
15题
Ifmark>
=90then
Fun=优秀
Elselfmark>
=80then
Fun=良好
Elseifmark>
=70then
Fun=中等
=60then
Fun=及格
Fun=不及格
17题Product=1
Fori=mTon
Product=Product*i
fun=Product
18题flag=True
Fori=2Tom-1
IfmModi=0Thenflag=False
IfflagThen
21题
DimkAsInteger,sAsInteger
Do
s=s+(wMod10)*(wMod10)
w=Int(w/10)
LoopWhilew<
>
0
IfsMod5=0Then
Else
k=0
fun=k
22题
DimyAsDouble
Fori=0Tom
y=y+1/(i+5)
Fun=y
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB程序设计考试题库 考试专用 VB 程序设计 考试 题库 专用