题库 高中信息

题干

以下两个VB程序段,其中变量m和n为正整数,下列说法不正确的是(   )
程序1:
If m<n Then

t=m:m=n:n=t

End If
Do While m Mod n<>0
r=m Mod n
m=n
n=r
Loop
Text1.Text=Str(n)
程序:
2n2
Do Whife m
程序2
Do While m<>n
Do While m>n
m=m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Textl.Text=Str(n)
 
A.“程序1”和“程序2”中的代码实现相同的功能
B.若变量m和n的值为25,35,则“程序1”代码运行后文本框Text1显示“5”
C.“程序2”中的输出语句改为Textl.Text=Str(m),会影响文本框Textl显示的内容
D.若变量m和n的值为11,7,则“程序2”代码运行后文本框Text1显示“1”
上一题 下一题 0.99难度 选择题 更新时间:2020-03-30 09:43:16

答案(点此获取答案解析)

同类题2

给定区间a1,a2和b1,b2,若a2≥b1,则认为这两个区间是有重叠的,可进行合并。如区间1,3和2,6可合并为1,6;区间1,6,2,5可合并为1,6;区间1,4和4,5可合并为1,5。
编写一个“合并重叠区间”的VB程序,功能如下:在文本框Text1中按各区间起始值升序依次输入各区间的起始值和终止值(数据都用逗号分隔并以逗号结尾),单击“确定”按钮后,在Text2中显示合并后的各个区间。例如,在文本框Text1中输入“1,2,3,5,4,6,9,12,10,11,”,表示区间1,2,3,5,4,6,9,12,10,11,合并后的区间分别为1,2,3,6,9,12。程序运行界面如图所示,实现上述功能的VB代码如下:

Const n=100
Private Sub Cmd1_Click()
Dim i As Integer, k As Integer, L As Integer, R
As Integer
Dim s As String, c As String, t As String, result
As String
Dim a(1 To n) As Integer
s=  :t="":k=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c<>, Then

Else
k=k+1
a(k)=Val(t)
t=""
End If
Next i
L=a(1):R=a(2)
i=3
Do While i<=k
If a(i)>R Then
result = result+"("+Str(L)+,+Str(R)+"),"
L=a(i):R=a(i+1)
   
R=a(i+1)
End If
 
Loop
result=result+"("+Str(L)+,+Str(R)+"),"
Text2. Text=result
End Sub
(1)码中①②③划线处代码补充完整。
①__________
②__________
③__________
(2)程序代码中的加框处代码有误,请改正。
_____________________
(3)运行该程序,输入数据如图所示,程序执行完毕时,变量k 为________________。