Option Explicit
Const C_WorkProgress = 4
Class UI_Class
    Public Form, Tip, config, AppName, Starting, Angel
    Private Menu, hMenu1(1), hMenu2(0), timing
    Private Tooptip
    Private DisablePowerSave
    Private Sub Create()
        Dim i, v, s, j, arr
        Set Menu = Control.Menu()
        Set Form = Api.NewForm()
        Set Tooptip = Control.Tooptip()
......................

#include<stdio.h>
int main()
{int x,y;
    printf("请你输入一个整数代表x,计算机将求出分段函数y的值。\n");
    scanf("%d",&x);
    if(x<1)
    {y=x;
    printf("因为x=%d<1,所以函数表达式为y=x,此时y的值为%d。",x,y);
    }
    else if((x>1||x==1)&&x<10)
    {y=2*x-1;
    printf("因为1=<x=%d<10,所以函数表达式为y=2x-1,此时y的值为%d。",x,y);
......................

#include<stdio.h>
int main()
{int x,y;
    printf("请你输入一个整数代表x,计算机将求出分段函数y的值。\n");
    scanf("%d",&x);
    if(x<1)
    {y=x;
    printf("因为x=%d<1,所以函数表达式为y=x,此时y的值为%d。",x,y);
    }
    else if((x>1||x==1)&&x<10)
    {y=2*x-1;
    printf("因为1=<x=%d<10,所以函数表达式为y=2x-1,此时y的值为%d。",x,y);
......................

# -*- coding:utf-8 -*-

import socket
from time import ctime, sleep
import threading


class ChatRoomPlus:
    def __init__(self):
        # 全局参数配置
        self.encoding = "utf-8"  # 使用的编码方式
        self.broadcastPort = 7788   # 广播端口
......................

Option Explicit
' By音符，QQ：337855632 Time:2020-03-17
Class Window_Class
    Private PostMessage, SendMessage
    Public Function GetText(ByVal hWnd)
        Dim pszText
        pszText = Space(255)
        GetText = Left(pszText, Api.ECall("user32.dll", "GetWindowTextW", hWnd, pszText, Len(pszText)))
    End Function
    Public Function GetClass(ByVal hWnd)
        Dim pszText
        pszText = Space(255)
......................

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();
......................

Option Explicit
' By音符，QQ：337855632 Time:2020-03-17 功能定制：20元起
Class File_Class
    Private WritePrivateProfileString, GetPrivateProfileString
    Public Function ReadINI(ByVal ApplicationName, ByVal KeyName, ByVal IniPath, ByVal Default)
        Dim retstr
        retstr = Space(255)
        ReadINI = left(retstr, Api.ECall(GetPrivateProfileString, False, ApplicationName, KeyName, Default, retstr, 255, IniPath))
    End Function
    Public Function WriteINI(ByVal ApplicationName, ByVal KeyName, ByVal Str, ByVal IniPath)
        Call Api.ECall(WritePrivateProfileString, False, ApplicationName, KeyName, CStr(Str), IniPath)
    End Function
......................

l1 = list()
for n1 in range(11):
    for n2 in range(10):
        for n3 in range(10):
            for n4 in range(10):
                if n1 ** 3 + n2 ** 3 + n3 ** 3 + n4 ** 3 == n1 * 1000 + n2 * 100 + n3 * 10 + n4:
                    print(int(str(n1) + str(n2) + str(n3) + str(n4)))

Option Explicit
' By音符，QQ：337855632 Time:2020-03-17 功能定制：20元起
Class Window_Class
    Private PostMessage, SendMessage, KMMessage
    Private EnumS, Sleep
    Public Property Let Delay(iTime) '设置LeftClick KeyPress间隔
        Sleep = iTime
    End Property
    Public Property Let Async(IsAsync) '设置鼠标键盘是否异步
        If CBool(IsAsync) Then KMMessage = PostMessage Else KMMessage = SendMessage
    End Property
    Public Function GetText(ByVal hWnd)
......................

import pickle
import os

datafile = 'person.data'
line = '======================================='
message = '''
=======================================
Welcome bookmark:
    press 1 to show list
    press 2 to add pepole
    press 3 to edit pepole
    press 4 to delete pepole
......................