（程序阅读）
Public Class Form1
Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
Dim x As Integer = Size.Width()
Dim y As Integer = Size.Height()
Label1.Text = "窗体的大小为（" & Str(x) & " , " & Str(y) & "）"
End Sub
End Class
(1)类Form1中的Form1_Resize过程实现的是一个什么功能？
(2)函数str是实现什么功能？
Public Class Form1
Private count As Integer = 1
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
Dim frm As New Child()
frm.Text = "MDI子窗体" & Str(count) ' 设置窗体的标题
count += 1
frm.MdiParent = Me
frm.Activate()
frm.Show()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MenuStrip1.MdiWindowListItem = WindowsToolStripMenuItem
End Sub
End Class
(3)写出语句Dim frm As New Child()的作用 (4)写出语句frm.MdiParent = Me的作用。 (5) MenuStrip1.MdiWindowListItem = WindowsToolStripMenuItem语句的作用。
状态栏的一个属性指示StatusStrip是否在它的ToolStripContainer中从一端拉伸到另一端，该属性是 ( )
A.Stretch B. Anchor C. AllowDrop D. CanOverFlow
（程序阅读）
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Desktop
If Windows.Forms.DialogResult.OK = FolderBrowserDialog1.ShowDialog() Then
m_Path = FolderBrowserDialog1.SelectedPath
UpdateListBox(ListBox1)
End If
End Sub
(1)上述代码是一个按钮点击事件响应过程。FolderBrowserDialog1为浏览文件夹控件。请说明该过程实现的是一个什么功能？
(2)语句FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Desktop是实现什么功能？
Dim strConn As String = "Server=xionghl; DataBase=SuperMarket; uid=sa;password=123456"
(3)上面代码是VB.NET连接数据库的连接串参数，请解释该串中各参数的含义。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ColorDialog1.AllowFullOpen = False ’ColorDialog1为颜色选择对话框
ColorDialog1.ShowDialog()
Button1.BackColor = ColorDialog1.Color
End Sub
(4)写出语句ColorDialog1.AllowFullOpen = False的作用 (5)写出该代码片段实现的功能。
