有如下所示VB程序段:str1=“ABCDEFGHIJKLMNOPQRSTUVWXYZ”s=“”Fori=1To4t=Int(Rnd*10)+1IftMod2_刷题宝

题干

有如下所示VB程序段:

str1 = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

s = “”

For i = 1 To 4

t = Int(Rnd*10) + 1
If t Mod 2 = i Mod 2 Then
t = t + 1
Else
t = t + 2
End If
s = s + Mid(str1，t，1)

Next i

List1.AddItem s

执行该程序段后，列表框Listl中可能显示的内容是( )

A．BADC

B．BCDY

C．DEFG

D．CDEF

上一题下一题 0.99难度选择题更新时间:2020-02-07 03:51:37

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

同类题1

关于枚举算法的说法错误的是( )

A．一般是通过循环中嵌套分支结构来实现的。

B．循环结构用来“枚举”，分支结构用于“检验”。

C．列举所有可能解的范围时，可以扩大但不能缩小，以防漏解。

D．采用枚举法时，也可能找不到符合条件的解。

同类题2

解决上问题所用的算法是:（）

C．顺序查找

同类题3

下列问题中适合使用枚举算法解决的是（）

A．计算两个数的乘积

B．计算50个同学的平均分

C．查找200以内所有能被7整除且个位数字为5的自然数

D．设计主题班会

同类题4

用 VB 编写统计某字母开头的单词个数的程序。程序功能：在文本框 Text1 中输入待统计的句子，在文本框 Text2 中输入某字母，单击“统计”按钮Command1后，将结果显示在Label3中。输入要求：句子以“.”结束；单词之间用空格分隔，单词没有缩写或其他特殊形式。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, n As Integer,b As Integer
Dim c As String, t As String, s As String, f As Boolean
s = Text1.Text
t = Text2.Text
b = Len(s)
f = True
For i = 1 To b
c = Mid(s, i, 1)
If  ① Then
n = n + 1
②
ElseIf c = " " Or c = "." Then
③
Else
f = False
End If
Next i
Label3.Caption = "以" + t + "为开头的单词个数：" + Str(n)
End Sub
为实现上述程序，空格处应填入的代码是（   ）

A．① f And c = t ② f = False ③ f = True

B．① f = False And c = t ② f = False ③ f = True

C．① c = t ② f = True ③ f = False

D．① f = True And c = t ② f = True ③ f = False

相关知识点