东莞站街女哪里最多|东莞按摩休闲会所价格
組卷網基于海量中小學試題庫建立的在線組卷系統
當前位置:手動組卷 >高中信息技術 >按章節
時間 使用次數
過濾已使用的試題
防超綱選題
  • 1. 做勻加速直線運動物體的即時速度計算公式是vt = v0 + at,其中v0是初速度,a是加速度,t是時間。計算步驟有:

    ①用公式計算即時速度vt = v0 + at

    ②輸入初速度v0、加速度a和時間t

    ③結束

    ④輸出結果vt

    其正確的順序是(  )

    A . ②①④③ B . ①②③④ C . ④②③① D . ①④②③
  • 1. 在Visual Basic中,語句form1.Caption = "歡迎使用本系統!" 中的"Caption"是(  )
    A . 屬性值 B . 屬性名 C . 對象名 D . 類名
  • 1. 在Visual Basic中,下列能作為變量名的是(  )
    A . a_5 B . a-5 C . 5a D . A&5
  • 1. "猴子吃桃"問題:一天,有一只猴子從樹上摘下若干個桃子,當即吃了一半,覺得不過癮,又吃了一個。第二天小猴子接著吃剩下的一半,還覺得不過癮,又吃了一個。以后每天都是吃前一天剩下的一半并再吃多一個。到第四天,猴子按規則吃完桃子后,只剩一個桃子。問小猴子第一天摘了多少個桃子。右圖所示是根據分析所畫出的部分流程圖。

    采用倒推算法,其中設定M的初始值為1(第四天吃完后剩下的桃子數),D為天數(初始值為5)請在下面的①和②(對應流程圖中相應空缺位置)填入相應選項。①、②分別為(  )

    A . M=M*2+1      D=1 B . M=M*2+1      D<1 C . M=2*(M+1)    D=1 D . M=2*(M+1)    D<1
  • 1. 在Visual Basic中,有如下程序:

    Private Sub Command1_Click()

      Dim a As Integer, b As Integer, c As Integer

      Dim d As Integer, z As Integer

      a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)

      d = max(a, b)

      z = max(d, c)

      Text4.Text = Str(d)

      Text5.Text = Str(z)

    End Sub

    Function max(x As Integer, y As Integer) As Integer

      If x > y Then max = x Else max = y

    End Function

    運行該程序,在文本框Text1、文本框Text2、文本框Text3中分別輸入2、-5、6后,單擊命令按鈕Command1,文本框Text5中顯示的是(  )

    A . -5 B . 2 C . 6 D . 24
  • 1. 用計算機無法解決"打印所有偶數"的問題,其原因是解決該問題的算法違背了算法特征中的(  )
    A . 唯一性 B . 有窮性 C . 能行性 D . 有輸出
  • 1. 計算梯形面積的算法描述如下:

    ①輸入上底a、下底b和高h

    ②計算梯形面積s(計算公式為:s=(a+b)*h/2)

    ③輸出結果

    ④結束

    上述算法屬于(  )

    A . 解析算法 B . 排序算法 C . 遞歸算法 D . 枚舉算法
  • 1. 在VB中,要添加一個列表框(listbox),在工具箱中要單擊的控件是 (  )
    A . B . C . D .
  • 1. 有如下Visual Basic程序段:

    a = "1100101"

    b = Mid(a, 2, 4) + "101"

    該程序段運行后,變量b的值為{#blank#}1{#/blank#}。

  • 1. 普源為晚上的班級聯歡會設計了一個抽獎程序,將所有同學的編號和對應的姓名分別保存在數組a(全班共50個同學,編號為1到50)和數組b中,程序會隨機產生一個1到50的正整數(同時包括1和50),作為中獎編號。

    程序界面如圖所示,左邊列表框List1中顯示同學的編號和姓名,單擊"抽獎"按鈕(Command1),在標簽Label3中顯示抽中的編號,同時在標簽Label4中顯示"恭喜***同學",其中具體同學的姓名從數組b中獲取。

    解決此問題的程序段如下,請在程序①和②劃線處,填入適當的語句或表達式,把程序補充完整:

    Dim a(1 To 50) As Integer

    Dim b(1 To 50) As String

    Function search(m As Integer) As Integer

    search = 0

    For i = 1 To 50

        If m = a(i) Then

           search = a(i)

        End If

    Next i

    End Function

    Private Sub Command1_Click()

    Dim c As Integer,t as integer

    Randomize

    {#blank#}1{#/blank#}

    Label3.Caption = Str(c)

    t = search(c)

      If t <> 0 Then

        Label4.Caption = "恭喜" + {#blank#}2{#/blank#} + "同學"

       End If

    End Sub

    Private Sub Form_Load()

        ' 此過程用于對數組a和數組b進行初始賦值,代碼略

    End Sub

1 2 3 4 5 下一頁 共794頁
东莞站街女哪里最多 二分pk拾计划软件 今晚七乐彩开奖直播 江苏11选5开奖查看 学什么特色小吃赚钱 后三单式稳赚 六合彩开 天龙八部卖师门材料赚钱 彩票双面盘怎么玩 买13458和02679技巧 足球比分007 神计划下载 北京快三基本一定牛 重庆时时彩到底有多假 pk10精准计划软件手机 美国超级足球比分 124不倒翁投注法例子