UC知道VB制作竖式加法
来源：百度知道 编辑：UC知道 时间：2024/05/11 16:34:37
实验目的：
1. 练习字符——数字的转换函数
2. 练习setfocus方法获取鼠标焦点
实验内容：
创建一个单一窗体程序作竖式加法，程序开始时鼠标焦点位于第一个文本框内，当输入完有效数字后，按回车键光标自动跳转到第二个文本框内，输入完数字光标自动跳转到第三个显示和的文本框内。
如果用户输入非法的数值，程序弹出对话框报告错误。
程序设计应尽量美观、整洁。
1. 练习字符——数字的转换函数
2. 练习setfocus方法获取鼠标焦点
实验内容：
创建一个单一窗体程序作竖式加法，程序开始时鼠标焦点位于第一个文本框内，当输入完有效数字后，按回车键光标自动跳转到第二个文本框内，输入完数字光标自动跳转到第三个显示和的文本框内。
如果用户输入非法的数值，程序弹出对话框报告错误。
程序设计应尽量美观、整洁。
例,这里的text1是控件数组
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If Not KeyCode = 13 Then Exit Sub
If Not IsNumeric(Text1(Index).Text) Then
MsgBox "你输入了非数字", vbCritical
Exit Sub
Else
If Index < Text1.UBound Then
Text1(Index + 1).SetFocus
Else
Command1.SetFocus
End If
End If
End Sub