一、填空題(每空4分，共60分)
1、設有如下程式段：
a$="beijingshanghai"
b$=mid(a$,instr(a$,"g")+1)
執行上面的程式段後，變數b$的值為_____。
2、以下程式段的輸出結果是_______。
num =0
while num<=2
num = num+1
wend
print num
3、窗體上有乙個名稱為list1的列表框，乙個名稱為text1的文字框，乙個名稱為label1、caption屬性為「sum」的標籤，乙個名稱為***mand1、標題為「計算」的命令按鈕。程式執行後，將把1～100之間能夠被7整除的數新增到列表框。如果單擊「計算」按鈕，則對list1中的數進行累加求和，並在文字框中顯示計算結果。
以下是實現上述功能的程式，請填空。
private sub form_load()
for i=1 to 100
if i mod 7 =0 then
______
end if
next
end sub
private sub ***mand1_click()
sum =0
for i=0 to_____
sum =sum+_______
next
text1.text=sum
end sub
4、本程式的功能是利用隨機數函式模擬投幣，方法是：每次隨機產生乙個0或1的整數，相當於一次投幣，1代表正面，0代表反面。在窗體上有三個文字框，名稱分別是text1、text2、text3，分別用於顯示使用者輸入投幣總次數、出現正面的次數和出現反面的次數。
程式執行後，在文字框text1中輸入總次數，然後單擊「開始」按鈕，按照輸入的次數模擬投幣，分別統計出現正面、反面的次數，並顯示結果。以下是實現上述功能的程式，請填空。
private sub ***mand1_click()
randomize
n=cint(text1.text)
n1=0
n2=0
for i=1 to_____
r=int(rnd*2)
if r=_______then
n1=n1+1
else
n2=n2+1
end if
next
text2.text=n1
text3.text=n2
end sub
5、閱讀程式：
option base 1
private sub form_click()
dim a(3) as integer
print "輸入的資料是：";
for i=1 to 3
a(i)=inputbox("輸入資料")
print a(i);
next
if a(1)t=a(1)
a(1)=a(2)
a(2)=_______
end if
if a(2)>a(3) then
m=a(2)
elseif a(1)>a(3) then
m=______
else
m=_____
end if
print "中間數是：";m
end sub
程式執行後，單擊窗體，在輸入對話方塊中分別輸入三個整數，程式將輸出三個數中的中間數。請填空。
(6) 在窗體上畫乙個名稱為「***mand1」，標題為「計算」的命令按鈕，再畫7個標籤，其中5個標籤組成名稱為label1的控制項陣列; 名稱為label2的標籤用於顯示計算結果，其caption屬性的初始值為空; 標籤label3的標題為「計算結果」。執行程式時會自動生成5個隨機數，分別顯示在標籤控制項陣列的各個標籤中。單擊「計算」按鈕，則將標籤陣列各元素的值累加，然後計算結果顯示在label2。
請填空。
private sub ***mand1_click()
sum = 0
for i=0 to 4
sum=sum+__ __
next
___ __=sum
end sub
(7) 在窗體上畫兩個名稱分別為***mand1和***mand2、標題分別為「初始化」和「求和」的命令按鈕。程式執行後，如果單擊「初始化」命令按鈕，則對陣列a的各元素賦值;如果單擊「求和」命令按鈕，則求出陣列a的各元素之和，並在文字框中顯示出來。請填空。
option base 1
dim a(3,2) as integer
private sub ***mand1_click()
for i=1 to 3
for j=1 to 2
____=i+j
next j
end sub
private sub ***mand2_click()
for j=1 to 3
for i=1 to 2
s=s+_____
next i
next j
text1.text= ____
end sub
二、讀程式題，寫出程式執行結果（每小題5分，共15分）
1、寫出下面程式的輸出結果
private sub form_click()
static sum as integer
i = 1
do while i<=10
sum = sum + i
i = i + 1
loop
print sum
end sub
2、寫出下面程式的輸出結果
private sub form_click()
print 「*」; tab(6); 2, tab(15); 5
for i = 15 to 16
print i;
for j = 2 to 6 step 3
print tab(3 * j); j * i;
next j
next i
end sub
3、寫出下面程式的輸出結果
for i=3 to 1
print spc(10-i);
for j=1 to 2*i-1
print 「*」;
next j
next i
三、程式設計題（第一小題10分，第二小題15分，共25分）
1、程式設計計算1—100之間的奇數和，並輸出結果。
2、編寫**計算1！...10！，並將其依次新增到list1中。
list1中的每一項分別為:1!=1, 2!
=2 ,.... (請用list1的additem方法新增)
北航13年12月課程考試《電子商務基礎》考核要求
5 證書的歸檔，證書具有一定的有效期，證書過了有效期之後就將作廢，但是我們不能將作廢的證書簡單地丟棄，因為有時我們可能需要驗證以前的某個交易過程中產生的數字簽名，這時我們就需要查詢作廢的證書。基於此類考慮，認證中心還應當具備管理作廢證書和作廢私鑰的功能ca認證中心的五種基本功能 證書的頒發 更新 查...
北航13年12月課程考試《電子商務基礎》考核要求1
5 證書的歸檔，證書具有一定的有效期，證書過了有效期之後就將作廢，但是我們不能將作廢的證書簡單地丟棄，因為有時我們可能需要驗證以前的某個交易過程中產生的數字簽名，這時我們就需要查詢作廢的證書。基於此類考慮，認證中心還應當具備管理作廢證書和作廢私鑰的功能ca認證中心的五種基本功能 證書的頒發 更新 查...
北航13年12月課程考試《模擬電路》考核要求
1 電路如圖所示，電晶體的 80，100 計算rl 3k 時的q點 ri 和ro。本小題20分 解在空載和帶負載情況下，電路的靜態電流 rbe均相等，它們分別為 rl 3k 時，靜態管壓降 電壓放大倍數分別為 2 已知如圖所示電路中電晶體的 100，1 現已測得靜態管壓降，估算約為多少千歐 2 若測...