vb测试题(会做的顶下。。。)

Question

vb测试题
1、有一个窗体Form1,写出加载、显示、卸载窗体的语句，并且写出窗体显示在屏幕中间的语句。
2、窗体中先放一个Label(0)控件，在窗体显示后自动加载label(1)到label(9)。并且label(0)~label(9)
分两行和五行显示，写出语句。
3、Winsock控件分几种连接协议，分别叫什么？分别写出这几种协议的最基本的连接和通讯方法语句。
4、有一个SQL数据库特test，数据库中有一个表work,表中有name,birthday,address,tel字段，SQL登录
名SA,密码123，用ADO+SQL方式写出连接和打开数据库，并且向表中添加、修改和删除数据的语句。
5、有一个test1.txt文本文件文件，写出用顺序的方法把文件打开和显示在窗体文本框中的语句。

Answer 1

1、Form1.load  Form1.show  unload Form1   Form1.StartUpPosition=2
2、Private Sub Command1_Click()
     Dim Ltop As Integer, Lleft As Integer
     Ltop = 0
     Lleft = 0
     Label1(0).Top = Ltop
     Label1(0).Left = Lleft
     For i = 1 To 9
       Load Label1(i)
       If i Mod 2 = 1 Then
          Label1(i).Top = Ltop
          Label1(i).Left = Label1(0).Left + Label1(0).Width
          Ltop = Ltop + Label1(0).Height
          Lleft = Lleft
       Else
          Label1(i).Top = Ltop
          Label1(i).Left = Lleft
       End If
       Label1(i).Caption = "Label" & i
       Label1(i).Visible = True
     Next i
  End Sub
后面的上网查吧，不写了

Answer 2

5、有一个test1.txt文本文件文件，写出用顺序的方法把文件打开和显示在窗体文本框中的语句。Private Sub Command1_Click()
Dim nextline, b As String
fname = App.Path & "\test1.txt"
Text1.Text = ""
Open fname For Input As #1
b = ""
 Do Until EOF(1)
Line Input #1, nextline
b = b & nextline & vbCrLf
Loop
Close #1
Text1.Text = b
End Sub