有如下Visual Basic 程序段：
s = 0
For i =___1___To 5
s =" s" + 3
Next i
该程序段运行后，变量s的值是（   ）。

A．10

B．15

C．20

D．25

若输入3和2,则输出结果为______。

下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，则程序中划线处的语句应更正为
（1）  
（2）  
（3）  
Private Sub Command1_Click()
Dim I As Integer, t As Long
t = 0 （1）
For i =" 1" To 10
t =" t" + i（2）
Next i
Text1.caption =" Str(" t )  （3）
End Sub

生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近0.618，愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序（界面如下图所示），实现如下功能：首先，设某女躯干a米和身高b米，分别从文本框Text1和Text2中输入，比值为g。鞋跟高度为s（单位与 a、b 一致），那么比值g=（a+s）/（b+s），如果g=0.618，那么鞋跟高度S的值就是最佳高度,所以最佳的鞋跟高度s=(0.618b-a)/0.382,设计程序计算最佳鞋跟高度的程序。

（1）应用程序界面设计时，为了显示s的值，在窗体中添加了 控件，一般需将它的  属性值设置为空。
（2）图中的人物是通过设置Image1对象的  属性,将外部图像文件添加进去的。
（3）请根据题意将下列程序补充完整。
Private Sub Command1_Click（）
Dim a As Single, b As Single，s As Single
a = Val（Text1.Text）
b = ①    
②
Label4.caption=str(s)
End Sub

要求将某一字符串中指定的字符改写成小写或大写（如果原先是大写就改成小写，反之改成大写），并将处理后的字符重新输出。
程序界面如下图所示，在Text1中输入原始字符串，在Text2中输入需要改变的字符，单机“改变”按钮后，在Text3中输出处理后的结果。程序代码如下：

Private Sub Command1_Click()
Dim s As String, result As String, k As String
Dim zs As String, n As Integer
result = ""
s = Text1.Text
k = Text2.Text
For n =" 1" To Len(s)
①
If zs =" k" Then
If Asc(zs) >=" 65" And Asc(zs) <=" 90" Then
zs =" Chr(Asc(zs)" + 32)
ElseIf Asc(zs) >=" 97" And Asc(zs) <=" 122" Then
zs =" Chr(Asc(zs)" - 32)
End If
End If
②
Next n[:Z#xx#k.Com]
③
End Sub
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。

一个程序功能如下：单击开始按钮，每隔1秒产生一个[1,100]的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数达到20个时，停止。Timer控件的Enabled属性设置为False，即程序刚运行时不起作用。

程序代码如下：
Dim m As Integer  'm 为模块级变量，用于记录随机数个数
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim n As Integer
①
If ②     Then  
List1.AddItem n
Else
List2.AddItem n  
End If
m =" m" + 1  
If m =" 20" Then ③  
End Sub
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。

有如下VB程序段：
For i =" 1" To 3
For j =" 1" To i
a =" a" + 1
Next j
Next i
该程序段运行后，语句“a =" a" + 1”执行的次数是（   ）

A．6

B．7

C．9

D．12

流程图是实现输出1－100之间所有能被 7整除的整数。若再要统计其个数，则要设置一个计数器c, c = 0,如图所示，则计数器c=c+1应置于编号     处。

数组a中存放了某校田径运动会中八名100米短跑运动员的成绩，数据存放情况如下表：

a（1）	a（2）	a（3）	a（4）	a（5）	a（6）	a（7）	a（8）
12.8	13.3	12.3	12.6	13.5	12.1	13	13.8

 
若按升序排列，并采用冒泡排序算法自右向左进行比较和交换，那么前两轮排序的数据交换总次
数为（  ）。

A．5

B．6

C．7

D．8

求输入的两个自然数的最大公约数。如输入48和36则输出最大公约数为12，为其中的空白处选择合适的选项（    ）。

A．输出 a

B．输出 b

C．输出 r

D．输出 a / b