VB统计文本文件中各单词的个数（紧急）

#include <stdio.h>#include <string.h>struct words //单词结构体{ char word[20]; int count;};main(){ struct words word[200] = {0},stmp={0}; int i=0,j=0,k=0,flag =0; char c,tmp[20]={0}; FILE *fp = NULL; fp =fopen("data.txt","r"); //读文件解析成单词 while ( (c= fgetc(fp)) !=EOF ) { //这些符号分割的都认为是一个单词结束 if (c!=',' && c!='.' && c!='?' && c!=' ' && c!='\n') { tmp[j++] =(c>='A'&&c<='Z')?c+32:c; //全转成小写 就可以无视大小写统计了 }else { tmp[j] ='\0'; j=0; flag = 0; //判断单词是否已经记录 如果已有则使用率加1 for (k=0;k<i;k++) { if ( strcmp(tmp,word[k].word)==0 ) { word[k].count++; flag = 1; break; } } //没有则存入单词结构体数组保存 if (!flag) { strcpy(word[i].word,tmp); word[i].count++; i++; } } } fclose(fp); //使用率排序 for (j=0;j<i;j++) { for (k=0;k<i-j-1;k++) { if (word[k].count>word[k+1].count) { stmp = word[k]; word[k] = word[k+1]; word[k+1] = stmp; } } } //输出排序后的所有已记录单词 for (k=0;k<i;k++) { printf("[%s][%d]\n",word[k].word,word[k].count); }}[are][1][good][1][man][1][today][1][fine][1][day][1][][1][do][1][know][1][where][1][book][1][who][1][your][1][daddy][1][you][2][is][3]Press any key to continue

假定图片中文件名对应的是Text1.Text，2对应的是Text2.Text，5对应的是Text3.Text，删除按钮对应的是Command2，则代码为：
Private Sub Command2_Click()Dim s() As StringOpen Text1.Text For Binary As #1s = Split(Input(LOF(1), #1), vbCrLf)Close #1If UBound(s) >= Val(Text2.Text) Then s(Val(Text2.Text)) = Replace(s(Val(Text2.Text)), Text3.Text, "") Open Text1.Text For Binary As #1 Put #1, , Join(s, vbCrLf) Close #1End IfEnd Sub如果上述代码无法实现你的目的，那么请列出你的文本文件的结构，我们才能更好地理解你的意图。

随机数字 和 汉字 的对应关系是什么？
是那个汉字的编码吗？还是什么

英文的话，一般是统计空格数。
中文嘛，文件的大小除以二吧。
混合的，根据编码将中英文区分分别统计即可。

最好有一个文本文件的例子