资料部分习题解答.pptxVIP

C1;Private Sub Form_Click() X = Val(InputBox(请输入x:)) If X 1000 Then y = X If X 2000 And X = 1000 Then y = 0.9 * X If X 3000 And X = 2000 Then y = 0.8 * X If X = 3000 Then y = 0.7 * X Print x=; X, y=; y End Sub;根据百分制成绩给出等级 错误的程序 X = Val(InputBox(请输入x:)) If X =90 Then grad=“优” If x=80 Then grad=“良” If X =70 Then grad=“中” If X =60 Then grad=“及格” If x60 then grad=“不及格” Print grade;X = Val(InputBox(请输入score:)) If X =90 Then grad=“优” elseIf x=80 Then grad=“良” elseIf X =70 Then grad=“中” elseIf X =60 Then grad=“及格” Else grad=“不及格” End if Print grade;实习问题: 1) If 条件1 then 语句 elseif 条件2 then …….. end if If 10 =x50 then … 错误 If x =10 and x50 then… 正确 3)事件？ Print For i = 1 To 5 Picture1.Print Tab(14 - 2 * i); String(2 * i - 1, ★); _ Spc(22 - 4 * i); String(2 * i - 1, ★) Next i ;C4:三个整数从大到小排序 Private Sub Command1_Click() Dim x%, y%, z% Randomize x = Int(Rnd * 100 + 1) y = Int(Rnd * 100 + 1) z = Int(Rnd * 100 + 1) Print x y z Print 排序前 ; x ; ; y ; ; z If x y Then t = x: x = y: y = t If x z Then t = x: x = z: z = t If y z Then t = y: y = z: z = t Print 排序后 x y z End Sub; If x y Then t = x: x = y: y = t If y z Then t = y: y = z: z = t If x y Then t = x: x = y: y = t End If End If;实验D 1 打印数字三角;实验D 2打印字母三角 A( 65)-18，B(66)-16，C(67),……I(73)-2 Private Sub Form_Click() For i = 1 To 10 Step 1 Print Tab(i); String((20 - 2 * i), Chr(64 + i)) Next i End Sub ;;D3) S=1+1/2+1/4+1/7+……当第i项的值1E-4;s = 0: t = 1: i = 1 Do s = s + 1 / t t = t + i i = i + 1 Loop Until 1 / t 10 ^ (-4) Print i=; i Print s=; s;D4)求pi的近似值 Private Sub Form_Click() pi = 2 For n = 1 To 10000 t = (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1)) x = pi pi = pi * t If pi - x 1E-8 Then Exit For If n = 10 Then P