一、程式分析與完善題
1、下列程式段的執行結果為(a )。
x = 5
y = -20
if not x > 0 then
x = y – 3
else
y = x + 3
print x - y; y – x
end if
a) –3 3 b) 5 -8 c) 3 -3 d) 25 -25
2、下列程式段的執行結果是(a )。
a = 0
b = 0
for i = -1 to -2 step -1
for j = 1 to 2
b = b + 1
next j
a = a + 1
next i
print a; b
a) 2 4 b) –2 0 c) 4 2 d) 2 2
3、執行下列程式段後，顯示的結果為（b）
j1=23
j2=32
if j1a) 23 b) 32 c) 55 d) 2332
4、下列程式段的執行結果為（a）
a=1b=0
select case a
case 1
select case b
case 0
print "* *0* *"
case 1
print "* *1* *"
end select
case 2
print "* *2* *"
end select
a) * *0b) * * 1* * c) * *2d) 0
5、下面程式段執行結果為（b）
x=int(rnd() + 4)
select case x
case 5
print "excellent"
case 4
print "good"
case 3
print "pass"
case else
print "fail"
end select
a) excellent b) good c) passd) fail
6、下列程式段的執行結果為（c）
a=6for k=1 to 0
a=a + k
next k
print k; a
a) -1 6b) -1 16 c) 1 6 d) 11 21
7、下列程式段的執行結果為（b）
a=1b=1
for i=1 to 3
f=a + b
a=bb=fprint f;
next i
a) 2 3 6b) 2 3 5 c) 2 3 4d) 2 2 8
8、分析程式，寫出程式執行的正確結果_______。
private sub command1_click()
dim firstr as string
firstr="abcdef"
print pat(firstr)
end sub
private function pat(xstr as string) as string
dim tempstr as string, strlen as integer
tempstr=""
strlen=len(xstr)
i=1do while i<=len(xstr) -3
tempstr=tempstr+mid(xstr, i, 1) +mid(xstr, strlen -i+1, 1)
i=i+1
loop
pat=tempstr
end function
a) abcdef b) afbecd c) fedcbad) defabc
9、單擊命令按鈕時，下列程式的執行結果為_______
private sub command1_click()
print myfund(20, 18)
end sub
public function myfund(m as integer, n as integer) as integer
do while m <> n
do while m > n: m=m - n: loop
do while m < n: n=n - m: loop
loop
myfund=m
end function
a) 0 b) 2 c) 4d) 6
10、在窗體上畫乙個名稱為text1的文字框和乙個名稱為command1的命令按鈕，然後編寫如下事件過程：
private sub command1_click()
dim array1(10, 10) as integer
dim i as integer, j as integer
for i = 1 to 3
for j = 2 to 4
array1(i, j) = i + j
next j
next i
= array1(2, 3) + array1(3, 4)
end sub
程式執行後，單擊命令按鈕，在文字框中顯示的值是_______
a）12 b）13 c）14 d）15
11、有一列數，第乙個數和第二個數分別為1和2，其後每乙個數均是前二個數之和，下面程式能列印出此數列，並使每個數都不超過32767，程式不完整，試將此程式補充完整。
private sub command1_click()
a=1:b=2
print a
do while _______
print b
c=a+b:a=b
bloop
end sub
12、下面程式輸出的結果如右圖所示。請在程式段空白處填上適當的語句，使之完整。
a$=」1234」
for i=1 to 4
print tab(5-i
_______
13、假定有如下事件過程：
private sub form_click()
dim x as integer, n as integer
x = 1
n = 0
do while x < 28
x = x * 3
n = n + 1
loop
print x, n
end sub
程式執行後，單擊窗體，輸出結果是 __b_____
14、有如下程式：
private sub form_click()
dim i as integer, sum as integer
sum = 0
for i = 2 to 10
if i mod 2 <> 0 and i mod 3 = 0 then
sum = sum + i
end if
next i
print sum
end sub
程式執行後，單擊窗體，輸出結果為 _______
15、設有以下函式過程：
function fun(m as integer) as integer
dim k as integer, sum as integer
sum = 0
for k = m to 1 step -2
sum = sum + k
next k
fun = sum
end function
若在程式中用語句 s = fun(10) 呼叫此函式，則s的值為
16、分析下列程式段。其中迴圈體語句共執行了次。
dim intsum as integer
dim i as integer
dim j as integer
for i = 1 to 10 step 2
for j = 1 to 5 step 2
intsum = intsum + j
next j
next i
print intsum
17、在窗體上畫乙個命令按鈕和乙個文字框，其名稱分別為command1和text1，把文字框的text屬性設定為空白，然後編寫如下事件過程：
private sub command1_click()
a = inputbox("enter an integer")
b = inputbox("enter an integer")
= b + a
end sub
程式執行後，單擊命令按鈕，如果在輸入對話方塊中分別輸入8和10，則文字框中顯示的內容是_______ 。
18、在窗體上畫乙個命令按鈕，然後編寫如下事件過程：
private sub command1_click()
dim a(5) as string
for i = 1 to 5
a(i) = chr(asc("a") + (i - 1))
next i
for each b in a
print b;
next
end sub
程式執行後，單擊命令按鈕，輸出結果是
19、單擊命令按鈕時，下列程式的執行結果為(b )
private sub command1_click()
dim x as integer, y as integer
x=12:y=32
call proc(x,y)
print x; y
end sub
public sub proc(n as integer, byval m as integer)
n=n mod 10
m=m mod 10
end sub
a) 1232b) 232 c) 23d) 123
20．假定有如下的sub過程：
sub s(x as single,y as single)
t = x
x =t/y
y =t mod y
end sub
在窗體上畫乙個命令按鈕，然後編寫如下事件過程：
private sub commandl_click ( )
dim a as single
dim b as single
a =5
b =4
s a,b
print a,b
end sub
程式執行後，單擊命令按鈕，輸出結果為________。
a）5 4 b）1 1 c）1.25 4 d）1.25 1
sub sub_p(b( ) as integer)
for i =1 to 4
Visual Basic程序設計模擬練習題二
一 單項選擇題 每小題2分，共30分 1 字尾為.bas的檔案表示 a 工程檔案 b 窗體檔案 c 窗體二進位制資料檔案 d 標準類模組檔案 2 visual basic是一種物件導向的程式語言，所採用的程式設計機制是 a 從主程式開始執行 b 按過程順序執行 c 按模組順序執行 d 事件驅動 3 ...
Visual Basic迴圈結構程式設計
所謂迴圈結構程式就是指對同一程式段進行若干次的重複執行，被重複執行的語句組稱為迴圈體。在程式中的迴圈有兩種 一種為無條件迴圈，它是無休止地重複執行某一程式段 一種為有條件迴圈，能夠滿足特定條件就重複執行某一程式段。visual basic提供多種迴圈語句以實現迴圈程式結構。1 do while.lo...
C語言程序設計
1.有以下程式 main 執行後輸出結果是 5,6 解析函式strlen 用於計算字串的長度，所給的字串s中，n 是轉義字元，代表乙個 換行 符，表示乙個反斜槓字元 所以字串s的長度為5 sizeof 函式是用來計算字串所佔記憶體的位元組數，5個字元在記憶體中佔5個位元組，由於c規定，在每乙個字串末...