[单项选择]有人编写了如下程序：
Private Sub Form_Click（　）
Dim s As Integer, x As Integer
s=0
x=0
Do While s=10000
x=x+1
s=s+x^2
Loop
Print s
End Sub
上述程序的功能是：计算s=1+2²+3²+…+n²+…，直到s＞10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是( )。
A. 把x=0改为x=1
B. 把Do While s=10000改为Do While s＜=10000
C. 把Do While s=10000改为Do while s＞10000
D. 交换x=x+1和s=s+x^2的位置

更多"有人编写了如下程序： Private Sub Form_Click（"的相关试题:

查看答案

[单项选择]编写如下程序：
Private Sub Command1_Click（　）
Dim i As Integer, j As Integer
n = InputBox( "输入一个大于1的正整数" )
For i = 2 To n
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j ＞ Sqr(i) Then Print i
Next i
End Sub
该程序的功能是( )。
A. 判断n是否为素数
B. 输出n以内所有的奇数
C. 输出n以内所有的偶数
D. 输出n以内所有的素数

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click( ) 　　　　Dim i As Integer 　　　　For i=1 To 2 　　　　　　DS 　　　　Next i 　　　End Sub 　　　Sub DS( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　X=X + 1 　　　　y=y + 1 　　　　m=m &"*”：n=n&"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是( )。

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click（　）　　　Dim a As Integer 　　　a=2 　　　For i=1 To 3 　　　　　Print Gad (a) 　　　　　Next i 　　End Sub 　　Function Gad (a As Integer) 　　　b=0 　　　Static c 　　　b=b + 1 　　　c= c + 1 　　　Gad= a + b + C 　　End Function 　　运行上面的程序后，单击命令按钮，输出结果为( )。

查看答案

[填空题]设有如下程序 Private Sub Form Click（　） Dim a As Integer， b As Integer a=20： b=50 p1 a， b p2 a， b p3 a， b Print "a="； a， "b="； b End Sub Sub p1(x As Integer， ByVal y As Integer) x = x+10 y = Y+20 End Sub Sub p2(ByVal x As Integer， y As Integer) x = x+10 y = y+20 End Sub Sub p3(ByVal x As Integer， ByVal y As Integer) x = x+10 y = y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。

查看答案

[填空题]设有如下程序
Private Sub Form Click（　）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。

查看答案

[单项选择]在窗体中添加一个命令按钮，编写如下程序：
Private Sub Sub1(p，m，n)
p=p+1：m=m+1：n=n+1
Print "sub1："；p；m；n
End Sub
Private Sub Command1_Click（　）
a1=1：b=2：c1=3
Call Sub1(a，b1+3，c1)
Print"Main："；a1；b1；c1
End Sub
程序运行后，输出结果为

查看答案

[单项选择]编写如下事件过程和函数过程：
Private Sub Form_Click（　）
Dim num（　） To 6)As Single
num(1)=103:num(2):190:num(3)=0
num(4)=32:num(5)=-56:num(6)=100
Print
Print p2(6,num（　）)
End Sub
Private Function p2(ByVal n As Integer,number（　） As Single)As Integer
p2=number(1)
For i=2 To n
If number(j)＜p2 Then p2=number(j)
Next i
End Function
程序运行后窗体上显示的值是( )。
A. -56
B. 0
C. 103
D. 190

查看答案

[单项选择]有如下程序：　　Private Sub Commandl_Click（　）　　　　Dim a As Single　　　　Dim b As Single　　　　a=2：b=4　　　　Call CS(a，b)　　End Sub　　Sub CS(x As Single，y As Single)　　　　t=X　　　　x=t/y　　　　y=t Mod y　　End Sub　　程序运行后，单击命令按钮，a和b的值分别为A)0 0
B)1 1
C)0 2
D)1 2

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序
Private Sub Command1_Click( )
Dim a As Integer，b As hiteger
a=1
b=2
Print N(a，b)
End Sub
Function N(x As Integer，y As Integer)As Integer
N=IIf(x>y，x，y)
End Function
程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 5
D. 8

查看答案

[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（　） Dim arr（　）As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox(“请输入一个数学”) If Val(x)＞4 Then ReDim arr(4) arr(4)=x End If Me.Print(arr(4)-arr(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【10】。

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer，Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
A. 程序运行后，单击命令按钮，在窗体上的输出结果是______。 16
B. 24
C. 32
D. 36

查看答案

[单项选择]有如下程序:: Private Sub Form Click（　） Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A. 12
B. 30
C. 24
D. 18

查看答案

[单项选择]在窗体中添加一个命令按钮，编写如下程序：
Private Sub Sub1(p,m,n)
p=p+1:m=m+1:n=n+1
Print "sub1:";p;m;n
End Sub
Private Sub Command1_Click（　）
a1=1:b1=2:c1=3
Call Sub1(a),b1+3,c1)
Print "Main:";a1;b1;c1
End Sub
程序运行后，输出结果为( )。
A. Sub: 2 6 4

查看答案

我来回答:

提交