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

算法与程序设计题一 选择题1、下面是某幼儿圆小朋友晨检过程的部分算法描述，则图中虚线部分应填入（ ）N发红色卡片发绿色卡片 Y第一题图健康？健康？健康？健康？A B. C. D.2、第一题中的算法采用的描述方法属于 （ ）A.自然语言 B.流程图 C.伪代码 D.计算机语言3、第一题中，算法描述的结构属于（ ）A.顺序结构 B.选择结构 C.循环结构 D.树型结构4、在VB窗体中有一个对象，该对象的属性窗口如图所示。下列说法中不正确的是 （ ）AInterval为属性名 B.1680为属性值 C.该对象的名称为Timer1 D.根据“Timer1 Timer”可判断窗体名为Timer5、已知i=11，j=3，执行i=int(-8.6)+ij+15/3 mod 5后，i的值是 （ ）A.-6 B.-5 C.-1 D.06、下列各赋值语句，语法错误的是（ ）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 IntegerFor i=1 to 128 nc=nc+1 if d(i)=k Then pos=i: Exit ForNext i Search=posEnd Function A.没有区别 B.变成pos中记录的是找到的最后一个符合条件的数组元素下标 C.查找将一直进行下去，不会结束 D.变成将所有符合条件的数据都找出来并记录下来 二 程序设计题1、有如下Visual Basic程序段：a = 13b = 6c = ab+bc = 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=bEnd 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 x=10 then b=”大于等于10” elseif a100 then b=”小于100”End if Text1.Text=bEnd Sub4分(1) 计算结果为“大于等于10”得4分(2) 计算结果为” 小于100” 为0分(3) 其它情况为0分33、下列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+1LoopText1.Text=Str(a(1)Text2.text=Str(a(2)End Sub6分（1） Text1中显示的内容为0得3分（2） Text2中显示的内容为4得3分（3） 其它情况为0分44、以下Visual Basic程序的功能是：在文本框Text1中输入一个两位数x，将个位上的数和十位上的数互换组合成新的两位数y，并在文本框Text2中输出新数。Private Sub Command1_Click()Dim x As Integer, y As IntegerDim i As Integer, j As Integer x=val(text1.text)i=x 10 j=x mod 10 Text1.Text = y End Sub （1）为了实现上述表达式的计算