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

A．Sqr(25)+25 Mod 10+15	B．Len("20+5")
C．Abs(-26)+1	D．Int(24.8)

有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click(   )

Dim X, N As Integer
Dim count As Integer   ' count用来保存能被6整除余2的数据的个数
Randomize Timer   ' 随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数

If  X Mod 6 = 2 Then

List1.AddItem Str(X)

_______________

End If

Next N

Label1.Caption = str (count)

End Sub

设计一个VB程序，使其具有下列功能：在文本框Text1.Text输入字符串，单击“开始”按钮Command1，将输入的字符串中小写字母转换成大写字母后，在标签Label2中输出。界面设计如图所示。
 
（1）在应用程序界面设计时，要为窗口添加标题，需要修改图2所示的属性窗口中的____________项为“字符转换”。
（2）为实现上述功能, 请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim ch As String, sh As String
Dim i As Integer, j As Integer
ch = Text1.Text
For i = 1 To _______ '从第一个字符到最后一个字符进行循环判断
j = Asc______________)   '(填字母:从下列A、B、C三个选项中选取一项)
If j > 96 And j < 123 Then
sh = sh + Chr(j - 32)
Else
sh = sh + Chr(j)
End If
_________ '(填字母:从下列A、B、C三个选项中选取一项)
Label2.Caption = sh
End Sub
划线②、③的选项:

A．  Next i

B．j+1

C．Mid(ch, i, 1)

有如下图所示的流程图，根据此流程图可知，最后s的值为（  ）

A．10

B．32

C．46

D．94

产生一个在[-10，99]中随机整数的VB表达式是

A．int (rnd*100) -10	B．int(rnd*99)-10
C．int(rnd*109)-10	D．int(rnd*110)-10

如图所示的窗体中，共出现了几类对象

A．1

B．2

C．3

D．4

有如下程序段，若在text1中输入"abcd + BC + cdef + DE"，请问程序执行后list1中第3行中出现的值为
Dim a(1 To 26) As Integer
s = Text1.Text : n = Len(s)
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then

a(Asc(c) - 96) = a(Asc(c) - 96) + 1

ElseIf c >= "A" And c <= "Z" Then

a(Asc(c) - 64) = a(Asc(c) - 64) + 1

End If
Next i
For i = 1 To 26
List1.AddItem Str(a(i))
Next i

A．1

B．2

C．3

D．4

数组元素a(1)到a(7)中的数据依次为“3，6，1，6，2，9，6”，执行下面这段VB代码后变量i的值是
flag = False：i = 0
LuckNumber = 6
Do While i < 7 And flag = False

i = i + 1

If a(i) = LuckNumber Then flag = True

Loop
If flag = False Then i = 0

A．0

B．2

C．4

D．7

（加试题）幸运数。一组1幵始的奇数数列为：
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此数列的第二项为3，将此数列的第3n个数删除，留下的数为：
1，3，7，9，13，15，19，21，25，……
新数列的第三项为7，将新数列的第7n个数删除，留下的数为：
1，3，7，9，13，15，21，25，……
若一直重复上述步骤，最后剩下的数就是幸运数：
1，3，7，9，13，15，21，25，31，33，37，43，49，51，……
下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(500) As Integer, b(500) As Integer
Dim i As Integer, m As Integer, k As Integer
Dim top As Integer, bott As Integer
’产生由1开始的奇数数列，依次存储在数组a中，代码略
top = 2: bott = 500
Do While top < bott

  ①

For i = 1 To bott

  If i Mod a(top) < > 0 Then

b(k) = a(i)

___________________ ②

End If

Next i

③

top = top + 1

For i = 1 To bott

A(1) = b(1)

Next i

Loop
For i = 1 To bott

List1.Addltem Str(a(i))

Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(

A．对象名

B．属性名

C．事件名）

(2)改正加框处的代码，并在横线处填写合适的代码
①_____________________________ 
②_____________________________
③_____________________________

下图的运算结果为______________。