[求助]：斑主请进

dys800113

我有一个很小的问题想求救，希望能帮助！
如下图：
TEXT1中为A值，
TEXT2中为B值，
TEXT3中为C值。
按一下结果按纽，TEXT4则显示出结果   D=A*B+C
请问该如何编程？
谢谢！

dys800113

格式如下,另外最好用户若输入非数值型值时(比如输入字母),
,程序会提醒输入无效

gjliang

dim a,b,c as integer
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
d=a*b+c
如果需要判断输入为什么字符，加判断语句就可，
text4.text=d

gyl

最初由 gjliang 发布
[B]dim a,b,c as integer
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
d=a*b+c
如果需要判断输入为什么字符，加判断语句就可，
text4.text=d [/B]

你这样只定义了c为整型，a、b仍为variant类型
dys800113大侠是不是在开玩笑？出这样一个问题。

dys800113

谢谢大家的关心，但是因为我只学过C语言。现在又找不到VB的参考资料，特求助！！

有谁能帮我把这个简单的程序编绎好，上传给我，好吗？

特别是如何加判断语句！！！！！

唐僧肉

什么判断语句?ISNUMBERIC?EASY?

dys800113

不是啊？谁帮助我做一个上面的样本，我好依葫芦画瓢啊，

谢谢啊！！

efan2000

限制用户输入非数值的值，最好在文本框中的KeyPress事件中定义，当Chr(KeyAscii)的值在0-9之间时，表示是数值。否则，将KeyAscii设为0，即可屏蔽输入。如：
if instr("0123456789.",chr(keyascii))=0 then
  keyascii=0
end if

dys800113

斑主，问题是我还是不会。
我以前是学C语言的，现在又找不到VB的参考资料。

能不能打包传给我！急用
（我好依葫芦画瓢）

efan2000

我在外地，不能帮你编写了。
可以在Excel或者Word中的VBA试试，不懂的话就去看VBA的使用帮助，那儿的介绍很详细，而且带有很多例程。

dys800113

我等你出差回来！盼复~~~~~~~~~~~~~

fjw_ok

呵呵C都会，还不会VB？不可思议？

dys800113

fjw_ok ，你能帮助我吗？

那时学校学的C语言也是唬人的。现在也忘了差不多了









呵呵

efan2000

照这个代码写就可以。

2. 
   
3.   [FONT=courier new]
   
4. Private Sub Form_Load()
   
5.     Text1.Text = ""
   
6.     Text2.Text = ""
   
7.     Text3.Text = ""
   
8.     Text4.Text = ""
   
9. End Sub
   
10. 
    
11. Private Sub Text1_KeyPress(KeyAscii As Integer)
    
12.     If InStr("0123456789.-", Chr(KeyAscii)) = 0 Then
    
13.         KeyAscii = 0
    
14.     End If
    
15. End Sub
    
16. 
    
17. Private Sub Text1_LostFocus()
    
18.     If Text1.Text = "" Then
    
19.         MsgBox "A值不允许为空！"
    
20.     ElseIf Not IsNumeric(Text1.Text) Then
    
21.         MsgBox "A值不是数字，请重新输入！"
    
22.     End If
    
23. End Sub
    
24. 
    
25. Private Sub Text2_KeyPress(KeyAscii As Integer)
    
26.     If InStr("0123456789.-", Chr(KeyAscii)) = 0 Then
    
27.         KeyAscii = 0
    
28.     End If
    
29. End Sub
    
30. 
    
31. Private Sub Text2_LostFocus()
    
32.     If Text2.Text = "" Then
    
33.         MsgBox "B值不允许为空！"
    
34.     ElseIf Not IsNumeric(Text2.Text) Then
    
35.         MsgBox "B值不是数字，请重新输入！"
    
36.     End If
    
37. End Sub
    
38. 
    
39. Private Sub Text3_KeyPress(KeyAscii As Integer)
    
40.     If InStr("0123456789.-", Chr(KeyAscii)) = 0 Then
    
41.         KeyAscii = 0
    
42.     End If
    
43. End Sub
    
44. 
    
45. Private Sub Text3_LostFocus()
    
46.     If Text3.Text = "" Then
    
47.         MsgBox "C值不允许为空！"
    
48.     ElseIf Not IsNumeric(Text3.Text) Then
    
49.         MsgBox "C值不是数字，请重新输入！"
    
50.     End If
    
51. End Sub
    
52. 
    
53. Private Sub Command1_Click()
    
54.     Text4.Text = Text1.Text * Text2.Text + Text3.Text
    
55. End Sub
    
56.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Sub Form_Load()<br />     Text1.Text = ""<br />     Text2.Text = ""<br />     Text3.Text = ""<br />     Text4.Text = ""<br /> End Sub<br /> <br /> Private Sub Text1_KeyPress(KeyAscii As Integer)<br />     If InStr("0123456789.-", Chr(KeyAscii)) = 0 Then<br />         KeyAscii = 0<br />     End If<br /> End Sub<br /> <br /> Private Sub Text1_LostFocus()<br />     If Text1.Text = "" Then<br />         MsgBox "A值不允许为空！"<br />     ElseIf Not IsNumeric(Text1.Text) Then<br />         MsgBox "A值不是数字，请重新输入！"<br />     End If<br /> End Sub<br /> <br /> Private Sub Text2_KeyPress(KeyAscii As Integer)<br />     If InStr("0123456789.-", Chr(KeyAscii)) = 0 Then<br />         KeyAscii = 0<br />     End If<br /> End Sub<br /> <br /> Private Sub Text2_LostFocus()<br />     If Text2.Text = "" Then<br />         MsgBox "B值不允许为空！"<br />     ElseIf Not IsNumeric(Text2.Text) Then<br />         MsgBox "B值不是数字，请重新输入！"<br />     End If<br /> End Sub<br /> <br /> Private Sub Text3_KeyPress(KeyAscii As Integer)<br />     If InStr("0123456789.-", Chr(KeyAscii)) = 0 Then<br />         KeyAscii = 0<br />     End If<br /> End Sub<br /> <br /> Private Sub Text3_LostFocus()<br />     If Text3.Text = "" Then<br />         MsgBox "C值不允许为空！"<br />     ElseIf Not IsNumeric(Text3.Text) Then<br />         MsgBox "C值不是数字，请重新输入！"<br />     End If<br /> End Sub<br /> <br /> Private Sub Command1_Click()<br />     Text4.Text = Text1.Text * Text2.Text + Text3.Text<br /> End Sub<br />   [/FONT]<br />

dys800113

再次谢谢斑主的帮助！！


真的好感谢！！！