由于磷酸酯抗燃油在运行过程中，不可避免地要与空气接触发生氧化，而高温、水分、油中杂质

简报中的引用文件材料应（）。

由于金银具有如下的天然属性，适于充当一般等价物（）。

A.质地均匀，其表现价值的尺度很容易统一

B.便于分割和携带，适合充当交换媒介

C.贵金属体积小，价值高，符合交易的需要

D.不是生产过程的必需原材料，用于货币材料不影响经济发展

E.贵金属的稀有性

血管炎可表现为（）

A.紫癜

B.坏死性小丘疹

C.血疱

D.水疱

E.结节

已知数据文件1N69.DAT中存有200个4位数，并已调用读函数readDat()把这些数存入数组a中，请编制一函数jsVal()，其功能是：把一个4位数的千位数上的值减百位数上的值再减十位数上的值最后减个位数上的值，如果得出的值大于等于零且此4位数是奇数，则统计出满足此条件的数的个数cnt并把这些4位数存入数组b中，然后对数组b的4位数按从小到大的顺序进行排序，最后调用函数writeDat()把结果cnt及数组b中的符合条件的4位数输出到out69.dat文件中。
注意：部分源程序已给出。
程序中已定义数组：a[200]，b[200]，已定义变量：cnt。
请勿改动主函数main()、读函数readDat()和写函数writeDat()的内容。
试题程序：
#include＜stdio.h＞
#define MAX 200
int a[MAX] ,b[MAX] ,cnt=0; void jsVal()
void readDat()

int i;
FILE *fp;
fp=fopen ("IN69. DAT", "r");
for ( i=0; i＜MAX; i++)
fscanf(fp,"%d",&a[i]);
fclose (fp);
void main ()

int i;
readDat ();
jsVal ();
printf ("满足条件的数=%d\n", cnt);
for (i=0; i. printf ("%d", b [i] );
printf ("\n");
wrfteDat ();
writeDat ()

FILE *fp;
iht i;
fp=fopen ("out69.dat", "w");
fprint f (fp, "%d\n", cnt);
for (i=0; i＜cnt; i++)
fprint f (fp, "%d\n", b [i] );
fclose (fp);

在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：
Private Sub s(By Val P As Integer)
p=p*2
End Sub
Private Sub Command1_Click()
Dim i As Integer
i=3
Call s(i)
If i＞4 Then i=i^2
MsgBox i
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。