試卷征集
加入會員
操作視頻
當(dāng)前位置: 試卷中心 > 試卷詳情

2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷(14)

發(fā)布:2024/4/20 14:35:0

一、操作題

  • 1.打開文件“考生文件夾\560\工程1.vbp”,完善程序?qū)崿F(xiàn)如下功能并保存:
    今年兒子6歲,父親36歲,母親31歲.編程求幾年后,父母親年齡之和是兒子的7倍,將結(jié)果顯示在label1中.
    Private Sub Command1_Click ( ?。?br />Dim n As Integer
    Dim x As Integer
    n=0
    Do
    n=
     

    x=(36+31+2*n)/(6+n)
    Loop
     
    ②x=7
    Label1.Caption=Str(
     
    ③)
    End Sub.

    組卷:8引用:1難度:0.5
  • 2.打開“考生文件夾\780\test3.vbp”,完善Command1_Click事件代碼并保存.
    實現(xiàn)功能:2008年末我國總?cè)丝跒?3.28億,年平均增長0.63%,假設(shè)我國人口將繼續(xù)以該速率增長.請問在哪一年我國人口將超過15億?在窗體上輸出結(jié)果.
    Private Sub Command1_Click ( ?。?br />Dim y As Integer
    Dim p As Single
    y=2008
    p=13.28
    Do While
     

     

    p=p*(1+0.0063)
    Loop
    Print
     

    End Sub.

    組卷:9引用:1難度:0.5
  • 3.打開文件“考生文件夾\860\圓周率.vbp”,完善程序?qū)崿F(xiàn)如下功能并保存:
    公元5世紀(jì),我國古代數(shù)學(xué)家祖沖之將圓周率π求到了小數(shù)點后7位.到17世紀(jì),微積分被牛頓和萊布尼茲發(fā)現(xiàn)之后,大量計算圓周率π的公式被發(fā)現(xiàn).萊布尼茲公式就是其中之一:
    x
    4
    =1-
    1
    3
    +
    1
    5
    -
    1
    7
    +
    1
    9
    -
    1
    11
    +…
    編寫程序,利用以上公式計算π,直到最后一項的值小于0.0000001為止,輸出π的值.
    Private Sub cmdComputePi_Click ( ?。?br />Dim pi As Double,t As Double
    Dim n As Long,sign As Integer
    pi=0
    n=1
    sign=1
    Do
    t=
     

    pi=pi+
     

    n=
     

    sign=-sign
    Loop Until Abs(t)<0.0000001
    pi=
     

    Print“pi:“& pi
    End Sub.

    組卷:9引用:1難度:0.5

一、操作題

  • 9.打開文件“考生文件夾\601\工程1.vbp”,完善Form_Click事件代碼并保存.
    實現(xiàn)功能:當(dāng)單擊窗體后,計算出1+2+3+…+N<500的N的最大值,并在文本框Text1中顯示出來.
    Private Sub Form_Click ( ?。?br />Dim s As Integer'累加器
    Dim n As Integer
    '為n賦初值
    n=
     

    '為s賦初值
    s=
     

    Do While s<500
    n=n+1
    s=
     

    Loop
    Text1.Text=Str(n-1)
    End Sub.

    組卷:9引用:1難度:0.1
  • 10.打開文件“考生文件夾\602\工程1.vbp”,完善Form_Click事件代碼并保存.
    實現(xiàn)功能:某公司某年的總產(chǎn)值為2000萬元,若總產(chǎn)值以每年5%的速度增長,多少年后總產(chǎn)值翻一倍?將結(jié)果輸出到窗體上.
    Private Sub Form_Click ( ?。?br />Dim p As Single'年產(chǎn)值
    Dim n As Integer'年數(shù)
    p=
     

    n=0
    Do While p<4000
    p=p*
     

    n=
     

    Loop
    Print“n=“; Str(n)
    End Sub.

    組卷:8引用:1難度:0.1
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正