江湖救急 VB代码 求大佬指点迷津

没学过VB 老师只给了我们代码 让我们自己做

哪位大佬帮忙看看这个问题

请贴出具体代码