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

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

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

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

  • 1.打開(kāi)“考生文件夾\178\工程1.vbp”,完善程序并保存。
    實(shí)現(xiàn)功能:用遞歸法求3!+5!+7!的值。
    '請(qǐng)不要更改源程序的結(jié)構(gòu),刪除原題里的①、②、③.填寫(xiě)正確的代碼,使程序完善

    Public Function Fac(a As Integer) As Integer
    If a=1Then
    Fac=①
    Else
    Fac=a*②(a-1)
    End If
    End Function
    Private Sub Command1_Click ( ?。?br />Dim S   As Integer
    S=Fac(3)+Fac(③)+Fac(7)
    Print“S=“& CStr(S)
    End Sub。

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

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

  • 4.打開(kāi)“考生文件夾\175\工程1.vbp”,完善程序并保存。
    實(shí)現(xiàn)功能:用遞歸法求1+2+3+…+100的值。
    '請(qǐng)不要更改源程序的結(jié)構(gòu),刪除原題里的①、②、③.填寫(xiě)正確的代碼,使程序完善

    Public Function S(n As Integer) As Integer
    If n=1Then
    S=①
    Else
    S=②+S(n-1)
    End If
    End Function
    Private Sub Command1_Click (  )
    Dim Sum   As Integer
    Sum=S(③)
    Print“Sum=“& CStr(Sum)
    End Sub。

    組卷:2引用:1難度:0.5
  • 5.打開(kāi)“考生文件夾\68\工程1.vbp”,完善程序并保存。
    實(shí)現(xiàn)功能:在文本框Text1和Text2中分別輸入兩個(gè)整數(shù),單擊“交換”按鈕后,兩個(gè)文本框中的數(shù)字進(jìn)行交換。
    ''請(qǐng)不要更改源程序的結(jié)構(gòu),刪除原題里的①、②、③、④.填寫(xiě)正確的代碼,使程序完善

    Private Sub Command1_Click (  )
    Dim a As Integer
    Dim b As Integer
    Dim t As Integer
    a=Val(Text1.Text)
    b=Val(Text2.Text)
    t=a
    a=①
    b=②
    Text1.Text=③
    Text2.Text=④
    End Sub。

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