VB 编制打字练习程序。首先单击“产生”，在文本框1随机产生一串大写字母，在文本框2，练打字键入……

Dim s$, t%

Private Sub Command1_Click()

Dim a%

For i = 1 To 50

a = Int(Rnd 26 + 65)

s = s + UCase(Chr(a))

Next

Text1 = s

End Sub

Private Sub Command2_Click()

Timer1Enabled = False

End Sub

Private Sub Form_Load()

Timer1Interval = 1000

Text1 = "": Text2 = "": Text3 = "": Text4 = ""

End Sub

Private Sub Text2_Click()

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

Static p!, sum%, m%

t = t + 1

Text3 = t

m = Len(Text2)

sum = 0

For i = 1 To m

If Mid(Text2, i, 1) = Mid(s, i, 1) Then

sum = sum + 1

p = sum / m

Text4 = p 100 & "%"

End If

Next

End Sub

呵呵，挺有意思一程序，说一下，我用vc60可能跟tc有点不一样，楼主自己酌情修改一下

#include <stdioh>

#include <stdlibh>

#include <timeh>

void func1();

void func2();

int count1=0,count2=0;

int main()

{

srand((unsigned)time(NULL));

int n;

do

{

printf("\n欢迎进入打字程序练习\n");

printf("输入1进入一等级，输入2进入二等级，输入3退出程序\n");

scanf("%d",&n);

switch(n)

{

case 1: func1();

break;

case 2: func2();

break;

}

}while(n!=3);

printf("谢谢使用本软件，你键入了%d个正确字符，%d个错误字符，再见！！！\n",count1,count2);

return 0;

}

void func1()

{

int a;

char str[10],str1[10];

for(a=0;a<=9;a++)

{

str[a]=(rand()%26+97);

printf("%c",str[a]);

}

printf("\n键入相同的字符串\n");

fflush(stdin);

gets(str1);

for(a=0;a<=9;a++)

{

if(str[a]==str1[a])

{

printf("%c",str[a]);

count1++;

}

else

{

printf("");

count2++;

}

}

}

void func2()

{

int a,b;

char str[10],str1[10];

for(a=0;a<=9;a++)

{

b=rand()%2+1;

if(b==1)

{

str[a]=(rand()%26+65);

printf("%c",str[a]);

}

else

{

str[a]=(rand()%26+97);

printf("%c",str[a]);

}

}

printf("\n键入相同的字符串\n");

fflush(stdin);

gets(str1);

for(a=0;a<=9;a++)

{

if(str[a]==str1[a])

{

printf("%c",str[a]);

count1++;

}

else

{

printf("");

count2++;

}

}

}

用 JavaSwing 编写程序，设置n个button，A，B，C 。

然后每个加 keyListener（键盘监听），在该方法里实现你要的功能即可

如果不需要显示模拟键，只需要在一个显示 JText 上 加keyListener 即可。

原理是一样的。

运行造字程序

依次选择“开始→程序→附件→造字程序”，打开造字程序窗口。如果附件中没有造字程序，则可通过“控制面板→添加/删除程序→Windows安装程序→附件”来添加造字程序。

造字过程

进入造字窗口后，可以看到造字程序在工具栏里提供了铅笔、刷子、直线、空心矩形、实心矩形、空心椭圆、实心椭圆、矩形选择、任意形状选择、橡皮等工具，通过这些工具，可以方便地创建、编辑任意形状的字符符号。但是，从头开始一点点地创建一个字符符号往往花费比较多的时间，最好的办法是能充分调用、引用字库中现有的字符，取它们的偏旁部首等局部而快速合并成一个新字。例如，可以取“焚”字的“林”与“雷”字的“田”两偏旁上下结合而快速结合成一个新字。下面是实现的步骤。

选择要造的字体类型

常用的字体有宋体、仿宋体、黑体等，一般要先进行选定。以选择“宋体”字为例，单击造字程序的“文件→字体链接”，在出现的“字体链接”对话框里，选择“与选择的字体链接”选项，再选择“宋体”字体，单击“确定”按钮。然后在出现的文件名对话框里输入相应的自造字保存文件名，如“宋体自造字tte”。

选定代码

先选定将要造的字保存到哪一个代码位置。单击“编辑→选定代码”，打开“选定代码”窗口，选定一个空闲的代码位置如AAA1。

调用与引用已有字符

单击“编辑→调用”，打开“调用”对话框，单击“字体”按钮选择宋体，然后单击形状框，输入“焚”字，单击“确定”按钮返回，此时，“焚”字的形状就出现在编辑窗口。单击“窗口→引用”，打开“引用”对话框，单击“字体”按钮选择宋体，然后单击形状框，输入“雷”字，单击“确定”按钮返回，“雷”字的形状就出现在引用窗口。

编辑、合并成新字

选取“矩形选择”工具，将编辑窗口中的“焚”字的“火”部分选定并删除。然后，选取“矩形选择”工具，将引用窗口中的“雷”字的“田”部分选定并拖到编辑窗口中的“焚”字的“林”下面，屏幕上立即出现一个新字。单击“编辑→保存字符”将刚才造好的字保存。所生成的字如图２所示。

　使用所造的字

刚造好的字是以我们选定的AAA1代码的形式提供给用户的。如果要将我们造的字引用到文字处理程序（如Word、Excel等）中时，可以通过造字程序选单中的“编辑→调用”或“窗口→引用”功能，输入相应字符的代码如AAA1，然后选择出现在形状框中的字符并按鼠标右键打开选单进行复制，再打开文字处理程序进行粘贴；也可以通过Windows提供的字符映射表来按代码选定并复制字符。可见，这两种引用自造字的方法 *** 作比较繁琐，而这些字符代码不方便记忆，需要强记。

有没有办法能使我们不需要强记字符代码，而能用拼音、五笔等常用输入方法来输入这些自造字呢？幸好，造字程序提供了一项输入法链接功能，可以和安装在Windows中的拼音、五笔字型等多种输入法链接输入所造的字。以与五笔字型输入法45版本链接为例，实现的方法是：单击“编辑→输入法链接”，然后在依次出现的输入法设置框中选择五笔字型输入法，并输入用户自造字的输入法信息文件名如“五笔tbl”，然后输入该字符的五笔字型编码如sslf并注册，如图3所示。

通过输入法链接，以后就可以通过五笔字型输入法来输入这些自造字了。这种输入法链接自造字的方法比较适合输入那些使用频率较高的自造字， *** 作方便，并且链接完成后可以多次重复使用，一劳永逸。

通过上面的实例，我们已经造了一个字体类型为“宋体”的生僻字，如果有需要，可接着再造该生僻字的“仿宋体”、“黑体”等多种字体。但要注意一点，所造的同一字的所有字体的代码必须在同一区位，例如某字的宋体字体代码选定在AAA1区位，那么该字的其它字体代码也必须选定在AAA1区位，否则，在文字处理程序中对该字切换字体时就会出现乱字。

另外说明一点：用Windows造字程序生成的字符是以内码的形式存放的，与Windows其它字库的字体在显示与打印效果方面完全一样，对这些自造字同样可以进行缩放大小、着色、加下划线、加粗等 *** 作，大家放心使用造字程序吧。

加一个时钟控件(timer)，当开始在文本框输入时就开始计时，当文本框输入到一定阶段（这要看你如何设计程序，比如文本框字符长度=目标文章长度时）结束计时并显示在标签上。

其余的控件就按你自己的需要制作就行了，比如重新计时的按钮，显示文章的文本框。

你可以参考下这个程序 自己写的永远要比原搬别人的强 #include<stdioh>

#include<stringh>

struct studentInfo

{

char names[20];

char sex[4];

int age;

char tel[14];

};

struct studentInfo list[1000];

int count;

char choose;

int chooses;

int i;

showWelcome()

{

printf("\n");

printf(" 欢迎进入通讯录系统 \n");

printf("\n");

}

showMainMenu()

{

printf("1、录入学员信息\n");

printf("2、显示全部信息\n");

printf("3、查找学员信息\n");

printf("4、删除学员信息\n");

printf("5、修改学员信息\n");

printf("0、退出菜单\n");

}

insertStudentInfo()

{

printf("录入学员信息\n");

do

{

printf("姓名：");

scanf("%s",list[count]names);

printf("性别：");

fflush(stdin);

scanf("%s",list[count]sex);

printf("年龄：");

scanf("%d",&list[count]age);

printf("电话：");

scanf("%s",list[count]tel);

count++;

printf("是否继续(y/n):");

fflush(stdin);

scanf("%c",&choose);

}while(choose=='y'||choose=='Y');

}

showStudentInfo()

{

printf("所有学员信息如下：\n");

printf("姓名\t性别\t年龄\t电话\n");

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

{

printf("%s\t%s\t%d\t%s\n",list[i]names,list[i]sex,list[i]age,list[i]tel);

}

}

searchStudentInfo()

{

char name[50];

printf("请输入您要查询的学员姓名：");

scanf("%s",name);

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

{

if(strcmp(name,list[i]names)==0)

{

printf("您要查找的学员信息如下：\n");

printf("姓名：%s\n性别：%s\n年龄：%d\n电话：%s\n",list[i]names,list[i]sex,list[i]age,list[i]tel);

break;

}

}

if(i==count)

printf("很遗憾，没有查找到您需要的信息。\n");

}

shanchuStudentInfo()

{

do{

char shanchu[20];

printf("请输入你要删除的学员姓名：");

scanf("%s",shanchu);

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

{

if(strcmp(shanchu,list[i]names)==0)

{

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

{

list[i]=list[i+1];

}

count--;

printf("删除完毕!\n");

}

else

printf("对不起没有找到该学员！\n");

}

printf("继续删除吗(y/n):");

fflush(stdin);

scanf("%c",&choose);

}while(choose=='y'||choose=='Y');

}

xiugaiStudentInfo()

{

do{

char xiugaixm[20];

char xiugaixb[5];

int xiugainl;

char xiugaidh[14];

printf("请输入你要修改的学员姓名：");

scanf("%s",xiugaixm);

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

{

if(strcmp(xiugaixm,list[i]names)==0)

{

printf("1姓名：%s\n2性别：%s\n3年龄：%d\n4电话：%s\n",list[i]names,list[i]sex,list[i]age,list[i]tel);

printf("请选择你要修改的内容：");

scanf("%d",&chooses);

switch(chooses)

{

case 1:

printf("请输入修改后姓名：");

scanf("%s",xiugaixm);

strcpy(list[i]names,xiugaixm);

break;

case 2:

printf("请输入修改后性别：");

scanf("%s",xiugaixb);

strcpy(list[i]sex,xiugaixb);

break;

case 3:

printf("请输入修改后年龄：");

scanf("%d",&xiugainl);

list[i]age=xiugainl;

break;

case 4:

printf("请输入修改后电话：");

scanf("%s",xiugaidh);

strcpy(list[i]tel,xiugaidh);

break;

default:

printf("输入错误，请核实。\n");

break;

}

printf("修改后信息如下：\n");

printf("姓名：%s\n性别：%s\n年龄：%d\n电话：%s\n",list[i]names,list[i]sex,list[i]age,list[i]tel);

}

else

printf("对不起，没有找到该学员信息！\n");

}

printf("继续修改吗(y/n):");

fflush(stdin);

scanf("%c",&choose);

}while(choose=='y'||choose=='Y');

}

void main()

{

showWelcome();

do

{

showMainMenu();

printf("请选择功能：");

scanf("%d",&chooses);

switch(chooses)

{

case 1:

insertStudentInfo();

break;

case 2:

showStudentInfo();

break;

case 3:

searchStudentInfo();

break;

case 4:

shanchuStudentInfo();

break;

case 5:

xiugaiStudentInfo();

break;

case 0:

break;

default:

printf("输入错误，请核实。\n");

break;

}

}while(chooses!=0);

printf("\n谢谢使用本软件，再见！\n");

}

以上就是关于VB 编制打字练习程序。首先单击“产生”，在文本框1随机产生一串大写字母，在文本框2，练打字键入……全部的内容，包括:VB 编制打字练习程序。首先单击“产生”，在文本框1随机产生一串大写字母，在文本框2，练打字键入……、急！！！C语言课程设计：一个简单的打字程序（用CT2。0进行）、java如何编写打字软件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！