有如下Visual Basic程序段：
a=2
b=3
c=0
b=a
c=a+b
该程序段运行后,变量c的值为_______。

下面是一段Visual Basic程序：
Private Sub Command1_Click()
Dim sum As Double，i As Integer
sum = 0
For i =" 1" To 5
sum = 2
sum = sum+i
Next i
Text1.Text = Str(sum)
End Sub
该程序运行后，语句sum=sum+i共执行了____    ____次，sum的值为 ，i的值为     。

下列Visual Basic程序段运行后，变量x的值为（    ）
x="3:" y=50
Do while x < sqr(y)
x=x+2
Loop

A．7

B．8

C．9

D．10

有如下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,则输出结果为______。

生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近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
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。

有如下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

有如下程序：
a=13972
k=0
DO WHILE a<>0
a=int(a/10)
k=k+1
Loop
Print k
程序运行后，输出结果为（   ）。

A． 5

B．0

C． 1

D． 22

一个两位数x，将它的个位数与十位数字对调后得到一个新数y，此时y恰好比x大36，求出所有这样的两位数。为其中的空白处选择合适的选项（ ）。

A．x-y<>36

B．x-y=36

C．y-x<>36

D．y-x=36