Visual basic 第一套模擬試題

一、填空題(每空1分，共20分)

  1．對(duì)象具有屬性、方法和                     。

  2．Len(lcase(“abcDEF”))的值是                            。

  3．存儲(chǔ)一個(gè)單精度數(shù)據(jù)要占用        字節(jié)。

  4． 聲明PI為一個(gè)符號(hào)常量，表示3.1415，需要使用的語(yǔ)句為：                      。

  5．將變量X聲明為整型變量的語(yǔ)句為：                                   。

6．設(shè)x=8，y=5，則表達(dá)式 Not  (x>y)  Or  "ABC" >Left("ACDE",3)的值為           。

7. 設(shè)a=2,b=3,c=4,d=5，則表達(dá)式a*2>c or d mod a=c and b<>c or c<d的之值為：

                        。

8．產(chǎn)生[20,70]范圍一個(gè)隨機(jī)整數(shù)的表達(dá)式為：                        。

9．在VB中"ASCII"、"ascii"、"Ascii"這三個(gè)字符串比較，最小的是            。

10．?dāng)?shù)據(jù)文件按訪問方式分為順序文件和隨機(jī)文件兩種，順序文件以           形式存儲(chǔ)。

二、選擇題(每題2分，共10分)

1. 大部分控件都沒有的屬性是（    ）。

(A)Top          (B)Name       (C)Enabled      (D)Interval

2．VB 6.0表達(dá)式COS（0）+ABS（-1）+INT（RND（1））的值是(    )

A． 1                         B．–1

C． 0                         D．2

3. 表達(dá)式3^2 mod 14\2^3的值是（     ）

 A）1         B)0         C)2          D)3

4．執(zhí)行下列代碼，分別輸入12和89，輸出結(jié)果是（    ）。

Private Sub Form_Click()

a=InputBox("D")

b=InputBox("E")

Print a+b

End Sub

(A)101      (B)DE1289       (C)DE       (D)1289

5．骰子是一個(gè)正六面體，用1~6這六個(gè)數(shù)分別代表這六面，擲一次骰子出現(xiàn)的數(shù)可表示為（ ）

A． INT（RND（6）+1）     B．INT（RND*6）

C． INT（RND（1）*7）     D．INT（RND（1）*6+1）

三、寫出程序運(yùn)行結(jié)果(每小題4分,共24分)

1.  程序運(yùn)行時(shí)從鍵盤輸入5，則下面程序運(yùn)行結(jié)果為：

Dim  x  As  Integer,  y  As  Integer

    x = Val(InputBox("請(qǐng)輸入變量的值"))

    If x <> 0 Then

      If x > 0 Then

        y = x ^ 2 + 1

      Else

        y = x ^ 2 - 1

      End If

    Else

      y = 0

    End If

    Print "x="; x, "  "; "y="; y

2.  寫出下面程序運(yùn)行結(jié)果。

Dim  y  as  String,  x  as  String

y="abcd"

For  i%=1  TO  4 

         For  j%=1  TO  i%

            X=mid(y,j,1)

Print  x;

         Next  j%

         Print

    Next  i%

3. 寫出下面程序運(yùn)行結(jié)果。

Dim s As Integer, n As Integer, f As Integer

f= -1 

s = 0: n = 1

Do While n <= 10

 s = s + f * n

   f = -f     

   n = n + 1

 Loop

 Print "s="; s

4．寫出下面程序運(yùn)行結(jié)果。

 Dim m%, i%, flag As Boolean

 For m=2  to  10

    flag = True

    For i = 2 To m - 1

        If m / i = m \ i Then

            flag = False

            Exit For

        End If

    Next i

    If flag = True Then  Print  m;

       Next m

5. 寫出下面程序運(yùn)行結(jié)果。

Dim a(3, 3) As Integer

For i = 1 To 3

    For j = 1 To 3

        If i = j Then

            a(i, j) = 1

        Else

            a(i, j) = 0

        End If

    Next j

Next i

For i = 1 To 3

    For j = 1 To 3

        Print a(i, j);

    Next j

    Print

Next I

6. 寫出下面程序運(yùn)行結(jié)果。

    Dim  s  As Integer

Dim  i  As  Integer

    s = 0

    For i = 1 To 3

      s = s+sum( i )

    Next i

Print "sum="; s

End sub

    Function sum(n As Integer)  As Integer

    Dim i  As Integer, f  As  Integer

    f = 0

    For i = 1 To n

       f = f + i

    Next i

    sum=f

End Function

四、完善程序(每空2分,共32分)

1．輸入a，b，c三個(gè)數(shù)，輸出最大的數(shù)。

a= Val(InputBox(""))

b= Val(InputBox(""))

c=                          

IF  b>= a Then

   Max=a

Else

End If

If             Then 

End If

Print                        

2．該程序執(zhí)行后，輸出一個(gè)右上三角元素（含對(duì)角線）為1，其余元素為0 的5×5的矩陣。

Private Sub Form_Click()

Dim a(1 To 5, 1 To 5) As Integer

Dim i As Integer, j As Integer

For i = 1 To 5

For j = 1 To 5

If             Then

End If

Next j

Next i

For i = 1 To 5

For j = 1 To 5

Form1.Print " "; a(i, j);

Next j

Next i

End Sub

3．有5個(gè)學(xué)生，每個(gè)學(xué)生學(xué)了3門課程，已知所有學(xué)生在某次考試中各門功課的成績(jī)，分別求每門課的平均成績(jī)和每位學(xué)生的平均成績(jī)。

      DIM   A（5，3）

      For I=1  TO   5

          For   J=1   To   3

          Next   J

      Next   I

Print

      For j=1  To   3

          For   i=1   To  5

                 S=                                

          Next   i

Print aver

 Next   j

      For I=1  To  5

          T=0

          For   J=1   To    3

          Next   J

Print aver1

      Next   I

4．請(qǐng)用正確的內(nèi)容填空。下面程序用“選擇”法將數(shù)組a中的10個(gè)整數(shù)按升序排列。

  Option Base 1

  Private Sub Form_Click()

     Dim a

     a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)

     For I=1 To 9

       For j=________To 10

         If ___________Then

            t=a(I): a(I)=a(j): a(j)=t

         End If

       Next j

    Next I

    For I=1 To 10

       Print a(I);

    Next I

  End Sub

五、程序設(shè)計(jì)(共14分)

1. 編程計(jì)算分段函數(shù)(8分)。

             X         (X<0)

             X²        ( 0<=X<10)

       Y=    X+3       (10<=X<30)

             50-X³     (30 <= X<50)

             X²+4X+5   (X > 50)

2．編程計(jì)算1＋3＋5＋……＋100之和(6分)

答案：

一、填空題

二、選擇題

三、運(yùn)行結(jié)果

四、程序填空

五、程序設(shè)計(jì)