循环的参考例题.docVIP

7.2 运行下列程序，输出什么图形？ Private Sub Command1_Click() cls For r = 1000 To 1200 Step 100 Circle (2000, 2000), r Next r End Sub 7.3 有如下程序： Private Sub Form_Click() x = InputBox(输入x) y = x: n = 1: p = x: t = 1 Do p = -1 * p * x * x t = t * (2 * n) * (2 * n + 1) y = y + p / t n = n + 1 Loop Until Abs (p / t) = 0.000001 Print y End Sub 运行该程序后所实现的数学运算式是___ B 。 A) B) C) D) 7.4 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() For I=1 To 4 For J=0 To I Print Chr$(65+I); Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A) BB B) A C) B D) AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD 7.5 下面程序运行时，外层、中层和内层循环次数分别为__ C __。 Private Sub Form_Click() For a = 1 To 3 For b = 1 To a For c = b To 3 Next: Next: Next End Sub A) 21 8 6 B) 3 3 3 C) 3 6 14 D) 8 6 3 7.6 阅读以下程序，写出程序的功能：在窗体上打印输出:将用户输入的任意一个正整数分解为质因子之积 Private Sub Form_Click() Dim x As Integer, i As Integer x = InputBox(输入正整数x=) i = 2: Print x; =; Do Until x i If x Mod i = 0 Then If x = i Then Print i Else Print i; *; End If x = x \ i Else i = i + 1 End If Loop End Sub 习题7.7 程序代码填空：由键盘输入一个正整数，找出大于或等于该数的第一个素数。 Private Sub form_Click() Dim p As Integer, x As Integer, flag As Boolean flag = False ‘此处设置flag为标志性变量，初始值为False，表示没有找到素数 x = InputBox(请输入一个正整数) Do While Not flag p = 2: flag =True ‘此处设置flag为标志性变量，假设x是素数，用flag为TRUE来标志 Do While flag And (p = (x / 2)) ‘判断x是否为素数 If x Mod p = 0 Then flag = False ‘当x能被p整除，说明x不是素数，用flag为False来标志 Else p=p+1 ‘当x不能被p整除，则取下一个数p=p+1 End If Loop If Not flag Then x=x+1 ‘若x不是为素数，则继续判断比x大的数是否为素数 Loop Print x End Sub 习题7.8 编程实现任意长度的数据的逆序显示。  Private Sub CmdIn