高中信息技术《算法与程序设计》练习探究.docVIP

《算法与程序设计满分：100分??? 说明：本卷分为第一卷和第二卷两部分。第一卷为客观题，含单选题和判断题，其中单选题30小题，共45分；判断题20小题，共20分。第二卷为操作题，共3题，第1题15分，第2题10分，第3题10分，共35分。单选题1、(1.5分)下面是4位同学为解决问题编写的程序，完全正确的是()。同学1：某同学从17岁开始栽了1棵树，以后每年都比前一年多栽1棵，他要栽够100棵树，最小得多少岁？程序如下：Private Sub Command1_Click()??????Dim Age As Integer,Tree As Integer???????Do??????????Age=17??????????Age=Age+1??????????Tree=Tree+Age（Tree应该是树的累加数，这样合适吗？）????????Loop Until Tree=100????????Print Age “岁”End Sub同学2：计算S=1×2×3×4×5×6×7×8×9的值。程序如下：Private Sub Command1_Click()?????Dim S As Integer??????（S没有初始值，默认为0） For a = 1 To 10（终值设置错误）??????????S = S * a??????Next a??????Print “S=” SEnd Sub 同学3：求解方程ax+b=0。程序如下：Private Sub Command1_Click()?????Dim A As Single,B As Single?????InputBox(A=)（从键盘得到的数据赋给谁了？）?????InputBox(B=)?????X=-B/A?????Print XEnd Sub 同学4：计算S=1+(1+2)+(1+2+3)+…+(1+2+3+…+100)的值。程序如下:Private Sub Command1_Click()?????Dim i As Integer,T As Long,S As Long?????S=0:T=0??????For i=1 to 100?????????????T=T+i……n）??????????????S=S+T??????Next I???????Print S=; SEnd Sub ????A、同学1???B、同学2????C、同学3????D、同学4?? 2、(1.5分) 下面的4个VB程序段能使变量a、b、c的值全部相同的是()。程序一：a=1:b=2:c=3a=bb=cc=a程序二：a=1:b=2:c=3c=ac=bc=c程序三：a=1:b=2:c=3c=ab=c程序四：a=1:b=2:c=3c=a=b ????A、程序一????B、程序二????C、程序三????D、程序四??3、(1.5分)如果要改变窗体的标题，则需要设置的属性是()??? ?A、Caption ????B、名称????C、Font ????D、Visible ???4、(1.5分)已知数组D的1到N号元素已经赋入常数值，下面4个程序段都把这N个常数值输出，其中不能保证输出的数据是由小到大的程序段是哪个？()。程序一：for i=1 to n-1? Min=D（i）:M=i ? for j=i+1 to n??? if D(j)＜Min then Min=D(j):M=j? Next j? k=D(i):D(i)=Min:D(M)=kNext Ifor i=1 to N? print D（i）;Next i程序二：For i = 1 To n - 1? For j = n To i + 1 Step -1??? If d(j) ＜ d(j - 1) Then M = d(j): d(j) = d(j - 1): d(j - 1) = M? Next jNext ifor i=1 to N? print D(i);Next i程序三：for i=1 to n-1?for j=i+1 to n?? if D(j)＜D(i) then M=D(j):D(j)=D(i):D(i)=M? Next jNext ifor i=1 to N? print D(i);Next i程序四：For i = 1 To n - 1? For j = i+1 To n??? If d(j) ＜ d(j - 1) Then M = d(j): d(j) = d(j - 1): d(j - 1) = M? Next jNext ifor i=1