命题比赛——算法与程序设计题(新).docxVIP

算法与程序设计题 一 选择题 1、下面是某幼儿圆小朋友晨检过程的部分算法描述，则图中虚线部分应填入（ ） N Y 发绿色卡片 发红色卡片 第一题图 A ． 健康？ B. 健康？ C. 健康？ D. 健康？ 2、第一题中的算法采用的描述方法属于  （  ） A. 自然语言 B.流程图  C.伪代码  D. 计算机语言 3、第一题中，算法描述的结构属于（ A. 顺序结构 B.选择结构  ） C.循环结构  D. 树型结构 4、在  VB  窗体中有一个对象，该对象的属性窗口如图所示。下列说法中不正确的是  （ ） A ． Interval 为属性名 C.该对象的名称为 Timer1  B.1680 为属性值 D. 根据“ Timer1 Timer ”可判断窗体名为  Timer 5、已知 A.-6  i=11， j=3 ，执行 B.-5  i=int(-8.6)+i\j+15/3 mod 5 C.-1  后， i  的值是 （ D.0  ） 6、下列各赋值语句，语法错误的是（ ） A. abs(x)=5 B. number=15 C. Label1.caption=Time D.sLength=len(mystring) 7、某高校的学籍管理软件中有 2 万个学生的电子档案 （已按学籍号排序） ，假设从中取出一 条记录并与待查项进行比较所花时间为 8 毫秒，则用对分法在该系统中查找任意一位学生档 案最多花费的时间约为： （ ） A.16  万毫秒  B.8  万毫秒  C.10  毫秒  D.120  毫秒 8、下面程序模块的功能是在 128 个数中顺序查找数据 k，找到第一个就将数组元素下标记 录到变量 pos 中，并结束查找。若将语句 Exit For 去掉，其功能跟原来有什么区别（ Function search(k As Integer) As Integer Dim pos As Integer For i=1 to 128 nc=nc+1 if d(i)=k Then pos=i: Exit For Next i Search=pos End Function  ） A. 没有区别 B. 变成 C.查找将一直进行下去，不会结束  pos中记录的是找到的最后一个符合条件的数组元素下标D.变成将所有符合条件的数据都找出来并记录下来 二 程序设计题 1、有如下  Visual Basic  程序段： a = 13 b = 6 c = a\b+b c = a-c 该程序段运行后，变量  c 的值为  ____________ 2、有如下  Visual Basic  程序段： Private sub Command1_Click( ) a=10+Rnd*90 if a=10 then b=  ”大于等于  10” elseif a100 then b=  ”小于  100” End if Text1.Text=b End Sub 该程序段运行后，单击命令按钮，文本框  Text1  中显示的是  ___________。 3、下列 VB程序运行时，单击命令按钮，在文本框  Text1  中显示的内容是  __________ Text2 中显示的内容是 _________ 。 Private Sub Command1_Click() Dim a(1 To 5) As Integer Dim x AS Integer For i=1 to 5 a(i)=i Next i i=1 Do While x3 a(i)=a(i)*x x=x+2 i=i+1 Loop Text1.Text=Str(a(1)) Text2.text=Str(a(2)) End Sub 4、以下 Visual Basic 程序的功能 是：在文本框 Text1 中输入一个两 位数 x，将个位上的数和十位上的 数互换组合成新的两位数 y，并在 文本框 Text2 中输出新数。 Private Sub Command1_Click() Dim x As Integer, y As Integer Dim i As Integer, j As Integer x=val(text1.text) i=x \ 10 j=x mod 10 ① Text1.Text = y End Sub  ② （1）为了实现上述表达式的计算，①处应填写的是 （2）程序中②处的表达式有误，应更正为 _____  _____ _______  _______ 。  。 参考答案： 一、选择题 1  2  3  4  5  6  7  8 D  B  B  D  A  A