2017年浙江省普通高校高考信息技术模拟试卷（16）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列有关信息的说法，正确的是（ ）
组卷：7引用：1难度：0.9 -
2．用UltraEdit软件观察“VB6.0中文版”这几个字符的内码，如图所示，下列描述中正确的是（ ）
组卷：11引用：1难度：0.9 -
3．小李用Word制作了一份关于生活废弃物的科学调查报告．张老师在修订模式下对文档进行了修改，部分截图如图所示．该文档接受所有修订后，第一行的文字应该是（ ）
组卷：6引用：2难度：0.9 -
4．小叶用Access软件创建的数据表如图所示，在该表中，下列操作不能实现的是（ ）
组卷：7引用：3难度：0.9 -
5．计算s=2+4+6+…+10的算法流程图如图所示．
若要计算s=2×4×6×…×10，则上述流程图中的“s←s+x,x←x+2”应改为（ ）组卷：6引用：3难度：0.7
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
-
16．任意一个大于等于4 的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想．如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79．
编写一个验证哥德巴赫猜想的VB 程序：程序运行时，在文本框Text1 中输入一个大于等于4 的偶数，单击“验证”按钮Command1 后，如果哥德巴赫猜想验证成功，则在文本框Text2 中显示“Yes”，并在列表框List1 中显示用两个素数表示该偶数的等式，否则显示“No”．程序运行结果如图所示．实现上述功能的VB 代码如下，但加框处代码有错，请改正．
函数judge的功能是判断整数x是否为素数，若是素数则返回True,否则返回False
Function judge（x As Integer）As Boolean
Dim j As Integer
judge=True
j=2
Do While j＜=x-1And judge=True
If x Mod j=0Then
judge=False
Else
judge=true‘①
End If
Loop
End Function
Private Sub Command1_Click （ ）
Dim n As Integer,p As Integer,q As Integer,flag As Boolean
n=Val（Text1．Text）
p=1
flag=False
Do While flag=True And p＜n‘②
p=p+1
q=q+1‘③
If judge（p） And judge（q） Then
Text2．Text=“Yes“
flag=True
List1．AddItem Str（n）+“=“+Str（p）+“+“+Str（q）
End If
Loop
If flag=False Then Text2．Text=“No“
End Sub.组卷：25引用：2难度：0.1 -
17．【加试题】下列程序的功能是将text1中输入的自然数分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在右边的列表框中．例如，输入20，那么在列表框中会显示如下图所示结果．其中，界面中“分解”按钮的名称是“Command1”，程序中函数f（x）的功能是判断x是否为质数，如果是质数，则返回值为true,否则返回false.
请在下列程序代码的基础上按照要求设计该程序，完善程序中的划线部分．
Dim n As Integer,a1As Integer,a3As Integer,a3As Integer
Function f（x）As Boolean
f=True
For i=2To Sqr（x）
If x Mod i=0Then
Next i
End Function
Private Sub Command1_Click（ ）
n=
For a1=2To n
For a2=a1To n
For a3=a2To n
IfAnd f（a1）And f（a2）And f（a3）Then
List1．AddItem Str（a1）+“”+Str（a2）+“”+Str（a3）
End If
Next a3
Next a2
Next a1
End Sub
（1）程序中①横线处应填入．
（2）程序中②横线处应填入．
（3）程序中③横线处应填入．组卷：20引用：2难度：0.1
