VB简单程序

来源：百度知道 编辑：UC知道 时间：2024/05/30 17:54:03
一共要俩，一个简单的计算器能+-*/就行。另一个能随机产生一个简单的四则运算题，然后根据你的答案提示对错，并有答对个数，答错个数和评分。要求有代码和图，图上最好能看出几号，俺很菜光有代码看不懂。只等两个小时，狠急，求大家帮帮忙！！
说错了 是随机产生一个100以内的四则运算。

我是抢劫的，把分给我吧
首先建立一个command1 然后剪切复制 系统提示说已经有一个COMMAND1 是否要建立控件数组？
你点击是 这样重复9次 分别把caption该成0到9 然后建立command2 方法同上,caption为 +-*/ 然后是 command3 caption是=
然后输入代码,首先在通用里生命dim shu1,shu2
dim suanfu as string
private sub command1(index)_click
text1.text=text1.text & commmand1(index).capton
end sub
command2里 输入
shu1=text1.text
suanfu=text1.text & command(index).capiton
text1.text=""
end sub
command3里输入
shu2=text1.text
selece case suanfu
case "+"
text1.text=shu1+shu2
case "-"
text1.text=shu1-shu2
case "*"
text1.text=shu*shu2
case "/"
if shu2=0 then
msgbox "分母不能为0"
else text1.text=shu1/shu2
end if
end select
end sub
这是最简单的计算器的 如果还需要什么功能 我也可以告诉你的 我学VB3个月了 略有小成 所以想来照顾新手的 我以前也是新手啊 新手见新手两眼泪旺旺 顺便把分给我吧

说实在的，
你这题目不简单。

Option Explicit
Dim LastInput As String * 3 '记录