有一个对象属性面板如图所示，该对象名为（   ）

A．cmd_1

B．CommandButtom

C．Caption

D．lable

某算法的部分流程图如图所示，执行这部分流程后，输出 s,n 的值分别是（）

A．105，9

B．15，9

C．105，7

D．15，7

（加试题）有如下VB程序段：
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1 
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（   ）

A．52，95，46，74，77，83	B．50，55，46，70，21，97
C．62，78，57，61，69，50	D．31，54，48，72，50，82

产生[1，40] 范围内某一随机整数的表达式是

A．Rnd * 40	B．Int(Rnd * 40)
C．Int(Rnd * 40) + 1	D．Int(Rnd * 39) + 1

在 Visual Basic 中，表达式 13 \ 5 Mod 4 的值是

A．1

B．2

C．3

D．4

对于任意小数 a，如果要四舍五入保留 2 位小数，表达式为

A．(int(a)*10+0.5)/10	B．int(a*10+0.5)/10
C．(int(a)*100+0.5)/100	D．int(a*100+0.5)/100

有如下的 Visual Basic 程序段：
s = 0 : x = 1
Do While x <= 5 s = s + x

x = x + 2

Loop
该程序段运行后，语句 s = s + x 执行的次数是

A．1

B．2

C．3

D．5

有如下的程序段：
Private Sub Command1_Click() Dim a As String, b As String
a = Text1.Text : b = Text2.Text
Text3.Text = a + b
End Sub
运行程序，在对象 Text1 和 Text2 中分别输入 2 和 3，则单击命令按钮 Command1 后，对象 Text3 中显示

A．23

B．5

C．2

D．3

在 Visual Basic 程序中要用到存储范围为-150000～150000 的某一整数变量，则该变量的类型应该定义为

A．Integer

B．Long

C．Single

D．Boolean

“如果 a，b，c 中任意一个为 0，那么 y＝y2＋1”。能实现该功能的 VB 语句是(    )

A．If a ＝ 0 And b ＝ 0 And c = 0 Then y ＝ y*y ＋ 1

B．If a * b * c＝ 0 Then y ＝ y^2 ＋ 1

C．If a ＝ 0, b ＝ 0, c = 0 Then y ＝ y^2 ＋ 1

D．If a ＝ b ＝ c = 0 Then y ＝ y*y ＋ 1

有一个对象属性面板如图所示，能将其中的属性名 caption 获得赋值为“正确“的是（   ）

A．Command1.Text=“转换”	B．Lable.Caption=“转换”
C．Command1.Caption=“转换”	D．Lable.Text=“转换”

有一个对象属性面板如图所示，这是（   ）

A．窗体控件

B．属性控件

C．按钮控件

D．标签 Lable 控件

王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。解决此问题的相应程序如下，完成相应的填充。

Private Sub Command1_Click（）
Dim a As Integer , s As Long , b As Integer , i As Integer
For i=0 To 9999 ___________
s=310000+i
If s Mod 46 = 0 Then
a = s mod 10
b=(s\10)mod 10
If ___________Then
___________
End If
End If
Next i
End Sub

小明编写了一个字符重组程序，在文本框 Text1 中输入偶数个字符，单击“重组”按钮 Command1 后，将输入的内容从头、尾至中间依次取字符，组成一个新的字符串 Str2，并在文本框 Text2 中输出。例如在文本框 Text1 中输入字符 "12345678"，程序运行后在文本框 Text2 中显示字符 "18273645"。

实现上述功能的 VB 程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = Text1.Text
Str2 = "" : m = 0
Do while _______________ 
Str2 = Str2 + ___________ 
Str2 = Str2 + ___________
m = m + 1
Loop
Text2.text=str2
End Sub

某英文字符加密算法，对明文中的每个字符进行下列加密处理：
1）将该字符 ASCII 码转换成对应的 2 位 16 进制数；2）将产生的 16 进制数互换位置3）步骤 2 产生的 16 进制数即为明文加密后的密文字符根据上述加密算法，小明编写了一个解密程序，界面如图。

（1）如果明文为 24，那么密文是_____
（2）请在横线处填上合适的代码
Dim    s as string
Private Sub Command1_Click()
Dim d as string,d1 as string,d2 as string
Dim c as integer,c1 as integer,c2 as integer
Dim ans as string,i as integer
‘读取密文，显示在 text1，并存储在 s 中，代码略
Ans=””
For i = 1 To len(s) step 2
d1 = Mid(s, i, 1) : d2 = Mid(s, i+1, 1)
if d1>=”A” then______________   
else
c1=val(d1)

c2=val(d2) : c=____________

 d=chr(c) : ans=_________
Next i
Text2.Text = ans
End Sub

素数只能被 1 和它本身整除，不能被其他自然数整除。编写 VB 程序实现如下功能：单击“产生奇数并判断”按钮 Command1，随机产生一个三位正奇数显示在文本框 Text1 中，并在文本框 Text2 中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为 953 时，程序运行界面如图 a 所示。

(1)在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____(填写相应编号)添加文本框 Text1。
(2)实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n =____________________ ‘n 为三位正奇数
Text1.Text = Str(n) : flag = True: i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0    Then flag = False
End If
i = i + 2
Loop
If ____________Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是_____(单选，填字母）。

A．    n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i