问题 单项选择题

以下叙述中错误的是 ______。

A) 打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
B) 保存Visual Basic程序时,应分别保存窗体文件及工程文件
C) Visual Basic应用程序只能以解释方式执行
D) 事件可以由用户引发,也可以由系统引发

答案

参考答案:C

解析: Visual Basic应用程序可以以解释方式执行,也可以编译成可执行文件执行。

填空题
问答题

已知在文件IN.DAT中存有100个产品销售记录,每个产品销售记录由产品代码dm(字符型4位)、产品名称mc(字符型10位)、单价dj(整型)、数量sl(整型)、金额je(长整型)五部分组成。其中:金额=单价×数量。函数ReadDat()用于读取这100个销售记录并存入结构数组sell中。请编制SortDat(),其功能要求如下:按产品代码从大到小进行排列,若产品代码相同,则按金额从大到小进行排列,最终排列结果仍存入结构数组sell中,最后调用函数WriteDat()把结构输出到文件OUT6.DAT中。
注意:部门源程序已给出。请勿改动主函数main()、读数据函数ReadDat()和输出数据函数WriteDat()的内容。
试题程序:
#include<stdio.h>
#include<string.h>
#include<conio.h>
#include<stdlib.h>
#define MAX 100
typedef struct

char dm[5];/*产品代码*/
char mc[11];/*产品名称*/
int dj;/*单价*/
int sl;/*数量*/
long je;/*金额*/

PRO;
PRO sell[MAX];
void ReadDat();
void WriteDat();
void SortDat()


void main()

memset(sell,0,sizeof(selI));
ReadDat();
SortDat();
WriteDat();

void ReadDat()

FILE*fp;
char str[80],ch[11];
int i;
fp=fopen("IN.DAT","r");
for(i=0;i<100;i++)

fgets(str,80,fp);
memcpy(sell[i].dm,str,4);
memcpy(sell[i].mc,str+4,10);
memcpy(ch,str+14,4);ch[4]=0;
sell[i].dj=atoi(ch);
memcpy(ch,str+18,5);ch[5]=0;
sell[i].sl=atoi(ch);
sell[i].je=(long)sell[i].dj*sell[i].sl;

fclose(fp);

void WriteDat(void)

FILE*fp;
int i;
fp=fopen("OUT2.DAT","w");
for(i=0;i<100;i++)

printf("%s%s%4d%5d%5d\n",sell[i].dm,
sell[i].mc,sell[i].dj,sell[i].sl,sell[i].je);
fprintf(fp,"%S%S%4d%5d%5d\n",sell[i].dm,sell[i].mc,sell[i].dj,sell[i].sl,sell[i].je);

fclose(fp);