现有如下VisualBasic程序段：s=0：x=2：y=49DoWhilex<=Sqr(y) s=s+xx=x+2Loop该程序段运行后，x_刷题宝

题干

现有如下Visual Basic程序段：

s = 0 ：x = 2：y = 49

Do While x <= Sqr(y)

s = s + x
x = x + 2

Loop

该程序段运行后，x的值是（）

A．2

B．6

C．8

D．12

上一题下一题 0.99难度选择题更新时间:2019-06-04 05:14:10

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

同类题1

有如下程序段，若在text1中输入"abcd + BC + cdef + DE"，请问程序执行后list1中第3行中出现的值为
Dim a(1 To 26) As Integer
s = Text1.Text : n = Len(s)
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then

a(Asc(c) - 96) = a(Asc(c) - 96) + 1

ElseIf c >= "A" And c <= "Z" Then

a(Asc(c) - 64) = a(Asc(c) - 64) + 1

End If
Next i
For i = 1 To 26
List1.AddItem Str(a(i))
Next i

同类题2

小李利用所学的 VB 知识，编写了一个简单计算器：在文本框 Text1 中输入一个加减算式（只包含数字和“ +”、“ -”符号，以“ =”结束），点击“计算”按钮 Command1，计算结果在标签 Label1 上显示。程序运行界面如下图所示：

（1）要实现程序运行时，单击文本框 Text1 即可将文本框清空，则应在 _______(A 、Command1_Click/B、 Form_Load/C、 Text1_Click)事件处理过程中添加语句 Text1.text=”” 。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click
Dim s As String, ch As String, sum As Integer
Dim fh As Integer
s = Text1.Text: fh = 1: p = 0: sum=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
p = ①________
Else
sum = ②________
p = 0
If ch = "-" Then
fh = -1
ElseIf ch = "+" Then
fh = 1
End If
End If
Next i
Label1.Caption = Str(sum)
End Sub
（3）若文本框 Text1 中输入的内容为“ 12*10=”（不包括双引号），单击“计算”按钮后，标签Label1 上将显示：________ .（A、 120 / B、 22 / C、 0 /D、程序出错无法显示）

同类题3

采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的 VB 程序段如下：

c = 1: s = 10
Do While c <= s
For i = s To c + 1 Step -1
If

Then
t = a(i - 1): a(i - 1) = a(i): a(i) = t
End If
Next i
For i =

Then
t = a(i + 1): a(i + 1) = a(i): a(i) = t
End If
Next i
c = c + 1
s = s - 1
Loop
上述程序段三个方框处的语句分别为（）

A．① a(i - 1) < a(i) ② c +1 To s – c ③ a(i) <a(i + 1)

B．① a(i - 1) > a(i) ② c +2 To s – c ③ a(i) >a(i + 1)

C．① a(i - 1) < a(i) ② c +1 To s – c-1 ③ a(i) <a(i + 1)

D．① a(i - 1) > a(i) ② c+ 2 To s – c+1 ③ a(i) >a(i + 1)

同类题4

某程序代码如下：
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)

a(i) = Mid(s, i, 1)

Next i
For i = 1 To Len(s) - 1

k = i

For j = i + 1 To Len(s)

If a(k) < a(j) Then k = j

Next j

If i < > k Then

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

End If

Next i
For i = 1 To Len(s) - 1

If a(i) = a(i + 1) Then count = count + 1

Next i
程序运行结束后，变量count的值是

同类题5

.某程序代码如下：（） Dim count As Integer
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
k = i
For j = i + 1 To Len(s)
If a(k) < a(j) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To Len(s) - 1
If a(i) = a(i + 1) Then count = count + 1
Next i
程序运行结束后,变量 count 的值是（）

相关知识点