VB题,急,在线等

Question

Private Sub Form_click()
Static sum As Integer
For i = 1 To 10
sum = sum + i
Next i
Print sum
end sub

程序运行后,单击窗体后,显示结果是??
还有一题
Private Sub Form_click()
Dim str1 As String, str2 As String
Dim str3 As String, i As Integer
str1 = "e"
For i = 1 To 2
str2 = UCase(str1)
srt1 = str2 & str1
str3 = str3 & str1
str1 = Chr(Asc(str1) + i)
Next i
Print str3
End Sub
程序运行后,单击窗体后,显示结果是??

还有2题：
1.在窗体上有一个命令按纽和一个文本框，程序如下“
Private Sub Command1_Click()
x = Val(text1.Text)
Select Case x
Case 1 To 10
x = 2
Case 2, 4, 6, 8
x = 4
Case Is < 10
x = 6
Case 8
x = 8
End Select
text1.Text = Str(x)

End Sub

运行程序后，如果在文本框输入8，则显示的值是？？

2.
Private Sub Form_click()
text1.Text = "vb 程序设计"
End Sub
Private Sub text1_change()
picture1.Print "vb programming"
End Sub

程序运行后，单击窗体，在文本框中显示的内容是？？图片框中显示的内容是？？

Answer 1

第一个问题：每次单击，就多显示一个数，从55、110、165....以55为步长增长。
第二个问题：单击时显示：EeFF

Answer 2

55
ef

Answer 3

恕我直言 你能把代码一个一个在baidu上敲 为什么不直接在vb里运行一下

Answer 4

唉，服了你了！前两道：
第一道：每次单击，就多显示一个数，从55、110、165....以55为步长增长
第二道：怎么点都是“ef”

从还有两题上说
1 Text1中显示“2”

2 Text1中显示“vb 程序设计”，picture1中显示“vb programming”

Answer 5

Private
Sub
Command2_Click()
Dim
a(1
To
10)
As
Integer
Dim
i,
j
As
Integer
For
i
=
1
To
10
a(i)
=
i
*
10
Next
i
'把数组的元素的值对调
For
i
=
1
To
10
\
2
j
=
a(i)
a(i)
=
a(10
-
i
+
1)
a(10
-
i
+
1)
=
j
Next
i
'显示在List1里面
For
i
=
1
To
10
List1.AddItem
Str(a(i))
Next
i
End
Sub