《江苏05秋笔试及答案》由会员分享，可在线阅读，更多相关《江苏05秋笔试及答案（12页珍藏版）》请在装配图网上搜索。
1、江苏05秋笔试及答案第二部分 VB程序设计 一、 选择题 21以下所列的8个控件中，具有Caption属性的有 个。 CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文件夹列表框）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条） A5 B4 C3 D2 22执行下面语句后，Len函数值最大的是 。 Dim IA As Integer, B As Single, S As String *5, Ch As String IA=32767 : B=23.5 : S=”A” :Ch=”abcd” ALe
2、n(IA) BLen(B) CLen(S) DLen(Ch) 23假设变量Lng为长整形变量，下面不能正常执行的语句是 。 A Lng=16384*2 BLng=4*0.5*16384 CLng=1902 D32768*2 24数学表达式对应的正确Visual Basic表达式为 。 A-b+Sqr(b*b-4*a*c)/2*a B-b+Sqr(b*b-4*a*c)/(2*a) C(-b+Sqr(b*b-4*a*c)/(2*a) D(-b+Sqr(b*b-4*a*c)/ 2*a 25设Mys1,Mys2均为字符串型变量，Mys1=”Visual Basic”,Mys2=”b”,则下面关系表达式
3、中结果为的是 。 ALen(Mys1)2*InStr(Mys1,”1”) BMod(Mys1,8,1)Mys2 CChr(98)&Right(Mys1,4)=”Basic” DInStr(Left(Mys1,6),”a”)+60Sqi(I) then _ _idx=idx+1_ _ _ redim preserve A(idx) a(idx)=I end if 8将20个棋子围成一圈，按顺时针方向从1-20给棋子编号，从中取出棋子的规则是：从某编号棋子开始取出第1个棋子，然后按顺时针方向围绕周数棋子，从1数到2取第2个，再从1数到3取第3个，再从1数到4取第4个直到取完。本程序的功能就是找出依
4、照上述规则取棋子的编号序列，使得最后一个被取棋子的编号为指定的编号。例如：若指定最后取棋子的编号为9，则必须从编号为17的棋子开始取第一个棋子，取棋子的顺序是：17，19，2，6，11，18。完善程序，实现以上功能。 Option base 1 Private sub command1_click() Dim a(20) as integer,I as integer,k as integer Dim n as integer,number as integer,s as string Number=val(text2) For k=1 to 20 For I=1 to20 A(i)=1 Ne
5、xt I S=_left(cstr(k) & “-”,3) Call sub1(a,k,n,s) If n=number then Text1=s Exit for End if Next k End sub Private sub sub1(a() as integer,byval idx as integer,n as integer,s as string) Dim I as integer,js as integer,sum as integer Dim ub as integer,step as integer _ub=ubound(A)_ js=1:stemp=1 a(idx)=0
6、 do while js20 step=step+1 _sum=0_ do while sumub then _idx =idx mod ub_ sum=sum+a(idx) loop a(idx)=0 s=s & left(cstr(idx) & “ ”,3) _js=js+1_ if js mod 10=0 then s=s & vbcrlf loop n=idx end sub 9C盘根目录下的数据文件data.txt中有两组数据，第一组数据未排序，并以-1表示该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是，单击“读入数据”按钮，将文件中的两组数据，分别读入到A、B数组中，
7、单击“插入排序”按钮，则把A数组的元素按其大小依次插入到B数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。 Dim a() as integer, b() as integer Private sub command1_click() Dim I as integer,j as integer,n as integer, s as string _ open “c:data.txt” for input as #11_ do input #11,n if n=-1 then exit do I=I+1 Redim preserve a(i) A(i)=n S=s &
8、str(a(i) Loop Text1=s S=” _Do while not eof(1)_ j=j+1 redim preserve b(j) input #11,b(j) s=s & str(b(j) loop text2=s close 11 end sub private sub command2_click() dim I as integer, j as integer, s as string for I=1 to ubound(a) if a(i)b(ubound(b) then _redim preserve b(ubound(b)+1)_ b(ubound(b)=a(i)
9、 else for j=2 to bound(b) if(a(i)b(j-1) and a(i)=b(j) then call change(a(i),j) next j end if next I for I=1 to ubound(b) s=s & str(b(i) next I text3=s end sub private sub change( n as integer,k as integer) dim I as integer redim preserve b(ubound(b)+1) for I=ubound(b) to k+1 step 1 _b(I)=b(I-1)_ next I _b(k)=n_ end sub
江苏05秋笔试及答案
