Dim a() As String
Private Sub Command1_Click()
Static b
If b = UBound(a) + 1 Then b = LBound(a)
Text2.Text = a(b)
b = b + 1
End Sub
Private Sub Text1_Change()
a = Split(Text1.Text, vbCrLf)
End Sub
Private Sub Text2_Change()
If Mid(Trim(Text2.Text), 1, 3) = "G72" Then
MsgBox "这里仿伍写调用你子程序的代码"友大丛好樱
End If
End Sub
VB编写程序的步骤可以分为三步:
枯伏设计程序的界面,根据想要实现的功能画出程序的界面;编写代码是最枯燥的一步悉举,根据程序的功能,为每个控件元没陆携素编写代码,这是程序设计的关键所在;发布应用程序为程序创建安装项目。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)