华南俳烁实业有限公司

考試首頁(yè) | 考試用書(shū) | 培訓(xùn)課程 | 模擬考場(chǎng) | 考試論壇  
全國(guó)  |             |          |          |          |          |         
  當(dāng)前位置:計(jì)算機(jī)等級(jí) > 二級(jí)考試 > Visual Basic > VB模擬試題 > 文章內(nèi)容
  

全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)模擬試題七【程序設(shè)計(jì)】

中華IT學(xué)院   【 】  [ 2017年2月8日 ]

全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)模擬試題七【程序設(shè)計(jì)題】

程序設(shè)計(jì)(10分)

我國(guó)現(xiàn)有人口約13億,設(shè)年增長(zhǎng)率為0.8%,編寫(xiě)程序,計(jì)算多少年后增加到20億。

Private Sub Form_click()

 Dim p As Single, r As Single, n As Integer

 n = 0: p = 13: r = 0.008

 Do While p <= 20

  p = p * 1.01

  n = n + 1

 Loop

  Print n; "年后增加至"; p; "億"

End Sub

 

分享到:
本文糾錯(cuò)】【告訴好友】【打印此文】【返回頂部
將考試網(wǎng)添加到收藏夾 | 每次上網(wǎng)自動(dòng)訪問(wèn)考試網(wǎng) | 復(fù)制本頁(yè)地址,傳給QQ/MSN上的好友 | 申請(qǐng)鏈接 | 意見(jiàn)留言 TOP
關(guān)于本站  網(wǎng)站聲明  廣告服務(wù)  聯(lián)系方式  站內(nèi)導(dǎo)航  考試論壇
Copyright © 2006-2017 中華考試網(wǎng)(Examw.com) All Rights Reserved  營(yíng)業(yè)執(zhí)照
宜春市| 观塘区| 林周县| 珲春市| 蒙城县| 资兴市| 汕头市| 长兴县| 宝鸡市| 兰西县| 湛江市| 凌海市| 阿克| 新乡市| 无极县| 桐乡市| 年辖:市辖区| 子洲县| 卫辉市| 田阳县| 山东| 武川县| 南部县| 贡嘎县| 仁怀市| 华宁县| 正蓝旗| 武乡县| 蒲城县| 丹江口市| 上饶市| 安泽县| 吉木乃县| 筠连县| 仙居县| 康马县| 宿州市| 突泉县| 余江县| 织金县| 专栏|