哇塞不！赛博时代云上自动化辅导孩子学习。

背景

孩子天天上网看动画片，都幼儿园大班了还不会100以内的加减法，因为我平时还需要忙着工作不能天天陪着孩子。
这次我们整个活，让孩子每天心甘情愿的做100道题。而且电脑还要给孩子一些提醒，即使做错了也会不厌其烦的给孩子提示计算的方法，每做对一道题还会鼓励孩子坚持学习。
无论是做对还是做错了题，都要存到C盘根目录里，这样等下班回来了还可以针对孩子做错的题分析和加强训练。

做一个让孩子输入数学运算的成绩

为了能够实现让孩子在算完数学题之前不能用电脑，我们要拿出祖传的VB.Net语言

主窗体把TopMost勾上，界面就会永远覆盖在其他界面之上，孩子就没办法擅自打开网页和游戏了

外观FormBorderStyle选择None，这样界面就不会显示最大化、最小化、关闭按钮了

屏幕初始位置设置为CenterScreen（居中），窗口状态设置为Maximized（最大化），这样就能实现全屏效果

把控件都拖拽到界面上，属性栏里可以设置一下界面背景、文字颜色、文字大小

为了能用系统自带的文字转语音功能，让程序能和孩子互动说话，还需要加上System.Speech引用
然后重点来了，我们双击窗体任意空白位置，开始写代码

Imports System.Speech.Synthesis
Public Class Form1
    ' 第一个数
    Dim a As Integer = 0
    ' 第二个数
    Dim b As Integer = 0
    ' 符号
    Dim c As Integer = 0
    ' 正确得数
    Dim d As Integer = 0
    ' 得分
    Dim score As Integer = 0
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        出题()
    End Sub

    Private Sub 出题()
Start:
        Dim rand As New Random()
        a = rand.Next(100)
        b = rand.Next(100)
        c = rand.Next(2)

        If c = 0 Then
            If a + b > 100 Then
                GoTo Start
            End If
            d = a + b
            Label1.Text = a & "+" & b & "="
        ElseIf c = 1 Then
            If a - b < 0 Then
                GoTo Start
            End If
            d = a - b
            Label1.Text = a & "-" & b & "="
        End If

        Dim thread As New Threading.Thread(AddressOf say)
        thread.Start()

        Label2.Text = "得分：" & score
    End Sub

    Private Sub say()
        SpeakText(Label1.Text.Replace("-", "减").Replace("+", "加").Replace("=", "等于多少"))
    End Sub

    Private Sub yes()
        Dim a = New Random().Next(10)
        Dim text = ""
        Select Case a
            Case 0
                text = "对啦！你好聪明！"
            Case 1
                text = "哇，天才！"
            Case 2
                text = "太棒了！"
            Case 3
                text = "未来的科学家！"
            Case 4
                text = "数学不错！"
            Case 5
                text = "好极了！"
            Case 6
                text = "你真优秀！"
            Case 7
                text = "答对啦！"
            Case 8
                text = "不错哦！"
            Case 9
                text = "继续保持，加油！"
        End Select
        SpeakText(text)
    End Sub

    Private Sub no()
        Dim text = "再想想"

        Dim 算式 = Label1.Text.Replace("=", "")
        If 算式.Contains("+") Then
            Dim 数字 As String() = 算式.Split("+")
            Dim 数字1 As Integer = 数字(0)
            Dim 数字2 As Integer = 数字(1)
            If HasCarry(数字1, 数字2) Then
                text &= "，这是个加法进位题，个位凑十之后剩下的就是新的个位，而且不要忘了进位"
            Else
                text &= "，这道题对你来说不难"
            End If
        ElseIf 算式.Contains("-") Then
            Dim 数字 As String() = 算式.Split("-")
            Dim 数字1 As Integer = 数字(0)
            Dim 数字2 As Integer = 数字(1)
            If NeedsBorrow(数字1, 数字2) Then
                text &= "，这个是减法退位题，不够减我们要借一个十，最后不要忘了十位上要退位"
            Else
                text &= "，这道题对你来说不难"
            End If
        End If

        SpeakText(text)
    End Sub

    Public Function NeedsBorrow(a As Integer, b As Integer) As Boolean
        If a Mod 10 < b Mod 10 Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function HasCarry(a As Integer, b As Integer) As Boolean
        If a Mod 10 + b Mod 10 > 9 Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp
        If e.KeyCode = Keys.Enter Then
            If TextBox1.Text = d.ToString Then
                IO.File.AppendAllLines("C:\答对题目.txt", New String() {Label1.Text & TextBox1.Text})
                score += 1
                If score >= 100 Then
                    SpeakText("宝贝，恭喜你全部答对了，你真聪明！现在可以看动画片了，拜拜！")
                    End
                End If
                yes()
                出题()
            Else
                Dim thread As New Threading.Thread(AddressOf no)
                thread.Start()
                IO.File.AppendAllLines("C:\错题本.txt", New String() {Label1.Text & TextBox1.Text})
            End If
            TextBox1.Text = ""
            TextBox1.Focus()
        End If
    End Sub

    Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
        TextBox1.Focus()
    End Sub

    Public Sub SpeakText(text As String)
        Try
            Using synth As New SpeechSynthesizer()
                synth.SetOutputToDefaultAudioDevice() '设置输出音频设备（默认）
                synth.Speak(text) '朗读文本
            End Using
        Catch ex As Exception

        End Try
    End Sub
End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159

加上监控手段

配合上向日葵远程桌面观看和萤石云摄像头，就可以随时查看孩子是否在学习了

有的时候孩子跑去玩别的，或者注意力不集中，则可以用系统自带的文本转语音把孩子叫回来（监控对讲也有相同的效果，不过就没有电脑对孩子的神秘感了）

实际使用效果

用了大概一周的时间，孩子已经把100以内的加减法练的非常熟练了，家里的老人和保姆都夸这解决方案是真的让人很省心。现在孩子每天甚至会主动打开电脑把100道题做完，因为着急要用电脑看动画片。达到了想要的效果。