vb答题系统代码（vb考试题库及答案编程题）

今天给各位分享vb答题系统代码的知识，其中也会对vb考试题库及答案编程题进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、新手vb答题软件代码求教
• 2、用VB制作考试系统
• 3、VB中如何设计制作一个答题软件
• 4、用VB做一个选择题系统

新手vb答题软件代码求教

dim a as long a=value(text1.text) text2.text=format$(fix(a/3600),"0")+"小时"+format$(fix ((a mod 3600) /60),"0")+"分"+format$((a mod 60),"00")+"秒"

用VB制作考试系统

Dim a, b, c, d, e, f, g, x, y, z, s, mPrivate Sub C1_Click()

Timer1.Enabled = True

ct.Enabled = True

pd.Enabled = True

fh.Enabled = True

zt.Enabled = True

C1.Enabled = False

jx.Enabled = True

Text4.SetFocus

End SubPrivate Sub ct_Click()

m = m + 1

Text4.SetFocus

a1:

e = Int(Rnd() * 100) Mod 4

f = Int(Rnd() * 100) Mod 4

If O1.Value = True Then

a = Int(Rnd() * 10)

b = Int(Rnd() * 10)

c = Int(Rnd() * 10)

ElseIf O2.Value = True Then

a = Int(Rnd() * 20)

b = Int(Rnd() * 20)

c = Int(Rnd() * 20)

ElseIf O3.Value = True Then

a = Int(Rnd() * 50)

b = Int(Rnd() * 50)

c = Int(Rnd() * 50)

Else

e = 5

f = 5

nd = MsgBox("你还没有选择题目的难易程度！", 64, "选择")

End If

If (b = 0 And e = 3) Or (c = 0 And f = 3) Then GoTo a1

Select Case e

Case 0

Lab2.Caption = "＋"

Case 1

Lab2.Caption = "－"

Case 2

Lab2.Caption = "×"

Case 3

Lab2.Caption = "÷"

End Select

Select Case f

Case 0

Lab3.Caption = "＋"

Case 1

Lab3.Caption = "－"

Case 2

Lab3.Caption = "×"

Case 3

Lab3.Caption = "÷"

End Select

Text1.Text = a

Text2.Text = b

Text3.Text = c

If e = 0 And f = 0 Then

g = a + b + c

ElseIf e = 0 And f = 1 Then

g = a + b - c

ElseIf e = 0 And f = 2 Then

g = a + (b * c)

ElseIf e = 0 And f = 3 Then

g = a + (Int(b / c * 100 + 0.5)) / 100

ElseIf e = 1 And f = 0 Then

g = a - b + c

ElseIf e = 1 And f = 1 Then

g = a - b - c

ElseIf e = 1 And f = 2 Then

g = a - (b * c)

ElseIf e = 1 And f = 3 Then

g = a - (Int(b / c * 100 + 0.5)) / 100

ElseIf e = 2 And f = 0 Then

g = a * b + c

ElseIf e = 2 And f = 1 Then

g = a * b - c

ElseIf e = 2 And f = 2 Then

g = a * b * c

ElseIf e = 2 And f = 3 Then

g = (Int(a * b / c * 100 + 0.5)) / 100

ElseIf e = 3 And f = 0 Then

g = (Int(a / b * 100 + 0.5)) / 100 + c

ElseIf e = 3 And f = 1 Then

g = (Int(a / b * 100 + 0.5)) / 100 - c

ElseIf e = 3 And f = 2 Then

g = (Int(a / b * 100 + 0.5)) / 100 * c

ElseIf e = 3 And f = 3 Then

g = (Int(a / b / c * 100 + 0.5)) / 100

End If

End Sub

Private Sub fh_Click()

If jx.Enabled = False Then

hunhe.Hide

xuanze.Show

C1.Enabled = True

Else

jxa = MsgBox("你还没有结束练习！", 48, "警告")

End If

End SubPrivate Sub Form_Load()

Lab1.Caption = "0时00分00秒"

s = 0

d = 0

m = 0

ct.Enabled = False

pd.Enabled = False

jx.Enabled = False

zt.Enabled = False

End SubPrivate Sub jx_Click()

jx1 = MsgBox("你真的要结束练习吗？", 36, "提示")

If jx1 = vbYes Then

jg = MsgBox("你的得分是" d "分；你一共做了" m "个题，做对了" d / 10 "个；你的练习时间是" Lab1.Caption "。", 64, "最后成绩")

Timer1.Enabled = False

Lab1.Caption = "0时00分00秒"

jx.Enabled = False

zt.Enabled = False

C1.Enabled = False

ct.Enabled = False

pd.Enabled = False

d = 0

m = 0

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Lab2.Caption = ""

Lab3.Caption = ""

Text4.SetFocus

Else

Cancel = 1

End If

End SubPrivate Sub pd_Click()

If Text1.Text = "" Then

Label7.Caption = "你还没有抽题，请抽题！"

ElseIf Text4.Text = "" Then

Label7.Caption = "你还没有做题，请做题！"

Text4.SetFocus

ElseIf Text4.Text = g Then

Label7.Caption = "恭喜你，做对了，加10分！"

d = d + 10

Lab4.Caption = d

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Lab2.Caption = ""

Lab3.Caption = ""

Else

Label7.Caption = "你做错了，请重新做题！"

Text4.Text = ""

Text4.SetFocus

End If

End SubPrivate Sub Timer1_Timer()

s = s + 1

x = s Mod 60

y = (Int(s / 60)) Mod 60

z = Int(Int(s / 60) / 60)

If x 10 And y 10 Then

Lab1.Caption = z "时0" y "分0" x "秒"

ElseIf x 10 And y 9 Then

Lab1.Caption = z "时" y "分0" x "秒"

ElseIf x 9 And y 10 Then

Lab1.Caption = z "时0" y "分" x "秒"

Else

Lab1.Caption = z "时" y "分" x "秒"

End If

End SubPrivate Sub zt_Click()

Timer1.Enabled = False

C1.Enabled = True

ct.Enabled = False

pd.Enabled = False

zt.Enabled = False

End Sub

我不知道对不对

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

两个需要运算的数字可以用随机函数 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

用VB做一个选择题系统

Private Type utQuestion

Description As String '问题描述

Option(2) As String '备选答案

Answer As Integer '正确答案的序号（0-2）

End Type

Dim Questions(19) As utQuestion, id As Integer, answer As Integer

Private Sub Form_Load()

Dim i As Integer

'问题初始化从下一行开始

With Questions(0)

.Description = "问题描述内容"

.Option(0) = "备选答案1"

.Option(1) = "备选答案2"

.Option(2) = "备选答案3"

.Answer = 0 ‘按实际情况输入：0、1、2的其中1个

End With

With Questions(1)

.Description = "问题描述内容"

.Option(0) = "备选答案1"

.Option(1) = "备选答案2"

.Option(2) = "备选答案3"

.Answer = 0 ‘按实际情况输入：0、1、2的其中1个

End With

With Questions(2)

.Description = "问题描述内容"

.Option(0) = "备选答案1"

.Option(1) = "备选答案2"

.Option(2) = "备选答案3"

.Answer = 0 ‘按实际情况输入0、1、2

End With

'……

With Questions(19)

.Description = "问题描述内容"

.Option(0) = "备选答案1"

.Option(1) = "备选答案2"

.Option(2) = "备选答案3"

.Answer = 0 ‘按实际情况输入0、1、2

End With

'问题初始化到上一行结束

ShowNext 0 '显示第1个问题

End Sub

Private Sub ShowNext(ByVal Index As Integer)

'改变问题: Index = 0 To 19

Dim i As Integer

With Questions(Index)

AskContent = “1、" .Description 'AskContent是Label控件的Name

For i = 0 To 2

AnswerItems(i).Value = False

AnswerItems(i).Caption = Chr(i+65) "、" .Option(i) 'AnswerItems是Option控件数组的Name

Next

End With

answer = -1

End Sub

Private Sub Answers_Click(Index As Integer)

answer = Index '获取答案序号

End Sub

Private Sub Submit_Click() 'Submit是CommandButton控件的Name

If id 19 Then

MsgBox "已完成全部题目！"

Exit Sub

End If

If answer 0 Then

MsgBox "请选择答案后在单击【确定】按钮！"

Else

If answer = Questions(id).Answer Then

id = id + 1

ShowNext id

Else

MsgBox "回答错误，正确答案是【" Choose(Questions(id).Answer+1, "A","B","C") "】"

End If

End If

End Sub

关于vb答题系统代码和vb考试题库及答案编程题的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。