2011年浙江省信息技术会考算法与程序设计2.docVIP

2011年浙江省信息技术会考试题 第2套 选题题（算法） 8、在Visual Basic中，下列能作为变量名的是（A）If?? （B）Not?? （C）Int?? （D）Flag 9、在Visual Basic中，表达式Sqr(100) + 100的值是（A）110??? （B）103??? （C）200??? （D）100100 10、在Visual Basic中，语句Lab.Caption=你好中的“Lab”是（A）属性值??? （B）对象名??? （C）属性名??? （D）类名 11、在Visual Basic中，语句Dim x As Single所说明的变量x属于（A）整数型??? （B）逻辑型??? （C）字符串型??? （D）单精度实数型 12、某Visual Basic工程的代码窗口如图所示： 从图中可以看出，当前正在编辑的是 （A）Command1的Click事件过程代码 （B）Text1的Click事件过程代码 （C）Form1的Click事件过程代码 （D）Form1的Load事件过程代码 13、有如下Visual Basic程序段：? k = 1? For j = 2 To 100??? If a(j) a(k) Then k = j? Next jx = a(k)该程序段执行后，变量x中存储的是（A）a(1)至a(100)中的最小值（B）a(1)至a(100)中的最大值（C）a(2)至a(100)中的最小值（D）a(2)至a(100)中的最大值 14、为使左、右框内的Visual Basic程序段实现相同的功能，可在左框内划线处填写的代码是 （A）For g = 1 To 6 （B）For s = 2 To 6 （C）For g = 2 To 6 （D）For t = 1 To 6 填空部分 1、有如下Visual Basic程序段：? a = 3.14? b = 20? c = Int(a) + b该程序段运行后，变量c的值为____________。 2、有如下Visual Basic程序段：? a = 360? b = Val(a)? c = Len(a)? If b c Then??? Label1.Caption = 取数值? Else??? Label1.Caption = 取字符? End If该程序段运行后，在标签Label1上显示的是____________。 3、张松编写了一个用求π近似值的Visual Basic程序。主要算法：将问题转化为求,其中 (n为大于1的整数)。程序运行界面如图所示，在文本框Text1中输入计算项数n（计算到第n项），单击“计算”按钮Command1，在文本框Text2中输出π值。 程序代码如下： Private Sub Command1_Click() Dim n As Integer, i As Integer, j As Double, s As Double n = Val(Text1.Text) j = 1 s = 1 For i = 2 To n j = j * ((i - 1) / (2 * i - 1)) s = ① Next i Text2.Text = ② End Sub （1）解决此问题采用的算法是 。（填：解析算法/递归算法） （2）在程序①和②划线处填入适当的语句或表达式，将程序补充完整： 程序中①划线处应填入___________________。 程序中②划线处应填入___________________。 操作题 打开考生文件夹下“VB”文件夹中的“test.vbp”，该VB程序的功能是：单击“开始”按钮Command1，小熊开始“滑冰”；单击“停止” 按钮Command2，“滑冰”动作停止；单击“退出”按钮Command3，结束并退出程序。程序运行界面如图所示： 完成以下操作： （1）将命令按钮Command2的Caption属性值设置为“停止”； （2）为“开始” 按钮Command1添加Click事件过程，并将“VB”文件夹下 “code.txt”文件中的所有代码复制到该事件过程中。调试程序正确，并保存窗体文件test.frm和工程文件test.vbp。 桐乡市第一中学 杜宗飞 s = 0: t = 1 t = t * g s = s + t Next g s = 0: t = 1: g = 2 Do While g = 6