求大神帮忙完善这个VBS代码，

Const Title = "爱情测试" Const Question = "你最喜欢的人是谁 请在下面方框中输入他(她)的名字" Const Info = "你说出你的心声, 那就向他(她)表白吧" Const YourName = "张三" Dim YourAnswer Do YourAnswer=inputbox(Question, Title) if YourAnswer <> YourName then Msgbox Info, VBInformation + VBOKOnly, Title End if Loop Until YourAnswer = YourName Msgbox YourName & "我爱你!", VBInformation + VBOKOnly, Title REM 此行为注释, 不用复制 你的代码中的(最后一行) scend 的内容是什么

将输入的内容作为邮件内容发动，发邮件：

'═════代═══码═══开═══始═════

Set Email = CreateObject("CDOMessage")

a=inputbox("邮件的内容","","")

strName = ""

EmailFrom = "1234567890000@qqcom" '你的qq邮箱

pass="1234567890"'你的qq密码

EmailTo = "1234567890000@qqcom" '目的地址

EmailSubject = ""

EmailTextbody =a

with EmailConfigurationFields

Item(strName & "sendusing") = 2

Item(strName & "smtpserver") = "smtpqqcom"

Item(strName & "smtpserverport") = 25

Item(strName & "smtpauthenticate") = 1

Item(strName & "sendusername") = qq

Item(strName & "sendpassword") = pass

Update

End With

Emailsend

'Created By escortmnm from VBS团队

'═════代═══码═══结═══束═════

/一个月就想做五子棋,有点难啊,希望你能看懂,这是代码/

#include <stdlibh>

#include <stdioh>

#include <conioh>

#include <stringh>

#define MAXIMUS 15 //定义棋盘大小

int p[MAXIMUS][MAXIMUS];//存储对局信息

char buff[MAXIMUS2+1][MAXIMUS4+3];//输出缓冲器

int Cx,Cy;//当前光标位置

int Now;//当前走子的玩家，1代表黑，2代表白

int wl,wp;//当前写入缓冲器的列数和行数位置

char showText;//在棋盘中央显示的文字信息

int count;//回合数

char Copy(char strDest,const char strSrc)//修改过的字符串复制函数，会忽略末端的\0

{

    char strDestCopy = strDest;

    while (strSrc!='\0')

    {

        strDest++=strSrc++;

    }

    return strDestCopy;

}

void Initialize()//初始化一个对局函数

{

    int i,j;//循环变量

    showText="";//重置显示信息

    count=0;//回合数归零

    for(i=0;i<MAXIMUS;i++)//重置对局数据

    {

        for(j=0;j<MAXIMUS;j++)

        {

            p[i][j]=0;

        }

    }

    Cx=Cy=MAXIMUS/2;//重置光标到中央

    Now=1;//重置当前为黑方

}

char getStyle(int i,int j)//获得棋盘中指定坐标交点位置的字符，通过制表符拼成棋盘

{

    if(p[i][j]==1)//1为黑子

        return "●";

    else if(p[i][j]==2)//2为白子

        return "○";

    else if(i==0&&j==0)//以下为边缘棋盘样式

        return "┏";

    else if(i==MAXIMUS-1&&j==0)

        return "┓";

    else if(i==MAXIMUS-1&&j==MAXIMUS-1)

        return "┛";

    else if(i==0&&j==MAXIMUS-1)

        return "┗";

    else if(i==0)

        return "┠";

    else if(i==MAXIMUS-1)

        return "┨";

    else if(j==0)

        return "┯";

    else if(j==MAXIMUS-1)

        return "┷";

    return "┼";//中间的空位

}

char getCurse(int i,int j)//获得指定坐标交点位置左上格的样式，通过制表符来模拟光标的显示

{

    if(i==Cx)

    {

        if(j==Cy)

            return "┏";

        else if (j==Cy+1)

            return "┗";

    }

    else if(i==Cx+1)

    {

        if(j==Cy)

            return "┓";

        else if (j==Cy+1)

            return "┛";

    }

    return "　";//如果不在光标附近则为空

}

void write(char c)//向缓冲器写入字符串

{

    Copy(buff[wl]+wp,c);

    wp+=strlen(c);

}

void ln()//缓冲器写入位置提行

{

    wl+=1;

    wp=0;

}

void Display()//将缓冲器内容输出到屏幕

{

    int i,l=strlen(showText);//循环变量，中间文字信息的长度

    int Offset=MAXIMUS2+2-l/2;//算出中间文字信息居中显示所在的横坐标位置

    if(Offset%2==1)//如果位置为奇数，则移动到偶数，避免混乱

    {

        Offset--;

    }

    Copy(buff[MAXIMUS]+Offset,showText);//讲中间文字信息复制到缓冲器

    if(l%2==1)//如果中间文字长度为半角奇数，则补上空格，避免混乱

    {

        (buff[MAXIMUS]+Offset+l)=0x20;

    }

    system("cls");//清理屏幕，准备写入

    for(i=0;i<MAXIMUS2+1;i++)//循环写入每一行

    {

        printf("%s",buff[i]);

        if(i<MAXIMUS2)//写入完每一行需要换行

            printf("\n");

    }

}

void Print()//将整个棋盘算出并储存到缓冲器，然后调用Display函数显示出来

{

    int i,j;//循环变量

    wl=0;

    wp=0;

    for(j=0;j<=MAXIMUS;j++)//写入出交点左上角的字符，因为需要打印棋盘右下角，所以很以横纵各多一次循环

    {

        for(i=0;i<=MAXIMUS;i++)

        {

            write(getCurse(i,j));//写入左上角字符

            if(j==0||j==MAXIMUS)//如果是棋上下盘边缘则没有连接的竖线，用空格填充位置

            {

                if(i!=MAXIMUS)

                    write("　");

            }

            else//如果在棋盘中间则用竖线承接上下

            {

                if(i==0||i==MAXIMUS-1)//左右边缘的竖线更粗

                    write("┃");

                else if(i!=MAXIMUS)//中间的竖线

                    write("│");

            }

        }

        if(j==MAXIMUS)//如果是最后一次循环，则只需要处理边侧字符，交点要少一排

        {

            break;

        }

        ln();//提行开始打印交点内容

        write("　");//用空位补齐位置

        for(i=0;i<MAXIMUS;i++)//按横坐标循环正常的次数

        {

            write(getStyle(i,j));//写入交点字符

            if(i!=MAXIMUS-1)//如果不在最右侧则补充一个横线承接左右

            {

                if(j==0||j==MAXIMUS-1)

                {

                    write("━");//上下边缘的横线更粗

                }

                else

                {

                    write("—");//中间的横线

                }

            }

        }

        ln();//写完一行后提行

    }

    Display();//将缓冲器内容输出到屏幕

}

int Put()//在当前光标位置走子，如果非空，则返回0表示失败

{

    if(p[Cx][Cy]==0)

    {

        p[Cx][Cy]=Now;//改变该位置数据

        return 1;//返回1表示成功

    }

    else

    {

        return 0;

    }

}

int Check()//胜负检查，即判断当前走子位置有没有造成五连珠的情况

{

    int w=1,x=1,y=1,z=1,i;//累计横竖正斜反邪四个方向的连续相同棋子数目

    for(i=1;i<5;i++)//向下检查

        if(Cy+i<MAXIMUS&&p[Cx][Cy+i]==Now)

            w++;

        else 

            break;

    for(i=1;i<5;i++)//向上检查

        if(Cy-i>0&&p[Cx][Cy-i]==Now)

            w++;

        else 

            break;

    if(w>=5)//若果达到5个则判断当前走子玩家为赢家

        return Now;

    for(i=1;i<5;i++)//向右检查

        if(Cx+i<MAXIMUS&&p[Cx+i][Cy]==Now)

            x++;

        else 

            break;

    for(i=1;i<5;i++)//向左检查

        if(Cx-i>0&&p[Cx-i][Cy]==Now)

            x++;

        else 

            break;

    if(x>=5)//若果达到5个则判断当前走子玩家为赢家

        return Now;

    for(i=1;i<5;i++)//向右下检查

        if(Cx+i<MAXIMUS&&Cy+i<MAXIMUS&&p[Cx+i][Cy+i]==Now)

            y++;

        else 

            break;

    for(i=1;i<5;i++)//向左上检查

        if(Cx-i>0&&Cy-i>0&&p[Cx-i][Cy-i]==Now)

            y++;

        else 

            break;

    if(y>=5)//若果达到5个则判断当前走子玩家为赢家

        return Now;

    for(i=1;i<5;i++)//向右上检查

        if(Cx+i<MAXIMUS&&Cy-i>0&&p[Cx+i][Cy-i]==Now)

            z++;

        else 

            break;

    for(i=1;i<5;i++)//向左下检查

        if(Cx-i>0&&Cy+i<MAXIMUS&&p[Cx-i][Cy+i]==Now)

            z++;

        else 

            break;

    if(z>=5)//若果达到5个则判断当前走子玩家为赢家

        return Now;

    return 0;//若没有检查到五连珠，则返回0表示还没有玩家达成胜利

}

int RunGame()//进行整个对局，返回赢家信息(虽然有用上)

{

    int input;//输入变量

    int victor;//赢家信息

    Initialize();//初始化对局

    while(1)//开始无限回合的死循环，直到出现胜利跳出

    {

        Print();//打印棋盘

        input=getch();//等待键盘按下一个字符

        if(input==27)//如果是ESC则退出程序

        {

            exit(0);

        }

        else if(input==0x20)//如果是空格则开始走子

        {

            if(Put())//如果走子成功则判断胜负

            {

                victor=Check();

                Now=3-Now;//轮换当前走子玩家

                count++;

                if(victor==1)//如果黑方达到胜利，显示提示文字并等待一次按键，返回胜利信息

                {

                    showText="黑方获得了胜利！";

                    Print();

                    if(getch()==0xE0)

                    {

                        getch();

                    }

                    return Now;

                }

                else if(victor==2)//如果白方达到胜利，显示提示文字并等待一次按键，返回胜利信息

                {

                    showText="白方获得了胜利！";

                    Display();

                    if(getch()==0xE0)

                    {

                    getch();

                    }

                    return Now;

                }

                else if(count==MAXIMUSMAXIMUS)//如果回合数达到了棋盘总量，即棋盘充满，即为平局

                {

                    showText="平局！";

                    Display();

                    if(getch()==0xE0)

                    {

                        getch();

                    }

                    return 0;

                }

            }

        }

        else if(input==0xE0)//如果按下的是方向键，会填充两次输入，第一次为0xE0表示按下的是控制键

        {

            input=getch();//获得第二次输入信息

            switch(input)//判断方向键方向并移动光标位置

            {

                case 0x4B:

                Cx--;

                break;

                case 0x48:

                Cy--;

                break;

                case 0x4D:

                Cx++;

                break;

                case 0x50:

                Cy++;

                break;

            }

            if(Cx<0)//如果光标位置越界则移动到对侧

                Cx=MAXIMUS-1;

            if(Cy<0)

                Cy=MAXIMUS-1;

            if(Cx>MAXIMUS-1)

                Cx=0;

            if(Cy>MAXIMUS-1)

                Cy=0;

        }

    }

}

int main()//主函数

{

    system("title 简易五子棋 ——Etsnarl制作");//设置标题

    system("mode con cols=63 lines=32");//设置窗口大小

    system("color E0");//设置颜色

    while(1)//循环执行游戏

    {

        RunGame();

    }

    return 0;

}

%c单个字符输出的意思。

%s是输出字符串。

%d是输出整型。

%f是输出整型。

这是在scanf、printf这样的函数中，将参数类型与输入/输出句子中的相应位置相对应所使用的转义标志符。

其中常用的有%c--对应字符型char%s--对应字符串型char(char[])%d--对应整形int%ld--对应长整形long%x--对应十六进制整数，大于9的字母小写%X--对应十六进制整数，大于9的字母大写%u--对应无符号整形unsigned int。

C语言是一门面向过程的计算机编程语言，与C++，Java等面向对象的编程语言有所不同。

其编译器主要有Clang、GCC、WIN-TC、SUBLIME、MSVC、Turbo C等。

扩展资料：

整数类型：（即数字）输出整数d%

浮点型，也叫实数型（即小数）%f，指数 %e %g

字符型 （字母） 输出一个字符 %c 字符串 %s

%d %f %e %g %c %s这些都叫控制符 一般用于输出语句。

至于转义字符 一般是反斜杠（'\'）加上相应标示符 如 要求输出换行 '\n'

printf("ABCDEF\n")这条语句输出ABCDEF后自动换到下一行，而'\n'是不会再屏幕上显示的，也就是说转义字符在用于输出语句时是不显示的。

\a 响铃 \b退格 \f换页 \n换行 \r回车 \t水平制表 \v垂直制表 \0空字符。

K&R C主要介绍了以下特色：

结构体（struct）类型

长整数（long int）类型

无符号整数（unsigned int）类型

把运算符=+和=-改为+=和-=。因为=+和=-会使得编译器不知道使用者要处理i = -10还是i =- 10，使得处理上产生混淆。

即使在后来ANSI C标准被提出的许多年后，K&R C仍然是许多编译器的最 准要求，许多老旧的编译器仍然运行K&R C的标准。

C的数据类型包括：整型、字符型、实型或浮点型（单精度和双精度）、枚举类型、数组类型、结构体类型、共用体类型、指针类型和空类型。

由ISO标准定义的C语言关键字共32个：

auto double int struct break else long switch

case enum register typedef char extern return union

const float short unsigned continue for signed void

default goto sizeof volatile do if while static inline

restrict _Bool _Complex _Imaginary _Generic 

参考资料：

const title="爱情测试"

const yourname="爱情测试"

const question="你最喜欢的那个人是谁？请在下面方框中输入她的名字。"

const info="你在说谎，不要逃避，实话实说。"

const scend="你说出了你的心扉，那现在就向她表白吧。"

dim youranswer

do

youranswer= inputbox(question ,title)

if youranswer<>yourname then msgbox info,vbinformation+vbokonly,yourname

loop until youranswer=yourname

msgbox (scend)

msgbox (yourname)

package day17gobang;

import javautilArrays;

public class GoBangGame {

public static final char BLANK='';

public static final char BLACK='@';

public static final char WHITE='O';

public static final int MAX = 16;

private static final int COUNT = 5;

//棋盘

private char[][] board;

public GoBangGame() {

}

//开始游戏

public void start() {

board = new char[MAX][MAX];

//把二维数组都填充‘’

for(char[] ary: board){

Arraysfill(ary, BLANK);

}

}

public char[][] getChessBoard(){

return board;

}

public void addBlack(int x, int y) throws ChessExistException{

//@

//char blank = '';

//Systemoutprintln( x +"," + y + ":" + board[y][x] + "," + BLANK);

if(board[y][x] == BLANK){// x, y 位置上必须是空的才可以添棋子

board[y][x] = BLACK;

return;

}

throw new ChessExistException("已经有棋子了！");

}

public void addWhite(int x, int y)

throws ChessExistException{

if(board[y][x] == BLANK){// x, y 位置上必须是空的才可以添棋子

board[y][x] = WHITE;

return;

}

throw new ChessExistException("已经有棋子了！");

}

//chess 棋子：'@'/'O'

public boolean winOnY(char chess, int x, int y){

//先找到y方向第一个不是 blank的棋子

int top = y;

while(true){

if(y==0 || board[y-1][x]!=chess){

//如果y已经是棋盘的边缘， 或者的前一个不是chess

//就不再继续查找了

break;

}

y--;

top = y;

}

//向回统计所有chess的个数，如果是COUNT个就赢了

int count = 0;

y = top;

while(true){

if(y==MAX || board[y][x]!=chess){

//如果找到头 或者 下一个子不是chess 就不再继续统计了

break;

}

count++;

y++;

}

return count==COUNT;

}

//chess 棋子：'@'/'O'

public boolean winOnX(char chess, int x, int y){

//先找到x方向第一个不是 blank的棋子

int top = x;

while(true){

if(x==0 || board[y][x-1]!=chess){

//如果x已经是棋盘的边缘， 或者的前一个不是chess

//就不再继续查找了

break;

}

x--;

top = x;

}

//向回统计所有chess的个数，如果是COUNT个就赢了

int count = 0;

x = top;

while(true){

if(x==MAX || board[y][x]!=chess){

//如果找到头 或者 下一个子不是chess 就不再继续统计了

break;

}

count++;

x++;

}

return count==COUNT;

}

//chess 棋子：'@'/'O'

public boolean winOnXY(char chess, int x, int y){

//先找MAX向第一个不是 blank的棋子

int top = y;

int left = x;

while(true){

if(x==0 || y==0 || board[y-1][x-1]!=chess){

//如果x已经是棋盘的边缘， 或者的前一个不是chess

//就不再继续查找了

break;

}

x--;

y--;

top = y;

left=x;

}

//向回统计所有chess的个数，如果是COUNT个就赢了

int count = 0;

x = left;

y = top;

while(true){

if(x==MAX || y==MAX || board[y][x]!=chess){

//如果找到头 或者 下一个子不是chess 就不再继续统计了

break;

}

count++;

x++;

y++;

}

return count==COUNT;

}

//chess 棋子：'@'/'O'

public boolean winOnYX(char chess, int x, int y){

//先找到x方向第一个不是 blank的棋子

int top = y;

int left = x;

while(true){

if(x==MAX-1 || y==0 || board[y-1][x+1]!=chess){

//如果x已经是棋盘的边缘， 或者的前一个不是chess

//就不再继续查找了

break;

}

x++;

y--;

top = y;

left=x;

}

//向回统计所有chess的个数，如果是COUNT个就赢了

int count = 0;

x = left;

y = top;

while(true){

if(x==0 || y==MAX || board[y][x]!=chess){

//如果找到头 或者 下一个子不是chess 就不再继续统计了

break;

}

count++;

x--;

y++;

}

return count==COUNT;

}

public boolean whiteIsWin(int x, int y) {

//在任何一个方向上赢了，都算赢

return winOnY(WHITE, x, y) ||

winOnX(WHITE, x, y) ||

winOnXY(WHITE, x, y) ||

winOnYX(WHITE, x, y);

}

public boolean blackIsWin(int x, int y) {

return winOnY(BLACK, x, y) ||

winOnX(BLACK, x, y) ||

winOnXY(BLACK, x, y) ||

winOnYX(BLACK, x, y);

}

}