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

2012年江蘇省信息技術(shù)專題練習:VB程序(8)

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

一、解答題(共5小題,滿分0分)

  • 1.打開“考生文件夾\117\工程1.vbp”,完善程序并保存。
    實現(xiàn)功能:當單擊窗體后,計算22+42+62+…+N<1500的N的最大值。
    '請不要更改源程序的結(jié)構(gòu),刪除原題里的①、②、③.填寫正確的代碼,使程序完善
    Private Sub Form_Click (  )
    Dim s As Integer
    Dim N As Integer
    N=22
    s=0
    Do
    s=s+①
    N=②
    Loop Until s>1500
    Print“N=“& CStr(③)
    End Sub。

    組卷:2引用:1難度:0.6

一、解答題(共5小題,滿分0分)

  • 4.打開文件“考生文件夾\116\工程1.vbp”,完善程序并保存.
    實現(xiàn)功能:計算1+3+5+…+99的值.
    Private Sub Command1_Click ( ?。?br />Dim i As Integer
    Dim s As Integer
    i=1
    s=0
    Do While i<=99
    s=s+
     

    i=
     

    Loop
    Print“s=“&
     

    End Sub.

    組卷:9引用:2難度:0.5
  • 5.打開“考生文件夾\80\工程1.vbp”,完善程序并保存.
    一群猴子摘了一堆桃子,每天吃掉當天剩余桃子數(shù)的一半,每次又忍不住多吃一個,這樣到了第十天就剩下一個桃子可以吃了.
    實現(xiàn)功能:計算猴子最初一共摘了多少個桃子.
    '請不要更改源程序的結(jié)構(gòu),刪除原題里的①、②、③、④.填寫正確的代碼,使程序完善
    Private Sub Command1_Click ( ?。?br />Dim tz As Integer'tz是桃子數(shù)
    Dim ts As Integer'ts是天數(shù)
    tz=①
    For ts=1To ②
    tz=③*2
    Next ts
    Print“最初共有桃子“& ④
    End Sub.

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