以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（）程序1：Ifm<nThent=m：m=n：n=tEndIfDoWhilemModn_刷题宝

题干

以下两个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

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

同类题1

某商品团购优惠策略的流程图如图所示

当n为100、p为10时，实付金额s的值是( )。

同类题2

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是，文本框Text2中显示的内容是。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3:Zxxk.Com
If n Mod i =" 0" Then
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub

同类题3

（加试题）某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then f = 1 Else f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（）

同类题4

设计算法：香蕉促销：3千克以下（不包括3千克），每千克3.5元，3-6千克（不包括6千克），每千克3元，6千克以上，每千克2.6元。请补全以下代码。
Dim w as double
Dim p as double
W = inputbox(“请输入购买的重量：千克”)
If （1）__________ then
If （2）__________ then
P =3 *w
Else
P =2.6 *w
End if
Else
P=3.5*w
End if
Print p

同类题5

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后，Text1显示 ① ，Text2显示 ② 。

相关知识点