有如下VB程序段：S=0i=5DoWhilei<12Ifs<6 Thens=s+i else s=s-3i=i+1Loop执行以上程序后，变量ｉ和ｓ_刷题宝

题干

有如下VB程序段：
S = 0
i = 5
Do While i < 12
If s <6 Then s = s+i else s = s-3
i = i+1
Loop
执行以上程序后，变量ｉ和ｓ的值分别为（）

A．11 5

B．11 8

C．12 8

D．12 5

上一题下一题 0.99难度选择题更新时间:2019-03-02 02:54:41

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

同类题1

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（）

同类题2

有如下VB程序：
Private Sub Command1_Click()
Dim a(5) As Integer
Randomize
For i = 1 To 5
a(i) = 2 * Int(Rnd * 3) + 1
Next i
For i = 1 To 5
r = 2 * Int(Rnd * 3) + 1
If a(r) Mod 2 = 1 Then a(r) = a(r) + 1
Next i
End Sub
该程序段运行后，a(1)~a(5)各元素的值不可能的是（）

A．2，5，6，1，4	B．4，1，2，3，4
C．5， 6，3，2，6	D．6，5，2，1，2

同类题3

下列流程图描述的是判断任意3个正数A、B、C是否能构成勾股数，请按此算法功能，把流程图填写完整。

A．A^2="B^2+C^2" or B^2="A^2+C^2" and C^2=A^2+B^2

B．A^2="B^2+C^2" and B^2="A^2+C^2" or C^2=A^2+B^2

C．A^2="B^2+C^2" and B^2="A^2+C^2" and C^2=A^2+B^2

D．A^2="B^2+C^2" or B^2="A^2+C^2" or C^2=A^2+B^2

同类题4

若变量m =" 0" .81 ，则表达式Sqr ( m ) ＜1 And Not int ( m) > 1 的值是_____

同类题5

有如下VB程序段：
s="EXPO2019":m=0:n=0
For i=1 To Len(s)
ch= Mid(s, i, 1)
If ch >=A"And ch <="Z" Then t= Asc(ch)-Asc("A")+1 Else t=Asc(ch)-Asc("0")
If t Mod 2=0 Or t Mod 3=0 Then

m=m+1

ElseIf t Mod 5=0 Then

n=n+1

End If
Next i
Labell Caption= Str(m)+ "：" +Str(n)
执行程序段后，标签 Label1显示的内容是（）

相关知识点