某VB的事件过程如下：
Pirvate Sub Command1_Click()
a = Val(Text1.Text)
b = a * a + 1
Text1.Text = b
End Sub
程序运行时，在文本框Text1中输入2，连续两次单击命令按钮Command1后，Text1中显示的内容是（ ）
Pirvate Sub Command1_Click()
a = Val(Text1.Text)
b = a * a + 1
Text1.Text = b
End Sub
程序运行时，在文本框Text1中输入2，连续两次单击命令按钮Command1后，Text1中显示的内容是（ ）
| A．677 | B．2 | C．26 | D．5 |
从原点（0，0）出发，顺时针旋转，经过平面上所有整点恰好一次，我们称之为螺旋折线，如图所示。对于整点（x，y），我们定义它到原点的距离是从原点到（x，y）的螺旋折线段的长度。例如：x=0，y=1，则螺旋折线段的长度为3；x=-2，y=-1，则螺旋折线段的长度为9。
现要求计算从原点到整点（x，y）螺旋折线段的长度。小王根据上述描述设计如下VB程序，请回答下列问题：
（1）从原点到整点（4，0）螺旋折线段的长度为____________。
（2）请在画线处填入合适的代码。
Dim x As Integer,y As Integer 'x用于存储横坐标的值,y用于存储纵坐标的值
Private Sub Command1 _ Click()
Dim sum As Integer,m As Integer
Dim dx As Integer,dy As Integer
Dim i As Integer,t As Integer
x=Val(Text1. Text)
y =Val(Text2. Text)
dx = 0:dy=0
sum=0
m=1:t=-1
Do While not check(dx,dy)
For i=1 To m
If check(dx,dy)Then exit do 'Exit do表示退出Do循环
dx = dx+t
sum = sum+1
Next i
①_____
For i=1 To m
If check(dx,dy)Then Exit Do
②_____
sum = sum + 1
Next i
m=m+1
Loop
Label1. Caption= Str(sum)
End sub
Function check(xl As Integer,y1 As Integer)As Boolean
check = False
If x1=x And y1=yThen
③_____
End If
End function
现要求计算从原点到整点（x，y）螺旋折线段的长度。小王根据上述描述设计如下VB程序，请回答下列问题：
（1）从原点到整点（4，0）螺旋折线段的长度为____________。
（2）请在画线处填入合适的代码。
Dim x As Integer,y As Integer 'x用于存储横坐标的值,y用于存储纵坐标的值
Private Sub Command1 _ Click()
Dim sum As Integer,m As Integer
Dim dx As Integer,dy As Integer
Dim i As Integer,t As Integer
x=Val(Text1. Text)
y =Val(Text2. Text)
dx = 0:dy=0
sum=0
m=1:t=-1
Do While not check(dx,dy)
For i=1 To m
If check(dx,dy)Then exit do 'Exit do表示退出Do循环
dx = dx+t
sum = sum+1
Next i
①_____
For i=1 To m
If check(dx,dy)Then Exit Do
②_____
sum = sum + 1
Next i
m=m+1
Loop
Label1. Caption= Str(sum)
End sub
Function check(xl As Integer,y1 As Integer)As Boolean
check = False
If x1=x And y1=yThen
③_____
End If
End function
某VB程序段如下：
s = "Hello World"
s1 = ""
n = Len(s)
For i = 1 To n \2
Text1.Text = s1
执行该程序段后，在文本框Text1中显示的是（ ）
s = "Hello World"
s1 = ""
n = Len(s)
For i = 1 To n \2
If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then
s1 = s1 + Mid(s, i, 1)Else
s1 = Mid(s, n - i + 1, 1) + s1End If
Next iText1.Text = s1
执行该程序段后，在文本框Text1中显示的是（ ）
| A．WlleH | B．oorld | C．dlroo | D．orldo |
小林编写了一个用于1至9之间整数加减乘除运算的小程序，具体功能如下：在文本框 Text1中输入一个算术表达式（该表达式仅包含1至9之间的整数和加减乘除运算符，其中最后一个运算符肯定是乘或除，且乘或除运算符的前和后一个运算符仅可能为加减或没有），单击“计算”按钮Command1，将运算结果显示在 Label2中。程序运行界面如图所示，实现上述功能的VB程序如下，请回答下列问题：
（1）将窗体标题更改为“简单算术运算”，应修改窗体的________________属性的属性值。
（2）请在划线处填入合适的代码。
（3）加框处的代码有错误，请改正。
Private Sub Commandl_ Click()
Dim s As String, c As String, i As Integer
Dim sum As Single, suml As Single, sum2 As Single, k As Integer, j As Integer
s= Text1. Text: sum2= 0:k=1
For i= I To Len(s)
c= ____________________
sum= Val (Mid (s, i+ 1. 1)* Val (Mid (s, i- 1, 1))
Else
sum= Val (Mid (s, i- 1,1)/Val (Mid (s, i+ 1, 1))
End If
j= i-2
Do While
________
c= Mid（s, j, D）
If c=“+” Then suml- Val (Mid (s, j- l, 1))+sum
If c=“-” Then suml – Val (Mid (s, j-1, i))-sum
sum= sum1
j= j- 1
If c=“+”Then sum2= sum2 + sum
If c=“-”Then sum2= sum2- sum
sum = 0
Next i
Label2. Caption=sum2
End Sub
（1）将窗体标题更改为“简单算术运算”，应修改窗体的________________属性的属性值。
（2）请在划线处填入合适的代码。
（3）加框处的代码有错误，请改正。
Private Sub Commandl_ Click()
Dim s As String, c As String, i As Integer
Dim sum As Single, suml As Single, sum2 As Single, k As Integer, j As Integer
s= Text1. Text: sum2= 0:k=1
For i= I To Len(s)
c= ____________________
If c=“*” Or c=“/”Then
If c=“*” Thensum= Val (Mid (s, i+ 1. 1)* Val (Mid (s, i- 1, 1))
Else
sum= Val (Mid (s, i- 1,1)/Val (Mid (s, i+ 1, 1))
End If
j= i-2
Do While
________c= Mid（s, j, D）
If c=“+” Then suml- Val (Mid (s, j- l, 1))+sum
If c=“-” Then suml – Val (Mid (s, j-1, i))-sum
sum= sum1
j= j- 1
Loop
If k= 1 Then
sum2= sum2 + sumElse
c= Mid(s, k, 1)If c=“+”Then sum2= sum2 + sum
If c=“-”Then sum2= sum2- sum
End If
k= _________________
End Ifsum = 0
Next i
Label2. Caption=sum2
End Sub
下列VB程序运行时，（如图所示），
PirvateSub
Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a + b
End Sub
在文本框Text1中输入20，在文本框Text2中输入13，单击命令按钮Command1后，文本框Text3中显示的内容是（ ）
PirvateSub
Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a + b
End Sub
在文本框Text1中输入20，在文本框Text2中输入13，单击命令按钮Command1后，文本框Text3中显示的内容是（ ）
| A．33 | B．”33” | C．”2013” | D．2013 |
如图所示，三个文本框自上而下的顺序是Text1，text2，text3，在文本框text1中输入3，在文本框text2中输入4。单击命令按钮“计算”后，文本框Text3中显示的内容是( )
| A．14 | B．12 | C．25 | D．24 |
一个单窗体VB程序的运行界面如下图所示。
下列说法正确的是（ ）
（1）窗体内有1个按钮
（2）窗体内有2个文本框
（3）窗体内有3个标签
（4）该窗体的标题Caption属性值是“加法计算器”
下列说法正确的是（ ）
（1）窗体内有1个按钮
（2）窗体内有2个文本框
（3）窗体内有3个标签
（4）该窗体的标题Caption属性值是“加法计算器”
| A．（2）（3） | B．（1）（4） | C．（1）（2） | D．（3）（4） |
查找最短26个字母字符串: 在文本框Text1中输入任意一串仅包含小写字母的字符串（长度n>=26），要求找到长度最小的一段区间，能够包含全部26个小写英文字母。小王设计了VB程序用于搜索最短字符串，单击“查找”按钮 Command1，若无解，则在标签 Label1中输出“无解！”，反之程序在标签 Labell中输出该最小区间的长度以及字符的开始位置，并在文本框Text2中输出相应的最短字符串，程序界面如图所示。
查找最短26个字母字符串的算法可描述为:
1）确定初始右边界: 从第1个字符开始，向右搜索到包含全部26个字母的子串，并因此而确定右边界，同时记录每个字母在子串中出现过的次数。
2）调整子串左边界: 若左边界有重复的字母则表明该子串可缩短，故左边界可右移1位，……直到找到一个符合条件的子串并记录，然后子串左边界再右移1位。
3）调整子串右边界: 子串右边界继续右移，在新子串符合条件后，记录并进行比较。重复2）各调整步骤，直至遍历完整个字符串，获得并输出满足条件的最小长度字符串。
实现上述功能的VB程序如下，请回答下列问题:
（1）对于字符串“ qbwcadsgeqbdatcy”，包括字母 abcde的最短字符串长度为___________（填数字）
（2）请在划线处填入合适的代码。
Const n=200
Dim i As Integer, k As Integer, length As Integer, L As Integer
Dim pos As Integer, sl As String, res As String
Dim f(1 To 26) As Integer ＇数组f记录每个小写英文字母的出现次数
Dim s(1 To n)As Integer ＇数组s记录每个输入字符在字母表中的位置
Private Sub Command1_ Click
Next i
k=0: pos=1: length=n
For i=1 To 26
f(i)=0
Next i
For i=1 To Len(sl)
If f(s(i))=0 Then k=k+1
f(s(i))=f(s(i))+1
Do While___________
f(s(pos))=f(s(pos))-1
If______________Then
k=k-1
If i-pos+1<length Then
length=i-pos+1
res=Mid (sl, pos, length)
L=pos
End If
End If
pos=pos+1
Loop
Next i
If res<>""Then
查找最短26个字母字符串的算法可描述为:
1）确定初始右边界: 从第1个字符开始，向右搜索到包含全部26个字母的子串，并因此而确定右边界，同时记录每个字母在子串中出现过的次数。
2）调整子串左边界: 若左边界有重复的字母则表明该子串可缩短，故左边界可右移1位，……直到找到一个符合条件的子串并记录，然后子串左边界再右移1位。
3）调整子串右边界: 子串右边界继续右移，在新子串符合条件后，记录并进行比较。重复2）各调整步骤，直至遍历完整个字符串，获得并输出满足条件的最小长度字符串。
实现上述功能的VB程序如下，请回答下列问题:
（1）对于字符串“ qbwcadsgeqbdatcy”，包括字母 abcde的最短字符串长度为___________（填数字）
（2）请在划线处填入合适的代码。
Const n=200
Dim i As Integer, k As Integer, length As Integer, L As Integer
Dim pos As Integer, sl As String, res As String
Dim f(1 To 26) As Integer ＇数组f记录每个小写英文字母的出现次数
Dim s(1 To n)As Integer ＇数组s记录每个输入字符在字母表中的位置
Private Sub Command1_ Click
res=" "
s1=Textl. Text
For i=1 To Len(s1)
s(i)= _____________Next i
k=0: pos=1: length=n
For i=1 To 26
f(i)=0
Next i
For i=1 To Len(sl)
If f(s(i))=0 Then k=k+1
f(s(i))=f(s(i))+1
Do While___________
f(s(pos))=f(s(pos))-1
If______________Then
k=k-1
If i-pos+1<length Then
length=i-pos+1
res=Mid (sl, pos, length)
L=pos
End If
End If
pos=pos+1
Loop
Next i
If res<>""Then
Text2 Text=res
Labell. Caption="最短长度: "+Str( length)+"开始位置: "+Str(L)Else
Labell. Caption="无解！"
End if
End Sub某对分查找算法的VB程序段如下:
Dim a(l to 6)As Integer
i=1: j=6: n=0
key= Val(Textl. Text)
Do While i<=j
n=n+1
m=(i+j)\2
If key=a(m) Then Exit Do ＇Exit do为退出do循环
If key<a(m) Then
j=m-1
Else
i=m+1
LOOP
数组元素a(1)到a(6)的值依次为“1921，1927，1949，1998，2008，2019”。在文本框Text1中输入“1998”后运行该程序，则以上程序段运行结束后，下列说法正确的是（ ）
Dim a(l to 6)As Integer
i=1: j=6: n=0
key= Val(Textl. Text)
Do While i<=j
n=n+1
m=(i+j)\2
If key=a(m) Then Exit Do ＇Exit do为退出do循环
If key<a(m) Then
j=m-1
Else
i=m+1
LOOP
数组元素a(1)到a(6)的值依次为“1921，1927，1949，1998，2008，2019”。在文本框Text1中输入“1998”后运行该程序，则以上程序段运行结束后，下列说法正确的是（ ）
| A．变量i的值为3 |
| B．变量j的值为5 |
| C．变量m的值为3 |
| D．变量n的值为3 |