试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙教版信息技术基础期末练习卷

若已知当前的人均GDP水平和GDP年增长率,可以计算达到某个GDP水平所需年份。在文本框Text1、Text2、Text3中分别输入人均GDP、年增长率和达到的GDP水平,单击计算按钮Command1,在文本框Text4中输出所需年数。程序运行界面如下:

(1)、在设计程序界面时,使应使用图b所示“控件工具箱”中的(填写相应编号)添加“计算”按钮。
(2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

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

举一反三
返回首页

试题篮