2009年12月江苏信息技术学业水平测试算法与程序设计上.xls

编号 题目答案 1For i 1 To Text1 Text For i 1 To Len Text1 Text 1temp2 temp2 9 temp temp2 temp 9 1Text2 Text Text2 Text y 4a i a i 100 4b i a 10b i a 100 10 4 Next i Next 9 Val InputBox 请输入一个数 s i Val InputBox 请输入一个数 9For i 9 To 0 Step For i 9 To 0 Step 1 9Print Print s i Print s i Print str s i Print Cstr s i 12ss Val ss Val Text1 Text ss Val Text1 12h h ss 3600 h Int ss 3600 h ss 60 60 12s ss h 3600 Mod s ss h 3600 Mod 60 13If a b Then max a Else If a b Then max a Else max b 13If c max Then If c max Then max c 13Label3 Caption CStr Label3 Caption CStr max 15For i 1 To For i 1 To 4 15For j 1 To For j 1 To 5 15Print Print 20If ThenIf x 10 Then If 10 9 Then If x 9 Then If 9 x Then 20s 4 s 4 x 0 8 s 4 0 8 x 20Label1 Caption CStr Label1 Caption CStr s 22For i 1 To For i 1 To 10 22m i 10m j 8 i 10 m 8 j i 10 24x Val x Val Text1 Text x Val Text1 24If c ThenIf c x Then 24 n 1 26LabelLabel1 26 Label1 Top Label1 Top 100 26 Label1 Top Label1 Top 100 28b Val b Val Text2 Text b Val Text2 28If ThenIf p 0 Then If 0 p Then If 1 1 Then 28 Else 30 Val InputBox 请输入x的值 x Val InputBox 请输入x的值 30 x 5 ay x 5 a 30 End If 32a Val a Val Text1 Text a Val Text1 32 g 100 shi 10 baib g 100 shi 10 bai 32 CStr b Text2 Text CStr b Text2 CStr b 36 Val InputBox 请输入边长a的值 a Val InputBox 请输入边长a的值 36 s q q a q b q c s sqr q q a q b q c 36Print Print s Print Str s Print CStr s 38 If year Mod 4 0 And year Mod 100 0 year Mod 400 0 Then If year Mod 4 0 And year Mod 100 0 Or year Mod 400 0 Then 38Print Print 是闰年 38Print Print 不是闰年 40For Yiyuan 1 To For Yiyuan 1 To 100 For Yiyuan 1 To 99 For Yiyuan 1 To 98 For Yiyuan 1 To 95 For Yiyuan 1 To 94 40Wujiao 100 Wuyuan Wujiao 100 Wuyuan Yiyuan 40 End If 41cost cost x 6 8 cost 6 8 x 41 End If 41Print Print cost Print Str cost Print CStr cost 43Fib Fib 1 43 End If 43S Fib S Fib 10 45LabelLabel1 45TextBoxText1 编号 题目答案 45CommandButtonCommand1 50CommandButtonCommand1 50Dim a b c As Dim a b c As Integer Dim a b c As Long 50 End If 51For i 100 To For i 100 To 999 For i 100 To 998 51c c i Mod 10 c i 100 a 10 b c i 100 a b 10 c i a 100 10 b c i a 100 b 10 51 End If 54Dim h x y SingleDim h x y As Single 54Let Val Text2 Text Let h Val Text2 Text 54Let Text3 Text Let Text3 Text y 60 r s As SingleDim r s As Single 60r Val r Val T1 Text r Val T1 60T2 Text T2 Text s T2 Text Str s T2 Text Cstr s 63Dim yes As Dim yes As Boolean 63Let yes Let yes False 63 Else 68a a b 68b b t 68Text1 Text Text1 Text a Text1 Text Str a Text1 Text CStr a 68Text2 Text Text2 Text b Text2 Text Str b Text1 Text CStr b 71a Val a Val Text1 Text a Val Text1 71If 0 ThenIf a Mod 2 0 Then 71Label1 偶数 Label1 Caption 偶数 71 End If 74For i 3 To For i 3 To 3 74For j 1 To 3 For j 1 To 3 Abs i 74Print Print 77s s 1000 77Do While s Do While s 2000 Do While s 2001 77y y y 1 y 1 y 77s s s s 1 r s s r 1 80tz tz 1 80For ts 1 To For ts 1 To 9 80tz 2tz tz 1 2 tz 1 tz 2 80Print 最初共有桃子 609 Next i Next 610For j 1 To Step 1For j 1 To i Step 1 610Print Print 610Next Next j 611t t x 611y y t 611Text1 Text Text1 Text x Text1 Text Str x Text1 Text Cstr x 612For i 1 To Step 1For i 1 To 9 Step 1 612Print Print i j Print j i 612 Next i Next 613a Val a Val T