学进去

人们常使用计算机程序解决一些实际问题。下面的程序可以找出能被3、5、7除，余数为1的最小的五个正整数。请分析程序回答问题。
Private Sub Command1_Click()[
Dim CountN%,n%
CountN=0
n=1
Do
n=n+1
If      ①     Then
Print n
CountN=Countn+1
End If
Loop       ②      
End Sub
（1）变量CountN 的数据类型定义为（     ）

A．integer

B．single

C．double

D．string

（2）这是一段           结构程序。
（3）认真阅读程序，在带序号的空白处补充恰当的语句，完善程序。
（4）（在编写程序时，首先需要找出解决问题的方法和步骤，此过程就是通常所说的       
                                          

关于实数X的表达式Int(X)+Int(2* X)+Int(3*X)，其值为整数2019，则Int(2*X)的值是（   ）

A．671

B．672

C．673

D．674

某对分查找算法部分代码如下：
i=1：j=1000：flag=True：p=0。
key=Val（Textl. Text）
Do While i＜=j And flag
m=（i＋j）\2
p=p＋l
If a（m）=key Then flag=False
If a（m）＞key Then
j=m-1
Else
i=m＋1
Loop
数组元素a(1)到a(1000)中存放着升序排列的数据。下列说法正确的是（   ）

A．若key的值小于a(1),则执行该段程序后,变量j的值等于1

B．若key的值等于a(1),则执行该段程序后,变量p的值等于10

C．若key的值等于a(1000),则执行该段程序后，变量i的值等于1 001

D．无论key的值是否在数组a中，执行该段程序后，变量i的值均不可能等于m

某对分查找算法的VB程序段如下：
Key=Int(Rnd * 49)* 2+1
s=0:i=1:j=10
Do While i<=j
m=(i+j)\2
If Key=a(m)Then Exit Do
If Key<a(m)Then
j=m-1:s=2 * s
Else
i=m+1:s=2 * s十1
End If
Loop
数组a(1)到a(10)的值依次为“2，6，7，15，20，24，27，43，52，63”，执行该程序段后，s的值不可能为（   ）

A．2

B．3

C．5

D．15

某VB程序段如下：
n=6:Text2. Text=" "
m=Val(Text1. Text)
For i=1 To 3
k=i
j=i+1
Do While j<=m

If a(k)> a(j) then k=j

j=j+1

Loop
If i<>k Then

Text2. Text= Str(a(k))+Text2. Text

t=a(i):a(i)=a(k):a(k)=t

End If
Next i
数组元素d(1)到d(6)的值依次为“39，25，18，20，73，70”，现运行程序在文本框Text1里输入5，点击按钮Command1后文本框Text2中显示的内容是（   ）

A．18 20 70

B．70 20 18

C．18 20 25

D．25 20 18

某学校高一年级共有500名学生，10个班，现需要根据某次考试的技术成绩从高到低进行考试号编排，考试号从100开始，如出现成绩一样的情况，则考试号按学生学号从大到小编排，如图所示。为此，小王编写了一个VB程序，程序功能如下：单击“读取数据”按钮 Command1，程序从数据库中读取学生的学号、成绩分别存储在数组xh、cj中，并在列表框List1输出；单击“编排”按钮Command2，程序进行处理，输出结果在列表框List2中。程序运行界面如图所示。
实现以上功能的VB程序如下，请回答下列问题：
（1）如原始数据里漏输了一个学生，已知该学生的学号为“20170240”，成绩为“99”，则增加该学生数据后，运行程序时，该学生的考试号为________。
（2）请在画线处填入合适的代码。
Const n=500
Dim xh(1 To n) As Integer    '存放学生学号
Dim cj(1 To n) As Integer    '存放学生成绩
Dim I,d,k,t,y As Integer
Private Sub Command1 Click()
'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
'代码略
End Sub
Private Sub Command2_Click()
For i=1 To n-1

For j=n To i+1 Step-1

If c(j)>cj(j-1) Then
t=ci(j):cj(j)=cj(j-1):cj(j-1)=t
t=xh(j):xh(j)=xh(j-1):xh(j-1)=t
End If

 

Next j

Next i
k=1
For i=2 To n

If______Then

k=k+1
y=0

Else

y=1

End If

If (y=l And k> 1) Or (i=n And k> 1) Then

For d=i-k To i-2
For______To(i-k+1) Step-1
If xh(j)>xh(j-1) Then
t=xh(j):xh(i)=xh(j-1):xh(j-1)=t
End If
Next j
Next d
k=1

End If

Next i
List2.Clear
List2.AddItem " "+"学号"+"  "+"技术成绩"+"  "+"考试号"
For i=1 To n
List2.AddItem Str(xh(i))+"  "+Str(cj(i))+"  "+_____
Next i
End Sub

有如下程序段：
Private Sub Command1 _ Click ()
Dim n As String,s As Integer,jg As String,a(241)As Integer
n = Text1. Text
cd= Len(n)
For i = 1 To cd
a(i)= Val(Mid(n,i,1))
Next i
s = Val(Text2. Text)
For i = 1 To s
j=1
Do While j < cd
If a(j)> a(j+1)Then
For k = j To cd
a(k)= a(k+1)
Next k
Exit do
End If
j+1
Loop
cd = cd – 1
Next i
For i = 1 To cd
jg = jg+ CStr(a(i))
Next i
Label3. Caption = jg
End sub
运行该程序，若在文本框Text1中输入175438，文本框Text2中输入4，则标签Label3中显示的内容是（   ）

A．78

B．54

C．38

D．13

有如下程序段：
m = 0
For i = 1 to 8
k = i
For j = i +1 to 8
If a(k)> a(j) then
k = j
End If
Next j
If k < > i then
t = a(k):a(k)= a(i):a(i)= t
if k - i > m then m = k –i
End If
Next i
数组元素a(1)到a(8)的值依次为“13，29，18，6，7，17，23，15”，执行该程序段后，m的值为（   ）

A．2

B．3

C．4

D．5

有如下VB程序段：
i = 0:j = 9:Key = 78:f = False:n = 0
Do While i <= j And Not f
m = Fix((i + j + 1)/ 2)
If a(m)= Key Then
If m=0 Then
f = True
ElseIf a(m)< > a(m – 1)Then
f= True
Else
j = m – 1
End If
ElseIf a(m)> Key Then
i = m + 1
Else
j = m - 1
End If
n = n+1
Loop
数组元素a(0)到a(9)的值依次为“99，90，90，78，78，78，70，56，45，36”，执行该程序段后，n、m的值分别是（   ）

A．1  5

B．3  3

C．4  3

D．4  5

有如下VB 程序段：
i=1:n=5
Do while i<=n x=Int(Rnd*9)+1
If x Mod 2=1 Then a(i)=x
Else
a(n)=x:n=n-1
End If
i=i+1
Loop数组元素的初值均为0，执行该程序段后，数组元素a(1)到a(5)的值不可能是（ ）

A．7 , 5 , 0 , 3 , 6	B．3 , 0 , 9 , 4 , 2
C．0 , 0 , 4 , 6 , 6	D．1 , 3 , 5 , 5 , 0