有如下 VB 程序段： Dim p As Integer, q As Integer, s As Integer, t As Integer p = Val(Text1.Text) t = 0 For q = p+ 1 To 2 * p s = (p * q) Mod (q - p) If s = 0 Then t = t+ 1 End If Next q Label1.Caption = Str(t) 该程序段运行时，在文本框T extl中输入8 , 则在标签Labell中显示的内容是（）

0 返回首页

1. 有如下 VB 程序段：

Dim p As Integer, q As Integer, s As Integer, t As Integer

p = Val(Text1.Text)

t = 0

For q = p+ 1 To 2 * p

s = (p * q) Mod (q - p)

If s = 0 Then

t = t+ 1

End If

Next q

Label1.Caption = Str(t)

该程序段运行时，在文本框T extl中输入8 , 则在标签Labell中显示的内容是（）

A. 3 B. 4 C. 5 D. 6

【考点】

解析算法及程序实现;

【答案】

您现在未登录，无法查看试题答案与解析。登录

单选题困难

能力提升

变式训练

拓展培优

真题演练

换一批

1. 用火柴棒，摆出下面的的自然数。

下列说法正确的是（）

A. 可以用6根火柴棒摆放出0、9、13 B. 可以用6根火柴棒摆放出0、8 C. 6根火柴棒能摆放的最大数是111 D. 可以用6根火柴棒摆放出0、6、5

单选题普通

2. 以下问题中最适合用解析算法解决的问题是（）

A. 将各班篮球比赛的成绩按从高到低的顺序进行排序 B. 居民电费的阶梯电价计算方法 C. 求三位正整数中的“水仙花数” D. 找出家中常备药中的过期药

单选题普通

3. 有一个数列，它的前二个数为0，1，此后的每个数都是其前面2个数之和，即0，1，1，2，3，5，8，13……要求编写程序，输出该数列到刚超过10000的数为止，且项数不能超过100项。编写程序如下：

Dim i As Integer， a As Integer， b As Integer， c As Integer

Dim s As String

a = 0: b = 1: c = 0: i = 2

s = Str(a) + Str(b)

Do While c <= 10000 And i < 100

a = b: b = c

c = a + b

s = s + Str(c)

i = i + 1

Loop

Text1.Text = s

运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是（）

A. 把c<=10000改为 c>10000 B. 把i<100改成i<=100 C. 把i=i＋1移到Do While c<=10000 and i<100下面 D. 把语句c=a+b移到a=b：b=c的上面

单选题普通

1. 【加试题】神性的数学黑洞数6174。一个任意的四位正整数（四位数字完全相同除外），将数字重新组合成一个最大的数和最小的数相减，重复这个过程，最多七步，必得6174。如取四位数5462，按以上方法作运算如下：

①6542-2456=4086 ②8640-0468=8172 ③8721-1278=7443 ④7443-3447=3996

⑤9963-3699=6264 ⑥6642-2466=4176 ⑦7641-1467=6174

编写程序实现实现上述功能。从文本框Text1中输入一个任意的数字不完全相同的四位正整数，在文本框Text2中输出掉进黑洞的步数。实现上述功能的VB代码如下，但加框处代码有错，请改正：

Private Sub Command1_Click()

Dim a(1 To 4) As Integer, c As Integer, t As Integer

Dim x As Integer, y As Integer, i As Integer, j As Integer

x = Val(Text1.Text)

c = 0

Do While x <> 6174

For i = 1 To 4 '把四位正整数x的每一位数字取出并存放到数组a中

a(i) = x Mod 10

' （1）

Next i

For i = 1 To 3

For j = i + 1 To 4

If Then ' （2）

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

x = a(1) * 1000 + a(2) * 100 + a(3) * 10 + a(4)

y = a(1) + a(2) * 10 + a(3) * 100 + a(4) * 1000

x = x - y

c = c + 1

Loop

Text2.Text = Str(c)

End Sub

⑴ ⑵

综合题困难

2. 小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer 'n为试题计数器,s为得分

Dim a, b As Integer 'a，b 为两个运算数

Dim c As String 'c为运算符："+ "表示加法，"-"表示减法

Private Sub Form_Load()

n = 0:

s = 0

End Sub

Private Sub Command1_Click() ‘出题按钮

Randomize

n = n + 1

If n < 11 Then

Label1.Caption = "No：" + Str(n)

a = Int(Rnd * 100) 'a，b为运算数，且要求a不小于b

b = Int(Rnd * 100)

If Then t = a: a = b: b = t '(1)

If Rnd > 0.5 Then c = "+" Else '(2)

Label5.Caption = Str(a) + c + Str(b) + "="

Text1.Text = ""

Else

Command1.Caption = "完成测试"

End If

End Sub

Private Sub Command2_Click() ‘判断按钮

If c = "+" Then

If a + b = Val(Text1.Text) Then s = s + 10

Else

If Then s = s + 10 '(3)

End If

Label3.Caption = "得分:" + Str(s)

End Sub

综合题困难

1. 校内阅卷已经普遍采用网上阅卷模式，其中客观题无需评阅，扫描过程中自动识别，扫描结束即生成成绩，准确率高。现有一道多选题，即从“ABCD”4个选项中任意选择2个及2个以上。

小明现想用Python输出所有的多选题的选项组合，他用4位二进制数模拟所有选项组合(1-选，0-不选），再从中筛选出有效组合，例如1100是一种有效组合，1000是一种无效组合。

实现该功能的Python程序如下：

xx=["A","B","C","D"]

combs=[]

i=0

while ① :

t=i

s=""

c=0

for j in range(4):

if t%2==1:

s= ②

c+=1

③

if ④ :

combs.append(s) # append()方法用于在列表末尾添加新的对象。

i+=1

print("符合要求的选项组合：")

print(combs)

(1) 上述程序中，用到的主要算法是（单选，填字母：A .解析算法/B .枚举算法）

(2) 请完成程序填空，在划线上填入合适的代码。

① ② ③ ④

综合题困难

2. 某超市打折促销，规定如下：

①购物未超过500元按原价支付；

②购物超过500元但未超过1000元,超过500元部分按9折优惠计价；

③购物超过1000元但未超过1500元,超过1000元部分按8折优惠计价；

④购物超过1500元但未超过3000元,超过1500元部分按7折优惠计价；

⑤购物超过3000元,超过3000元部分按6折优惠计价。

$\text{[math]}$

(1) 根据以上规定,假定购物货款为x元、实付金额为y元，则可利用分段函数来解决这一问题，并得到解决这一问题的计算模型：

这个过程属于编写程序解决问题中的。（①调试运行程序 ②分析问题 ③设计算法 ④问题解决 ⑤编写程序）

(2) 解决此问题的算法如图所示：

由图可知，解决此问题的算法是（选填“穷举法”、“解析法”、“枚举法”、“分治法”）；

(3) 由图可知，解决此问题运用到的主要控制结构是；

(4) 上图中，图形1、3表示算法的功能；

(5) 上图中，图形2表示算法的功能；

(6) 上图中，图形2中应填入的条件是。

综合题困难

3. 在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。

(1) 由图可知，窗体中的对象共有类；

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

Private Sub Command1_Click()

Dim i, k As Integer

Dim x1, y1, x2, y2 As Single

Dim v As Singie, maxd As Single

Dim s As String, pos zb As String

List1.Clear

s=Text1.Text

x1=1: y1=1

t="": k=1: j=1

List1.AddItem"坐标点" & "距离"

For i=1 To Len(s)

If Mid(s, i, 1)="," Then

v=Val(Mid(s,j,i-j))

If k Mod 2=1 Then

x2=v

Else

y2=v

d=Sqr((x2-x1)^2+(y2-y1)^2)

If Then

maxd=d

pos="(" & Str(x2)& "," & Str(y2)& ")"

End If

List1.AddItem"(" & Str(x2)& "," & Str(y2)& ")" & Str(d)

End If

k=k+1

End If

Next i

Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"& Str(maxd)

End Sub

(3) 若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是。

综合题困难

1. 用VB程序解答百鸡问题

我国古代数学家张丘建在“算经”里提出一个数学史上有名的百鸡问题。题曰：鸡翁一，他钱五；鸡母一，值钱三；鸡雏三，值钱一：百钱买百鸡，问鸡翁、母、雏各几何？

请把以下算法选项填入到程序语句相对应的位置：

设i，j，k分别代表鸡翁、鸡母、鸡雏的只数。首先确定i，j，k的取值范围：

A 、若100个钱全买鸡母，则最多可买33只，即j的取值范围是0~33。

B 、若100个钱全买鸡翁，则最多可买20只，即i的取值范围是0~20。

C 、当i，j在各自的取值范围内确定某个值后，则鸡雏的只数，k=100-i-j也确定了。

D 、让i从0变化到20，当i取某值时再让j从0变化到33，当j取某个值时，k的值也定了。如果i*5+j*3+k/3=100成立则i，j，k当前的值就是答案。

先在窗体上绘制一个命令按钮，名称为Command1，编写命令按钮的单击事件。实现以上算法的程序如下：

Private Sub Command1_Click( )

For i = 0 To 20

For j= 0 To 33

k=100-i-j（）

If i*5+j*3 + k/ 3 = 100 Then

Print “鸡翁、鸡母、鸡雏分别为"& i & " " & j & " " & k & "只"

End if

Next j，

Next i

End Sub

请计算出任意一种答案。鸡翁、鸡母、鸡雏分别有只。

填空题普通