桐乡一中信息技术期中考试试卷（算法与程序设计模块）

对于一个完整的算法的流程图，下列说法不正确的是…………………………………（    ）

下列算法展示了一台自动售货机一次售货的工作流程：
步骤1：提示“请投币”
步骤2：若硬币面值不是0.1元、0.5元、1元，退回硬币，并跳回步骤1
步骤3：若投入货款达1.5元或以上，执行步骤4，否则执行步骤1
步骤4：售出一个口香糖
步骤5：从接收货款中减去1.5元
步骤6：退回余额
下列关于这个算法说法正确的是……………………………………………………………（    ）

下列关于类、对象、属性、事件的描述中，错误的是……………………………………（    ）

VB语句Text1.Text="Text"用于在文本框中显示字符串，该语句中的“Text1”是……（    ）

小张用VB做了一个小游戏，他想把自己做的程序放在因特网上供他人下载使用，他应该将自己做的程序保存为什么格式供他人下载………………………………………………（    ）

下列变量命名正确的是

一个摸球游戏的流程图如右图所示(红球总数和绿球总数均大于0)。游戏结束时，S位所代表的是………………………………………………………………………………………（    ）

有如下一段VB程序段，当该程序结束后，程序中的代码“S = S * K”共被执行了多少次（    ）

以下变量定义错误的是

Dim arr(1 to 10 , 11 to 20) as integer 该指令定义了多少个数组元素

如果x=4，那么以下运算结果为True的表达式是………………………………………（    ）

已知整型变量X的值为-3，则VB表达式Int(x/2)的值是………………………………（    ）

下列VB函数中，与Val函数作用相反的是……………………………………………（    ）

在VB中，设X=7146，能得到其十位上数字 4 的正确表达式是………………………（    ）

VB标准函数Rnd函数的作用是返回一个大于等于0且小于1的随机实数，只产生大于等于10且小于100随机整数的VB表达式是…………………………………………………（    ）

观察如下VB程序设计界面，选出下面说法错误的一项………………………………（    ）

读右边程序，程序中一共标明了8条语句，下列说法错误的是……………………（    ）

右边程序中，最后输出s和c的值分别是：………………………………………………（    ）

以下是一个事件处理过程，这个过程的名称为……………………………………（    ）
     Sub C1_DblClick()
     Print "*"
    End Sub

下列问题适合用参考答案:算法求解的是……………………………………………………（    ）

如果一个自然数恰好等于它的因子之和，称这个数为“完数”，如：6=1+2+3。某算法能找出1000以内所有的完数，那么这个算法主要用到的方法是

VB中常常需要用户自己来定义函数，下列属于定义函数的语句是…………………（    ）

小明买了6个苹果，这6个苹果的重量（单位：两）分别为8.1、3.4、9.5、2.2、1.2、5.6，若采用选择排序算法对其进行从小到大排序，则需要进行数据互换的次数是…（    ）

五位评委给歌手打分的成绩依次为93，85，92，84，90，
 

原始数据	93	85	92	84	90
第一趟	84	93	85	92	90
第二趟
第三趟	84	85	90	93	92
第四趟	84	85	90	92	93

若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是

sqr(25)+ len(“abc”)的返回值是__________________________。

Mid(“2009乌镇欢迎你!”, 5 ,2 )的返回值是__________________。

把数学中的式子，　　 转化为VB中的表达式__________________________。

写出数学表达式a≥b≥ c 并且a≠ 0 的VB表达式_____________________________。

求下列VB表达式9\2+1 Mod 2+Int（-11/3）的值____________________。

有如下Visual Basic程序段：
Private Sub Command1_Click()
  Dim m As string, t As integer
  m = "Love"
  t = 1314
  Label1.Caption = m + str(t)
End sub
该程序段运行后，在标签Label1上显示的是____________。

有如下Visual Basic程序段：
Private Sub Command1_Click()
  Dim a As string, b As string
  Dim c As Long
  a ="123"
  b ="456"
  If a <> b Then
   c=val(a+b)
  Else
   c = val(a)+val(b)
  End If
  Print c
End sub
该程序段运行后，c的值是____________。

有如下Visual Basic程序段：
x = 1
For i = 5 To 12 Step 2
   x = x + i
Next i
该程序段运行后，x的值是____________。

有如下Visual Basic程序段：
s = 0: i = 1
Do While s < 10
   s = s + i
   i = i + 2
Loop
该程序段运行后，s的值是____________。

有如下Visual Basic程序段：
x = 3
For i = 3 To 6
   If x < 15 Then
     x = x * i
Else
    x = x + i
End If
Next i
该程序段运行后，x的值是____________。

如下程序运行后输出的结果为： ___________________。
Private sub  test36(    )
Dim i as integer, j as integer
Dim s as integer
For i=1 to 20
  For j=15 to 2 step -2
    S=i*j
  Next j
Next i
Print s
End sub

如下程序运行后，输出结果为_________。
Private sub test( )
Dim i as Integer
Dim Arr(1 to 10) as integer
For i =1 to 10
Arr( i )= i * i
Next i
Print Arr( 8 )
End Sub

有如下程序，缺少一变量定义语句，请补充完整：（注：输出的结果为 250000）
Private Sub Test
Dim a as Integer
______________定义变量sum
Sum=0
For a =1 to 1000 step 2
    Sum=Sum+a
Next a
Print Sum
End Sub

一个酵母细胞每一分钟分裂为2个，在下一分钟，就有4个细胞，然后，8个、16个、……以此类推。一个酵母细胞，经过多少分钟后数目超过250个。解决此问题的部分程序如下：
Dim n as long ,x as long
n = 1 : x = 2
Do while x <= 100
n = n + 1
　
Loop
问：
（1）为了实现这一目标，程序划线处的表达式应更正为____________。
（2）运行更正后的程序，在经过________________分钟后细胞数目超过250个。

如下是计算圆面积的VB界面和所有程序代码：
　　
（1）由VB界面和程序代码可知，用于输入圆半径的文本框对象名为：________________。
（2）为实现圆面积的计算，用户除了点击计算按钮，还可以执行的操作有:______________。

把整数3025从中剪开分为30和25，将这两个数之和平方：（30+25）^2=3025，则其计算结果又等于原数。求所有符合 这样条件 的四位数，将下面程序中画线处填写完整。
（1）___________________________（2）___________________________
Private Sub Command1_Click()
  Dim n as Integer, a as Integer, x as Integer
  Dim n1 as Integer, n2 as Integer
  List1.Clear
  For a=32 to 99
   n=a*a
 ________(1)__________
  n2=n mod 100
  x=n1+n2
  if________(2)________ then List1.AddItem Str( n )
  Next a
End Sub

某地出租车计价方式如下：3公里内（包括3公里）起步价10元； 超过3公里，但10公里内，则3公里内收费10元，超出部分每公里2元；如果超过10公里，则10公里内收费24元，超出部分每公里3元。其程序实现如下：
Private Sub Command1_Click( )
  x=val( Text1.Text )
  if x<=3 then y = 10
  if _______(1)________then y=10+(x-3)*2
  if x>10 then  y =  ____________(2)__________
  if x<=0 then  y = 0
  Label1.Caption = x
  Label2.Caption = y
End Sub
请把上面程序补充完整：（1）________________________（2）_________________________

小明家的院子里有一棵桃子树，每到秋天树上都会结出很多桃子。今天小明共摘到了10个桃子，并称出了这十个桃子的重量，现在，他想找出第K重的桃子的重量。
程序运行时界面如第44题-1图所示，列表框list1中显示十个桃子的重量，Text1中输入K的值，Text2中显示第K重的桃子的重量。
　          　
（1）设计第44题-1图所示应用程序界面时，应在第44题-2图所示的“属性窗口”中，将窗体Form1的__________________属性设置为“寻找第K重的桃子”；为添加列表框List1，应使用第44题-3图所示的“控件工具箱”中的______________（填写相应编号）。
　          　
（2）“开始寻找”按钮单击事件处理过程的代码如下所示。为实现算法功能，请将下列程序补充完整。
（1）____________________    （2）____________________
Private Sub Command2_Click()
  k =val(text1.text)
  For i = 1 To 9
    For j = 10 To i + 1 Step -1
      If ______（1）________Then
        t=d(j):d(j)=d(j-1):d(j-1)=t
      End If
    Next j
  Next i
  Text2.Text = ___________（2）___________
End Sub