易截截图软件、单文件、免安装、纯绿色、仅160KB

求助:C代码改写成VB代码 - VB / 基础类

谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g[]);
int gau(float x[],float g[],int kg)
{ int i;
  constraint(x,g);
  for(i=0;i<kg;i++)
  {
  if(g[i]<0)
  goto s333;
  }
  return 1;
s333:return 0;
}
void xcent(int n,int k,int ll,int lh,float x0[],float xcom[][100])
{ int i,l;
  float xs;
  for(i=0;i<n;i++)
  {
  xs=0;
  for(l=0;l<ll;l++)
  {
  if(l!=lh)
  xs=xs+xcom[i][l];
  }
  if(lh>-1)
  x0[i]=xs/(ll-1);
  else
  x0[i]=xs/ll;
  }
}
void fxse(int n,int k,float x[],float xcom[][100],float fxk[])
{
  int l,lp,lp1,i;
  float w;
  for(l=0;l<k-1;l++)
  for(lp=0;lp<k-l;lp++)
  {
  lp1=lp+1;
  if(fxk[lp]<=fxk[lp1])
  {
  w=fxk[lp];
  fxk[lp]=fxk[lp1];
  fxk[lp1]=w;
  for(i=0;i<n;i++)
  {
 


相关问答:

vb - VB / 基础类

我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现?
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb - VB / 基础类

数据库里有一个字段的内容是二进制,怎么才能把这个二进制读出来
使用字节流对象可以实现

例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb 中 - VB / 基础类

dim a as string,b as string,c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串,而不存在c字符串

看看i ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号