2009年12月江苏信息技术学业水平测试算法与程序设计上机题库答案.xlsVIP

Sheet2 编号 题目 答案 For i = 1 To ①(Text1.Text) For i = 1 To Len(Text1.Text) temp2 = ② temp2 = 9 - temp；temp2 = -temp + 9 Text2.Text = ③ Text2.Text = y a = i \ ① a = i \ 100 b = (i - a * ②) \ 10 b = (i - a * 100) \ 10 ③ Next i；Next ① = Val(InputBox(请输入一个数)) s(i) = Val(InputBox(请输入一个数)) For i = 9 To 0 Step ② For i = 9 To 0 Step -1 Print ③ Print s(i);；Print s(i)；Print str(s(i))；Print Cstr(s(i)) ss = Val(①) ss = Val(Text1.Text)；ss = Val(Text1) h = ② h = ss \ 3600；h = Int(ss / 3600)；h=ss\60\60 s = (ss - h * 3600) Mod ③ s = (ss - h * 3600) Mod 60 If a b Then max = a Else ① If a b Then max = a Else max = b If c max Then ② If c max Then max = c Label3.Caption = CStr(③) Label3.Caption = CStr(max) For i = 1 To ① For i = 1 To 4 For j = 1 To ② For j = 1 To 5 Print ③; Print *; If ① Then If x = 10 Then；If 10 = x Then；If x 9 Then；If x 9 Then；If 9 x Then s = 4 * ② s = 4 * x * 0.8；s = 4 * 0.8 * x Label1.Caption = CStr(③) Label1.Caption = CStr(s) For i = 1 To 10 m = ② + i * 10 m = j * 8 + i * 10；m = 8 * j + i * 10 x = Val(①) x = Val(Text1.Text)；x = Val(Text1) If c = ② Then If c = x Then n = 1 Label Label1 ① ② b = Val(①) b = Val(Text2.Text)；b = Val(Text2) If ② Then If p = 0 Then；If 0 = p Then；If -1 p Then；If p-1 Then Else ① = Val(InputBox(请输入x的值)) x = Val(InputBox(请输入x的值)) ② = x + 5 * a y = x + 5 * a End If a = Val(①) a = Val(Text1.Text)；a = Val(Text1) ② = g * 100 + shi * 10 + bai b = g * 100 + shi * 10 + bai ③ = CStr(b) Text2.Text = CStr(b)；Text2 = CStr(b) ① = Val(InputBox(请输入边长a的值：)) a = Val(InputBox(请输入边长a的值：)) s = ②(q * (q - a) * (q - b) * (q - c)) s = sqr(q * (q - a) * (q - b) * (q - c)) Print s；Print Str(s)；Print CStr(s) 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 Print ② Print 是闰年 Print 不是闰年 For 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 Wujiao = 100 - Wuyuan - ② Wujiao = 100 - Wuyuan - Yiyuan cost =