对于框架而言，要把Enabled属性设置为压False. 这样才能保证框架内的对象是“活动”的。

表达式可能含有多种运算， 请简述算术运算表达式的执行顺序。

什么是闲置循环? DoEvents语句有什么作用？

从键盘上输入若干个学生的考试分数， 统计并输出最高分数和最低分数， 当输入负数-1时结束输入，并输出结果。Private Sub Form_Click()Dim x !, max!, min!x = InputBox("Enter a score")max = xmin = xDo While (1)If x >max Thenmax = xEnd IfIf x < min Then（2）End Ifx = (3)LoopPrint " max = ";max, "min =";minEnd Sub 从键盘上输入若干个学生的考试分数， 统计并输出最高分数和最低分数， 当输入负数-1时结束输入，并输出结果。

如果一个数的因子之和等于这个数本身，则称这样的数为完全数。例如28=1+2+4+7+14,因此28是一个完全数。下列程序找出1000以内的所有完全数之和。Sub Main（）Dim i, j, sum, t As Integersum = 1For i = 2 To 999(1)For j = 2 To i - 1If （2） Then t = t + jNextIf（3） Then sum = sum + iNextPrint“满足条件的数之和为：”, sumEnd Sub 如果一个数的因子之和等于这个数本身，则称这样的数为完全数。例如28=1+2+4+7+14,因此28是一个完全数。下列程序找出1000以内的所有完全数之和。

下列程序单击窗体后， 窗体的输出结果为＿。 Private Sub Form_Click() Dim n As Integer, s As Integer n = 5 s = O Do s=s+ n* (n-1) n=n-1 Loop While n> 0 Prints End Sub

下列程序的执行结果 s 的值是＿ Private Sub Command l_Click() Dim i, s As Integer i = O Do i = i + 1 s = s + i*i*i Loop Until i>= 4 Prints End Sub

假定有下列函数过程：Function Fun(S As String) As StringDim s1 As StringFor i= 1 To Len(S)s 1 =Mid(S,i, 1)+s1Next iFun = s1End Function窗体上有一个命令按钮Command 1, 然后编写如下事件过程：Private Sub Command 1 _ Click （）Dim Str 1 As String,Str2 As StringStr 1 = inputbox(“请输入 一个字符串”)Str2 = Fun (Str 1)Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“12abc34”, 则单击 “确定”按钮后在窗体上的输出结果为________。程序运行后，单击命令按钮，如果在输入对话框中输入字符串“12abc34”, 则单击 “确定”按钮后在窗体上的输出结果为________。

窗体上有一个命令按钮(Command l) 和 一个文本框(Text l),编写如下程序，当运行程序后，单击命令按钮，依次输入89,76,59后，文本框Text l最后显示的内容是Private Sub Command l_Click （）Dim i, j As Integer, s As Strings=“”For j = 1 To 3i = InputBox(“请输入分数”)If i < 60 Then s = “不及格”If i > 90 Thens= “优秀”Else if i > 80 Thens =“良好”Elses =“及格”End IfNextText l.Text = sEnd Sub窗体上有一个命令按钮(Command l) 和 一个文本框(Text l),编写如下程序，当运行程序后，单击命令按钮，依次输入89,76,59后，文本框Text l最后显示的内容是

编写程序，求n以内所有素数的和，其中n由用户输入。