更多"以下程序用于求S=1+3+32+33+…+310的值。 Privat"的相关试题:
[填空题]以下程序用于求S=1+3+32+33+…+310的值。
Private Sub Commandl_Click( )
S=1
T=1
ForI=1 To 10
T=______
S=S+T
NextI
Print"S=";S
End Sub
[填空题]以下程序用于求S=1+3+32+33+…+310的值。
Private Sub Commandl_Click( )
S=1
T=1
ForI=1 To 10
T=______
S=S+T
NextI
Print"S=";S
End Sub
[填空题]设有以下程序:
Option Base 1
Private Sub Command1_Click( )
Dim arr1 ,Max as Integer
art1 = Array(12,435,76,24,78,54,866,43)
【14】 = arr1(1)
For i = 1 To 8
If arrl(i)>Max Then 【15】
Next i
Print "最大值:"; Max
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。
[单项选择]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click( ) Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A. 33
B. 28
C. 35
D. 37
[填空题]有以下程序:
Private Sub Form_Activate( )
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
[填空题]有以下程序:
Private Sub Form_Activate( )
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
[单项选择]设有以下程序:
Private Sub Form_Click( )
x =50
For i = 1 To 4
y = InputBox( "请输入一个整数" )
y = Val(y)
lf y Mod 5 = 0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为( )。
A. 100
B. 50
C. 120
D. 70
[填空题]有以下程序:
Private Sub Form_Activate( )
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
[填空题]阅读以下程序:
Private Sub Form_click( )
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k <= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。
[填空题]有以下程序:
Private Sub Form_Activate( )
Fori=1 to 3
x=3
For i=i to 2
x=x+6
Next
Next
Print X
End Sub
程序运行后,窗体上显示的结果为 (10)
[单项选择]以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click( ) Dim s(10),p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub
A. 33
B. 28
C. 35
D. 37
[单项选择]以下程序输出1到1000之间所有的偶数之和,请补充完该程序。 Private Sub Cotmand1_Click( ) Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End Sub
A. i Mod 2= 0
B. x mod 2=0
C. I mod 2<>0
D. x mod 2<>0
[填空题]阅读以下程序:
Private Sub Form_click( )
Dim k,n,m As integer
n=10
m=1
k=1
Do While k<=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【10】 。
[填空题]阅读以下程序:
Private Sub Form click( )
Dim k,n, m As integer
n=10
m=1
k=1
Do While k<=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【10】 。
[填空题]阅读以下程序:
Private Sub Form_Click( )
Dimk,n,m As Integer
n=10
m=1
k=1
DoWhilek<=n
m=m+2
k=k+1
Loop
Printm
End Sub
单击窗体,程序的执行结果是______。