vb编程，求大神 VB编程，求大神解决一下
根据你追问的问题看，还是你定义数据类型匹配与不匹配的问题，m,n如果像你图片中定义显示定义成变体型，其中的赋值语句m=3.141592*(p/s)^2两侧默认都是变体型数据，所以不出错，如果定义成single，那么两侧的数据类型就不匹配了，赋值就会出错。
楼上的几个需要注意的问题，你确实应该注意的
你可以参照我写的相应代码
'定义一个面积计算过程
Sub mjjs(a As Single, b As Single, c As Single)
'定义两个变量存放面积数值、两个辅助变量和半径
Dim SN As Single, SW As Single
Dim P As Single, S As Single
Dim R1 As Single, R2 As Single
P = (a + b + c) / 2
S = Sqr(P * (P - a) * (P - b) * (P - c))
R1 = S / P
R2 = (a * b * c) / (4 * S)
'内切圆面积
SN = 3.141592 * R1 ^ 2
'外接圆面积
SW = 3.141592 * R2 ^ 2
'赋值给文本框
Text4.Text = SN
Text5.Text = SW
End Sub
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Call mjjs(a, b, c)
End Sub
Sub fact(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, m As Single, n As Single)
'……此部分照搬原来的
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim m As Single, n As Single
a = Val(text1.Text)
b = Val(text2.Text)
c = Val(text3.Text)
Call fact(a, b, c, m, n)
text4.Text = m
text5.Text = n
End Sub
几个需要注意的问题
1：定义方法fact中的参数a,b,c要分别列出定义类型
2：Dim要分别定义a,b,c的类型，连续写，只有C才是integer，a和b默认是变体型
3：m,n要定义
4：text4和text5显示的是计算后的m和n，那f和t是从哪来的？
vb编程，这个怎么写，求大神~
看不清啊。。
Private Sub Command1_Click()
Me.CurrentY = 2000 '位置自己调
Me.CurrentX = 500 '位置自己调
Print Text1.Text & " " & Text2.Text
End Sub
matlab编程题,求大神
答：plot(t,f,'r',t,Vt,'*-b')legend('拟合','实际数据',2)结果：Local minimum possible.lsqcurvefit stopped because the final change in the sum of squares relative to its initial value is less than the default value of the function tolerance.<stopping criteria details> A = 5....
求编程大神解答
答：1 2".如果C语言的输入格式符是"%d,%d"那么输入时两个整数要以逗号分隔,象这样"1,2",否则会出错.输入格式符就是输入时的格式,所以什么样的格式符,输入就要按什么格式符输入,比如中间是逗号,输入时中间就要加逗号,否则会出错.再比如输入格式符是"a=%d,b=%d",那么应该这样输入"a=1,b=2"
用MATLAB编程做一道数学题 需要具体的编写内容 求大神协助
答：<iter disp('达到了平衡状态')break end end if year >1000 disp('不能达到平衡状态')break;end year = year+1;end R=R(1:year+1);F=F(1:year+1);fprintf('兔子：%d只\n',R(end))fprintf('狐狸：%d只\n',F(end))year = 1:length(R);plot(year,R,'r*',year,F,'b^')
c语言编程问题,编写代码,a+b问题,求大神帮忙哇( ๑ŏ ﹏ ŏ๑...
答：【程序代码】#include<iostream>#include<stdio.h>#include<conio.h>using namespace std;int main(){char a[40]={0},b[40]={0},c[41],d,i,j,k; printf("请输入第一个位:"); //显示输入提示 for(i=0;i<40;i++) //通过循环读入a数组 {do{d=getch(); //从键盘...
...05年b题DVD优化第二问怎么用lingo编程求解,求大神帮我解答
答：model:title DVD LOAN;sets:DVD/1..100/:total;user/1..1000/;link(user,DVD):pianai,x;need(user,DVD):xuqiu;A/1..1000/:d;B/1..1000/:f;endsets min=@sum(DVD(I):total)/@SUM(link(i,j): pianai(i,j)*x(i,j));FOR(A:@BIN(d));FOR(link:@BIN(x));sum(A(i):...
求编程大神帮忙,用C++语言计算: 用100元钱买100只鸡,公鸡,母鸡,小鸡都...
答：include<stdio.h>void main(){ int a,b,c; for(a=0;a<20;a++) //公鸡可能的只数 for(b=0;b<(100-5*a)/3;b++) //母鸡可能的只数{ c=100-a-b; //总数为100时，小鸡的只数 if(c%3==0 && a*5+b*3+c/3==100) //若小鸡只数是3的倍数，且总价...
求大神帮忙解决一道matlab编程题!是关于密码的,急求!谢谢!求帮助
答：b=num2str(a);node=[]; %节点 map=[]; %邻接矩阵图 for ii=1:size(b,1)temp=b(ii,:);for jj=1:3 %加节点 if isempty(find(node==temp(jj),1))node=[node, temp(jj)];siz=length(node);map(siz,siz)=0;end end map(node==temp(1),node==temp(2))=1; %连线 map...
c语言编程,输入两个数a,b (a<b)。输出从a到b的所有数字(包含本身),本...
答：include <stdio.h>int main(){ int a, b; int i; scanf ("%d%d", &a, &b); for (i = a; i <= b; ++i){ printf ("%d ", i); } printf ("\n"); return 0;} 程序执行结果如下：
向VB大神求救
答：部分选对2分）1、程序设计语言有几千种，它们可以分为三大类，它们是（ BCD ）A、自然语言 B、高级语言 C、汇编语言 D、机器语言2、算法的描述可以有多种方法，下列哪些方法可以描述“求100以内所有质数”的算法（ AD ）A、自然语言 B、机器语言 C、伪代码 D、流程图3...
求大神回答编程问题! Problem A: A+B
答：include <iostream>using namespace std;int main(){ int a,b,c; cin>>a; while(a--) { cin>>b>>c; cout<<b+c<<endl; } return 0;} //看看这样能通过吗？
