几道VB程序题,PrivateSubCommand1Click()DimxAsIntegerx=Val(Text1.Text)IfxMod2=1ThenLabel2.Caption="偶数"ElseLabel2.Caption="奇数"EndIfEndSub如果Text1中输入的是28,则Label2的位置显示的是：

Question

几道VB程序题,
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
If x Mod 2 = 1 Then
Label2.Caption = "偶数"
Else
Label2.Caption = "奇数"
End If
End Sub
如果Text1中输入的是28,则Label2的位置显示的是：_______________________.
2、 Private Sub Form_Click()
Dim i As Integer,S As Long
S = 0
For i = 15 To 0 Step -2
S = S + i
Next i
Print S
End Sub
程序的功能是：________________________________________________________________
运行结果是：__________________________________________________________________
3、 Private Sub Command1_Click()
Dim a,b As Integer
a=2.2
b=2.2
Text1.Text = a
Text2.Text =b
End Sub
程序运行后,Text1中显示：_____________；Text2中显示：______________
4、
Private Sub Form_Click()
s = 0
For i = 0 To 20 Step 2
s = s + i
Next i
Print s
End Sub
程序的功能是：____________________________________________________________；
运行结果是：______________________________________________________________
5、
Private Sub Form_Click()
K = 1:Sum = 0
For N = 1 To 5
K = K * N
Sum = Sum + K
Next N
Print Sum
End Sub
程序运行后,问SUM的值为（ ）
6、 a = 5:s = 0
Do While a > 0
s = s + a
a = a - 1
Loop
Print s; a
程序的功能是____________________________________________________________；
运行结果是_______________________________________________________________

Answer 1

奇数

求奇数和.  64

2          2

 求偶数和. 110

153

循环求和

       15      0