- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省诸暨市牌头中学2018-2019学年高二上学期信息技术期中考试试卷

下列VB 程序用于求2个正整数(均小于10000)的最大公约数:

Private Sub Command1_Click()

Dim x As Integer,y As Integer,z As Integer

x=Val(Text1.Text) ‘第1个正整数

y=Val(Text2.Text) ‘第2个正整数

‘调用函数gcd

Text3.Text=Str(z)

End Sub

Function gcd(a As Integer, b As Integer) As Integer

Do While a <> b

If a>b Then a=a-b Else b=b-a

Loop

gcd=b

End Function

方框中的正确语句是（）

A、z=gcd B、z=gcd(a, b) C、z=gcd(x, y) D、z=gcd x, y

举一反三

两质数（素数）的差为2，称此对质数为质数对。下列程序是找出n以内的质数对，并成对显示结果。其中，函数s判断参数m是否为质数。请完成以下问题：

Function s(m) As Boolean

Dim i As Integer

______1_______

For i = 2 To Int(Sqr(m))

If m / i = 0 Then s = false ‘3

Next i

End Function

Private Sub Command1_click()

Dim i, n As Integer

Dim p1, p2 As Boolean

n = Val(Text1.Text)

p1 = s(3)

List1.Clear

For i = ______2_____

p2 = s(i)

If p2 = True Then List1.AddItem = Str(i - 2) + " " + Str(i) ‘4

p1 = p2

Next i

End Sub

【加试题】对分查找算法可用于求解方程的近似解。现要求方程x³-4x²+x+5=0的一个近似解，可设f(x)=x³-4x²+x+5，若有区间[a，b]，使f(a)与f(b)异号，则该区间内必存在该方程的一个解。小吴为此编写了VB程序，功能如下：分别在文本框Text1和Text2中输入求解的区间值a和b(a<b)，单击“计算”按钮Command1，若该区间必有解，则求解出该区间内的一个近似解(精确到10 s)，否则提示“重新输入区间”，计算后的相关结果显示在列表框List1中。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Function f(x As Double)As Double

Dim Y As Double

y=x^3-4*x^2+x+5： ‘（1）

End Function

Private Sub Command1_Click()

Dim a As Double，b As Double，m As Double，x As Double

a=Val(Text1．Text)：b=Val(Text2．Text)

If f(a)*f(b)<0 And a<b Then

Do While a<=b

m=(a+b)／2

If Abs(f(m))<0.00001 Then Exit Do

If <0 Then ‘（2）

b=m

Else

a=m

EndIf

Loop

x=Format(m，“0．00000”) ‘Format函数用于定义输出的小数位数

List1．AddItem"["&Text1．Text&"，"&Text2．Text&"]" & "解为："＆x

Else

List1．AddItem"["&a&"，"&b＆"]" & "重新输入区间"

EndIf

End Sub

有如下的Visual Basic程序段：

s = 0：x = 1

Do While x <= 5 s = s + x

x = x + 2 Loop

该程序段运行后，语句“x <= 5”执行的次数是（）

编写VB程序，实现如下功能：在文本框Text1中输入筛选关键词“ca”,单击“筛选”按钮Command1，在列表框List1所列字符串中查找左边与“ca”相匹配的字符串，并在列表框List2中输出(运行效果如图所示)；否则，在列表框List2中显示“无筛选结果”。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 20)As String ‘用于存储20个字符串

‘将20个字符串分别保存赋值给数组元素a(1)、a(2)、a(3)、a(4)、…、a(19)、a(20)，并在列表框List1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim s As String, n As Integer, i As Integer

Dim flag As Boolean ‘变量flag用于标记是否在数组a中筛选到左边与s匹配的字符串

List2.Clear ‘筛选时清空上次筛选结果

s=Text1.Text

n=Len(s)

flag=False

For i=1 To 20

If Then ‘{#blank#}1{#/blank#}

List2.AddItem a(i)

flag=True

End If

Next i

If flag=False Then

‘{#blank#}2{#/blank#}

End If

End Sub

求2+4+6+8+10+12+14+……100

PRIVATE SUB FORM-------CLICK()

S=0

DIM I AS INTEGER, S AS INTEGER

FOR I= 2 TO 100 {#blank#}1{#/blank#}

S=S+{#blank#}2{#/blank#}

NEXT I

PRINT S

END SUB

字母异位词指的是由相同的字母组成且不区分大小写，但字母位置不同的两个单词或短语，比如"Heart"和"earth"是字母异位词，"Apple"和="Paper"不是字母异位词。文本文件“word.txt”中保存着若干对单词组，部分界面如图a所示。现编写Python程序，从文件“word.txt”中读取每对单词组，并判断该组中两个单词是否为字母异位词。

程序代码如下，程序运行后输出结果部分界面如图b所示，请回答下列问题。

相关试卷

公司介绍

服务介绍

帮助中心