VB中如何设计制作一个答题软件

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

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

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

代码如下

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

1、b

2、a

3、b

4、b（需将borderstyle设置为1）

5、b（.frm表示窗体；bas为模块；vbp为vb工程文件，visual bsic project；vbg为工程组文件）

6、c（将tabstop设置为false，只是不能通过tab键将光标移到控件上，但是鼠标却可以，将enabled设置为false，该控件不可用，鼠标与tab键均不能将光标移到控件上；此处只是不能随意移动光标，表明控件还是可用的，所以选c）

7、a（其实在vb6中，四个选项均是可以的，chr(13)是回车，chr（10）是换行，但是在windows中，换行符通常是回车与换行两个 *** 作，所以，在 *** 作时，上面四个的效果是一样的，答题的时候建议选择a）

8、b（常识性问题，name属性是控件的唯一标识，所以name是必须有的）

9、a