VB调用lingo

PrivateSubCommand1_Click()DimaAsIntegerFora=101To999Step1Ifisnum(a)=TrueThenPrinta;NextEndSubPrivate

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

第一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLong)_AsLongDim

哈慢慢想吧再问：为什么用function过程尼？为什么不用sub过程尼？求解再答：function是有返回值的你也可以用SUB但是最后的结果你得用一个外部变量来保存

PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir

PrivateSubForm_Activate()a5EndSubSuba(nAsLong)DimiAsLongFori=1TonSum=Sum+1/f(i)NextiPrintSumEndSubFu

返回值的作用就是可以用来判断,做条件用,但是过程去不可以,过程说白了就是简化代码.争强程序的可读性而已.

看了上面几位的代码：应该都写错了楼主的问题是：s等于1到N之间每个整数的阶乘相加,而不是N的阶乘我没理解错吧?稍等完毕：在模块中输入代码：PublicFunctionfac(nAsInteger)As

显然是你的开方数为负,即你要保证a×k为负,再加上前面的负号,总的数为正就行了!比如,你的a为正,k为正,则总的((-1)*a*k)结果为负,当然就出错了,负数不能开方你知道吧?（我们说的是在实数范围

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

dimrassingle,sassingler=inputbox("请输入圆的半径：")s=3.14159*r^2print"圆的面积是：";s

加那个条件很简单只要对每个缴费点分别求和就行了具体的你要发具体的程序上来

这个我做过,不简单也不容易,举例说明,你按下面的去做一遍就知道怎么解决你的问题了.在VB里面“工程”菜单下面添加“添加模块”,打开对话框,找到路径：X:\ProgramFiles\lingo80\Dl

PrivateSubCommand1_Click()DimIAsIntegerDimN(15)AsInteger,MAsIntegerRandomizeForI=1To15N(I)=Int(Rnd*1

可以用,举例如下：model:sets:A/1..5/:T;AA(A,A):S,d;!S为决策变量,d为距离;endsetsdata:d=0111110111110111110111110;endda

@sum(a(i)|i#lt#5#and#i#gt#1:x(i));

下标都从1开始

首先要定义集你都没有定义只给你写一半吧另一半一样@for(column(j):@sum(row(i):x(i,j)*c(i))

OptionExplicitDimsAsIntegerPrivateSubCommand1_Click()Text2.Text=Str(fact(Val(Text1.Text)))s=0EndSubP