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

2013-2014學(xué)年浙江省溫州市平陽三中高一(上)期中信息技術(shù)試卷

發(fā)布:2024/11/17 9:0:1

一、單項選擇題(本題有30小題,每小題2分,共60分.)

  • 1.在Visual Basic中,下列不合法的變量名是( ?。?/h2>

    組卷:7引用:1難度:0.9
  • 2.在Visual Basic中,下列表達式的值為“True“的是( ?。?/h2>

    組卷:7引用:1難度:0.9
  • 3.下列敘述中,不正確的是( ?。?/h2>

    組卷:8引用:1難度:0.9
  • 4.下列代碼運行后在窗體上輸出的結(jié)果是( ?。?br />Dim a As Integer
    Dim b As Integer
    a=5
    b=8
    If a>b then
    max=a
    else
    max=b
    End If
    Print max.

    組卷:6引用:1難度:0.9
  • 5.在Visual Basic中,表達式   21Mod 5  的值是( ?。?/h2>

    組卷:8引用:1難度:0.9
  • 6.在VB中,表示代數(shù)式
    2
    a
    +
    4
    b
    2
    a
    +
    b
    的表達式是( ?。?/h2>

    組卷:8引用:2難度:0.9
  • 7.在Visual Basic中,下列正確的賦值語句是( ?。?/h2>

    組卷:7引用:1難度:0.9
  • 8.在Visual Basic中,下列關(guān)于語句“Dim b1As string“說法正確的是( ?。?/h2>

    組卷:6引用:1難度:0.9
  • 9.計算機程序的三種基本結(jié)構(gòu)分別是:順序結(jié)構(gòu)、分支結(jié)構(gòu)、( ?。?/h2>

    組卷:4引用:1難度:0.9
  • 10.在面向?qū)ο蟪绦蛟O(shè)計中,( ?。┯脕砻枋鰧ο蟮奶卣餍畔ⅲ?/h2>

    組卷:4引用:2難度:0.7
  • 11.在VB應(yīng)用程序設(shè)計中,如果想讓Timer控件每秒鐘響應(yīng)一次,應(yīng)該將其Interval屬性設(shè)置為( ?。?/h2>

    組卷:4引用:2難度:0.5
  • 12.下列過程中,( ?。┐a,是按鈕單擊就運行的程序段.

    組卷:4引用:1難度:0.7
  • 13.下列控件中“文本框”控件的是( ?。?/h2>

    組卷:6引用:1難度:0.9
  • 14.運行如下程序段可輸出由“#”組成的( ?。﹫D形.
    For  X=1To  3
    Print“########“
    Next X.

    組卷:6引用:1難度:0.9

四、程序修改正確,使程序正常運行(3小題,每空2分,共20分)

  • 43.酒駕認定
    依照中華人民共和國《機動車駕駛員駕車時血液中酒精含量規(guī)定》,血液中酒精含量大于或等于0.3mg/ml駕駛機動車的屬酒后駕車;大于或等于1.0mg/ml駕駛機動車的屬醉酒駕車.設(shè)計一個程序,幫助交警判定某人屬酒后駕車、醉酒駕車還是沒有違法.程序設(shè)計界面如圖所示:
    菁優(yōu)網(wǎng)
    Dim x As Single,d As String
    If KeyAscii=13Then
    x=Val(Text1.Text)
    If x>=1Then
    d=“醉酒駕車!“
    ElseIf x<0.3Then'①
     

    d=“酒后駕車!“
    Else
    d=“沒有違法!“
    End If
    Loop'②
     

    Label2.Caption=Str(d)'③
     

    把上面的程序代碼注釋的有3處錯誤,請修改正確.

    組卷:3引用:1難度:0.1
  • 44.勾股數(shù)
    尋找100以內(nèi)的勾股數(shù).大家都知道“勾三股四弦五”3^2+4^2=5^2,3,4,5就是勾股數(shù),編寫程序?qū)ふ?00以內(nèi)的整數(shù)勾股數(shù).設(shè)計界面如圖所示,單擊“統(tǒng)計”按鈕在List1中輸出所有滿足條件的勾股數(shù).
    菁優(yōu)網(wǎng)
    Dim sum As Integer'定義sum為一個整形變量,計數(shù)功能
    Dim i,j,k As Integer
    List1.Clear
    sum=1'①
     

    For  i=1To 100'假定k>j>i,可以避免重復(fù)尋找
    For  j=i To 100
    For  k=j To 100
    If  k*k=i*i+j*j Then
    List1.AddItem (Str(i)+Str(j)+Str(k))
    Sum=sum+2'②
     

    End If
    Next k
    Next j
    Next k'③
     

    Label1.Text=“組數(shù):“+Str(sum)'④
     

    把上面的程序代碼注釋的有4處錯誤,請修改正確.

    組卷:2引用: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)改正