/**************MyqqWnd.rc Written By XHK****************/
#include "resource.h"

#define DLG_MAIN 1
#define ICO_MAIN 0X1000
#define IDB_QQ 2

#define IDE_USER 0X4101 //帐号输入框
#define IDE_PASS 0X4102 //密码输入框

#define IDC_RECORD 0X4201 //记录密码复选框
#define IDC_AUTO 0X4202 //自动登录复选框
......................

#include<stdio.h>
#define M 30
void main()
{
void score_fail(int *num,float  *score,int m);
void num_gd(float *score,int m);
void high_aver(int *num,float *score,int m,float aver);
float stu_aver(float *score,int m);
float stu_score[M];    /*存放一门课成绩（物理）*/
int stu_num[M];        /*存放学号*/
int n=0;               /*统计实际学生人数*/
int num=9999;
......................

我是个vfp初学者,现有个代码要改下,请教高手我该如何更改,感谢,感谢了!
修改要求:在打印此标签时,只允许打印第一个字段名为"H"的字段,当遇到字段为"001"或者"H239" 时不允许打印,
标签报表原代码如下:

LOCAL lc_id_chpdd_m , lc_i, lc_mod, sql_tmp1



TEXT TO sql_tmp1 NOSHOW 
    select top 0  c.pingm, c.pingm_bh, c.pcs_lpsh, c.banh, c.dw, a.shul_jh, a.shul_bp, c.liaoh,  b.chpdd_bh, f.keh_po, e.bum1_yj, d.keh_bh, chpdd_mc5, a.id_chpdd_m, f.dind_bh
        from btr_chpdd_m a
            left outer join btr_chpdd_b b on a.id_chpdd_b = b.id_chpdd_b 
......................

#include"iostream"
#include"string"
using namespace std;
struct stu
{
  string num;
  string name;
  double  math;
  double computer;
  double english;
  double sum;
};
......................

#include<stdio.h>
#include<math.h>
#define N 20
#define EPSILON 0.000000001
void main()
{
int i,j,k,n;
double a[N][N];
double b[N];
double l[N][N];
double t;
printf("数组的维数n\n");
......................

The Merton Jump-Diffusion Model
Merton (1976) [1] jump-diffusion model is an extension to the Geometric Brownian Motion model, with the underlying asset exhibit jumps in addition to have continuous diffusion paths. The asset price evolves as 
dS t =μS t dt + σS t  dW t  + (η−1)dq  
where μ is the drift rate, σ the volatility of S  and dW t   the increment of a Wiener process. The independent Poisson process dq  has a value of 1  with probability λdt  and 0 otherwise. 

The following is a ThetaML implementation of the Merton Jump-Diffusion Model. 
Merton jump diffusion Process simulation
Implementation as ThetaML
model JumpDiffusionProcess
%Jump diffusion model for stock price movement
%Example input parameters:
%S0 = 100, r = 0.03, sigma = 0.2, lambda = 1
......................

#define _CRT_SECURE_NO_WARNINGS

#include<stdio.h> 

void swap(char *a,char *b) 
{ 
char t; 
t = *a; 
*a = *b; 
*b = t; 
} 
void print(char *a,int length,int* t) 
......................

#include"stdio.h"
void main(){
int a,b,c,sum,average,product,smallest,largest;
printf("please input three numbers:\n");
scanf("%d%d%d",&a,&b,&c);//*输入三个整数*//

printf("Input three different integers:%3d%3d%3d",a,b,c);
sum=(a+b+c);//*求和*//

average=(a+b+c)/3;//*求平均值*//

product=a*b*c;//*求三个数的乘积*//
......................

public struct STONES
    {
        public int x;
        public int y;
    };
    public struct Lines
    {
        public STONES[] Point = new STONES[2];//错误
        public int[] items= new int[6];//错误
        public int value;
        public int color;
    };

#define _CRT_SECURE_NO_WARNINGS

#include <stdio.h>
#include <string.h>

void dec2yyy(int source,char* bin)
{
bin[8]='\0';
int j=7;
    while(source>0)
{
bin[j]=source %2+0x30;
......................