vb退出循环_VB生成题目amp;自动评分程序

VB编程语言基础知识点总结

用VB实现微信消息的发送&＃xff01;

【汇总】VB编程综合整理

一键找回系统登录密码&＃xff0c;就是这么Easy!

如何实现多台计算机之间的网络通信&＃xff1f;

VB四则运算题目

程序实现分析&＃xff1a;

1、使用VB中的随机函数公式去随机生成10道四则运算题目&＃xff0c;而且运算符也是随机产生&＃xff1b;

2、用户输入计算的答案后&＃xff0c;点击核对可以显示出每道题的对错以及所得分数&＃xff1b;

3、本程序主要用到了循环结构、选择结构、数组、控件数组等VB核心知识。

程序实现代码&＃xff1a;

Option Explicit

Dim a(1 To 10, 1 To 3) As Integer

Dim s(1 To 10) As String * 1

Private Sub Command1_Click() &＃39;随机生成题目

Dim i As Integer

For i &＃61; 1 To 10

Dim score As Integer

    If a(i, 3) &＃61; Val(T(i - 1).Text) Then

         L(i - 1).ForeColor &＃61; vbGreen

        L(i - 1).Caption &＃61; "对"

        score &＃61; score &＃43; 1

     Else

          L(i - 1).ForeColor &＃61; vbBlue

        L(i - 1).Caption &＃61; "错"

    End If

Next

MsgBox "您本次得分为" & score & "分"

End Sub

Private Sub Command3_Click() &＃39;答案验证及评分&＃39;

Dim i As Integer

Dim T As Integer

Dim M As Single

Randomize

For i &＃61; 1 To 10

    a(i, 1) &＃61; Int(Rnd * (90 &＃43; 10))

    a(i, 2) &＃61; Int(Rnd * (90 &＃43; 1))

Next

For i &＃61; 1 To 10

    T &＃61; Int(Rnd * 4 &＃43; 1)

    If T &＃61; 1 Then

        s(i) &＃61; "&＃43;"

    ElseIf T &＃61; 2 Then

        s(i) &＃61; "-"

    ElseIf T &＃61; 3 Then

        s(i) &＃61; "*"

    Else

        s(i) &＃61; "/"

    End If

Next

For i &＃61; 1 To 10

    If s(i) &＃61; "&＃43;" Then

        a(i, 3) &＃61; a(i, 1) &＃43; a(i, 2)

    ElseIf s(i) &＃61; "-" Then

        If a(i, 1)

            T &＃61; a(i, 1): a(i, 1) &＃61; a(i, 2): a(i, 2) &＃61; T

            a(i, 3) &＃61; a(i, 1) - a(i, 2)

        Else

            a(i, 3) &＃61; a(i, 1) - a(i, 2)

        End If

    ElseIf s(i) &＃61; "*" Then

        a(i, 3) &＃61; a(i, 1) * a(i, 2)

    ElseIf s(i) &＃61; "/" Then

        a(i, 3) &＃61; a(i, 1) * a(i, 2)

        T &＃61; a(i, 1): a(i, 1) &＃61; a(i, 3): a(i, 3) &＃61; T

    End If

Next

For i &＃61; 1 To 10

    L1.AddItem a(i, 1) & s(i) & a(i, 2) & "&＃61;"

Next

End Sub

Private Sub Command2_Click() &＃39;退出程序

End

End Sub

。

程序运行图

Tips:

如果你有VB学习上的问题&＃xff0c;可添加老师微信号&＃xff1a;vbyjk521&＃xff0c;验证消息填写“VB",添加后会耐心为你讲解问题。

长按上图&＃xff0c;关注跟我学VB公众平台