计算机二级考试VB一般程序设计习题.docx
- 文档编号:10653562
- 上传时间:2023-05-26
- 格式:DOCX
- 页数:16
- 大小:18.11KB
计算机二级考试VB一般程序设计习题.docx
《计算机二级考试VB一般程序设计习题.docx》由会员分享,可在线阅读,更多相关《计算机二级考试VB一般程序设计习题.docx(16页珍藏版)》请在冰点文库上搜索。
计算机二级考试VB一般程序设计习题
计算机二级考试VB一般程序设计习题
〖第1题〗:
(事件)单击窗体。
(响应)求100以内偶数的和,并将结果输出在窗体上。
将结果存入变量SUM中
答案:
DimiAsInteger
Fori=1To100
IfiMod2=0Then
sum=sum+i
EndIf
Next
Printsum
〖第2题〗:
(事件)双击窗体。
(响应)求s=1+1×2+1×2×3+…+1×2×3×…×10,
并将结果存到变量S中
答案:
Dimi,jAsInteger
DimkAsLong
k=1
s=0
Fori=1To10
Forj=1Toi
k=k*j
Next
s=s+k
k=1
Next
Print(CStr(s))
〖第3题〗:
(事件)单击窗体。
'(响应)求1+2+3+……+100的值,并把结果输出在窗体上。
'结果存入变量SUM中。
'答案:
DimiAsInteger
Fori=1To100
sum=sum+i
Next
Printsum
'〖第4题〗:
判断一个数是否是素数。
'答案:
DimiAsInteger
Prime=True
Fori=2ToInt(Sqr(m))
IfmModi=0ThenPrime=False:
ExitFor
Nexti
'〖第5题〗:
(事件)单击窗体。
'(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。
'将结果存入变量J中。
DimiAsInteger
Fori=1To100
IfiMod2=1Then
j=j+1/i
ElseIfiMod2=0Then
j=j-1/i
EndIf
Next
Printj
''〖第6题〗:
(事件)单击窗体。
'(响应)求200~300之间既能被3整除又能被7整除的数。
'并求出所有数之和存入变量SUM中
'答案:
DimiAsInteger
Fori=201To300
If((iMod3)=0)And((iMod7)=0)Then
Print(CStr(i))
sum=sum+i
EndIf
Next
Printsum
'〖第7题〗:
(事件)单击窗体。
'(响应)求数列1+3+3+9+27+……前6项的和,并将
'结果输出到窗体上。
将结果存入变量SUM中。
'答案:
DimiAsInteger
Dimj(1To6)AsInteger
Fori=1To6
Ifi<3Then
j(i)=3^(i-1)
Else
j(i)=j(i-1)*j(i-2)
EndIf
sum=sum+j(i)
Next
Printsum
'〖第8题〗:
(事件)单击窗体。
'(响应)求10!
的值,并将结果输出到窗体上。
'将结果存入变量SUM中。
'答案:
DimiAsInteger
sum=1
Fori=1To10
sum=sum*i
Next
Printsum
'〖第9题〗:
(事件)双击窗体。
'(响应)求出100~200之间,能被5整除,但不能被3
'整除的数。
并求所有数之和,存入变量中
'SUM中。
'答案:
DimiAsInteger
Fori=100To200
If((iMod5)=0)And((iMod3)<>0)Then
Print(CStr(i))
sum=sum+i
EndIf
Next
'〖第10题〗:
(事件)双击窗体。
'(响应)把一元钞票换成一分、二分和五分的硬币
'(每种至少有一枚),求出其所有的换法,
'把结果输出在窗体上。
'将所有的换法的数目存入变量N中
答案:
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
'〖第11题〗:
求两个数m,n的最大公约数p和最小公倍数q
'答案:
nm=n*m
Ifm m=n: n=t r=mModn DoWhile(r<>0) m=n n=r r=mModn Loop p=n q=nm/n '〖第12题〗: (事件)双击窗体。 '(响应)s=20+21+22+…+263,求s的值,并将结果 '存储到变量S中。 答案: DimiAsInteger i=20 Whilei<=263 s=s+i i=i+1 Wend Print(CStr(s)) '〖第13题〗: (事件)双击窗体。 '(响应)求3+6+9+12+15+18+……+300的和,并将结 '果输出到窗体上。 将结果存入变量SUM中。 '答案: DimiAsInteger Fori=3To300 IfiMod3=0Then sum=sum+i EndIf Next Printsum '〖第14题〗: (事件)双击窗体。 '(响应)编写代码功能如(图1)。 '将结果存入变量S中' '答案: DimiAsInteger s=1 Fori=1To10 s=s*i*i Next Print(CStr(s)) '〖第15题〗: (事件)双击窗体。 '(响应)求1+5+10+15+……+500的和,并将结果输 '出到窗体上。 将结果存入变量SUM中。 答案: DimiAsInteger Fori=1To500 IfiMod5=0Then sum=sum+i EndIf Next Printsum '〖第16题〗: (事件)单击窗体。 '(响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果, '并将结果输出到窗体上。 '将结果存入变量M中 '答案: Dimi,jAsInteger DimsAsLong Fori=10To15 s=1 Forj=iToi+2 s=s*j Next m=m+s Next Print(CStr(m)) '〖第17题〗: (事件)双击窗体。 '(响应)求出50以内所有奇数的和。 '将结果存入变量SUM中 答案: DimiAsInteger Fori=1To50 IfiMod2=1Then sum=sum+i EndIf Next Printsum '〖第18题〗: 用迭代法求某个数的平方根。 已知求平方根的迭代公式如图: '算法思想: 对于一个问题的求解x,可由给定的一个初值x0,根据某一 '迭代公式得到一个新的值x1,这个新值x1比初值x0更接近要求的值x; '再以新值作为初值,即: x1→x0,重新按原来的方法求x1,重复这一过和 '直到|x1-x0|<_(某一给定的精度)。 此时可将x1作为问题的解。 '答案: Dimx0AsSingle,x1AsSingle x0=a/2'迭代初值 x1=0.5*(x0+a/x0) Do x0=x1'为下一次迭代作准备 x1=0.5*(x0+a/x0) LoopWhileAbs(x1-x0)>0.00001 Fsqrt=x1 '〖第19题〗: (事件)单击窗体。 '(响应)求10~20之间所有素数的乘积并输出在窗体上。 '将结果存入变量L中。 答案: DimiAsInteger DimjAsInteger DimbAsBoolean 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) 〖第20题〗: 编写函数fun其功能是: 能计算从1开始到n的 '自然数中偶数的平方的和,n由键盘输入, '(n是偶数) '答案: DimsumAsInteger,iAsInteger sum=0 Fori=2TonStep2 sum=sum+i*i Next fun=sum '〖第21题〗: (事件)单击窗体。 '(响应)求出1000-9999之间具有如下特点的四位数字, '它的平方根 '恰好就是它中间的两位数字,例如,2500开 '平方为50,恰为2500的中间两位,找出所有 '这样的四位数。 '并求出所有这样的数的和存入SUM中 '答案: DimiAsInteger DimjAsInteger Fori=1000To9999 j=Val(Mid(Trim(Str(i)),2,2)) Ifj^2=iThen Printi, sum=sum+i EndIf Next '〖第22题〗: (事件)双击窗体。 '(响应)求100以内奇数的和,并将结果输出在窗体上。 '将结果存入变量SUM中 答案: DimiAsInteger Fori=1To100 IfiMod2=1Then sum=sum+i EndIf Next Printsum 〖第23题〗: (事件)单击窗体。 '(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8… '的前10项,并求其和。 '答案: Dimi,j,k,mAsInteger s=0 i=2 j=1 Fork=1To10 m=j Print(CStr(i))&"/"&CStr(j) j=i i=i+m s=s+i/j Next '〖第24题〗: (事件)双击窗体。 '(响应)写程序解决百钱买百鸡问题: 公鸡3元1只, '母鸡5元1只,小鸡一元3只,怎样用100元买 '100只鸡。 把结果输出到窗体上。 '将答案数存放在变量N中 '答案: Dimi,j,kAsInteger Fori=1To20'母鸡 Forj=1To33'公鸡 Fork=3To100'小鸡 If((kMod3)=0)And((i*5+j*3+k/3)=100)And((i+j+k)=100)Then Print(CStr(i)) Print(CStr(j)) Print(CStr(k)) n=n+1 EndIf Next Next Next '〖第25题〗: (事件)单击窗体。 '(响应)一球从100米高度自由落下,每次落地返回 '原高度的一半,求第10次落地时,共经过多 '少米? 并将结果在窗体上输出。 '答案: Dimj,iAsInteger s=0 j=100 Fori=2To10 j=j/2 s=s+2*j Next s=100+s Print(CStr(s)) '〖第26题〗: (事件)单击窗体。 '(响应)在窗体上输出100~200之间的所有合数。 '求出所有数之和存入SUM中 ''答案: Dimi,j,sAsInteger Fori=100To200 Forj=2ToSqr(i) If(iModj)=0Then Print(CStr(i)) sum=sum+i ExitFor EndIf Next Next Printsum '〖第27题〗: (事件)单击窗体。 '(响应)求50以内所有偶数的和,并在窗体上输出出来。 '将结果存入变量S中。 '答案: DimiAsInteger Fori=2To50 If(iMod2)=0Then s=s+i EndIf Next Print(CStr(s)) '〖第28题〗: (事件)单击窗体。 '(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100, '结果输出在窗体上。 '答案: DimiAsInteger s=0 Fori=1To10 s=s+1/(i^i) Next Print(s) ''〖第29题〗: (事件)单击窗体。 '(响应)编写代码功能如(图1)。 '将结果存入变量S中 答案: DimiAsInteger Fori=1To10 s=s+i*i Next Print(CStr(s)) '〖第30题〗: (事件)单击窗体。 '(响应)求1! +2! +3! +……+10! 的值,并在窗体上输出。 '结果存入变量L中。 '答案: DimiAsInteger DimsAsLong DimjAsInteger s=1 Fori=1To10 s=s*i l=l+s Next PrintStr(l) '〖第31题〗: 将一张面值为100元的人民币等值换成100张5元、 '1元和0.5元的零钞,要求每种零钞不少于1张, '问有哪几种组合? 将组合数存入变量OUT中。 答案: DimnAsInteger Dimi%,j%,k% Print"5? 1? 0.5? " Fori=1To20 Forj=1To100-i k=100-i-j If5#*i+1#*j+0.5*k=100Then Printi,j,k n=n+1 EndIf Nextj Nexti out=n '〖第32题〗: (事件)双击窗体。 '(响应)求1! +2! +3! +4! +5! 并将结果输出到窗体上。 '结果存入变量S中 答案: Dimi,j,k,sAsInteger Fori=1To5 k=1 Forj=1Toi k=k*j Next s=s+k Next Print(CStr(s)) '〖第33题〗: (事件)单击窗体。 '(响应)求出100以内所有素数的和,并将结果输出 '到窗体上,并存入所给变量SUM中。 '答案: DimiAsInteger DimjAsInteger DimkAsInteger DimbAsBoolean b=False Fori=2To100 b=False j=CInt(Sqr(i)) Fork=2Toj IfiModk=0Then b=True EndIf Next Ifb=FalseThen sum=sum+i EndIf Next Printsum ----------------------
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 考试 VB 一般 程序设计 习题