在Visual Basic中，表达式1234 Mod 10的值是(    )

A．1

B．2

C．3

D．4

（加试题）小明编写了一个统计字符串中数字字符串之和的VB程序（如字符串“ab12.3cd34ef9”,中数字字符串之和为58：12+3+34+9），运行界面如图所示。在文本框Text1中输入字符串s，单击“统计”按钮Command1，在Label3中输出统计结果。

实现上述功能的VB程序代码如下，但划线处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, ch As String
Dim ch2 As String, sum As Double
Dim n As Integer, i As Integer
s = Text1.Text
n = Len(s)

i = 1: sum = 0

  Do While  i < n ＇①_____________
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
j = i
ch2 = Mid(s, j, 1)
Do While ch2 >= "0" And ch2 <= "9"
j = j + 1
ch2 = Mid(s, j, 1)
Loop
sum = sum + Val（Mid(s, i, j – i - 1)）    ＇②_____________
i = j
End If
i = i + 1
Loop
Label3.Caption = Str(sum)
End Sub

（加试题）异或的数学符号为“⊕”，其运算法则相当于不带进位的二进制加法：0⊕0=0，1⊕0=1，0⊕1=1，1⊕1=0（即符号两侧数值相同时，计算结果为0；数值不同时为1）。
如果要对两个十进制数进行异或运算，可以按以下步骤进行：
①   先将要进行异或运算的两个十进制数分别转换为二进制；
②   对两个二进制数按位进行异或运算；例：(101101)₂⊕(111)₂=(101010)₂
③   再把步骤②中的运算结果转换为十进制，该十进制数即为运算结果。
小明编写了一个VB程序来模拟上述运算过程，程序功能如下：在文本框Text1和Text2中分别输入要参加异或运算的十进制数，单击计算按钮Command1，程序对输入的两个数进行异或运算，并将运算结果显示在文本框Text3中，程序运行界面如图所示。

（1）通过以上关于异或运算的描述，可知10⊕6的结果是___________。
（2）实现上述功能的VB程序如下。请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim a1 As String, b1 As String
Dim lena1 As Integer, lenb1 As Integer, i As Integer
Dim result As String
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
c = a: a = b: b = c
End If
result = ""
a1 = DtoB(a): b1 = DtoB(b)
lena1 = Len(a1): lenb1 = Len(b1)
i = 1
Do While i <= lena1
If Mid(a1, lena1 - i + 1, 1) = Mid(b1, lenb1 - i + 1, 1) Then
result = "0" + result
Else
result = "1" + result
End If
i = i + 1
Loop
result =①_____
Text3.Text = BtoD(result)
End Sub
Public Function DtoB(x As Integer) As String
Dim remainder As String
DtoB = ""
Do While x > 0
remainder = CStr(x Mod 2)  ＇如：CStr(3 Mod 2)的值为"1"
DtoB = remainder + DtoB
②________  
Loop
End Function
Public Function BtoD(x As String) As Integer
Dim i As Integer
BtoD = 0
For i = 1 To Len(x)
BtoD =③________+ Val(Mid(x, i, 1))
Next i
End Function

求10个[61，100]之间的随机整数的和，其算法的部分流程图如图所示，

图中①②处应分别填入

A．i<=10?    Int(Rnd*40)+61

B．i<=10?    Int(Rnd*39)+61

C．i<=100?   Int(Rnd*40)+61

D．i<=100?   Int(Rnd*40)+60

回文字符串是一个对称的字符串，它从左到右读和从右到左读是完全一样的。如“abcba”和“abccba”都是回文字符串，“abc”不是回文字符串。小王编写了一个验证回文字符串的VB程序，功能如下：在文本框Text1里输入一个字符串，单击命令按钮Command1，在文本框Text2中显示验证结果：是回文字符串显示“yes”，否则显示“no”。程序运行界面如图所示。

（1）在设计程序界面时，要窗体Form1的标题栏上显示“判断回文字符串”，应修改Form1的_________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim st As String
Dim i As Integer, j As Integer
Dim flag As Boolean
①________ 
j = Len(st)
i = 1
flag = True
Do While flag And i <= j
If Mid(st, i, 1) = Mid(st, j, 1) Then
i = i + 1
②________ 
Else
flag = False
End If
Loop
If ③______ Then 
Text2.Text = "yes"
Else
Text2.Text = "no"
End If
End Sub

小王所在公司从2019年1月1日起，每工作3天休息2天。为此小王编写程序，用户判断2019年的某一天是上班还是休息。具体功能如下：在文本框Text1和Text2中分别输入月和日，点击“上班还是休息”按钮Cmd1，在标签Label2中输出结果，设计界面及运行界面如下图所示。
（1）鼠标单击按钮Cmd1执行的事件处理过程名是______________ 。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码

Private Sub Cmd1_Click()
Dim mdays As String, days As Integer
Dim i As Integer, m As Integer, d As Integer
m =①_________________ 'm是当前月份信息
d = Val(Text2.Text) 'd是天的信息
mdays = "312831303130313130313031"   '2019年各个月份对应的天数
days = 0
For i = 1 To m - 1 ’前几个月份的总天数
days = days +②__________________ 
Next i
days = days + d
If days Mod 5 = 4 Or ③______________  Then
Label2.Caption = "休息"
Else
Label2.Caption = "上班"
End If
End Sub
（3）若文本框text1中输入的内容是4，文本框Text2中输入的内容为“3”,点按钮后，标签label2中显示的内容是__________。

变量c中存储着一个字符，下列能够正确判断出该字符为大写英文字母的VB表达式是（   ）

A．c>="A " And c<="Z"	B．c>="A" Or c<="Z"
C．Asc(c)>= 65 And Asc(c)<=90	D．Asc(c)>= 65 Or Asc(c)<=90

Len("Friend")的值是（　　　）

A．6

B．7

C．8

D．9

下列VB函数返回值为数值的是

A．Chr（x）

B．Str（x）

C．Val（x）

D．Mid（x,n,k）

下列Visual Basic表达式的值等于2的是 （   ）

A．Abs(-2.1)

B．Int(2.1)

C．Sqr(4.2)

D．Len("4")