题型:综合题 题类:常考题 难易度:普通
浙教版信息技术基础期末练习卷
Private Sub Command1_Click()
Dim gdp As Single,ddgdp As Single,zc As Single,y As Integer
gdp=Val(Text1.Text)
zc=Val(Text2.Text)
ddgdp=Val(Text3.Text)
y=0
Do While
gdp=gdp*(1+zc)
Loop
Text4.Text=Str(y)
End Sub
试题篮