新学期计划的作文:vb如何实现按确定使文本框里的数字递增。

来源:百度文库 编辑:高考问答 时间:2024/05/07 04:46:53
vb如何实现按确定使文本框里的数字递增。

Private Sub Form_Load()
Text1.Text = 初始值
End Sub

Private Sub Command1_Click()
Text1.Text = CStr(CInt(Trim(Text1.Text)) + 1 )
End Sub

Private Sub Form_Load()
Text1.Text = 0
End Sub

Private Sub Command1_Click()
Text1.Text = Text1.Text + 2
End Sub