变量a 中存储了一个字符,能够正确判断该字符为数字字符“0”~ “9”的VB 表达式是(  )

A．Asc(a)>=0 Or Asc(a)<=9	B．“0”<=a<=“9”
C．a<=“0”Or a>=“9”	D．a>=“0”and a<=“9”

以下程序段运行时出现如图所示的错误提示:
 For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了(  )

A．For

B．End If

C．Next

D．If

能正确判断x为偶数的VB表达式是(  )

A．x Mod 2=0

B．Int(x/ 2)= 0

C．x/ 2=0

D．x\2=0

在Visual Basic 中,下列能作为变量名的是(  )

A．x+1

B．x_1

C．Or

D．If

下列VB表达式的值等于15的是（   ）

A．Val("13") + 2

B．Len("13") + 2

C．Abs(25) + 10

D．Sqr(25) - 5

   某简单计算器功能如下：在文本框Text1中输入一个加减算式，点击“计算”按钮Command1，计算结果在标签Label3上显示，同时在列表框List1中记录每次算式及结果。已知文本框Text1只包含正整数和“+”、“－”符号，同时以“＝”结束。程序运行界面如图a所示，请回答下列问题。

（1）设计应用程序界面时，为添加“计算”按钮，应使用图b所示“控件工具箱”中的_________（填写相应编号）控件，并在图c所示的“属性窗口”中，将____________属性的值设置为“计算”。
 
（2）要实现程序运行时，单击文本框Text1即可将文本框清空，则应在____________（选填字母： A．Command1_Click()/ B．Text1_Click()/ C．Form_Load()）过程中添加语句Text1.Text = ""。
（3）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, ch As String
Dim fh As Integer, p As Integer, sum As Integer
s = Text1.Text: fh = 1: p = 0: sum = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ①_______________ Then   '判断取出的字符是否为数字
p = p * 10 + Val(ch)
Else
sum = sum + p * fh
p = 0
If ch = "-" Then
②_____________
ElseIf ch = "+" Then
fh = 1
End If
End If
Next i
Label3.Caption = Str(sum)
List1.AddItem  ③________________
End Sub
（4）运行程序，在文本框Text1中输入“5+5-2”，单击“计算“按钮后，标签Label3上将显示：________。（选填字母： A．10/ B．8/ C．程序出错无法显示）

某算法的部分流程图如图所示。执行该流程后，“x≥y?”被执行的次数为（   ）

A．4

B．3

C．2

D．1

目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关 键的信息。现编写 V

A．程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮， 将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。

图1    图2
（1）在设计程序界面时，图2中控件________（填数字）未在程序窗体中使用。
（2）请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text
msg = msg + "/" '标记字符串结束符
tmp = "" s = ""
flag = True
For i = 1 To Len(msg)
c = Mid(msg, i, 1)
If ①_____ Then flag = False
tmp = tmp + c
ElseIf flag = False Then s = s + tmp + ","
tmp = ""

 ②_____ 

End If
Next i
Text2.Text = s
End Sub
（3）若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为 ________。

下列循环语句中，s=s+1循环执行的次数为（ ）
For j=0 To -9 Step -3
s=s+1
Next j

A．3

B．4

C．5

D．9

（加试题）有如下 VB程序段： For i = 1 To 2
k = i
For j = 6   To    i + 1   Step   -1
If a(j) > a(k) Then    k = j
Next    j
If k <> i then
t = a(i) : a(i) = a(k) : a(k) = t
End If
Next    i
数组元素 a(1)到 a(6)的值依次为“71,46,31,58,29,78”，经过该程序段“加工”后，数组元素a(1)到 a(6)的值依次为

A．29,31,46,58,71,78

B．78,71,58,46,31,29

C．46,29,31,58,71,78

D．78,71,31,58,29,46