运行效果: 运行程序: 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 可以在属性中设置,不过可以把这个保存到模板里,就不用每次设置了。