VB编程:建立并输入一个10*10的矩阵

我知道怎么判断他是不是三角形,也知道怎么编,但我有的是freepascal,不知行不行：programlam;vara,b,c:integer;(a,b,c分别为三角形的三条边)beginread(a

PrivateSubform_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("请输入x值:"))Ifx

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

DimXAsInteger这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成DimXAsSingle

dimA(1to26)asintegerdimiasinteger,jasinteger,casstring*1,tasintegert=len(text1)fori=1totc=ucase(mid(

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

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

privatesubcommand1_click()dima(9),b(),c,d,e,iasintegerfori=0to9a(i)=int(val(inputbox("输入第"&i+1&"个数："

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

PrivateSubForm_Click()DimnAsIntegern=InputBox("请输入一个正整数n")s=1Fori=nTo1Step-1s=s*iNextiPrintn&"!="&sE

PrivateSubCommandButton1_Click()DimnNumAsLongIfIsNumeric(TextBox1.Text)ThennNum=Val(TextBox1.Text)If

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

第1题：PrivateSubCommand1_Click()Dimv(1To20)AsDoubleDimvMaxAsDoubleDimvMinAsDoubleDimiAsLongFori=1To20v

publicclassTest{//x为数字,且是num的倍数privateintx;//y是需要生成的随机数的个数privateinty;privateinttemp=0;privat

PrivateSubCommand1_Click()DimxAsSinglex=Val(InputBox("请输入第"&i+1&"个所得分数："))Ifx>0ThenMsgBoxx+1/xEndIfE

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo

建立控件数组Text2(0To9)PrivateSubCommand1_Click()DimSumAsDoubleForI=Val(Text1.Text)-1To0Step-1Sum=Val(Text