PART 2(仍然不用用到C語言哦)
遺憾和後悔你要選擇什麼
DIM A(8)
A=(0,1,2,3,4,5,6,7,8)
For i=0 to 8
A(i+1)=a(i)+10
Next i
A(8)=256*100
2寫出以下敘述執行的結果
(1) print len("windows"0)
(2) print left("visual basic 5.0",6)
(3) print right("visual basic 5.0",3)
(4) print right("god",1) & "o" & left("god",1)
(5) print year(#99/12/18#)
(6) print month(#99/12/18#)
(7) print day(#99/12/18#)
3. Private Sub Command4_Click()
dim res as string
res = ""
a = "COMPUTER"
For i = Len(a) To 1 Step -3
res = res + Mid(a, i, 1)
Next i
Print "res="; res
End Sub
執行結果
max= (5)
4. Private Sub Command6_Click()
Dim a(10) As Integer
a(1) = 1: a(2) = 1
For i = 3 To 10
a(i) = a(i - 1) + a(i - 2)
Next i
Print "第五個為"; a(5)
Print "第八個為"; a(7)
End Sub
執行結果
第五個為= (8)
第八個為= (9 )
5. Private Sub Command7_Click()
Dim a(2, 3) As Integer
For i = 0 To 2
For j = 0 To 3
a(i, j) = i + j
Next j
Next i
Print "a(2, 3)="; a(2, 3)
Print "a(0,0)="; a(0, 0)
End Sub
執行結果
a(2, 3)= (10)
a(0,0)= (11)
6. private sub command1_click
dt=- #9/28/97#
print ChineseDate(dt)
end sub
function ChineseDate(dt) as string
y=year(dt) : m=month(dt) : d=day(dt)
if y>1911 then
chinesedate="民國" & y-1991 & "年" & m & "月" & d & "日"
else
chinesedate="民國" & 1911-y+1 & "年" & m & "月" & d & "日"
endif
End function
7.寫一程式輸入x值，然後再呼叫以下函數計算Y值，最後由呼叫的程式印出Y值
Y=2X+10 若X<=9.8
Y=X2+2X+1 若 9.8<X<=19.6
Y=X4+X2-20 若X>19.6
8.試寫一程式,將使用者輸入的阿拉伯數字轉換成國字大寫的功能
如使用者輸入 23415 則顯示 貳萬參仟肆佰壹拾伍元整.
9.輸入兩個數，分別用函數求出最大公因數(GCD)及最小公倍數(LCM)
10.設計一副程式列印1+2+3+….+n的總合，由主程式傳入n值
--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: u21-167.user.giga.net.tw