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
程序运行后，单击窗体，在文本框中显示的内容是？？图片框中显示的内容是？？
|
