主题：有时间的大侠帮帮忙-2!!
jlbs12345
[专家分：0] 发布于 2008-01-17 08:57:00
Visual Basic 程序设计：
设计一个计算程序，要求运行时，用户在文本框Text1、Text2中输入两个操作数后，选中乘法按钮Option1或除法按钮Option2，则在文本框Text3中显示计算结果；除法运算时，或操作2输入为0，则在则在文本框Text3中显示“除数不能为0！”；单击清除按钮Command1,将Text1、Text2、Text3清空，焦点设在Text1，运行界面如图显示。
计算 操作数1 21.4
乘法
操作数2 13.6
除法
结果 291.04
清除
谢谢！
回复列表 （共4个回复）
沙发
老大徒伤悲 [专家分：29120] 发布于 2008-01-17 09:25:00
有意思。
能不能把你已经写了的代码给我看看？那怕只有一行。
板凳
恶少老七 [专家分：110] 发布于 2008-01-17 11:39:00
免费提供一行代码
dim b as long
...
if b = 0 then
msgbox"除数不能为0!"
end if
是对话框弹出.自己研究研究怎么显示到3里面.
3 楼
xiaochuanyuan [专家分：260] 发布于 2008-01-17 20:14:00
建议以后象这种帖子直接删除，VB的名声就是被这些人搞坏的
4 楼
shjbp1112 [专家分：0] 发布于 2008-01-27 22:13:00
数据输入：a 数据输入：b 结果 （a*b or a/b ）
运行 清除 结束
command1 command2 command3
O O
乘法 除法
---------------------------------------------------------------------------------------------
Private Sub Command1_Click()
show
Dim a As Single,b As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
if text2.text=0 then text3.text="除数不能为0"
if Option1=True Then Text3.Txxt=a*b
if Option2=True Then Text3.Text=a/b
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Text1.Text=" "
Text2.Text=" "
Text3.Text=" "
End Sub
Privte Sub Command3_Click()
End
End Sub
Privat Sub Option1_Click()
Option1.Value=True
End Sub
Private Sub Option_Click()
Option2.Value=True
End Sub
供参考
我来回复
您所在位置：