vb.net自动出题系统 vb题库操作题

VB 设计一个自动出题并判断正误的程序

Option Base 1

Dim a As Integer, b As Integer, c As Integer, n As Integer

Private Sub Command1_Click()

s = "＋－×÷"

Text1.Text = ""

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

a = Int(9 * Rnd(1)) + 1

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

If n = 2 And a b Then t = a: a = b: b = a

If n = 4 Then c = b: b = a: a = a * c

Label1.Caption = a Mid(s, n, 1) b "="

End Sub

Private Sub Command2_Click()

Select Case n

Case 1

c = a + b

Case 2

c = a - b

Case 3

c = a * b

Case 4

c = a / b

End Select

If c = CInt(Text1.Text) Then

MsgBox ("对了，您真棒！")

Else

MsgBox ("错了，再努力！")

Text1.SetFocus

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End If

End Sub

Private Sub Form_Load()

Label1.Caption = ""

Text1.Text = ""

Label1.FontSize = 20

Text1.FontSize = 20

End Sub

用VB软件怎么做自动出题系统？

首先存题入Access库时加上标志位，表明是选择题还是判断题

其次在窗体启动时随机产生最大为1500的100个随机数，分60个数存入数组a，40个数存入数组b

后面从数据库读数据的时候分2次读，一次全部读取出选择题到rs中，然后当显示的时候用rs.move（依次读出数组a中的随机数）让rs记录移到随机产生的位置读取rs中的记录，判断题也是这样，这样就能达到随机抽取的目的了。

就是这样

参考

跪求VB代码，“自动出题”

Dim a%, b%, c%, d%, e%

Private Sub Command1_Click()

Select Case c

Case Is = Text3.Text

Picture1.Print a " + " b " = " c " √ "; Tab(20)

d = d + 1

Case Else

Picture1.Print a " + " b " = " Text3.Text " × "; Tab(20)

e = e + 1

End Select

Form_Load

End Sub

Private Sub Command2_Click()

Picture1.Print "恭喜您答对了" d "道题"; Tab(20)

Picture1.Print "很遗憾您答错了" e "道题"; Tab(20)

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

a = Int(20 * Rnd + 1)

b = Int(20 * Rnd + 1)

Text1.Text = a

Text2.Text = b

c = Val(Text1.Text) + Val(Text2.Text)

End Sub

我也是刚学VB，这是我自己做的。不知道能不能帮上你的忙。 随机数字（20以内）的加法。

关于vb.net自动出题系统和vb题库操作题的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。