运行效果:
程序代码:
Private Sub Command1_Click()
Dim a(5)
Text1.Text = UBound(a)
Text2.Text = LBound(a)
End Sub
运行效果:
程序代码:
Private Sub Command1_Click()
Dim a(5)
Text1.Text = UBound(a)
Text2.Text = LBound(a)
End Sub
举报文章
请选择举报类型
补充说明
0/200
上传截图
格式支持JPEG/PNG/JPG,图片不超过1.9M