l = len (xend sub
w = 「」
for k = 1 to l-1
v = mid (x, k, 1)
w = w + v + 「 」
next k
w = w + right (x,1)
= wend sub
4、編寫程式，從鍵盤輸入任一x的值，求分段函式的值（可用inputbox函式）。
private sub form_click()
dim x as double, y as double
x = val(inputbox("input x "))
if x > 0 then
y = 2 * x
elseif x < 0 then
y = abs(x)
else
y = 0
end if
print y
end sub
5、定義乙個下界為1，上界為10的整數型一維陣列a，將10個隨機生成的兩位數儲存到陣列a中，並將陣列a各個元素顯示在窗體上，然後，找出陣列a中所有的偶數輸出到窗體上。（ int(rnd*90)+10 ）。
private sub command1_click()
dim a%(1 to 10)
for i = 1 to 10
a(i) = int(rnd * 90 + 10)
print a(i);
next i
for i = 1 to 10
if a(i) mod 2 = 0 then print a(i);
next i
end sub
6、定義乙個下界為1，上界為10的整數型一維陣列a，將10個隨機生成的兩位數儲存到陣列a中，並將其在窗體上按從小到大的順序顯示成一行。（ int(rnd*90)+10 ）
private sub command1_click()
dim a%(1 to 10)
for i = 1 to 10
a(i) = int(rnd * 90 + 10)
print a(i);
next i
for i = 1 to 9
for j = i + 1 to 10
if a(i) > a(j) then t = a(i): a(i) = a(j): a(j) = t
next j
next i
for i = 1 to 10
print a(i);
next i
end sub
7、 在文字框text1和text2中分別輸入任意兩個正整數m和n，單擊命令按鈕command1,使較大的數顯示在標籤框label1上 ，較小的數顯示在標籤框label2上。
private command1_click( )
dim m as integer,n as integer
m=val(
if m>n then
8、在文字框(textl)中輸入乙個字串，按排列按鍵(commandl)將輸入的字串中的字元之間插入乙個空格，顯示在標籤框(label」中。按「結束」(command2)按鍵結束程式。
private sub command1_click()
a = text1
x = len(a)
for i = 1 to x
z = mid(a, i, 1)
label1 = label1 + z + " "
next i
end sub
private sub command2_click()
endend sub
9、單擊窗體form1，在窗體第一行顯示10個[1，50]之間的隨機整數，在文字框text1中顯示其最小數。(提示：int(rnd*50)+1 )
private sub command1_click()
dim a%(1 to 10)
for i = 1 to 10
a(i) = int(rnd * 50 + 1)
print a(i);
next i
min = a(1)
for i = 2 to 10
if min > a(i) then min = a(i)
next i
text1 = min
end sub
10、編一程式，顯示所有的水仙花數。所謂水仙花數，是指乙個3位數，其各位數字立方和等於該數字本身。例如153是水仙花數，因為153=13+53+33。
private sub command1_click()
for i = 100 to 999
a = i mod 10
b = i \ 10 mod 10
c = i \ 100
if i = a ^ 3 + b ^ 3 + c ^ 3 then print i
next i
end sub
11、先在窗體上新增乙個文字框、乙個標籤和乙個命令按鈕。程式設計實現：單擊命令按鈕，使標籤和文字框中的內容進行互換。
private sub command1_click()
t = text1
text1 = label1
label1 = t
end sub
12、使用陣列實現：單擊窗體，按每行7個數顯示斐波那契數列的前20個（0，1，1，2，3，…，4181）。提示：an=an-1+an-2
private sub command1_click()
dim a(1 to 20)
a(1) = 0
a(2) = 1
print a(1); a(2);
for i = 3 to 20
a(i) = a(i - 2) + a(i - 1)
print a(i);
if i mod 7 = 0 then print
next i
end sub
13、單擊窗體，在窗體上顯示100到200之間的所有的素數。
private sub command1_click()
for i = 100 to 200
x = true
for j = 2 to i - 1
if i mod j = 0 then x = false
next j
if x = true then print i
next i
end sub
14、單擊命令按鈕command1後在窗體form1上顯示以下形狀的圖形。
private sub command1_click()
for i = 1 to 4
if i mod 2 <> 0 then
print string(4, "a")
else
print string(4, "b")
end if
next i
end sub
15、在窗體上有乙個名稱為text1的文字框，乙個名稱為c1，標題為「校驗」的命令按鈕。其中文字框用來輸入口令，要求在文字框中輸入的內容都必須以「*」顯示（通過屬性視窗設定）。要求程式執行後，輸入口令，單擊命令按鈕後，對口令進行校驗。
如果輸入的內容是「abc」這3個大寫字母，則用msgbox資訊框輸出「正確」，否則輸出「錯誤」。如圖所示。
private sub command1_click()
if text1 = "abc" then msgbox ("正確") else msgbox ("錯誤")
end sub
16、在文字框text1中輸入乙個任意長度的字串，單擊「逆序排列」命令按鈕command1，將文字框中的字串按與輸入相反的順序排列，結果顯示在標籤框label1中。
private sub command1_click()
a = text1
x = len(a)
for i = x to 1 step -1
z = mid(a, i, 1)
label1 = label1 + z
next i
end sub
17、用inputbox 函式輸入長方形的長和寬,用msgbox輸出長方形的周長和面積.
private sub command1_click()
a = val(inputbox("輸入長方形的長"))
b = val(inputbox("輸入長方形的寬"))
q = msgbox("長方形的周長為" + str(2 * (a + b)) + "面積為" + str(a * b))
end sub
18、列印出3-100的所有素數,並統計個數
private sub command1_click()
for i = 3 to 100
x = true
for j = 2 to i - 1
if i mod j = 0 then x = false
next j
if x = true then print i: t = t + 1
next i
print t
end sub
19、用輸入對話方塊輸入半徑r的值，編寫單擊計算命令按鈕事件**，計算 s= π r2的值和v= 4 π r3的值，並將結果分別顯示在標籤框label1和label2中。
private sub command1_click()
r = inputbox("請輸入半徑r＝", "資料輸入框")
s = 3.141592 * r * r
v = 4 * s * r
= s= vend sub
20、利用inputbox函式輸入2個整數，求它們的最大公約數。
private sub form_click()
n1 = inputbox("輸入n")
m1 = inputbox("輸入m")
if m1 > n1 then使得 m>n
m = m1: n = n1
else
m = n1: n = m1
end if
r = m mod n
do while r <> 0
m = n
n = r
r = m mod n
高中資訊科技演算法與程式設計VB
高中資訊科技 演算法與程式設計vb 選修 知識要點 相關知識點 一 演算法 1.定義 相關題解 1演算法 就是解決問題的方法和步驟。演算法是程式設計的 靈魂 演算法 資料結構 程式。單選題1 運用電腦程式解決實際問題時，合理的步驟是 b a 設計演算法 分析問題 編寫程式 除錯程式 b 分析問題 設...
高中資訊科技演算法與程式設計VB知識點
dim c as single 定義c為單精度型 dim s as single 定義s為單精度型 r val 輸入半徑r c 2 3.14159 r 計算周長 s 3.14159 r r 計算面積 c 輸出周長 s 輸出面積 end sub private sub command2 click e...
高中資訊科技會考模擬題 答案
2013 網路技術應用模擬卷 十三 學號 80066 姓名 周亦楠得分 2 1.單選題 1 分 假設某使用者上網時輸入其中的http是指 得分 0 分 標準答案 c 解題指導 2.單選題 1 分 陳明要將已完成的數學第一至五章的練習共5個檔案，通過電子郵件，發給數學老師，下列哪種方法最簡捷 得分 0...