1樓：暈這麼多滴重名
1）基本概念（填空與問答）
1．vb提供了一種新的資料庫訪問技術，即ado技術 ，通過該技術，能方便地訪問資料庫中的資料。
2．物件的屬性是指 。物件的性質
3．在文字框中通過 selstart屬效能獲得當前插入點所在的位置。
4．在**視窗中對窗體的maxbutton屬性進行了設定，但執行後沒有效果，原因是這些屬性 只能在屬性視窗設定。
5．為了使乙個控制項在執行時不可見，應該對該控制項的 visible屬性設定為false。
6．表示x既是5的倍數又是10 的倍數的邏輯關係表示式 ( x mod 5 = 0 ) and ( x mod 10 = 0) 。
6．vb也提供了三種基本結構，三種基本結構是 。順序，分之，迴圈
7．下面程式段中，第2條語句執行 4 次，第3條語句執行 12次。
1：for i=1 to 12 step 3
2： for j=6 to 2 step -2
3： print i,j
4： next j
5： next i
8．陣列宣告語句dim a(3,-2to2,5)中的陣列a包含了元素的個數是 120。
9．形參是在定義過程時的一種形式上虛設的引數，只代表了該過程引數的 個數 、 型別 、 位置 、形參的名字並不重要，只表示在該過程中進行某種運算或處理。
10．在同一模組、不同過程宣告的相同變數名，兩者之間 沒有任何關係 。
11．簡述建立乙個完整應用程式的過程。1建立介面2設定物件的屬性3編寫有關的**程式4執行應用程式
12． visual basic提供了那三種對資料檔案訪問方式？順序訪問方式、隨機訪問方式、二進位制訪問方式
13．使用msgbox函式和msgbox過程的區別是什麼？函式有返回值，過程沒有。過程中引數不帶括號，函式帶括號。
14． 說明下面程式段的執行過程和結果。
dim x
if x then print x else print x+1
115．如果語句：do while … ..loop構成了死迴圈，如何解決？if《滿足迴圈終止的條件》 then exit do
16．靜態陣列和動態陣列的區別是什麼？靜態陣列宣告陣列的時候，指定維數，不可以改變；動態陣列不宣告維數，可以改變，過程中用redim宣告。
17. 設有如下程式：private sub command1_click()dim sum as double, x as doublesum = 0n = 0for i = 1 to 5x = n / in = n + 1sum = sum + xnextend sub
sum=0/1 + 1/2 + 2/3 + 3/4 + 4/5
該程式通過for迴圈計算乙個表示式的值，這個表示式是什麼？
18. 設有程式：option base 1private sub command1_click()dim arr1, max as integerarr1 = array(12, 435, 76, 24, 78, 54, 866, 43) max = arr1(1)for i = 1 to 8if arr1(i) > max then max=arr1(i) next iprint "最大值是:
"; maxend sub以上程式的功能是：用array函式建立乙個含有8個元素的陣列，然後查詢並輸出該陣列中元素的最大值。請填空。
二、程式設計題
1．在窗體上畫乙個名稱為combo1的組合框，畫兩個名稱分別label1和label2及caption 屬性分別為「城市名稱」和空白的標籤。程式執行後，當在組合框中輸入乙個新項後按回車鍵(ascii碼為13)時，如果輸入的項在組合框的列表中不存在，則自動新增到組合框的列表中，並在label2中給出提示「已成功新增輸入項」如圖所示；如果存在，則在label2中給出提示「輸入項已在組合框中」。
private sub combo1 keypress(keyascii is integer)
if keyascii=13 then
for i=0 to combo1.listcount-1
if combo1.text=combo1.list then
label2.caption=」輸入項已在組合框中」
exit sub
end if
label2.caption=」 已成功新增輸入項」
combo1.additem combo1.text
end if
end sub
2. 生成20個200到300之間的隨機整數，輸出其中能被5整除的數並求出它們的和。請填空。
private sub command1_click()
for i=1to 20
x=int(ren*200+100)
if x mod 5=0 then
print x
s=s+x
end if
next i
print 「sum=」,s
end sub
2樓：真
1. ado (activex data object)
2. 物件（窗體，控制項）的大小、顏色、方位等一系列外觀或內部構造的特徵
3. selstart
4. 唯讀的
5. visible屬性設定為false
6. (x mod 5) = 0 and (x mod 10) = 0
7. 第2條語句執行 4 次，第3條語句執行 12 次
8. 20
9. 個數、型別、位置
10. 兩者不表示同一變數，且這兩個變數之間沒有聯絡
11.(1)新建工程
(2)設計使用者介面：確定窗體，在窗體中新增控制項。
(3)設定物件的屬性：窗體和控制項的屬性在屬性視窗設定。
(4)編寫有關的**程式。
(5)除錯：若窗體或程式有錯，則重複前三步，直到程式完全正確及窗體令人滿意為止。
(6)應用程式的整合和管理（儲存專案）：把有關專案儲存起來，以便以後使用。
(7)執行應用程式
(8)建立可執行檔案：脫離vb，而直接在windows環境下執行。
(9)結束專案。
12. 順序檔案、隨機檔案、二進位制檔案
13. msgbox過程中引數不帶括號，且沒有返回值，msgbox函式有括號，且具有返回值
14. 如果x為ture,則在窗體上輸出x的值,否則輸出x+1的值;執行結果是輸出 1
15. exit do
16. 對於靜態陣列，一般要宣告盡可能大的數目浪費記憶體空間，而動態陣列在執行過程中可以改變大小，節省記憶體空間，但浪費執行時間。靜態陣列只能是常量。
17. (0/1 + 1/2 + 2/3 + 3/4 + 4/5)
18.option base 1
private sub command1_click()
dim arr1, max as integer
arr1 = array(12, 435, 76, 24, 78, 54, 866, 43)
max = arr1(1)
for i = 1 to 8
if arr1(i) > max then max = arr1(i)
next i
print "最大值是: "; max
end sub
程式題 1.
private sub combo1_keypress(keyascii as integer)
dim i as long
if keyascii = 13 then
for i = 0 to me.combo1.listcount
if combo1.text = me.combo1.list(i) then
label2.caption = "輸入項已在組合框中"
exit sub
end if
next i
label2.caption = "已成功新增輸入項"
combo1.additem combo1.text
end if
end sub
程式題2.
dim i as integer
dim tmpnum as integer
dim total as long
randomize
for i = 1 to 20
tmpnum = int(100 * rnd) + 200
if tmpnum mod 5 = 0 then
total = total + tmpnum
print tmpnum
end if
next
print "total:" & total
關於VB的題
樓上的回答有很多錯誤的 選擇題1 d 2 b3 bcd 4 d5 b 6 d7 a 8 b9 a 10 c 填空題 1 x 0 and x 100 and x int x 2 012,345.68 3 shanghai 4 3.96551724137931 3 5 5 4567 4567 6 5 y...
關於VB的一道題，關於VB的兩道題
private sub form keydown keycode as integer,shift as integer dim left,top as doubleleft top if keycode 37 then left 50elseif keycode 38 top 50 elseif ...
一道有關於Cls的VB題，關於vb中cls的
private sub form click static a as integer 定義a為靜態變數 static b as integer 同上 cls 清除窗體上顯示的內容 b 1 每次執行的時候都先把b賦值為1,所以把b定義為靜態變數看不出效果的 b b 5 每次都是6 a 5 a 執行第一...