商品条形码是一个13 位数,它是商品的“身份证”。条形码中前8位是厂商识别代码，接着4 位是商品项目代码，最后一位是校验码。校验码是由前12 位数按一定公式计算而得出的，其计算公式见下表

小明编写了一个VB程序，输入一个二维码后，点击“验证”按钮后，程序根据如上算法验证
条形码的验证码是否正确，代码如下所示：
Private Sub Command1_Click（）
Dim s As String，x As String
Dim js As Integer，os As Integer，jy As Integer
s =" Text1." Text
n = Len（s）
If n <> 13 Then
Label1.Caption = "条形码位数错误"
Else:学#科#网Z#X#X#K
For i =" 1" To 12
x = Val（Mid（s，i，1））
If _____①___________Then
js =" js" + x
Else
os =" os" + x
End If
Next i
End If
jy =" os" * 3 + js
jy = ______②____________
If  jy =" 10"  Then jy = 0
If  jy = Val(Mid(s，13，1))  Then
Label1.Caption = "验证码正确"
Else
Label1.Caption = "验证码错误"
End If
End Sub
(1)要实现如上VB程序，在窗体上至少有_____个控件对象(窗体除外)。
(2)要实现上述功能，程序中划线处①位置应填写的表达式是___________________
(3)要实现上述功能，程序中划线处②位置应填写的表达式是____________________
(4)若在该程序运行时，输入的待检测的二维码是“6921734953025”，执行上述程序，输出的
结果是________________________________

以下Visual Basic程序的功能是：在文本框Text1中输入一个两位数x，将个位上的数和十位上的数互换组合成新的两位数y，并在文本框Text2中输出新数。

Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim i As Integer, j As Integer
x=val(text1.text)
i=x \ 10
_____________ ①
y=j*10+i  
Text1.Text = y   ②
End Sub
（1）为了实现上述表达式的计算，①处应填写的是____________。
（2）程序中②处的表达式有误，应更正为____________。

x是大于0小于45的数，用VB表达式表示正确的是（    ）

A．0<=x<45	B．0<=x<=45
C．0<x and x<45	D．0<=x and x<=45

能得到一个大于等于20且小于50随机整数的VB表达式是（   ）

A．Int(rnd*50)-20

B．Int(rnd*30+20)

C．Int(rnd*31+20)

D．Int(rnd*30)+1

有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer, r As Integer, s As String
Dim t As Integer, k As Integer, v As Integer
n = 35: t = 0: k = 0
s = ""
Do While n > 0
r = n Mod 2
n = n \ 2
t = t + r
k = k + 1
s = Str(r) + s
Loop
s = Mid("0000000", 1, 7 - k) + s
v = t Mod 2
Text1.Text = s + Str(v)
End Sub
执行该程序段后，文本框Text1中显示的内容是

A．1 0 0 0 1 1 1

B．0 1 0 0 0 1 1 1

C．1 1 0 0 0 1 1

D．1 1 0 0 0 1 0 1