3. 执行以下程序段
Dim x As Integer, i As Integer
x=0
For i = 16 To 1 Step -2
x = x + i \ 5
Next i
程序运行后,x的值为:
4.Private Sub Command1_Click()
c = "ABCD"
For n = 4 To 1 step -1
Print Mid(c,n,1);
Next n
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
5.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim c As Integer, d As Integer
d = 0
c = 9
x = Array(3,5,7,9,11,13)
For i = 1 To 6
If x(i) > c Then
d = d + x(i)
c = x(i)+4
Else
d = d - c
End If
Next i
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输入的内容为: