在VB中，若x=5，y=6，则下列程序段执行后，结果为x=6，y=5的是( )

A．x=y:y=x	B．y=x:x=y
C．x=y:t=x:y=t	D．t=x:x=y:y=t

在 Visual Basic 中，关系表达式 x/y=x\y 为真，则说明

A．x不能被y整除

B．x与y一定不相等

C．x与y一定相等

D．x 能被y整除

将数学表达式a≤b≤c写成Visual Basic表达式，正确的是（    ）

A．a<=b<=c

B．a<=b Or b<=c

C．a<=b And b<=c

D．a<=b Not b<=c

删除字符串中的非字母字符，并查找出ASCII码值最大的字母。程序功能如下: 在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text3中显示ASCII码值最大的字母，运行界面如图所示。

（1）程序中的Command1_Click()属于____________。（单选，填代码:

A．对象名/

B．事件名/

C．属性名/

D．事件处理过程名）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String, cmax as string
Dim i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①_________
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then
result =②______
End If
Next i
Text2.Text = result
j = 2
cmax = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) > cmax Then cmax = Mid(result, j, 1)
③________
Loop
Text3.Text = cmax
End Sub

下面程序执行的结果是( )

Private Sub Commandl click （ ）

Dim z as integer

x="2017"

y="06"

z=Val(x+y)

Print z

End Sub

A．error

B．62017

C．2023

D．201706

有如下Visual Basic程序：
Private Sub Command1_Click()
Dim sum As  Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序计算了一个表达式的值，这个表达式是

A．1/2+2/3+3/4+4/5	B．1+1/2+2/3+3/4
C．1+1/2+2/3+3/4+4/5	D．1+1/2+1/3+1/4+1/5

编写VB程序，实现如下功能：在文本框Text1中输入一个十进制整数，单击命令按钮Command1,在标签Label2上显示转换成十六进制数的结果，运行效果如图所示。

（1）在设计程序界面时，要使按钮Command1上的文字显示为“转化成十六进制”，应修改按钮Command1的_____________________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim y As Integer, r As Integer
Dim s As String, t As String
t = "0123456789ABCDEF"
s = ""
y = ①_________
Do While  y>0
r = y Mod 16
s = ②__________
y = ③_________
Loop
Label2.Caption = Text1.Text + "转化成十六进制数为：" + str(s)
End Sub

有如下VB程序段：
x=1 : a=x : b=x+1
x=x+1 : c=x : d=x+1

该程序段运行后，下列说法正确的是

A．a与b的值相同，c与d的值相同	B．a与b的值相同，c与d的值不同
C．a与b的值不同，c与d的值相同	D．a与b的值不同，c与d的值不同

下列VB表达式的值最大的是（  ）

A．Int(Sqr(50))

B．15 \ 10 Mod 5

C．Val(Mid(“201906”，6，1))

D．Len(“5+3”)

下列VB表达式的值等于8的是

A．Abs(-8,3)	B．Int(Rnd*7+1)
C．Len(“2+6”)	D．18 Mod 10