vb用什么软件能拍出答案

vb用VisualBasic能拍出答案。根据查询相关公开信息显示是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动。

两个需要运算的数字可以用随机函数 rnd 来得到，而四个运算符可以放在数组里面，数组的下标又可以用随机函数取得，则运算符也是随机的，把取得的运算符放在一个标签里  如 label1

然后用选择语句 select 来判断label1.caption 中的运算符   是什么运算符  自己就做什么样的运算  把结果放在一个变量 c 当中  

最后用 if 语句判断用户所填的答案与 c 是否相同   相同则正确   不同则错误  

代码如下

Dim i As Integer

Dim j As Integer

Private Sub Command1_Click()

Text1.Text = Rnd(1) * 1000

Text2.Text = Rnd(1) * 1000

Dim b As Integer

Dim a(4) As String

a(1) = "+"

a(2) = "-"

a(3) = "*"

a(4) = "/"

b = Int((Rnd * 4) + 1)

Label1.Caption = a(b)

Text3.Text = ""

Text3.TabIndex = "0"

End Sub

Private Sub Command2_Click()

Dim c As Double

Select Case Label1.Caption

       Case "+"

         c = Text1.Text + Text2.Text

       Case "-"

         c = Text1.Text - Text2.Text

       Case "*"

         c = Text1.Text * Text2.Text

       Case "/"

         c = Text1.Text * Text2.Text

End Select

If Text1.Text = "" Then

   MsgBox "请先选题"

   Else

If Text3.Text = "" Then

   MsgBox "请先做题"

Else

If Text3.Text = c Then

   Label6.Caption = "正确"

   i = i + 1

Else

   Label6.Caption = "错误" & Space(3) & "正确结果为" & c

   j = j + 1

End If

End If

End If

End Sub

Private Sub Command3_Click()

Label7.Caption = i

Label8.Caption = j

End Sub

Private Sub Form_Load()

End Sub

---