- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省东阳高级中学2018-2019学年高二下学期信息技术开学考试试卷

字符串中任意个连续的字符组成的子序列称为该字符串的子串，如字符串“123” 的子串有“1”、“2”、“3”、“12”、“23”、“123”。输出字符串s所有子串的VB程序段如下：

s = Text1.Text

List1.Clear

len1 = Len(s) ‘①

For i = 1 To len1 ‘②

For j = 1 To len1- i ‘③

List1.AddItem Mid(s, j, i) ‘④

Next j

Next i

运行时发现未输出所有子串，则修改（）

A、①处所在行的语句为len1= Len(Text1.text) B、②处所在行的语句为For i= 1 To len1+ 1 C、③处所在行的语句为For j= 1 To len1+ 1- i D、④处所在行的语句为List1.AddItem Mid(s, i, j)

举一反三

Private Sub Command1_Click()

n = 6

x = 1

For i =1 To n

x = x * i

End Sub（）

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Text1.Text = Str(Sqr(a))

End Sub

程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因可能是（）

图a

图b

x=10

y=3

print(x%y，x**y)

相关试卷