[求助]看下我翻译的对不对

IMATS = Formfin.txtIMATS.Text
Select Case IMATS
Case "1"
GD = 0.0012 * 1000
Case "2"
GD = 0.0004 * 1000
Case "3"
GD = 0.0004 * 1000
Case "4"
GD = 0.002 * 1000
Case "5"
GD = 0.002 * 1000
Case "316L"
GD = 0.00046 * 1000
End Select

If (IMATS = "316L") Then
GBD = 0.004 * 1000
Else
GBD = 0.006 * 1000
End If

Formfin_define.txtFL.Text = FL
Formfin_define.txtFD.Text = FD
Formfin_define.txtFM.Text = FM
Formfin_define.txtWL.Text = WL
Formfin_define.txtBL.Text = BL
Formfin_define.txtFTW.Text = FTW
Formfin_define.txtGD.Text = GD
Formfin_define.txtGBD.Text = GBD

End Sub

Private Sub Command3_Click()
Dim IM As String
IM = Formfin_define.txtIM.Text
FL = Formfin_define.txtFL.Text
FD = Formfin_define.txtFD.Text
FM = Formfin_define.txtFM.Text
WL = Formfin_define.txtWL.Text
BL = Formfin_define.txtBL.Text
FTW = Formfin_define.txtFTW.Text
GD = Formfin_define.txtGD.Text
GBD = Formfin_define.txtGBD.Text
NTD = Formfin_define.txtNTD.Text

Select Case IM
Case "1"
FLH = FL
FDH = FD
FMH = FM
WLH = WL
BLH = BL
FTWH = FTW
NTDH = NTD
Case "2"
FLC = FL
FDC = FD
FMC = FM
WLC = WL
BLC = BL
FTWC = FTW
NTDC = NTD
End Select
If (FL * FD * FM * WL * BL * FTW * GD * NTD * GBD = 0) Then
MsgBox "所需数据未给定，请自定义输入数据，然后选择自定义确定", vbOKOnly, "提示"
End If
End Sub

Private Sub Command4_Click()
Unload Formfin_define
End Sub
这段VB程序我是这样翻译成C的，达人帮忙看看
scanf("%s",IMATS);
switch(IMATS)
{case'1';GD=0.0012*1000;break;
case'2';GD = 0.0004 * 1000;break;
case'3';GD = 0.002 * 1000;break;
case'4';GD = 0.0004 * 1000;break;
case '5';GD = 0.002 * 1000;break;
case'6';GD = 0.00046 * 1000;break;
}
if(strcmp(IMATS,"316L")==0)
{
     GBD=0.004*1000
}
else
{
     GBD=0.006*1000
}
scanf("%f",&FL);
scanf("%f",&FD);
scanf("%f",&FM);
scanf("%f",&WL);
scanf("%f",&BL);
scanf("%f",&FTW);
scanf("%f",&GD);
scanf("%f",&GDB);
switch("IM")
{case'1';
FLH = FL;
FDH = FD;
FMH = FM;
WLH = WL;
BLH = BL;
FTWH = FTW;
NTDH = NTD;break;
case'2';
FLC = FL;
FDC = FD;
FMC = FM;
WLC = WL;
BLC = BL;
FTWC = FTW;
NTDC = NTD;break;
}

*快速回复：[求助]看下我翻译的对不对 [ 回帖是一种美德 :) ]
会员账号	用户名：还没注册? 密码：忘记密码?
内容 HTML标签：不可用 UBB标签：可用贴图标签：可用多媒体标签：可用表情字符转换：可用上传图片：不可用最多15KB
点击表情图即可在帖子中加入相应的表情
邮件回复显示签名	[Ctrl+Enter直接提交贴子]

*快速回复：[求助]看下我翻译的对不对 [ 回帖是一种美德 :) ]

会员账号

用户名：还没注册? 密码：忘记密码?

内容

HTML标签：不可用

UBB标签：可用

贴图标签：可用

多媒体标签：可用

表情字符转换：可用

上传图片：不可用

最多15KB

点击表情图即可在帖子中加入相应的表情