问题 填空题

已知B的ASCII码为66,以下程序统计由键盘输入的字符串中各英文字母的使用次数  Dim【 】   For i=65 To 90   pp(i) =0  Next  x$=InputBox("Enter a string",x$)  x$=UCase$(x$)  For i=1 To【 】    n=Asc(Mid$(x$,i,1))   If n >=65 And n <=90 Then     【 】    End If  Next i  For i=65 To 90   If pp(i) >0 Then    Print Chr$(i);pp(i)   End If  Next

答案

参考答案:pp(65 To 90)

解析:程序中,在第一个空处定义了一个数组,从程序中反映出数组的下标的范围是65~ 90,在第二个空处有一个循环语句,决定了循环的次数,由于一次循环只处理一个字符,因此循环次数要与字符串的长度相等;而在第三个空处是统计相同字符出项的次数,因为相同字符的ASCII码也不同,因此利用字符的ASCII码作为数组的下标,下标相同者统计到同一个下表变量中,这样就实现了统计功能。

单项选择题
问答题

已知在文件IN13.DAT中存有若干个(个数<200)4位数字的正整数,函数ReadDat() 的功能是读取这若干个正整数并存入数组xx中。请编制函数CalValue(),其功能要求:(1)求出该文件中共有多少个正整数totNum;(2)求这些数右移1位后,产生的新数是偶数的数的个数totCnt,以及满足此条件的这些数(右移前的值)的算术平均值totPjz,最后调用函数WriteDat()把所求的结果输出到文件OUT13.DAT中。注意:部分源程序已给出。请勿改动主函数main()、读函数ReadDat()和写函数WriteDat()的内容。试题程序:#include #include #define MAXNUM 200int xx[MAXNUM];int totNum = 0; /* 文件IN13.DAT中共有多少个正整数 */int totCnt = 0; /* 符合条件的正整数的个数 */double totPjz = 0.0; /* 平均值 */int ReadDat(void);void Writedat(void);void CalValue(void){ }main(){int i;clrscr();for(i = 0; i < MAXNUM; i++) xx[i] = 0;if(ReadDat()) {printf("数据文件IN13.DAT不能打开!\007\n");return;}CalValue();printf("文件IN13.DAT中共有正整数= %d 个\n", totNum);printf("符合条件的正整数的个数= %d 个\n", totCnt);printf("平均值=%.2lf\n", totPjz);Writedat();}int ReadDat(void){FILE *fp;int i = 0;if((fp = fopen ("IN13.DAT", "r")) == NULL) return 1;while(! feof(fp)) {fscanf(fp, "%d,", &xx[i++]);}fclose(fp);return 0;}void WriteDat(void){FILE *fp;fp = fopen("OUT13.DAT", "w");fprintf(fp, "%d\n%d\n%.2lf\n", totNum, totCnt, totPjz);fclose(fp);}