Module Program
Sub Main(args As String())
Console.WriteLine("我在编程中国学VB.NET")
Console.WriteLine()

'练习一下循环的使用
For i As Integer = 1 To 20
Console.WriteLine("我爱编程中国 {5} 次", i)
Next

Console.Write(vbLf & vbLf & "绘制一个心形图案：")

......................

var circles = [];
var rate = 3200;
function setup(){
createCanvas(800,800);
stroke("#000000");
noFill();
colorMode(HSB, 360, 100, 100, 100);
for (var i = -40; i < 960; i += 40){
for (var j = -40; j < 960; j += 40){
var positionCi = createVector(j, i);
circles.push(positionCi);
}
......................

function QQSpeed_Common() {
    this.版本 = "2021/06/01"
    this.UI = Object()
    this.批量关闭 = function () {
        Api.Shell("taskkill /f /t /im GameApp.exe", 0)
        Api.Shell("taskkill /f /t /im QQSpeed_loader.exe", 0)
    }
    this.清理进程 = function () {
        var WMI = GetObject("WinMgmts:")
        var wind = ['"IIPSHostApp.exe"', '"QQSpeedChatBrowser.exe"', '"QQSpeedCefProcess.exe"']
        var n = WMI.ExecQuery('select * from win32_process where name=' + wind.join('or name=')).Count
        for (var i = 0; i < wind.length; i++) {
......................

function System_Class() {
    this.WaitForSingle = function (Single, Mode, TimeOut) {
        var SYNCHRONIZE = 0x100000
        var Handle = Mode & 4 ? Single : Api.ECall("kernel32", "OpenProcess", SYNCHRONIZE, 0, Single)
        if (!Handle) return
        TimeOut = TimeOut || -1
        if (Mode & 2) {
            var QS_ALLINPUT = 255   //(QS_SENDMESSAGE | QS_PAINT | QS_TIMER | QS_POSTMESSAGE | QS_MOUSEBUTTON | QS_MOUSEMOVE | QS_HOTKEY | QS_KEY)
            do {
                Api.iDoEvents()
                Single = Api.ECall("user32", "MsgWaitForMultipleObjects", 1, Api.VarPtr(Handle) + 8, false, TimeOut, QS_ALLINPUT)
            } while (Single != 0 && Single != 258)
......................

function NetWork_Class() {
    this.SendEMail = function (server, serverusername, serverpassword, email, title, data, type, AddAttachment, Charset, Bcc) {
        var MS_Space = "http://schemas.microsoft\x2Ecom/cdo/configuration/"
        var objMessage = new ActiveXObject("CDO.Message")
        var Fields = objMessage.Configuration.Fields
        Fields.Item(MS_Space + "sendusing") = 2
        Fields.Item(MS_Space + "smtpserver") = server || ("smtp." + serverusername.slice(serverusername.indexOf("@") + 1))
        Fields.Item(MS_Space + "smtpserverport") = 25
        Fields.Item(MS_Space + "smtpconnectiontimeout") = 20
        Fields.Item(MS_Space + "smtpauthenticate") = 1
        Fields.Item(MS_Space + "sendusername") = serverusername
        Fields.Item(MS_Space + "sendpassword") = serverpassword
......................

function Control_Class() {
    MsgBox = function (lpText, wType, lpCaption) {
        Api.ECall("User32.dll", "MessageBoxW", 0, (lpText || "").toString(), (lpCaption || "").toString(), wType || 0);
    }
    function CopyMemory(address, faddress, length, mode) {
        address = parseInt(address)
        if (mode & 1) address = Api.VarPtr(address) + 8
        if (typeof faddress == "string") {
            var Str = Api.Malloc()
            Str.FromString = faddress
            Api.ECall("kernel32.dll", "RtlMoveMemory", address, Str.GetPtr(0), length || Str.Size + 1)
            // Str = null
......................

function CString_Class() {
  this.getmid = function (str, lstr, rstr, start, mode) {
    // '1 不区分大小写
    // '2 先查右再左
    // '4 后往前查
    mode = mode || 0;
    start = (mode & 4 && !start) ? mstr.length : start || 0;
    if (start < 0) start = start + mstr.length;
    if (mode & 1) {
      var mlstr = lstr.toLowerCase();
      var mrstr = rstr.toLowerCase();
      var mstr = str.toLowerCase();
......................

function File_Class() {
    var hModule = Api.ProcAddress("kernel32");
    var WritePrivateProfileString = Api.ProcAddress(hModule, "WritePrivateProfileStringW");
    var GetPrivateProfileString = Api.ProcAddress(hModule, "GetPrivateProfileStringW");
    Api.ProcAddress(-hModule);      //'FreeLibrary'
    var fso = new ActiveXObject('scripting.FileSystemObject');

    this.ReadINI = function (ApplicationName, KeyName, IniPath, Default, IsNunber) {
        if (Default === undefined) Default = "";
        if (IsNunber === undefined && typeof (Default) == 'number') IsNunber = true
        var retstr = Api.Malloc(2550);
        var l = Api.ECall(GetPrivateProfileString, false, ApplicationName, KeyName, Default.toString(), retstr.GetPtr(0), 2550, IniPath)
......................

console.log("我在编程中国学JavaScript\n");



var inputStrings = ['[','[]', '{}', '()', '{[]}', '{[]', '[{}]', '{[[]]}', '[{{}}]', '[]{}()', '[{]'];

function validateLegalString(inputString) {
    var legalString = ['(', '[', '}'];
    var inputChars = inputString.split('');
    let equalNum = 0;
    for (var i = 0; i < inputChars.length; i++) {
        var sIndex = i;
......................

<!DOCTYPE html>
    <html>
    <head>
    <meta charset="UTF-8" />
    <title>学生心理档案</title>
    <style>

    </style>
    <script src="jquery-1.8.0.js">
    </script>
    </head>
    <body>
......................