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