《《VB程序設計》試題答案》由會員分享，可在線閱讀，更多相關《《VB程序設計》試題答案（6頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、《Visual Basic》考試試題
班級： 姓名： 學號：
一、選擇題（30分）
1、如果要更改窗體的標題，需要設置窗體對象的（ B ）屬性。
A) Backcolor B) Caption C) Name D) Borderstyle
2、可以用作其他控件容器的控件有（ D ）
A) 窗體，列表框，圖像框 B) 窗體，文本框，框架
C) 窗體，標簽，圖片框 D) 窗體，框架，圖片框
3、若要求從文本框中輸入密碼時在文本框中只
2、顯示*號，則應當在此文本框的屬性窗口中設置（ D ）
A) Text屬性值為* B) Caption屬性值為*
C) Password屬性值為* D)Passwordchar屬性值為*
4、以下選項中，不是Visual Basic控件的是（A ）
A) 窗體 B) 定時器 C) 單選框 D) 命令按鈕
5、Visual Basic提供的日期函數(shù)是（ C ）
A)Time$ B)Year$ C)Date$
3、 D)Timer$
6、若要設置文本框可接收多行字符，應設置的屬性為（ A ）
A)MultiLine B)Length C)Max D)Maxlength
7、在運行時,若要使文本框獲得輸入焦點,則可調用文本框對象的( C )方法來實現(xiàn)。
A) Refresh B)GotFocus C)SetFocus D)Tab
8、窗體的BackColor屬性用于設置窗體的( C )
A)寬度 B)高度 C)背景色 D)前景色
9、若要設置定時器控件的定時時間，需設置的
4、屬性是（ B ）
A) Value B) Interval C) Enable D) Text
10、在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是( C )
A) 工程資源管理器窗口 B) 工具箱窗口
C) 代碼窗口 D) 屬性窗口
11.在Visual Basic中，變量的默認類型是（ C ）。
A、Integer B、Double
C、Variant
5、 D、Currency
12．為了在運行時把d:\pic文件夾下的圖形文件a.jpg裝入圖片框Picture1中，所使用的語句為（ B ）。
A．Picture1.Text=LoadPicture("d:\pic\a.jpg")
B．Picture1. Picture =LoadPicture("d:\pic\a.jpg")
C．Picture1. Picture =LoadPicture(d:\pic\a.jpg)
D．Picture1. Picture =Load
6、("d:\pic\a.jpg")
13．MsgBox函數(shù)的返回值的類型是（ A ）
A．整型 B．字符串
C．邏輯型 D．日期型
14表達式4+5\6*7/8Mod9的值是（ B ）
A.4B.5C.6D.7
15.圖像框有一個屬性，可以自動調整圖形的大小，以適應圖像框的尺寸，這個屬性是（ B ）。
A、Autosize B、Stretch
C、AutoRedraw D、Appearance
二、讀程序題，寫出程序運行結果。（每小題5分，共30
7、分）
1 Private Sub Form_Click()
Dim i%,j%
For i = 5 To 1 Step -1
For j = 1 To 6-i
Print Tab(j + 5); "*";
Next j
Print
Next i
End Sub
答案： *
**
***
****
*****
2 Pri
8、vate Sub Form_Click()
Dim x%,y%
X=10
Y=20
If x>y then
Print x-y
Else
Print y-x
End if
End sub
答案：10
3 Private Sub Form_Click()
For I =15 to 18
Print “*”;
For j=3 to 6 step 1
Print “*”;
Next j
Print
Next i
End Sub
答案：*****
*****
9、
*****
*****
4 PrivateSubForm_Click()
DimiAsInteger,sumAsInteger
sum=0
Fori=2To10
IfiMod2<>0AndiMod3=0Then
sum=sum+i
EndIf
Nexti
Printsum
EndSub
答案：12
5 private sub form_click()
Dim x!,y!
x=4.5
y=6.5
if x<>0 then
y=y-x
elseif y>5.5 then
x=y
elseif x<
10、>6.5 then
y=y*x
end if
print x,y
end sub
答案：4.5 2
6 private sub form_Click()
Dim x!,y!
Dim i%
X=3.0
For i=1 to 4
X=x+i
Next i
Print x+i
End sub
答案：18
三、編程（每題10分，共40分）
1、編寫程序求1*2*3+……*N的結果。（N由用戶輸入）
答案：
Private Sub Form_Click()
Dim n As Integer, s As Integer
n = I
11、nputBox("input integer data n:")
n = Val(n)
s = 0
For i = 1 To n
s = s * i
Next i
Print "s="; s
End Sub
2、編寫程序,任意輸入一個整數(shù),確定該整數(shù)的奇偶性。
Private Sub Form_Click()
Dim n As Integer
n = InputBox("input integer data n:")
n = Val(n)
If n Mod 2 = 0 Then
12、
Print "此數(shù)是偶數(shù)"
Else
Print "此數(shù)為奇數(shù)"
End If
End Sub
3、編寫程序用近似公式
PI/4≈1-1/3+1/5-1/7+…+(-1)n-1/2n-1
求PI的近似值，直到最后一項的絕對值小于10-4為止。
答案：
Private Sub Form_Click()
a = 0: n = 1: t = 1
Do
t = (-1) ^ (n - 1) / (2 * n - 1)
n = n + 1
a = a + t
Loop Until Abs(t) < 0.0001
13、 Print "PI=" & a * 4
End Sub
4、編寫程序，打印如下所示的“數(shù)字金字塔”。
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
.
.
.
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
答案1:
Private Sub Form_Click()
For i =
14、 1 To 9
Print Tab(30 - 3 * i);
For j = 1 To 2 * i - 1
If i >= j Then
Print j;
Else
Print 2 * i - j;
End If
Next j
Print
Next i
End Sub
答案2:
Private Sub Form_Click()
For i = 1 To 9
Print Tab(30 - 3 * i);
For j = 1 To i
Print j;
Next j
For k = i - 1 To 1 Step -1
Print k;
Next k
Print
Next i
End Sub
友情提示：部分文檔來自網(wǎng)絡整理，供您參考！文檔可復制、編制，期待您的好評與關注！
6 / 6
《VB程序設計》試題答案
