1、诸暨中学 2018 学年第一学期高二期中考试技术试卷第一部分信息技术（共 50 分）一、 单选题（每题 2 分，共 28 分）1、在 Visual Basic 代码中，将多个语句写在同一行上的并行符是( )A.撇号（） B.冒号（：） C.感叹号（！） D.问号（?）2、下列控件中可用于接受用户输入文本，又可用于显示文本的是( )A. Label 控件 B. TextBox 控件C. Timer 控件 D. CommandButton 控件3、Visual Basic 规定工程文件的扩展名是( )A. .exe B. .frm C. .vbp D. .bas4、在程序中用到某一整型变量的数据范
2、围为-40000 至 40000，则该变量类型应该说明为A.Integer B.Byte C.Long D.Boolean5、用语句 Dim A(-3 To 3) As Integer 所定义的数组的元素个数是A3 B4 C6 D76、下列逻辑运算表达式的值为“True“的是A.flase or not true B.flase and not trueC. true or not true D.true and not true7、下列关于 For .next 语句的说法正确的是A.循环变量、初值、终值和步长都必须为数值型B.step 后的步长只能为正数C.初值必须小于终值 D.初值必须大于
3、终值8、下列赋值语句中不正确的是A x+y=5 B x=y a(j) Then k = jNext jIf k i Thent = a(k): a(k) = a(i): a(i) = tEnd IfNext iFor i = x To yList2.AddItem Str(a(i)Next iEnd Sub16、小吴为了探究冒泡排序过程中数据的“移动”情况，编写了一个 VB 程序，功能如下：在列表框 List1 中显示排序前数据（存储在数组 a 中） ，在文本框 Text1 中输入初始位置（即下标值） ，单击“排序”按钮 Command1 后，在标签 Label1 中显示指定初始位置的数据在排
4、序过程中的位置变化情况，排序后的数据显示在列表框 List2 中。程序运行界面如图所示。实现上述功能的 VB 程序如下，请在横线处填上合适的代码，改正加框处的代码。Dim a(1 To 8) As IntegerDim n As Integer(1)(2)Private Sub Form_Load()n = 8，排序前的 8 个数据存储在数组 a 中，并在列表框 List1 中显示代码略End SubPrivate Sub Command1_Click()Dim i As Integer, j As Integer, k As IntegerDim pos As Integer 变量 pos
5、存储指定数据的位置（既下标值）Dim s As String 变量 s 存储 pos 变化情况s = Text1.Textpos = Val(Text1.Text)For i = 1 To n - 1For j = _ （1）If a(j) a(j - 1) Then_ （2）a(j - 1) = a(j)a(j) = k如果 pos 位置的数据参与交换，则更新 pos 值，记录 pos 变化情况If pos = j Thenpos = j - 1s = s + “ + Str(pos)Else （3）pos = js = s + “ + Str(pos)End IfEnd IfNext jN
6、ext iLabel1.Caption = “位置变化情况：“ + sFor i = 1 To nList2.AddItem Str(a(i)Next iEnd Sub17、一个程序实现如下功能：在文本框 text1 中输入一个数，在文本框 text2 中输入需要转换的进制（小于等于 16） ，点击转换按钮，在标签 Label3 输出转换后的十进制数，程序运行界面如下图所示：（1）请在划线处填入合适的代码End Function18、哥德巴赫 1742 年给欧拉的信中提出了以下猜想：任一大于 2 的偶数都可写成两个质数之和，是为著名的哥德巴赫猜想。下面 VB 程序用来验证 4-10000 的偶
7、数分解。请完善下列程序代码：Function prime(x As Integer) As Boolean 此函数判断 x 是否为质数prime = TrueFor i = 2 To Int(Sqr(x)If _ Then prime = False: Exit ForNext iEnd FunctionPrivate Sub Command2_Click()Dim a As Integer, b As IntegerDim n As Integer_For a = 2 To n 2b = n - aIf _ ThenList1.AddItem Str(a) + “ “ + Str(b) +
8、“ “ + Str(n)End IfNextEnd Sub(1)(2)(3)(1)(2)(3)答案及评分标准一、单选题（每题 2 分）1-5 B B C C D 6-10 C A A A D 11-14 C C D C二、填空题（每空 2 分）15（1）a(i)=int(rnd*26+97)(2) j=y to i+1 step -1 或 j=i+1 to y16 (1) j= n to i+1 step -1(2) k=a(j-1)(3) elseif pos=j-1 then 17 (1) s=text1.text(2)ans=ans*k+x 或 ans=ans+x*k(len(s)-i)(3) toD=ans18（1）x mod i=0(2) n=val(text1.text)(3) prime(a) and prime(b)
