- 二一组卷

题型：填空题题类：常考题难易度：困难

浙江省名校协作体2017-2018学年高三下学期信息技术11月联考试卷

【加试题】德国数学家哥德巴赫曾猜测：任何大于6的素数都可以分解成两个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如：10=3+7，10=5+5，即10可以分解成两种不同的素数对的和。

小敏编写了一个VB程序，用来求一个偶数（6到100之间）可能存在多少这样是素数岁（注：A+B与B+A认为是相同素数对，不重复统计），并把这些结果输出到一个列表框中，通过逻辑推理，小敏发现这些素数对都是奇数，所以她只需要验证奇数的素数对即可，运行界面如图所示，程序代码如下。但加框处代码有错误，请改正。

Dim IsPrime(100)As B00lean ‘用来存储是否素数，True为素数，False为非素数

privatw Suh Command1_Click()

Dim x As Integer，y As Integer，i As Integer，num As Integer

Call Init ‘调用Init函数

x=Val(Text1．Text)

y=x＼2

num==0

For i==3 To y Step 2

If Then ‘①

num=num+1

List1．AddItem Str(x)+“=”+Str(i)+“+”+Str(x-i)

End If

Next i

Label2.Caption=“偶数”+Str(x)+“共有”+Str(num)+“个素数对。”

End Sub

Sub Init() ‘初始化IsPrime数组的值

Dim i As Integer．j As Integer，X As Integer

For i=3 To 100 Step 2

X=Int(Sqr(i))

For Step 2 ‘②

If i Mod j=0 Then Exit For

Next j

If i>x Then IsPrime(i)-True Else IsPrime(i)=False

Next i

End Sub

①处加框代码应该为。

②处加框代码应该为。

举一反三

如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：( )

Private Sub Command1_Click()

Dim a(1 To 4) As Integer

Dim i As Integer

a(1) = 1

For i = 2 To 4

a(i) = 2 * a(i - 1) + 1

Next i

List1.AddItem Str(a(i))

End Sub

【加试题】任意一个英文单词都由若干字母组成，记录单词中每个字母出现的次数，其中maxn为最多次数，minn为最少次数，如果maxn与minn的差是一个素数，这个单词就是一个幸运单词。

例如：单词banana由b，a，n三个字母组成，其中a字母出现了3次，n字母出现了2次，b字母出现了1次，得到maxn为3，minn为1，maxn与minn的差为2，是一个素数，那么banana就是一个幸运单词。

编写一个判断幸运单词的VB程序，在文本框Text1中输入一个单词(注：仅输入小写字母，且长度小于100)，单击“判断”按钮Command1，标签Labal1输出运行结果。

程序运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim maxn As Integer

Dim minn As Integer

Dim a(1 To 26)As Integer

maxn=0

minn=100

s= Text1．Text

n=Len(s)

For i=1 To n

dz=Mid(s，i，1)

If dz>=“a”And dz<=“z”Then

p= ‘(1)

a(p)=a(p)+1

End If

Next i

For j=1 To 26

If a(j)>0 Then

If a(j)>maxn Then maxn=a(j)

If a(i)<minn Then minn=a(j)

End If

Next j

If(maxn-minn>=1)And Then ‘(2)

Label1．Caption=“幸运单词!”

Else

Label1．Caption=“无!”

End If

End Sub

‘自定义函数iszs(x)用于判断整数x是否为素数，如果x是素数返回True

Function iszs(x As Integer)As Boolean

‘代码略

End Fuction

运行如下VB程序，单击命令按钮Command1，出现如图所示的出错信息。发生“下标越界”错误时所执行的语句是（）

Private Sub Command1_Click()

Dim a（0 To 7） As Integer

Dim i As Integer ＇①

a（0）=1

For i = 1 To 7 ＇②

a（i）= 2 * a（i-1）+ 1 ＇③

Next i

Text1.Text = Str(a(i)) ＇④

End Sub

有如下程序段，运行时程序出现如下错误提示，出错语句的位置是（）

Private Sub Command1_Click()

Dim i As Integer

Dim a(10)As Integer ‘①

For i=1 To 10 ‘②

a(i)=Rnd* 100 ‘③

Next i

Label1.Caption=Str(a(i)) ‘④

End Sub

下列程序的运结果是（）

DIM A（1991 TO 1998） AS INTEGER

FOR I=1 TO 8

A(I)=I

PRINT A(I)；

NEXT I

运行如下程序段时，出现了如图所示的错误提示框：

Private Sub Command1_Click()

Dim r As Single, s As Single '①

r="10米" '②

s=3.14159*r*r '③

Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米." '④

End Sub

则程序中出错的语句是（）

相关试卷

公司介绍

服务介绍

帮助中心