Prim End Sub (7)以下程序的循环次数是 orj=8 To 35 Step 3 (8)执行下面程序输入4后,程序输出的结果是 Private Sub Form Click Input Box(x) fx 2<15 Then y=1/ Ifx 2>15 Then=x2+ I Print End Sub (9)执行下面程序后,输出的结果是 Private Sub Form Click Dim sum as intege sum%=19 sum =2.23 Print sum%: sum End Sub (10)执行下面程序后,输出的结果是 Private Sub Form Click Do Loop Until a >100 Print a End Sub (11)执行下面程序后,输出的结果是 Private Sub Form Click a="ABCD b="efgh d=CAse(b) Print c+d End Sub (12)执行下面程序后,输出的结果是 Private Sub Form Click x=2y=4:z=6 End Sub (13)执行下面程序后,输出的结果是 Private Sub Form Click Dim count As Integer While count 20 count= count +1 Wend Print count End Sub (14)执行下面程序后,输出的结果是 Private Sub Form Click "*";b="$"x = j Print x, a End Sub （７）以下程序的循环次数是 。 For j = 8 To 35 Step 3 Print j; Next j （８）执行下面程序输入４后，程序输出的结果是 。 Private Sub Form_Click() x = InputBox(x) If x ^ 2 < 15 Then y = 1 / x If x ^ 2 > 15 Then y = x ^ 2 + 1 Print y End Sub （９）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim sum As Integer sum% = 19 sum = 2.23 Print sum%; sum End Sub （10）执行下面程序后，输出的结果是 。 Private Sub Form_Click() a = 100 Do s = s + a a = a + 1 Loop Until a > 100 Print a End Sub (11) 执行下面程序后，输出的结果是 。 Private Sub Form_Click() a = "ABCD" b = "efgh" c = LCase(a) d = UCase(b) Print c + d End Sub （12） 执行下面程序后，输出的结果是 。 Private Sub Form_Click() x = 2: y = 4: z = 6 x = y: y = z: z = x Print x; y; z End Sub （13）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim count As Integer count = 0 While count < 20 count = count + 1 Wend Print count End Sub （14）执行下面程序后，输出的结果是 。 Private Sub Form_Click() a = "*": b = "$