BB平台VB程序匹配题

《BB平台VB程序匹配题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、问题32.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          

2、        (4)                             (5)             EndIf Nexti Fori=1To26     PrintChr(96+i);"----";c(i) NextiEndSub(1)1.n=Len(s)(2)(3)(4)(5)2.c(k)=c(k)+13.k=Asc(xs)–964.s=InputBox("s=")5.xs=Mid(s,i,1)  问题42.25分 保存  单击窗体，产生20个从1到600之间的随机整数，并以每行5个把数据显示在窗体上，并在窗体上显示20个数据中的所有偶数之和。PrivateSubForm_

3、Click()             (1)           s=0 Fori=1To20   Randomize                (2)               Printx;                 (3)               If          (4)        Thens=s+x   Nexti             (5)        EndSub(1)(2)(3)(4)1.Ifimod5=0ThenPrint2.DimiAsInteger,xAsInteger,sasLong3.Print"s=";s4.xMod2=05.x

4、=Int(600*Rnd+1)(5)  问题52.25分 保存  实现文本框的复制、剪切、粘贴、删除功能PrivateSubCommand1_Click()         (1)         Clipboard.SetTextText1.SelTextEndSubPrivateSubCommand2_Click()Clipboard.Clear         (2)                  (3)        EndSubPrivateSubCommand3_Click()         (4)        EndSubPrivateSubCommand4_Cli

5、ck()         (5)        EndSub(1)(2)(3)1.Text1.SelText=""2.Text1.SelText=""3.Text1.SelText=Clipboard.GetText4.Clipboard.Clear5.Clipboard.SetText(4)(5)Text1.SelText  问题62.25分 保存  调用VB的RND和INT函数，在当前工作表的A列的1—10行输入序号1—10，B列的1—10行填入0—1之间的随机数，C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（调用EXCEL的内部MAX函数）。Subrandom

6、()   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"&i2.Range(c)=i3.

7、Range("C11")=Application.WorksheetFunction.Max(Range("C1:C10"))4.Range(c)=Int(Rnd*90)+105. c="A"&i  问题72.25分 保存  编制Form_Click过程，用近似公式求自然对数的底数e的值，直到末项小于10-4为止，结果显示在窗体上。PrivateSubForm_Click()  DimsAsSingle,xAsSingle,aAsS