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

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

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

        2009年4月全國計算機等級二級VB筆試練習習題(3)

        字號:

        1.結構化程序設計的三種基本邏輯結構為順序、選擇和【1】。
            2.冒泡排序算法在的情況下的元素交換次數(shù)為【2】。
            3.軟件結構是以【3】為基礎而組成的一種控制層次結構。
            4.在面向對象的設計中,用來請求對象執(zhí)行某一處理或回答某些信息的要求稱為【4】。
            5.關系數(shù)據(jù)庫的關系演算語言是以【5】為基礎的DML語言。
            6.要使工具欄控件的某按鈕呈按鈕菜單的樣式,可以在其屬性頁中設置其【6】選項為5-tbrDropDown。
            7.在窗體上畫兩個文本框和一個命令按鈕,然后在代碼窗口中編寫如下事件過程:
            Private Sub Command1_Click()
            Text1.Text="VB Programming"
            Text2.Text=Text1.Text
            Text1.Text="ABCD"
            End Sub
            程序運行后,單擊命令按鈕,兩個文本框中顯示的內容分別為【7】和【8】。
            8.下面的程序代碼實現(xiàn)將一個一維數(shù)組中元素向右循環(huán)移動,移動次數(shù)由文本框Text1輸入。例如數(shù)組各元素的值依次為0,1,2,3,4,5,6,7,8,9,10;移動三次后,各元素的值依次為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.把一個磁盤文件的內容讀到內存并在文本框中顯示出來,然后把該文本框中的內
            容存入另一個磁盤文件,請?zhí)羁胀瓿沙绦颉?BR>    在窗體上建立一個文本框,在屬性窗口中把該文本框的MultiLine屬性設置為True,然后編
            寫如下的事件過程:
            Private Sub Form_Click()
            Open“D:\ 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】重復(或循環(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