用VB设计一个计算银行存款利息的程序

'4个text1-text4,Label1(0-3).

Private Sub Command1_Click()

Dim k1 As Single, k2 As Single, k3 As Single, k4 As Single

k1 = Val(Text1.Text) '金额

k2 = Val(Text2.Text) '年限

If Val(Text1.Text) = 0 Then MsgBox "请输入金额！"

If k2 = 0 Then MsgBox "请输入存款年限！"

If k1 >= 5 Then

k4 = 3.6

Else

If k1 >= 4 Then

k4 = 3.2

Else

If k1 >= 3 Then

k4 = 2.9

Else

If k1 >= 2 Then

k4 = 2.7

Else

If k1 >= 1 Then

k4 = 2.5

Else

k4 = 1.8

End If

End If

End If

End If

End If

Text3.Text = (k1 * k2 / 100)

Text4.Text = k1 + (k1 * k2 / 100)

MsgBox k2 &" 年陪启携到期利息：　" &Text3.Text &"　元"

End Sub

Private Sub Command2_Click()

end

End Sub

Private Sub Form_Load()

Command1.Caption = "计算"

Command2.Caption = "退出"

Label1(0).Caption = "存旁兄款金额："

Label1(1).Caption = "存款年限："

Label1(2).Caption = "到期利息："

Label1(3).Caption = "芦伏本息合计："

End Sub

#include <bits/stdc++.h>

#define 漏渣LDB long 启亮double

using namespace std

  

  LDB a,b

  int c

  int main(){

    scanf("%Lf%Lf%d",&a,&b,&c)

    printf("%.3Lf\n",pow(1+a/100.0,c)*b)

  }

a百分比下的利返旁悄率，b本金,c年数

可以参考下面的代码（a百分比下的利率，b本金,c年数）：

#include <bits/stdc++.h>

#define LDB long double

using namespace std

LDB a,b

int c

int main(){

scanf("%Lf%Lf%d",&a,&b,&c)

printf("%.3Lf\n",pow(1+a/100.0,c)*b)

}

扩展资料：

C语言参考函数

C语言ldexp()函数：返回x乘以2的exponent次方茄昌（次幂）的值

C语言labs()函数：求颤纤扒整数的绝对值（针对long类型）

C语言isgraph()函数：判断一个字符是否是图形字符

C语言fabs()函数：求双精度浮点数的绝对值

C语言abs()函数：求整数的绝对值

C语言div()函数：求两个数的商和余数

C语言fmod()函数：求x/y的余数（针对浮点数）

C语言atan2()函数：求x/y的反正切值

参考资料来源：百度百科-C语言函竖袜数

---