更多"有以下程序:
Private Sub Form_Activate("的相关试题:
[填空题]有以下程序:
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_Activate( )
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
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 Command1 Click( )
c1=0
c2=0
For i=1 To 100
If i Mod 3=0 Then
c1=c1+1
Else If i Mod 7=0 Then
c2=c2+1
End If
Next i
Print c1+c2
End Sub
此程序运行后输出的是在1~100范围内( )。
A. 同时能被3和7整除的整数个数
B. 能被3或7整除的整数个数(同时被3和7整除的数只记一次)
C. 能被3整除,而不能被7整除的整数个数
D. 能被7整除,而不能被3整除的整数个数
[填空题]阅读以下程序:
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( )
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_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)
[填空题]有如下程序:
Private Sub Command1_Click( )
j =10
For i= -1 To 1 Step 0.3
j =j + 1
Next i
Print j
End Sub
该程序共循环 【7】 次,程序执行完毕后j的值是 【8】 。
[单项选择]阅读程序:
Private Sub Form_Click( )
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,单击窗体,输出结果是( )。
A. 105
B. 1
C. 120
D. 15
[单项选择]以下程序的输出结果是( )。
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 to 3
p(i)=a(I*j)
Next j
For I=1 to 3
k=k+p(I)*2
Next I
Print k
End Sub
A. 33
B. 28
C. 35
D. 37
[单项选择]以下程序的输出结果是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