2.2 做出判断的分支 知识点题库
Dim n As Integer, i As Integer, a As Integer, b As Integer
Randomize
n=5：i=1
Do While i <=n
a= Int(Rnd*90)+ 10
b= Int(Rnd*90)+ 10
If a>b Then
List1.AddItem Str(a)+"-"+ Str(b)+“=“
i=i+1
End If
Loop
执行该程序段后，下列说法正确的是（ ）
s=0
For k =3 To 1 Step-1
If k <=1 Then x=1
If k <=2 Then x=2
If k <=3 Then x=3
s=s+x
Next k
Text1. Text= Str(s)
该程序段运行后，文本框Text1中显示的内容是（ ）
-
（1） 要使得“计算”按钮的宽度增加，应修改该对象的属性。
-
（2） 为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1 _Click( ) ‘蒙特卡洛法
Randomize ‘随机数初始化
Dim i As Long, n As Long, s As Long
Dim x As Double, y As Double, z As Double
n =Val(Text1. Text)
i=1
s=0
Do While < = n ‘随机投点n次
x= Rnd : y = Rnd
z = ①
If z < = 1 Then
②
End If
i=1+1
Loop
Text2. Text = ③
End Sub
① ② ③
A) 将英文字符的ASCII码值加20(十进制) ；
B)以字节为单位进行加密处理；
C)将1个字节的8位二进制数左移一位，最低位用左移出的最高位填充；
D)将处理后的8位二进制数分割成前4位与后4位两个二进制数；
F)分别将上述两个4位二进制数转换为十六进制数；
G)所得两个十六进制数码交换顺序后连接，即为该字节的密文。
按照上述规则，小明设计了一个解密的VB程序，功能如下：单击“解密”按钮Command 1，程序依次将文本框Text 1中字符提取(只有0到9、A到F)，进行解密处理，并输出在文本框Text 2中，程序运行效果如图所示。请回答下列问题：
-
（1） 已知明文是A9(已知大写字母A的ASCII值为65D，数字0的ASCII值为48)，则对应的密文是。
-
（2） 请在划线处填入合适代码。
Private Sub Command 1 Click()
Dim mw As String，mingw As String，ch As String
Dim i As Integer, k As Integer，j As Integer，t As Integer，p As Integer
Dim a( 1 To 8) As Integer
mw=Text 1.Text
For i= 1 To 8
a(i)=0
Next i
For i=1 To Len(mw)
ch=Mid(mw，i，1)
If ch>=“0”And ch<=“9”Then
t=Val(ch)
Else
t= ①
End If
j=0
Do While t<>0
j=j+1
a( ② )=t Mod 2
t=t＼2
Loop
If i Mod 2= 0 Then
k=a(8)
For j= 1 To 7
③
Next j
If k-20>=0 And k-20<= 127 Then
④
For j= 1 To 8
a(j)=0
Next j
Else
mingw=“输入错误”
End If
End If
Next i
Text 2.Text=mingw
End Sub
① ② ③ ④
-
（1） 在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性。
-
（2） 实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t=①
s = "Str(a)" + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +②
End Sub
-
（3） 运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是。
……
Private Sub Command1_Click()
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer
Dim i As Integer, j As Integer, m As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val(Text1.Text)
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
If m Mod 3 <> 0 Then 
'① 把m调整到三个一组的最后一个数的位置
If key = a(m) Then
search = m : Exit Do
ElseIf key < a(m) Then
j = m - 3
ElseIf 
Then '②
i = m + 1
ElseIf key = a(m - 2) Then
search = m - 2 : Exit Do
ElseIf key = a(m - 1) Then
search = m - 1 : Exit Do
Else
search = 0 : Exit Do
End If
Loop
If search <> 0 Then
Text2.Text = Str(search)
Else
Text2.Text = "找不到"
End If
End Sub
加①②
k = 0: s = ""
For i = 1 To n
Next i
Text1.Text = s
方框中的代码由以下四部分组成：
①If a(i) = 0 Then k = k + 1
②If p = k Then s = s + Str(a(i - k))
③a(i - k) = a(i)
④p = k
代码顺序正确的是（ ）
listque=[] #定义列表listque存储订单
x=0
while(x!=4):
print('1. 添加订单')
print('2. 发货')
print('3. 查看订单列表')
print('4. 退出')
x=int(input("输入你的选择:"))
if x==1:
y=input("输入订单编号:")
listque.append(y)
elif x==2:
if len(listque)==0:
print("订单列表为空")
else:
print("发货单号:"+listque.pop(0))
elif x==3:
print("等待发货:",listque)
print( )
input("运行完毕，请按回车键退出...")
Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
a = a + 1
Image1.Picture = LoadPicture(App.Path & "\" & a & ".jpg")
If a >= 8 Then a = 0
End Sub
单击命令按钮Command1，加框处语句执行的时间间隔为（ ）
cp=input("请输入车牌号（格式如“浙 H64M46”）:")
s1=cp[2:4]
s2= ①
if ② :
print("不是对称车牌")
else:
print("是对称车牌")
为实现功能，划线处代码应为（ ）
a="2021"
b="21"
if a+b>b+a:
c=a*3
else:
c=b*3
print（c）
程序执行后，输出的结果是（ ）
PRIVATE SUB FORM_CLICK( )
X=3 : Y=12
IF X>2 THEN Y=3
Y=5
PRINT Y
END SUB
listl.pop（3）
print（listl） 的值为（）
