亚洲免费乱码视频,日韩 欧美 国产 动漫 一区,97在线观看免费视频播国产,中文字幕亚洲图片

      1. <legend id="ppnor"></legend>

      2. 
        
        <sup id="ppnor"><input id="ppnor"></input></sup>
        <s id="ppnor"></s>

        2009年4月全國計(jì)算機(jī)等級(jí)二級(jí)VB筆試練習(xí)習(xí)題(5)

        字號(hào):

        1.結(jié)構(gòu)化程序設(shè)計(jì)的三種基本邏輯結(jié)構(gòu)為順序、選擇和【1】。
            2.冒泡排序算法在的情況下的元素交換次數(shù)為【2】。
            3.軟件結(jié)構(gòu)是以【3】為基礎(chǔ)而組成的一種控制層次結(jié)構(gòu)。
            4.在面向?qū)ο蟮脑O(shè)計(jì)中,用來請求對象執(zhí)行某一處理或回答某些信息的要求稱為【4】。
            5.關(guān)系數(shù)據(jù)庫的關(guān)系演算語言是以【5】為基礎(chǔ)的DML語言。
            6.要使工具欄控件的某按鈕呈按鈕菜單的樣式,可以在其屬性頁中設(shè)置其【6】選項(xiàng)為5-tbrDropDown。
            7.在窗體上畫兩個(gè)文本框和一個(gè)命令按鈕,然后在代碼窗口中編寫如下事件過程:
            Private Sub Command1_Click()
            Text1.Text="VB Programming"
            Text2.Text=Text1.Text
            Text1.Text="ABCD"
            End Sub
            Examda提示:程序運(yùn)行后,單擊命令按鈕,兩個(gè)文本框中顯示的內(nèi)容分別為【7】和【8】。
            8.下面的程序代碼實(shí)現(xiàn)將一個(gè)一維數(shù)組中元素向右循環(huán)移動(dòng),移動(dòng)次數(shù)由文本框Textl輸入。例如數(shù)組各元素的值依次為0,1,2,3,4,5,6,7,8,9,10;移動(dòng)三次后,各元素的值依次為8,9,10,0,1,2,3,4,5,6,7。
            Private Sub MoveRight(x()As Integer)
            Dim i As Integer
            Dim j As Integer
            Dim k As Integer
            i=UBound(x)
            j=x(i)
            For k=i To【9】Step-1
            【10】
            Next k
            x(LBound(x))=j
            End Sub
            Private Sub Command1_Click()
            Dim a(10) As Integer
            Dim i As Integer
            Dim j As Integer
            Dim k As Integer
            For i=0 To 10
            a(i)=i
            Next i
            j=Val(Text1.Text)
            k=0
            Do
            k=k+1
            Call MoveRight(a)
            Loop Until k=j
            For i=0 To 10
            Print a(i);
            Next i
            End Sub
            9.下面程序是用來打印九九乘法表的,請?zhí)羁铡?BR>    Private Sub Form_Click()
            Dim flag As Integer,i As Integer,j As Integer,Str1 $
            Str1=“”
            For i=1 To 9
            【11】
            For j=1 To 9
            If 【12】Then
            str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j))
            Else
            str1=str1 & Chr(13)
            Exit For
            End If
            Next j
            Next i
            Print str1
            End Sub
            10.把一個(gè)磁盤文件的內(nèi)容讀到內(nèi)存并在文本框中顯示出來,然后把該文本框中的內(nèi)容存入另一個(gè)磁盤文件,請?zhí)羁胀瓿沙绦颉T诖绑w上建立一個(gè)文本框,在屬性窗口中把該文本框的MultiLine屬性設(shè)置為True,Examda提示:然后編寫如下的事件過程:
            Private Sub Form_Click()
            Open癉:\ test1.txt”For Input As # 1
            Text1.FontSize=14
            Text1.FontName=“幼圓”
            Do While Not EOF(1)
            【13】
            whole$=whole$+aspect$+Chr$(13)+Chr$(10)
            Loop
            Text1.Text=【14】
            Close
            Open“D:\ test2.txt”For Output As # 1
            Print # 1,【15】
            Close
            End Sub
            參考答案
            1.【1】重復(fù)(或循環(huán))
            2.【2】0
            3.【3】模塊
            4.【4】消息
            5.【5】謂詞演算
            6.【6】樣式
            7.【7】ABCD
            【8】VB Programming
            8.【9】LBound(x)+1
            【10】x(k)=x(k-1)
            9.【11】Flag=i
            【12】j<Flag
            10.【13】Line Input # 1,aspect$
            【14】Whole$
            【15】Text1.text