Private Sub Command1_Click( ) Dim x, n x = Val(Text1) n = 0 Do While 【x】<26 x = x * (1 + 0.008) n = n + 1 Loop Text2 = Str(n) End Sub 16.以下程序的作用是() For i = 1 To 9 For j = 1 To 9 se = i & "×" & j & "=" & i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print Next i A.打印ASCII码表 B.打印九九乘法表 C.打印加法表 D.以上说法都不正确