Visual basic 第一套模擬試題
一、填空題(每空1分，共20分)
1．對象具有屬性、方法和 。
2．Len(lcase(“abcDEF”))的值是 。
3．存儲一個單精度數(shù)據(jù)要占用 字節(jié)。
4． 聲明PI為一個符號常量，表示3.1415，需要使用的語句為： 。
5．將變量X聲明為整型變量的語句為： 。
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]范圍一個隨機(jī)整數(shù)的表達(dá)式為： 。
9．在VB中"ASCII"、"ascii"、"Ascii"這三個字符串比較，最小的是 。
10．?dāng)?shù)據(jù)文件按訪問方式分為順序文件和隨機(jī)文件兩種，順序文件以 形式存儲。
二、選擇題(每題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．骰子是一個正六面體，用1~6這六個數(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)行時從鍵盤輸入5，則下面程序運(yùn)行結(jié)果為：
Dim x As Integer, y As Integer
x = Val(InputBox("請輸入變量的值"))
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%
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
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三個數(shù)，輸出最大的數(shù)。
a= Val(InputBox(""))
b= Val(InputBox(""))
c=
IF b>= a Then
Max=a
Else
End If
If Then
End If
2．該程序執(zhí)行后，輸出一個右上三角元素（含對角線）為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個學(xué)生，每個學(xué)生學(xué)了3門課程，已知所有學(xué)生在某次考試中各門功課的成績，分別求每門課的平均成績和每位學(xué)生的平均成績。
DIM A（5，3）
For I=1 TO 5
For J=1 To 3
Next J
Next I
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．請用正確的內(nèi)容填空。下面程序用“選擇”法將數(shù)組a中的10個整數(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è)計(共14分)
1. 編程計算分段函數(shù)(8分)。
X (X<0)
X2 ( 0<=X<10)
Y= X+3 (10<=X<30)
50-X3 (30 <= X<50)
X2+4X+5 (X > 50)
2．編程計算1＋3＋5＋……＋100之和(6分)
答案：
一、填空題
事件 | 6 | 4 | Const pi=3.1415 | Dim x%或dim x as integer |
False | true | Int(51*rnd+20) | ASCII | 順序 |
二、選擇題
D | D | B | D | A |
三、運(yùn)行結(jié)果
X=5 x=6 | a ab abc abcd sum=10 | S=5 | 2 3 5 7 | 1 0 0 0 1 0 0 0 1 |
四、程序填空
Val(InputBox("")) Max=b c>max max=c max | i>=j a(i,j)=1 | a(i,j)=inputbox(“請輸入“) s=0 s=s+a(i,j) aver=s/5 t=t+a(i,j) aver1=t/3
| I+1 a(i)>a(j) |
|
五、程序設(shè)計
X=inputbox(“輸入X的值“) If x<0 then Y=x Elseif x>=0 and x<10 then Y=x*x Elseif x>=10 and x<30 Y=x+3 Elseif x>=30 and x<50 Y=50-x^3 Elseif x>50 then Y=x^2+4*x+5 End if Print y Dim s%,i% For i=1 to 100 step 2 S=s+i Next i Print “s=”;s
