狼人杀 推什么意思:20分悬赏!懂VB程序者请务必帮忙!!

1．Private Sub Form_Click()
Dim a As Integer, s As Integer,n as Integer
n = 0
s = 0
Do
n = n+1
s = s + n
Loop While s+n=<30
Print n,s
End Sub
(1)以上程序的功能是:( )

(2).程序运行后,单击窗体,输出结果为( )

2. 在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程：
Private Sub Commandl_C1ick()
Option Base 0
Dim arr1
Dim Max As Integer, i As Integer
arr1 = Array(-3, 65, -23, 78, 16, 8, 74, -6)
Min = arr1(0)
For i = 0 To 7
If arr1(i) > Max Then
Max= arr1(i)
Next
Print Max
End Sub
程序运行后,单击窗体,输出结果为( )

3．在窗体上画一个名称为Commandl的命令按钮，一个名称为textl的标签，编写如下事件过程：
?? Private Sub Commandl_C1ick()
?? dim i,s as integer
S＝0
??For i＝1 T0 20 step 2
?? x＝2*i-1
?? If x Mod 7＝0 or x Mod 3＝0 Then
s＝s十x
?? Next i
?? text1.text=s
?? End Sub
?程序运行后，单击命令按钮，则文本框中显示的内容是：( )

4．在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Sub Command1_Click()
Dim x ,Y As Integer
x=10
y=5
call f1(x,y)
Print x,y
End Sub
Private sub f1(Byval a As Integer, Byref b As Integer)
Dim i as integer
b=0
a=a+1
b=b+i
End sub
程序运行后，单击命令按钮，在窗体上显示的内容是：( )

5．阅读程序：
Private Sub Form_Click()
Dim arr(1 to 5),Sum As Integer
Sum = 0
i=1
while i<=5
do
Arr(i)=2*i-1
If arr(i)mod3=0 Then
Sum =Sum+arr(i)
End If
i=i+1
loop
Print Sum
End Sub
程序运行后，单击窗体，输入结果为：( )

6．在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click()
Dim a,b,n as Integer
n = Val(Text1.Text)
a = f1(n)
b = f2(n)
Print n,a,b
End Sub

Public Function f1(ByRef x)
x=2*x-1
f1=x
End Function
Public Function f2(ByVal x)
x=2*x-1
f2=x
End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是( )

7．在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim a（1 to 5）As Variant
Sum=0
For i=5 To 1 step -1
a(i)=2*i-1
Sum = sum+a(i)
Next i
x=Sum/5
For i =1 To 5
If a(i)<x Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是：( )
请不要胡乱作答,谢谢!