试题 试卷
题型：填空题 题类：常考题 难易度：普通
浙江省湖州市菱湖中学2018-2019学年高二下学期信息技术3月月考试卷
Private Sub Command1_click ( )
Dim n As Integer , x As Integer
n = Val ( Text1．Text )
x = n Mod 10
n = x * 1000 + n \ 10
Text1．Text = Str ( n )
End Sub
某旅客退房了，需要把这房子也登记上去，有四种情况需要处理：
1）上靠，例如退的房间号为3，则原来登记的3条记录变成（1 ， 3）， （6，3）， （10，1）．
2）下靠，例如退的房间号为5，则原来登记的3条记录变成（1，2）， （5 ， 4）， （10，1）．
3）上下不靠，例如退的房间号为4，则登记的记录数变成4条（1，2） ，（4 ， 1）， （6，3），（10，1）．
4）上下靠，例如退的房间号为9，则登记的记录数变成2条（1，2），（6，5）．
小王依据上述描述设计了如下VB程序。请回答下列问题：
s=Text1．Text
List1．Clear
Len1=Len(s) ‘①
For i=l To len1 ‘②
For j=1 To len1-i ‘③
List1．Addltem Mid(S，j，i) ‘④
Next j
Next i
运行时发现未输出所有子串，则修改（ ）
Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer, k As Integer, tmp As String
n = Val (Text1.Text)
sum = 0:List1.Clear
For i = 1 To n-1
j=i
Do While sum < n
{#blank#}1{#/blank#}
j = j + 1
Loop
If sum = n Then
{#blank#}2{#/blank#}
For k=i+1 To j-1
tmp = tmp + “+” + Str(k)
Next k
List1.AddItem tmp +“=”+ Str(n)
End If
{#blank#}3{#/blank#}
Dim u As Single, x As Single, y As Single, z As Single
u=Val(Text1.Text)
x=(u+10)/(u*u+8)
y=(u-1)/(x+u)
z=Sqr(x-y)
Text2.Text=Str(z)
程序运行时，在文本框Text1中输入-1，单击命令按钮Command1，弹出如图所示的错误提示信息。产生此错误的语句是（ ）
试题篮
