小王同学正在学习二元一次方程，老师布置了一个二元一次方程求解的题目，方程为2x+3y=10。请利用VB编程帮他求出此二元一次方程的所有整数解（10≥x≥-10，10≥y≥-10），并将每组解在列表框List1中输出，同时统计出共有多少组解，并将统计结果在文本框Text1中显示。
程序运行界面如图所示，为实现以上功能，请在划线处填入合适代码。

Private Sub Command1_Click()
Dim x As Integer, y As Integer, t As Integer
t = 0
For x =" -10" To 10
For y =" -10" To 10
If_____________Then
List1.AddItem "X:" + Str(x) + "  " + "Y:" + Str(y)
t=t+1
___________
Next y
Next x
Text1.Text = Str(t)
End Sub

若输入28，以上代码输出结果是_______________。
Dim x as long
x=inputbox(“输入x的值”)
y="x" mod 7
if  y="4" or y="5" or y=" 6" then
xq=y-3
else
xq=y+4
end if
print  xq

下面是判断方程ax²+bx+c=0（a≠0）有无实根的部分算法表示，则图中虚线部分应填入

A．

B．

C．

D．

以下流程图描述的算法执行结果是

A．999

B．7

C．18

D．5

在Visual Basic中，若a=4，b=3，语句If a>b Then c=a+1  Else c=b-1执行后，下列说法正确的是（  ）。

A．执行了语句c=a+1

B．先执行c=a+1，再执行c=b-1

C．执行了语句c=b-1

D．先执行c=b-1，再执行c=a+1

（加试题）维吉尼亚密码。如下图所示，分别用行和列表示待加密的字符（明文）和当前字符的密钥，行和列的交叉点的字符即为加密后的结果（密文）。在加密时，密文与明文的字母大小写形式保持一致，如：明文字母为大写，则加密后的密文字母也为大写；当密钥长度不足时重复使用密钥。

 

例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：
明文：HelloWorld
密钥：abcabcabca
密文：HfnlpYosnd
依据上述算法描述设计了如下VB程序。请回答下列问题：
（1）若明文是Jia，密钥是Pass，则输出的密文是：_________
（2）请在划线处填上合适的代码
Const MIN_ASC = 65
Function X2D(x As String) As String
Dim s As String, zf As String, i As Integer
s = ""
For i = 1 To Len(x)
zf = Mid(x, i, 1)
If zf >= "a" And zf <= "z" Then
s=s+ ①________
Else
s = s + zf
End If
Next i
X2D = s
End Function
Private Sub Command1_Click()
Dim M As String, K As String, C As String, flag As Boolean
Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer
M = Text1.Text '明文
K = Text2.Text '密钥
t = Len(K)
K = X2D(K)  
C = ""
For i = 1 To Len(M)
ch = Asc(Mid(M, i, 1))
flag = False
If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True
pos= ②________ '密钥的字符位置值
If pos = 0 Then pos = t
j = Asc(Mid(K, pos, 1)) '密钥字符的ASCII值
ch = ch - MIN_ASC
j = j - MIN_ASC
ch= ③________
ch = ch + MIN_ASC
If flag Then ch = ch + 32 '设置字母的大小写形式
C = C & Chr(ch)
Next i
Text3.Text = C
End Sub

陈红设计了一个程序：当输入身高S后，如果身高小于170厘米显示“不合格”，如果大于等于170厘米则显示“合格”，则流程图中①处填写正确的条件是(   )。

A．S>=170

B．S<=170

C．S<170

D．S>170

高速公路上的测速设备会对机动车的行驶速度进行检测，并对超速的机动车自动进行拍照。测速设备对于是否拍照的控制，可以使用程序设计的方法来解决，此功能的实现主要使用（    ）。

A．判断结构

B．顺序结构

C．函数

D．递归

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序,将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在 文本框Text1中输入连续多组编码，单击“翻译”按钮Commandl，结果显示在列表框List1中。
程序运行界面如右图所示。

（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句________（单选，填字母：

A．Width=2018 /

B．Textl. Width = 2018 /

C．Width. Textl=2018）。

（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integer
s = Textl.Text: n = Len(s): i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "东"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v=_______________①
List1.AddItem d + " " + Str(v)
_____________②
Loop
End Sub
（3）若文本框Textl中输入的内容为“1111”，单击“翻译”按钮，列表框List1中显示的内容是_________。

对输入的两个整数a和b,找出其中的较大者赋给c并输出。解决该问题的算法流程图如图所示:

上述流程图中虚线框部分的内容可为(　　)

A．	B．
C．	D．