VB基础模拟演练选考题有答案

1、VB基础模拟演练选考题(有答案)2 / 7B组选考题组1.如下图所示，该流程图所表示的算法违背了算法的有穷性特征，下列修改方法 中,可以改正该 错误的是()A. 将处改为i J0B. 将处改为s>0?C. 将处改为i Ji-2D. 将处改为ss-i2.有一数列 1,2,3,5,8,13,在该数列中第一个超过1000的数是第几项。解决 此问题的部分算法流程图如图所示 图中空白处理框和处应填入的 是(A.C.B.D.10 个1,99,从第3项起,每项等于它相邻的前2项之和。求中的整数,依次存储到数组变量a(1)a(10)3.随机产生功能的部分算法流程图如图所示，图中空白处理框和处应填入的是A

2、. .B. C. D. -中。实现此( )4.在Visual Basic 窗体中，当前对象的属性窗口如下图所示，下列说法正确的是 ( )VB基础模拟演练选考题（有答案）5 / 7A. 该对象属于标签类B. 该对象属于文本框类C. 当前该对象的Caption属性值是“转换”D. 当前该对象的Font属性值是“仿 宋体”foam活 I按手帘序I砂搓序IFtli«CaustsValidf Tf© 曹DtftaiDi£«l>ltdPicl QTqm)DmiPi etareEa»led.险litDr tpldd*DfleIcoilF*kt(Mme)

3、5.（2015浙江学考导引）小李在设计VB程序时所使用复选框对象的属性窗口如图所示,他想编制该复选框单击事件的处理过程，则该事件处理过程名是（）A. CheckBox_Click()B. 加粗 _Click()C. Check1_Click()D. 复选框 _Click()tThfl-rh： Chiif'kBfia'片密摩苗対却Flti. n0 - Idift Ji 匡1 - 3® NWUJOUI tenJkli |p*aiit Afif * tact BfeeMCCblMTC*uJmtSht oFi si 4 II斤量就6. 一个VB工程的部分设计界面如图所示。下列

4、说法不正确的是（）«1工程文件名是“工程1.vbp ”窗体文件名是“ Form.frm ”A.B.该工程只有窗体名称是C. D.1个窗体“寻找水仙花数”7.（2016杭州二中第一学期期末）VB语句List1.addltem d（i）的作用是把数组d的数据添加到列表框对象List1中。该语句中的“ addItem”是（）A.属性名 B.属性值C.方法 D.事件8.运行如下Visual Basic程序,单击命令按钮Comma nd出现如图所示的出错信 息。Private Sub Comma nd1_Click()Dim a As In teger,b As In teger a=10&#

5、39;b=20'Text1.Text= “ a+b=” +Val a+bEnd Sub'发生“类型不匹配”错误时所执行的语句是（）A.B.C.D. 9.(2016嘉兴3月选考模拟)如图所示程序段中,a(5)不是数组元素的是(A. B. C. D. Private Sub CouandlCllltO Dll a (5) ft" Integer DI* 1 As Integera(5) - a(5) + a(l)NextjTntl.Teil = Str (a (9)End Sub10. （2015 宁波期末）编写 Visual Basic 程序,求 n!（说明:n !=1

6、 x 2X 3x-x n 。（1）这个程序主要采用的算法结构是 分支结构顺序结构 循 环结构）。 程序运行,在Text1中无论输入什么数,发现在Text2中输出的都是0,原Private Sub Comma nd1 Click()Dim m As IntegerDim n As In tegerDim i As In tegerm=Val(Text1.Text)n=0For i=1 To mn=n * iNextext2.Text=Str( n)End Sub因：n的初值是0应该如何修改程序孑把n=0改为n=1。（3）上述错误修改成功后，程序运行时，在Text1中输入5,按“计算”按钮，则在

7、Text2中输出120,如下图左所示：VB基础模拟演练选考题(有答案)但是当输入10的时候,则跳出一个实时错误，提示“溢出”，如上右图所示。产生 该错误的原因是：n的值超出了定义的范围，为了能计算出10的阶乘,应该怎么修改程序?® 将 Dim n As Integer改为Dim n Aslong11. （2015浙江9月学考+ 选考模拟加试题）有如下VB程序:Dim i As In tegerj As In teger,k As Stri ng,n As In tegern=3List1.ClearFor i=1 To nk= “”For j=1 To ik=k+ “”Next jL

8、ist1. AddItem kNext i该程序运行后,在列表框List1中显示的是(A )# 葺# Mr #4*吿鼻号# < « 4 « « »# 4 »A11D12. (2016台温丽衢第一学期期末)【加试题】编写VB程序,功能如下:在文本框 Text1里输入数学表达式(表达式的长度<=100),在列表框List1里输出所有配对 括号在表达式中的位置。如在文本框 Text1里输入“ 12 3 - 1+2 3 ” ,运行效 果如图所示。实现上述功能的 VB代码如下,在划线的地方填入合适代码，完善程 序。Private Sub Co

9、mma nd1_Click()Dim s As Stri ngDim a(1 To 100)As In tegerDim i As In teger,top As In teger s=Text1.Texti=1top=0Do While i<=Le n(s)If Mid s,i,1 =“” Thentop=top+1End IfIf Mid s,i,1 =“” ThenList1.AddltemStr a top +“” +Str iEnd IfLoopEnd Sub程序中划线处应填入 a(top)=i。程序中戈卩线处应填入 top=top-1。程序中划线处应填入i=i+1。TextL

10、istlCoimmndlList?13. (2016台州六校第一学期期末选考科目联考)【加试题】编写VB程序,实现如 下功能：在文本框Text1中输入筛选关键词“ ca” ,单击“筛选”按钮Command1, 在列表框List1所列字符串中查找左边与“ ca”相匹配的字符串，并在列表框 List2中输出(运行效果如图所示);否则,在列表框List2中显示“无筛选结果”。实现上述功能的VB代码如下，但加框处代码有错，请改正。Dim a(1 To 20)As String'用于存储20个字符串20个字符串分别保存赋值给数组元素 a(1)、a(2)、a(3)、a、a(19)、 a(20),并

11、在列表框List1中显示Private Sub Form_Load()'代码略一End SubPrivate Sub Comma nd1_Click()Dim s As String,n As Integer,i As IntegerDim flag As Boolean'变量flag用于标记是否在数组a中筛选到左边与s匹配的字符串8 / 7VB基础模拟演练选考题（有答案）List2.Clear筛选时清空上次筛选结果s=Text1.Textn=Le n(s) flag=False For i=1 To 20If Mid(a(i),1,i)=s Then |' (1) |

12、Mid(a(i),1,n)=sList2.Addltem a(i)flag=TrueEnd IfNext iIf flag=False ThenList2.AddItem a(20)<(2) List2.Addltem“无筛选结果”End IfEnd Sub14. （2015浙江9月学考+ 选考模拟加试题）用VB编写一个字符串分行程序,功能 如下：单击“分行”按钮Command1将文本框Textl中的英文文本在列表框Listl 中分行显示（分行时单词不得跨行，每行字符尽可能多但不超过40个）,并在标签Labell中输出总行数，运行效果如图所示。分行算法如下：（1）将文本框中的字符串保存到

13、变量s中；当s中字符个数超过40时，循环执行下列、步，否则跳转到（3）: 如果第41个字符不是英文字母，则分行位置p=40;否则,向左逐个查找，直至找 到第一个非英文字母，将其位置作为分行位置p； 截取s的前p个字符，作为新增行显示在列表框List1中,同时总行数加1; 将s中未分行部分重新赋值给变量s。将s作为新增行显示在列表框List1中,同时总行数加1TextlCoHmandlLisilLabell实现上述功能的VB程序如下，请在划线处填入合适代码Private Sub Comma nd1_Click()Dim s As Stri ng,c As Stri ngDim r As In teger,total As In teger,p As In teger total=0s=® _Text1.Text Do While Len (s)>40r=41c=Mid(s,r,1)If Not c>=“a” And c<= “z” Or c>= “A” And c<= “Z” Then p=40Else'从第41个字符开始向左找到第1个非英文字母，并将其位置值赋给pDo While c>= “