vb.net做答题神器 大一vb题库及答案编程题

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

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

潮南ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！

然后用选择语句 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

如何VB制作答题器小软件？

先建一个frame！

建四个CheckBox,

分别是CheckBox1，CheckBox2，CheckBox3，CheckBox4，把Caption修改成你的答案！

假设把正确答案写在CheckBox2

则在CheckBox1，CheckBox3，CheckBox4里写入语句

Private Sub Check1_Click()

If Check1.Value = 1 Then

MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 1 Then

MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"

End If

End Sub

第二题在建一个Frame

以此类推……

在vb.net中，做一个系统答题的设计，怎么给每道题的答案积分，最后得到总分？

最简单的是定义个单精度变量，比如n

然后用到If...Then... 判断语句。

举例说明：1+1=2 判断这个语句

if text1.text="2" then n+=20 '这个数值是可以随便设置的，就是这道题目的分值。

如果有什么不明白可以QQ联系我。