2.2 做出判断的分支 知识点题库
Private Sub Command1_Click()
Dim a As intger, i As intger, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i > n Then ① Else ②
Next i
text2.Text = s
End Sub
为实现以上功能，①②处分别填写（ ）
a=4
b=7
a=a+b
b=a+b
-
（1） 若要将文本框的默认值设为空，则应设置文本框的属性为空。
-
（2） 实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click( )
Dim s As String, a As String, b As String
Dim p As Integer, sum As Integer
s= Text1. Text+ “e” ‘加一个结尾非数字字符
i=1
P=0
sum=0
Do While i< Len(s)
a=Mid(s, i, 1)
b =Mid(s,+1, 1)
If(a > = “0” And a < = “9”) And (b > = “0” And b < = “9” ) Then
p=p*10+Val(a)
①
p=p*10+Val(a)
sum=sum+p
p=0
i=i+1
Eed If
②
Loop
Text2. Text= str(sum)
End Sub
① ②
-
（3） 若输入的字符串是“a2b056789bc8”，则程序运行后显示的结果是。
-
（1） 观察代码，可知“计算”命令按钮的对象名为。
-
（2） 请在划线处填入合适的代码。
Private Sub Command_Click( )
Dim i As Integer, j As Integer, ans As Integer
Dim ch As String, s As String
s= Text1 Text
ans = 0:j = 1
For i =l To Len(s)
①
If ch = "," Then
ans =ans Val (Mid(s, j, i-j))
j= ②
End If
Next i
Label1. Caption ="计算结果是:"+Str( ans)
End sub
① ②
-
（3） 运行该程序，在文本框中输入“21，5，3”，则计算结果（值）是。
Const n = 8
i = 1: j = n
k = Val(Text1.Text)
Do While i < j
m = (i + j) \ 2
If a(m) > k Then
i = m
Else
j = m - 1
Loop
p = (i + k) Mod n
Label1.Caption = Str(a(p))
已知数组a（1）到a（8）原始数据为“6,1,8,9,10,11,2,3”，在文本框Text1中输入7，执行上面代码后，Label1中的内容是（ ）
Dim a, b, c, As Integer
a=100
b=50
a=a-b
a=a*2
s=56
s1=s\10
s2=s Mod 10
s=s1+s2*10
Print "s="; s
Private Sub Command1_Click()
Dim s As Integer, b As Integer
s = 0: b = a(1) + 1
For i = 2 To n
Next i
Label1.Caption = Str(s)
End Sub
Function max(x As Integer, y As Integer)
If x > y Then 
Else
End Function
方框中的代码由以下四部分组成:
①max = y ②max = x ③b = max(b, a(i) + i) ④s = max(s, a(i) - i + b)
代码顺序正确的是（ ）
1)在左边第1位至最后第n个数(从右向左的第n个数)之间，找出最大值，确定新数的最高位；
2)从最大值的下个位置到第n-1个数之间查找最大值，确定新数的第二位。
3)依次类推，确定最终的最大数。
设计了一个VB程序，在文本框Text1中输入一个n位正整数，在文本框Text2中输入保留的位数，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。
-
（1） 如果输入的原数是3635132，保留4位数字，则输出的新数是。
-
（2） 实现上述功能的VB代码如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 20) As String
Dim ys As String, xs As String ′xs记录最大的新数
Dim k As Integer, h As Integer, n As Integer
Dim i As Integer, j As Integer
Dim F As Boolean
xs=“ ”
ys= Text1.Text
n= Len(ys)
k= Val(Text2.Text)
F= True
If ys=“ ” Or n > 20 Or k = 0 Or k > n Then
Label4.Caption =“输入的原数或保留位数不符，请重输！”
F=False
End If
For i= 1 To n
If a(i)<“0” Or a(i)>“9” Then
Label4.Caption=“输入的原数不是数字，请重输！”
Text1.Text=“ ”
F= False
End If
Next i
If F= True Then
h = 1
For i = 1 To k
For j= h To
If a(j) > a(h) Then h = j
Next j
h= h + 1
Next i
Text3.Text= xs
End If
End Sub
程序描述：输入三个正整数（a、b、c），将其中最小的那个数赋值给变量min并输出。
代码如下：
a=int(input("请输入第1个正整数："))
b=int(input("请输入第2个正整数："))
c=int(input("请输入第3个正整数："))
if a<b:
①
else:
②
if ③ :
④
print("最小数为："，min)
-
（1） ①处的语句是A . b=a B . a=b C . min=a D . min=b
-
（2） ②处的语句是A . b=a B . a=b C . min=a D . min=b
-
（3） ③处的语句是A . b<c B . b>c C . min>c D . a>c
-
（4） ④处的语句是A . c=b B . min=a C . min=b D . min=c
s1=Text1.Text: s2=Text2.Text
n=Len(s1): i=1: j= 1
Do While i<n+j-1 And j<=Len(s2)
If Mid(s1, i, 1)<Mid(s2, j, 1) Then
①
Else
s1= Mid(s1, 1, i-1)+Mid(s2, j, 1)+ Mid(s1, i, n+j-i)
②
End If
Loop
If ③ Then s1=s1+Mid(s2, j, len(s2)-j+1)
Text2.Text=s1
横线①②③处的代码为（ ）
L = [1,-2,3,7,-8,-9,10]
j=len(L)-1
i = 0
k = 0
while i<j:
while L[i]>0:
i=i+1
while L[j]<0:
j=j-1
if i<j:
k = L[i]
L[i]=L[j]
L[j] = k
print(L)
Dim a(1 To 5) As Integer .
a(1)= 1
For i=2 To 5
a(i)= Int(Rnd * 9) +1
If a(i) Mod 2=1 Then
a(i)=a(i)+a(i - 1)
ElseIf i mod 2=0 then
a(i)=a(i) /2
End If
Next i
执行程序后，a数组各元素不可能是( )
