vb程式設計試題
學年第一學期期末考試試題（a卷）
院系專業級考試科目 vb
任課教師簽名院系負責人簽名
（要求：將所有題的答案寫在答題卡對應的題號上。答在試卷上不得分）
1. 選擇題(每小題2分，共30分)
下列各題a、b、c、d四個選項中，只有乙個選項是正確的。請將正確選項填在答題卡相應位置上，。
1、 inputbox函式返回值的型別為（ ）。
a、 數值b、 字串
c、 變體d、 數值或字串（視輸入的資料而定）
2、 可以同時刪除字串前導和尾部空格的函式是（ ） 。
a、 ltrim b、rtrim c、trim d、mid
3、 表示式1+ 45 \ 6 * 4 / 8 mod 9 的值是（ ）
a、4 b、5 c、6 d、7
4、 以下可以作為vb變數名的是( )
a、sinb、ao1 c、cos（x） d、x（-1）
5、 vb算術運算子乘或除、整除、求餘的優先順序，從高到低依次為（ ）。
a、乘或除、求餘、整除b、整除、乘或除、求餘
c、整除、求餘、乘或除d、乘或除、整除、求餘
6、 表示式 （ ）可以計算字串變數x 的長度。
a、str(xb、len(x)
c、len(x)-1d、val(x)
7、 將文字框控制項的( )屬性設定為false，可正常顯示文字但不可編輯。
a、lockedb、enabledc、multiline d、visible
8、 滾動條控制項的 （ ） 屬性用於指定使用者單擊滾動箭頭時value屬性值的增量。
a、largechangeb、changec、value d、smallchange
9、 設窗體上有乙個列表框控制項list1，其中含有若干列表項。且列表項只能單選,則以下能表示當前被選中的列表項文字內容的是（ ）.
a、 b、 c、 d、list1. text
10、 以下能夠觸發文字框change事件的操作是（）
a、 文字框失去焦點 b、文字框獲得焦點
c、單擊文字框 d、改變文字框的內容
11、 在窗體上畫乙個文字框（其中name屬性為text1），然後編寫如下事件過程：
private sub form_click()
= ""
for i = 1 to 5
sum = sum + i
next i
= sum
end sub
上述程式的執行結果是（ ） 。
a、 在文字框text1中輸出15 b、在文字框text1中輸出0
c、出錯d、在文字框text1中輸出不定值
12、 為了暫時關閉計時器，應把該計時器的某個屬性設定為false ，這個屬性是（ ） 。
a、 visible b、timer c、enabled d、interval
13、 用下面語句定義的陣列的元素個數是 。
dim a(-2 to 5) as integer
a、 6 b、7 c、8 d、9
14、int( rnd * 100 ) 表示的是（）範圍內的乙個整數。
a、 [0，100] b、 [1，99c、 [0，99d、 [1，100]
15、執行下面的程式段後，x 的值為
x=5for i=1 to 5 step 2
x=x+i
next i
print x
a、 6b、 9c、14 d、 21
2. 填空(每空1分，共20分)
請將每空的正確答案寫在答題卡填空題中序號為[1]～[20]的橫線上，答在試卷不得分。
1、 把數學代數式|x|≤8寫成vb的關係表示式1]
2、 求a與b之積除以c的餘數，用visual basic表示式可表示為2]。
3、 #5/20/01#表示3]型別常量。
4、 在執行時,系統自動執行啟動窗體的4]事件.
5、 定時器的5]屬性指定timer事件的時間間隔.
6、 以下程式用來計算20！。並將計算的結果列印在窗體上。
private sub command1_click()
s6]for i = 1 to 20
s7]next i
print 「208]
7、 以下程式用來計算陣列a中的最大值(假定a中已賦值)，並將結果列印在窗體上。
private sub command1_click()
dim a(10) as integer
max = a(1)
for k9] to 10
if max < a(k) then10]
next k
print 「最大值是」； max
8、 以下程式用來產生20個[30,90]之間的隨機整數，並將其中的偶數列印出來。
private sub command1_click()
for i= 1 to _____ [11]
x=int(rnd12] )
if13] then print x
next i
end sub
9、 以下程式用來計算由鍵盤輸入10個數中正數之和，負數之和，正數的個數，負數的個數。其中用c累加負數之和，ic累加負數的個數，d累加正數之和，id累加整數的個數。
private sub command1_click()
c = 0: ic = 0: d = 0: id = 0
for i = 1 to 10
a = val(inputbox(「請輸入a」))
if a < 0 then c1415]
if a > 0 then d1617]
next i
print 「負數的個數為：」，ic
print 「負數的和為：」，c
print 「正數的個數為：」，id
print 「正數的和為：」，d
10、 在窗體上畫乙個標籤（名稱為label1）和乙個計時器（名稱為timer1），然後編寫如下幾個事件過程，程式執行後，單擊窗體，將在標籤中顯示當前時間，每隔1秒鐘變換一次。請填空。
private sub form_load()
= false
end sub
private sub form_click()
end sub
private sub timer1_timer()
end sub
3. 程式閱讀題(每題8分，共32分)
（將答案寫在答題卡對應的題號上）
1. 以下程式的輸出結果是: ______
n = 0
do while n<=2
n = n+1
loop
print n
2．以下程式的輸出結果是: ______
dim a(5) as integer
for i= 1 to 5
a(i) = i * i
print a(i);
next i
print i, a(i-1)
3. 程式執行時單擊command1,且輸入的數是9時，寫出文字框的內容。
private sub command1_click()
dim x as integer, s as integer
x = inputbox("請輸入乙個正整數=")
s = 2
if x > 4 and x < 6 then
s = s * x
else
s = s + x
end if
= "s=" + str(s)
end sub
4. 窗體的form_click()事件過程如下，執行時，單擊窗體後輸入basic，寫出執行結果。
private sub form_click()
dim s as string
dim n as integer, i as integer
s = inputbox("輸入字串")
n = len(s)
print s, n
print mid(s, n - 1, 2)
end sub
4. 程式設計題(第1題8分，第2題10分)
（將答案寫在答題卡對應的題號上）
1.寫事件過程command1_click，執行該過程時呼叫inputbox函式輸入x，如果x≥0，計算其算術平方根，否則計算它的平方,計算結果在窗體上輸出。
期末考試卷
8.兩個平面與相交但不垂直，直線m在平面內，則在平面內 a.不一定存在與直線m垂直的直線 b.一定存在與直線m垂直的直線 c.一定不存在與直線m平行的直線.d.一定存在與直線m平行的直線 9.點 sin,cos 到直線x cos ysin 1 0的距離小於，則的取值範圍是 a.b.c.d.10.是橢...
期末考試卷小組工作試卷A
7 人類的行為與互動是由 符號 及其意義而引起的，人類不是對外部刺激做出簡單的反應，而是對刺激做出能動的反應，並且賦予新的社會意義t 8 為了進一步將小組工作職業化，1973年，美國成立了小組工作專家協會，成為乙個指導小組工作實務的專業機構t 9 小組的開始階段形成良好小組狀態，小組可以依靠自己的動...
《商品知識》期末考試卷試卷
2012 2013年第一學期 一二級市場營銷專業 商品知識 期末考試卷 學號姓名分數 一 選擇題 每小題3分，共30分。單選和多選。1 以下說法正確的是 a 勞動產品就是商品 b.價值和使用價值是商品的兩個屬性 c.產品的完整性是指包裝完好d.商品學是研究商品設計的科學 2 商標的作用是 a.區別商...