1 下面程序的功能是从键盘输入1个大于100的整数m.docVIP

1 下面程序的功能是从键盘输入1个大于100的整数m，计算并输出满足不等式 的最大的n。请填空。 Private Sub Command1_Click() Dim s,m,n As Integer m=Val(InputBox(请输入一个大于100的整数)) n=______ s=0 Do While sm n = n+1 s = s+n*n Loop Print 满足不等式的最大n是;______ End Sub 答案 Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。由循环体可知该题的第1空应该填0。当循环条件不满足时跳出循环，此时的n是满足不等式的最小的n，所以该题的第2空应该填n-1。 2 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = 0 For i = 1 To 2 For j = 1 To 4 If j Mod 2 0 Then a = a + 1 End If a = a + 1 Next j Next i Print a End Sub 程序执行后，单击命令按钮，输出结果是___12___。 3 以下程序段执行后y的值是____9__。 x=8.6 y=int(x+0.5) print y 4 窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是______。  5 下面程序的功能是从键盘输入1个大于100的整数m，计算并输出满足不等式 的最大的n。请填空。 Private Sub Command1_Click() Dim s,m,n As Integer m=Val(InputBox(请输入一个大于100的整数)) n=______ s=0 Do While sm n = n+1 s = s+n*n Loop Print 满足不等式的最大n是;______ End Sub 答案 Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。由循环体可知该题的第1空应该填0。当循环条件不满足时跳出循环，此时的n是满足不等式的最小的n，所以该题的第2空应该填n-1。 6 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是__15____。 7 以下语句输出结果是___12345.68____。 Print Int(12345.6789 * 100 + 0.5) / 100 8 请根据下题的要求设计Visual Basic应用程序（包括界面和代码）。 在名称为Form1的窗体上画两个命令按钮，其名称分别为Command1和Command2，标题分别为扩大和移动。如图所示，编写适当的事件过程。程序运行后，如果单击Command1命令按钮，则使窗体在高、宽方向上各增加0.2倍（变为原来的1.2倍）；如果单击Command2命令按钮，则使窗体向右移动200，向下移动100。 要求： 程序中不得使用