题目内容

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer)As IntegerIf X＜20 ThenY=XElseY=20+XEnd Iffunc=YEnd FunctiOnPhvate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=FalseEnd SubPhvate Sub Form_MouseUp(BuRon As Integer,Shin As Integer，X As Single,Y As Single)SW=TreeEnd SubPdvate Sub Commandl-Click()Dim intNum As IntegerintNum=InputBox("")If SW ThenPrint func(intNum)End If End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（）。

A. 输出0
B. 输出25
C. 输出45
D. 无任何输出

查看答案

搜索结果不匹配？点我反馈

更多问题

简述马斯洛需要层次论在学习中的运用。

B1型题经期小腹冷痛，经色紫暗有块者，见于（）

A. 肝气郁结证
B. 寒滞肝脉证
C. 气滞血瘀证
D. 寒凝血瘀证
E. 肾阳虚衰证

已知在文件IN.DAT中存有若干个(＜200)四位正整数，函数ReadDat()读取若干个正整数并将其存入数组xx中。请编制函数CalValue()，其功能要求：(1)求出这个文件中共有多少个正整数totNum。(2)求这些正整数中各位数字之和是奇数的正整数的个数totCnt，以及满足此条件的正整数的算术平均值totPjz，最后调用函数writeDat()把结果输出到文件OUT.DAT中。注意：部分源程序已经给出。请勿改动主函数main()、读函数ReadDat()和写函数、writeDAT()的内容。[试题源程序]#inolude＜stdio.h＞#iFIclude＜conio.h＞#define MAXNUM 200int xx[NAXNUN];int totNum=0;int totCnt=0;double totPjz=0.0;int ReadDat(void);void writeDat(void);void CalValue(void)void main()int i;system("cls");for(i=0;i＜NAXNUN;i++)xx[i]=0;if(ReadDat())printf("数据文件IN.DAT不能打开!\007\n");return;CalValue();printf("文件IN.DAT中共有正整数=%d个\n",totNum);printf("符合条件的正整数的个数=%d个\n",totCnt);printf("平均值=%.2f\n",totPjz);writeDat();int ReadDat(VOid)FILE fp;int i=0;if((fp=fopen("IN.DAT","r"))==NULL) return 1;while(!feof(fp))fscanf(fp,"%d,",&xx[i++]);fclose(fp);return 0;void writeDat(void)FILE fp;fp=fopen("OUT.DAT","w");fprintf(fp,"%d\n%d\n%6.2f\n",totNum,totCnt,totPjz);fclose(fp);

侵犯专利权的诉讼时效为（）年。