BB平台VB程序匹配题.docx
《BB平台VB程序匹配题.docx》由会员分享，可在线阅读，更多相关《BB平台VB程序匹配题.docx（130页珍藏版）》请在冰豆网上搜索。
BB平台VB程序匹配题
问题3
2.25分
保存
从键盘输入一段英文文章（都是小写字母），统计一下该段文章中26个英文字母的使用情况。
PrivateSubForm_Click（）
Dimc（1To26）AsInteger
DimnAsInteger,kAsInteger
DimsAsString,xsAsString
Fori=1To26
c（i）=0
Nexti
（1）
（2）
Fori=1Ton
（3）
Ifxs>="a"Andxs<="z"Then
（4）
（5）
EndIf
Nexti
Fori=1To26
PrintChr（96+i）;"----";c（i）
Nexti
EndSub
（1）
（2）
（3）
（4）
（5）
1.
n=Len（s）
2.
c（k）=c（k）+1
3.
k=Asc（xs）–96
4.
s=InputBox（"s="）
5.
xs=Mid（s,i,1）
问题4
2.25分
保存
单击窗体，产生20个从1到600之间的随机整数，并以每行5个把数据显示在窗体上，并在窗体上显示20个数据中的所有偶数之和。
PrivateSubForm_Click（）
（1）
s=0
Fori=1To20
Randomize
（2）
Printx;
（3）
If （4） Thens=s+x
Nexti
（5）
EndSub
（1）
（2）
（3）
（4）
（5）
1.
Ifimod5=0ThenPrint
2.
DimiAsInteger,xAsInteger,sasLong
3.
Print"s=";s
4.
xMod2=0
5.
x=Int（600*Rnd+1）
问题5
2.25分
保存
实现文本框的复制、剪切、粘贴、删除功能
PrivateSubCommand1_Click（）
（1）
Clipboard.SetTextText1.SelText
EndSub
PrivateSubCommand2_Click（）
Clipboard.Clear
（2）
（3）
EndSub
PrivateSubCommand3_Click（）
（4）
EndSub
PrivateSubCommand4_Click（）
（5）
EndSub
（1）
（2）
（3）
（4）
（5）
1.
Text1.SelText=""
2.
Text1.SelText=""
3.
Text1.SelText=Clipboard.GetText
4.
Clipboard.Clear
5.
Clipboard.SetTextText1.SelText
问题6
2.25分
保存
调用VB的RND和INT函数，在当前工作表的A列的1—10行输入序号1—10，B列的1—10行填入0—1之间的随机数，C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（调用EXCEL的内部MAX函数）。
Subrandom（）
DimiAsInteger,cAsString
Fori=1To10
（1）
（2）
Nexti
Fori=1To10
（3）
Range（c）=Rnd
Nexti
Fori=1To10
c="C"&i
（4）
Nexti
（5）
EndSub
（1）
（2）
（3）
（4）
（5）
1.
c="B"&i
2.
Range（c）=i
3.
Range（"C11"）=Application.WorksheetFunction.Max（Range（"C1:
C10"））
4.
Range（c）=Int（Rnd*90）+10
5.
c="A"&i
问题7
2.25分
保存
编制Form_Click过程，用近似公式求自然对数的底数e的值，直到末项小于10-4为止，结果显示在窗体上。
PrivateSubForm_Click（）
DimsAsSingle,xAsSingle,aAsSingle
a=1
（1）
i=1
Do
（2）
（3）
（4）
i=i+1
Loop
（5）
EndSub
（1）
（2）
（3）
（4）
（5）
1.
Whilea>=0.0001
2.
Print"e=";s
3.
s=s+a
4.
a=a/i
5.
s=1
问题8
2.25分
保存
从键盘输入一个字符串，然后将该字符串中的每个字符按ASCII码值的大小从小到大进行重新组合输出。
如：
输入abc123XYZ，处理后应输出123XYZabc。
（难度系数**）
PrivateSubForm_Click（）
Dimc（100）AsString
DimnAsInteger
DimsAsString,ncAsString,tempAsString
s=InputBox（"s="）
（1）
Fori=1Ton
（2）
Nexti
Fori=1Ton-1
Forj=i+1Ton
（3）
（4）
c（i）=c（j）
c（j）=temp
EndIf
Nextj
Nexti
nc=""
Fori=1Ton
（5）
Nexti
Printnc
EndSub
（1）
（2）
（3）
（4）
（5）
1.
nc=nc&c（i）
2.
temp=c（i）
3.
Ifc（i）>c（j）Then
4.
n=Len（s）
5.
c（i）=Mid（s,i,1）
问题9
2.25分
保存
利用二维数组编程输出“杨辉三角形”图案，图案行数n从键盘输入。
PrivateSubForm_Click（）
Dimx（） AsInteger
DimnAsInteger
（1）
（2）
（3）
Fori=2Ton
Forj=1Toi
（4）
Nextj
Nexti
Fori=1Ton
Forj=1Toi
Printx（i,j）;
Nextj
（5）
Nexti
EndSub
（1）
（2）
（3）
（4）
（5）
1.
Print
2.
Redimx（n,n）
3.
n=InputBox（"n="）
4.
x（i,j）=x（i-1,j）+x（i-1,j-1）
5.
x（1,1）=1
问题10
2.25分
保存
随机产生100个学生的成绩（35~98之间），统计各分数段的人数。
即0~9、10~19、、20~29、30~39、40~49、50~59、60~69、70~79、80~89、90~99，并输出结果。
PrivateSubForm_Click（）
Dima（1To100）AsInteger
（1）
Fori=1To100
（2）
Nexti
Fori=0To9
升级会员 