运行效果： 运行程序： PrivateSubCommand1_Click()   DimnumAsInteger   Text1.Text=ObjPtr(Text1)   '获取对象地址   Text3.Text=StrPtr(Text2.Text)'获取字符串首位地址   Text4.Text=VarPtr(num)    '获取变量地址 EndSub   总结： object，对象；pointer，指针。 感觉不是太理解。。...

程序源代码： PrivateSubCommand1_Click()   '清空   Label4.Caption=""   Label6.Caption=""   Label8.Caption=""   Label10.Caption=""   '统计   Label2.Caption=Len(Text1)   DimmystrAsString   Fori=1ToL...

运行效果： 程序代码： PrivateSubCommand1_Click()   Dima()   n=10     'Val(Text1.Text)   Me.Cls   ReDima(n+1,n+1)   Fori=1Ton     Forj=0Toi       a(1,i)=1 &nbs...

程序源代码： PrivateSubCommand1_Click()    '清空    Label4.Caption=""    Label6.Caption=""    Label8.Caption=""    Label10.Caption=""    '统计    Label2.Caption=Len(Text1)  &nbs...

PrivateSubForm_Load()   Me.Move(Screen.WidthMe.Width)/2,(Screen.HeightMe.Height)/2 EndSub 可以在属性中设置，不过可以把这个保存到模板里，就不用每次设置了。