- 二一组卷

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

浙江省临海市白云高级中学2018-2019学年高二下学期信息技术期中考试试卷

对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下：

n=Len(s) 's是待判断的字符串

k=0:j=n

For i=1 to n/2

Next i

If k=0 Then Label1.Caption="对称" Else Label1.Caption="不对称"

方框中的代码由以下三部分组成：

①j=j-1

②If c1 <> c2 Then k = k+1

③c1=Mid(s,i,1) : c2=Mid(s,j,1)

代码顺序正确的选项是（）

A、①②③ B、②③① C、③②① D、②①③

举一反三

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如图所示)。

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

Dim a(1 To 50) As Integer

Private Sub Command1_Click()

Dim i As Integer

k = 0: i = 3

Do While i <= 100

If ① prime(i) Then ‘⑴

k = k + 1

a(k) = i

End If

i = i + 2

Loop

For i = 2 To k

If ②a(i) = a(i +1)+2 Then ‘⑵

List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))

End If

Next i

End Sub

Function prime(x As Integer) As Boolean

prime = False

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

If x Mod i = 0 Then

prime = True

Exit For

End If

Next i

End Function

① {#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

水仙花数是指一个三位数，它的各位数的立方和正好等于该数本身。如：

153=1×1×1+5×5×5+3×3×3

小张设计了一个算法来输出所有的水仙花数，具体程序如下。

珠心算是在大脑中以算珠表象作为载体，运用珠算法则所进行的计算。某学校的珠心算老师采用一种快速考查珠心算加法能力的测验方法，他随机给出一个正整数集合，集合中的数各不相同，然后要求学生回答：其中共有多少个数恰好等于集合中另外两个（不同的）数之和，例如集合{1，2，3，4}，一共有2个数等于集合中另外两个数之和，它们是3、4（4=3+1，3=2+1）。将上述算法编写成程序，其功能如下：程序运行时产生n个范围在[1，100]内的不同的随机整数存储在数组a中，并在列表框List1中显示，单击按钮Command1后，在标签Label1上输出结果，如图所示。

古希腊著名科学家毕达哥拉斯把1、3、6、10、15、21、28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2、3、4、5、6、7、……，所以，第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差“3”……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写了一个判断三角形数的VB程序，在文本框Text1中输入一个大于1的正整数，单击“判断”按钮Command1，在标签Label1中显示判断结果。程序设计界面如图所示。

一辆卡车运矿石，晴天每天运20次，雨天每天最多运12次，他一共运了8天，共112次，则晴天和雨天各有几天。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出晴天的天数，在文本框Text2中输出雨天的天数，程序代码如下：

Private Sub Command1_Click()

i＝1

j＝7

Do While _______

i＝_______

j＝________

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

则下列说法正确的是( )

小王编写了一个VB程序，该程序的功能是：15个数形成环状，现要分别找出3个相邻的数：使其相加之和最大或最小。如15个数依次为：18，14，42，61，13，19，14，13，28，52，61，58，30，则相邻三数之和最大为62（30+18+14），相邻三数之和最小为31（4+26+1）。

程序运行时，先随机生成15个[1，30]区间内的整数，存储在数组a(0)至a(14)，并在文本框Text1中显示；单击“计算”按钮Command1，则在标签Labe14中显示连续三数最大和，在标签Label5中显示连续三数最小和，程序运行界面如图所示。

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Const n=14

Dim a(n) As Integer

Private Sub Form_Load()

'随机生成15个数,存储在数组元素a(0)～a(14)中,并显示在文本框Text1中

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim imax As Integer, imin As Integer

Dim smax As Integer, sum As Integer, smin As Integer

smax=0:smin=100

For i=0 To 14

j= {#blank#}1{#/blank#}

k= {#blank#}2{#/blank#}

sum=a(i)+a(j)+a(k)

If sum>smax Then

smax=sum

imax=i

End If

If sum<smin Then

smin=sum

imin=i

End If

Next i

Label4.Caption=Str(smax)

Label5.Caption=Str(smin)

End Sub

相关试卷

公司介绍

服务介绍

帮助中心