UC知道C++转VB除了问题，求救！
来源：百度知道 编辑：UC知道 时间：2024/05/28 04:32:07
这段C++代码是正解：
cin>>m;
a=m/3;
b=m%3;
c=0;
if (a==0 && b==0) {
cout<<"0"<<endl;
return;
}
for (long i=0;i<=a;i++) {
c+=(m-i*3)/2+1;
}
cout<<c;
但是转换成这段VB代码后就错了
Dim a, b, c, i As Long
c = 0
a = CLng(Text1) / 3
b = CLng(Text1) Mod 3
If a = 0 And b = 0 Then
Text2 = CStr(0)
Exit Sub
End If
For i = 0 To a
c = c + (CLng(Text1) - i * 3) / 2 + 1
Next
Text2 = CStr(c)
请问这段VB代码那里写错了？？谢谢！！
高手，怎样改呢，能不能帮忙改一下，谢谢了！！
cin>>m;
a=m/3;
b=m%3;
c=0;
if (a==0 && b==0) {
cout<<"0"<<endl;
return;
}
for (long i=0;i<=a;i++) {
c+=(m-i*3)/2+1;
}
cout<<c;
但是转换成这段VB代码后就错了
Dim a, b, c, i As Long
c = 0
a = CLng(Text1) / 3
b = CLng(Text1) Mod 3
If a = 0 And b = 0 Then
Text2 = CStr(0)
Exit Sub
End If
For i = 0 To a
c = c + (CLng(Text1) - i * 3) / 2 + 1
Next
Text2 = CStr(c)
请问这段VB代码那里写错了？？谢谢！！
高手，怎样改呢，能不能帮忙改一下，谢谢了！！
vb类型不敏感，不需要转换啦。
Dim a As Long , b As Long , c As Long , i As Long
c = 0
a = Text1 / 3
b = Text1 Mod 3
If a = 0 And b = 0 Then
Text2 = 0
Exit Sub
End If
For i = 0 To a
c = c + (Text1 - i * 3) / 2 + 1
Next
Text2 = c
clng？
cstr？
你查查msdn，看看强制转换的