#include<stdio.h>                                              /*包含头文件*/ 
#define Height 10                                              /*定义常量*/ 

int calculate(int Long,int Width);                             /*函数声明*/ 

int main()                                                     /*主函数main*/ 
{
       int m_Long;                                             /*定义整型变量，表示长度*/ 
       int m_Width;                                            /*定义整型变量，表示宽度*/ 
       int result;                                             /*定义整型变量，表示长方体的体积*/ 

        printf("长方形的高度为：%d\n",Height);                 /*显示提示*/ 
......................

clc
clear all
A=[ 0.615385    0.625       0.111111    0.486486    0.1     0.714286    0.571429
    0.461538    0.5         0.055556    0.081081    0       0.142857    0
    0.384615    0.375       0.277778    0.621622    0.75    0.857143    0.857143
    0.615385    0.5625      0.166667    0.918919    1       1           0.857143
    0.692308    0.25        0.277778    0.405405    0.45    0.285714    1
    0.846154    0.75        0.111111    0.459459    0.65    0           0.571429
    0.846154    1           0.555556    0.27027     0.7     0.285714    1
    0           0           1           0           0.5     1           0.571429
    0.269231    0.125       0.222222    0.081081    0.95    0.428571    0.428571
    0.5         0.0625      0.333333    0.189189    0.4     0.571429    0.285714
......................

clc
clear all
A=[ 0.615385    0.625       0.111111    0.486486    0.1     0.714286    0.571429
    0.461538    0.5         0.055556    0.081081    0       0.142857    0
    0.384615    0.375       0.277778    0.621622    0.75    0.857143    0.857143
    0.615385    0.5625      0.166667    0.918919    1       1           0.857143
    0.692308    0.25        0.277778    0.405405    0.45    0.285714    1
    0.846154    0.75        0.111111    0.459459    0.65    0           0.571429
    0.846154    1           0.555556    0.27027     0.7     0.285714    1
    0           0           1           0           0.5     1           0.571429
    0.269231    0.125       0.222222    0.081081    0.95    0.428571    0.428571
    0.5         0.0625      0.333333    0.189189    0.4     0.571429    0.285714
......................

问题二 穷举法
clc, clear, close all
a=readmatrix('数据.txt');
b=[0,0,0,0,0,0,0];
maxi=0;
id=[];
w=[0.15218741,0.083072708,0.102457361,0.408327392,0.09413388,...
    0.016964106,0.142857143];
for i=1:18
    for j=i+1:19
        for k=j+1:20
            for d=1:7
......................

Option Explicit
Dim JScript, CString, File, Control, System, NetWork  '定义线程级变量       '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
    If Globals("App").PrevInstance Then
        Dim ws, WMI, Process
        Set ws = CreateObject("wscript.shell")
        ws.SendKeys "{HOME}"
        Set WMI = GetObject("WinMgmts:")
......................

Option Explicit
Dim JScript, CString, File, Control, System, NetWork   '定义线程级变量       '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
    If Globals("App").PrevInstance Then
        Dim ws, WMI, Process
        Set ws = CreateObject("wscript.shell")
        ws.SendKeys "{HOME}"
        Set WMI = GetObject("WinMgmts:")
......................

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

numbers = [x**3 for x in range(1,11)]
for number in numbers:
    print(number)

numbers = []
for x in range(1,11):
    numbers.append(x**3)
    
for number in numbers:
    print(number)