BB平台VB程序匹配题Word格式文档下载.docx
《BB平台VB程序匹配题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《BB平台VB程序匹配题Word格式文档下载.docx(130页珍藏版)》请在冰豆网上搜索。
![BB平台VB程序匹配题Word格式文档下载.docx](https://file1.bdocx.com/fileroot1/2022-10/29/4c373d3b-849b-44fa-b2be-c1dd9d192ab3/4c373d3b-849b-44fa-b2be-c1dd9d192ab31.gif)
(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