用VB编写一个欢迎程序

'新建一个窗体，上面插入label标签，并插入两个check复选框

Private Sub Check1_Click()

If Check1Value = 1 Then Label1FontBold = True Else Label1FontBold = False

End Sub

Private Sub Check2_Click()

If Check2Value = 1 Then Label1FontItalic = True Else Label1FontItalic = False

End Sub

#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％。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = &H75 And Shift = 5 Then

Print "再见"

End

End If

End Sub

运行过程很快，你有可能看不到窗体上的“再见”

你可以把其中的end 去掉看看

建立三个command1至3

Option Explicit

Private Sub Command1_Click()

Cls

Dim I As Byte, J As Byte

Dim Letter(1 To 10) As String

Randomize

For I = 1 To 10

Letter(I) = Chr(Int(Rnd 26) + 65)

'Print I; Letter(I);

For J = 1 To I - 1

If Letter(I) = Letter(J) Then

I = I - 1

Exit For

End If

Next

Next

For I = 1 To 10

Print I; Letter(I)

Next

End Sub

Private Sub Command2_Click()

Cls

Dim I As Integer, J As Integer

For I = 1 To 999

If Left(Trim(Str(I)), 1) = Right(Trim(Str(I)), 1) Then

J = J + 1

Print J; I,

If J Mod 5 = 0 Then Print

End If

Next

Print "共有" & J & "个回文数"

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Form1AutoRedraw = True

Command1Caption = "大写字母"

Command2Caption = "回文数"

Command3Caption = "退出"

End Sub

已经运行过。不知道是不是你想要的。

第一计！美人计！话说，美人指的不一定是女人，男人也是人啊，美丽的事物总是让人爱不释手的，一个优秀的男人（至少，表现的优秀一些）是会让大部分正常的女人发狂的

第二计！瞒天过海（此招为一男多女）泡妞的终极高手是如鱼得水，谁见过一条鱼喝一口水的！？整个大海都是咱的！

第三计！隔岸观火！（此招用以挖墙脚）一般来说，某男爱上某女，偏偏，某女名花有主，此时，某男如何自处？首先，就要学会这招隔岸观火，泰山崩于前而色不惊！说的是，看见某女和某女的男朋友亲亲爱爱时，要沉着，冷静！

第四计！狐假虎威！想尽办法套得某女关系，然后大摇大摆在其男友面前晃来晃去，给对手以压力，使其自乱阵脚，目的达到一半

第五计！一探虚实！我们要先制造追求某女的假象，以探听某女极其男友的底细，研究部署下一步

第六计！抛砖引玉，装作情场失意，考场也失意，商场更失意，总之，忧郁缠身，博取同情，得到与某女交流感情使其男友暗中或明中不爽，分化彼此

第七计，趁虚而入，要毫无心机，毫无目的，毫无防备，毫无勇气的，小心翼翼，呵护有加，充分展示第一计中美男形象

第八计，釜底抽薪，之前七计已经造成间隙，这一计彻底打击某男友，使其不攻自破！

第九计，直捣黄龙，在一个风也萧萧雨也萧萧风雨都萧萧，你也萧萧我也萧萧大家都萧萧的不眠之夜里，鼓起你的勇气吧！拿出真心吧！爆发你的力量吧！展现你的风采吧！用你的嘴巴狠狠的（别想歪了）告诉她！我爱你！！！

第十计！功成身退，记住，某女只是大海里的一滴水，千万不要因为这滴水放弃了整篇海洋，记住，某女只是原始森林里的一棵歪脖树，千万别想不开啊！

如此十计，乃上乘兵法，传女不传男~~

孙子算什么，战场有三十六计，情场他算老几，天涯何处见月明，女生看你喊救命！

以可执行文件方式打开（无论扩展名是不是exe）：

Dim iRet As Integer

iRet = Shell("calcexe") 'iRet为程序运行后的PID

End '结束自身

以关联方式打开（例如扩展名为doc就用Word打开；bmp用画板打开；txt用记事本打开）：

把这两行代码粘到代码编辑窗口最上方：

Private Declare Function ShellExecute Lib "shell32dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_SHOW = 5

Dim iRet As Integer

iRet = ShellExecute(Mehwnd, "open", "notepadexe", "", "", SW_SHOW) ‘iRet为程序运行情况。

如果返回值 <= 32, 表示执行错误

0 内存不足

2 文件名错误

3 路径名错误

11 EXE 文件无效

26 发生共享错误

27 文件名不完全或无效

28 超时

29 DDE 事务失败

30 正在处理其他 DDE 事务而不能完成该 DDE 事务

31 没有相关联的应用程序