读程序写结果.docVIP

在窗体中添加一个命令按钮Command1，并编写如下程序：Private Sub Command1_Click( ) x=InputBox(“x=”)  If x^2=9 Then y=x  If x^29 Then y=1/x  If x^29 Then y=x^2+1  Print y End Sub 程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果是？在InputBox中输入，单击命令按钮，程序的运行结果是？ 在InputBox中输入，单击命令按钮，程序的运行结果是？指出下列语句的错误 t=0For I=10 to 2 step 2t=t+IPrint tnext I （2）For i=1 to 10??? For j=1 to 10???? Print i+j;???? If? i*j50 Then Exit For??? Next i  Next j 设x = 2， y = 1， z = 2，执行以下两条语句后，输出结果是??????????? If z = x Then y = x : x = 4 Print x, y, z 指出执行下列程序段后，输出结果为???????????? I=10 Print “I1=”;I Do While I10 ???? I=I+1 Loop Print “I2=”;I 执行下列程序段后，输出结果为?????????? x = 1 For i = 1 To 30 Step 6 x = x + i Mod 5 Next i Print x 指出下列程序段的功能 Dim a(2, 3) As Integer Dim m As Integer, n As Integer For m = 1 To 2 ?For n = 1 To 3 ????????? a(m, n) = InputBox(input datas:) ????????? Print a(m, n); ???????? Next n Print ?Next m 设圆柱体的高为H，半径为R，下面程序是计算圆柱体的表面积S及体积V的值。从键盘输入H和R的数据，请完成下列程序。 ??? H = InputBox(请输入圆柱体的高：) ??? R = InputBox(请输入圆柱体的高半径：) S =V= ??? Print S=;???s?? ,??v=??? ;V 设一元二次方程AX2+BX+C=0有两个实数根。系数A、B、C从键盘输入，要求写出△的表达式。（用变量D表示△）Dim A As Single, B As Single, C As Single Dim DAs Single ??? A = InputBox(输入A：) ??? B = InputBox(输入B：) ??? C = InputBox(输入C：) D=??????????????? ??? Print △的值为：; D从键盘输入一个数为：234，请写出运行结果?????? 。 Private Sub Command4_Click() ??????? Dim N As Integer ??????? N = InputBox(输入一个三位数：) ??????? Print N \ 100 + N Mod 10 End Sub 从键盘输入两个数为：7和9，请写出运行结果??????? 。 ??? A = InputBox(输入一个数：) ??? B = InputBox(输入一个数：) ??? If? AB Then? M = A MOD B? Else M = B MOD A Print? M 计算分段函数：当x0时y取0；当0≤x 1时y取1；当x≥1时y取2。任意输入两个数存入变量A, B。使得A中存入较大数，B存较小数，再输出A、B。 ??? 求1~100之间的所有被5整除的数之和。 ??? 输入一批成绩(假设0≤成绩≤100，输入时以负数为结束标志，至少有一个成绩)，求其中的最高分与最低分之差。 ??? 计算1/1!+1/2!+1/3!+1/4!+……。直到最后一项的绝对值小于1E-5。 ??? 若有10个随机整数已存放在一数组中，求出其中最小元素值的下标。 ??? Dim A(1 To 10) As Single, I As Integer, Imin As Integer ??? For I = 1 To 10 : A(I) = Int(Rnd * 100) : Next I ??? Imin = 1 ??? For I = 2 To 10 ??????? If?????????????? __ Then Imin=I