UC知道VB编程(加法练习)
来源：百度知道 编辑：UC知道 时间：2024/06/24 10:54:01
（1） 窗体的标题为“加法练习”，固定边框。
（2） 从窗体从上到下依次引入Text1、Text2、Text3三个文本框，三个文本框文字对齐方式均设置为右对齐。
（3） 上面两个文本框用于显示“加数”，设置不能对其进行编辑操作
（4） 下面一个文本框用于输入“和”，要求不接受非数字键。
（5） 单击“出题”按钮（Command1），上面两个文本框显示“加数”。
（6） 按回车后如果输入的结果正确，则提示“回答正确,按开始键再来一题”；如果输入的结果错误，则提示“回答错误,重新回答”。
（7） 其他界面及功能设计请参考Desien.exe文件。
其中第六个不知道怎么做，按回车?怎么确定我按了回车???
答案是这样的，可是代码看不懂,各位高手帮忙翻译翻译啊。谢谢
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label4.Visible = True
If Val(Text1.Text) = Val(Label1.Caption) + Val(Label3.Caption) Then
Label4.Caption = "回答正确,按开始键再来一题"
Command1.Enabled = True
Else
Label4.Caption = "回答错误,重新回答"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End If
End Sub
初学者.....如果有可以查找代码或代码表格(介绍各种代码用途的就可以了)的话，加分，了表寸心。再次谢谢
Private Sub Text1_KeyPress(KeyAscii As Integer)——响应按动键盘事件
If KeyAscii = 13 Then ——响应是否按的为Enter
Label4.Visible = True ——令label4可见
If Val(Text1.Text) = Val(Label1.Caption) + Val(Label3.Caption) Then
——进行计算（上一行if语句）
Label4.Caption = "回答正确,按开始键再来一题" ——设置label4的标题
Command1.Enabled = True ——令按钮处于激活状态
Else ——否则
Label4.Caption = "回答错误,重新回答" ——设置label4的标题
Text1.SelStart = 0 ——设置text1的起始点为0
Text1.SelLength = Len(Text1.Text) ——设置text1的字符长度
End If ——结束条件假设
End If
End Sub
每一句基本都给你解释了，可以仔细看看。建议看不懂的时候就按F1（调用帮助）很有用的。
你按键盘了 就会调用这个函数 按了回车时 KeyAscii的值会变成13 你按了其他键KeyAscii的值就边成其他的了
If...Then...Else语句 返回
根据表达式的值有条件地执行一组语句。
语法