让VB程序中支持脚本

代码如下，代码源文件和附件里面也有。

<form>

<div><td><input type=text style="width:200px; height:25px;" name="incontent" value="">&nbsp;&nbsp;<input type=submit name="submit" value="搜索">

</td></div>

<div>

<td>

<input type=radio name="search" value="bd">百度

<input type=radio name="search" value="yh">Yahoo

<input type=radio name="search" value="sg">搜狗

</td>

</div>

</form>

<%

'百度 http://wwwbaiducom/swd=

'搜狗 http://wwwsogoucom/sogouquery=

'Yahoo https://searchyahoocom/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4p=test&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1

dim nr,ss

ss= RequestQueryString("search")

nr= RequestQueryString("incontent")

if  ss="bd"then

responseredirect("http://wwwbaiducom/swd="&nr)

elseif ss="yh" then

responseredirect("https://searchyahoocom/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4p="&nr&"&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1")

elseif ss="sg"then

responseredirect("http://wwwsogoucom/sogouquery="&nr)

ss= RequestQueryString("search")=""

responseredirect("indexasp")

end if

%>

VB脚本就是VBScript,是微软公司推出的网页脚本语言,用于编写网页，VBScript不能独立运行，必须嵌在网页之中，通过浏览器来运行。

而VB是微软公司推出的功能非常强大的编程工具，用于编写各类应用程序。

二者的关系是：VBScript是VB的子集。编网页时用的是VBScript。

#include <stdioh>

#include <mathh>

#include <stdlibh>

#define I 20

#define R 340

#include <stringh>

int main()

{

char answer[10];

printf("遇到你\n我才发现\n曾经所有的条件\n似乎都成了我等你的借口\n\n");

printf("我对你的感情已经决堤\n所以\n请允许我，从今往后映入你\n明媚的眼\n");

printf("我\n想和你\n耳鬓厮磨，相濡以沫！");

printf("答应我吧！\n输入yes,你可以看到我的真心\n");

scanf("%s", answer);

float y, x, z, f;

for (y = 15f; y > -15f; y -= 01f)

{

for (x = -15f; x < 15f; x += 005f)

{

z = x x + y y - 1;

f = z zz - x xyyy;

putchar(f <= 00f ""[(int)(f-80f)] : ' ');

}

putchar('\n');

}

long time;

for (;;)

{

system("color a");

for (time = 0; time<99999999; time++);

system("color b");

for (time = 0; time<99999999; time++);

system("color c");

for (time = 0; time<99999999; time++);

system("color d");

for (time = 0; time<99999999; time++);

system("color e");

for (time = 0; time<99999999; time++);

system("color f");

for (time = 0; time<99999999; time++);

system("color 0");

for (time = 0; time<99999999; time++);

system("color 1");

for (time = 0; time<99999999; time++);

system("color 2");

for (time = 0; time<99999999; time++);

system("color 3");

for (time = 0; time<99999999; time++);

system("color 4");

for (time = 0; time<99999999; time++);

system("color 5");

for (time = 0; time<99999999; time++);

system("color 6");

for (time = 0; time<99999999; time++);

system("color 7");

for (time = 0; time<99999999; time++);

system("color 8");

for (time = 0; time<99999999; time++);

system("color 9");

}

getchar();

return 0;

}

运行效果：

扩展资料：

printf函数使用注意事项

1、域宽

％d：按整型数据的实际长度输出。

如果想输出指定宽度可以指定域宽，％md－－＆gt；m域宽，打印出来以后，在控制台上，显示m位；

如果我们要打印的数的位数如果超过我们设定m则原样输出；

如果我们要打印的数的位数如果小于我们设定的位数，则补空白，具体如下：

如果m为正数，则左对齐（左侧补空白）；

如果m为负数，则右对齐（右侧补空白）。

2、转义字符

如果想输出字符＂％＂，则应该在“格式控制”字符串中用连续两个％表示。

如：printf（＂％f％％＂，1．0／3）；输出结果：0．333333％。