更多"设有以下程序: Private Sub Form_Click( ) "的相关试题:
[填空题]设有以下程序:
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个元素的数组,然后查找并输出该数组中元素的最大值。
[单项选择]设有如下程序:
Private Sub Command1_Click( )
Dim c As Integer,d As Integer
c=4
d=InputBox(“请输入一个整数”)
Do While d>0
If d>c Then
C=C+1
End lf
d=InputBox(“请输入一个整数”)
Loop
Print c+d
End sub
程序运行后,单击命令按钮,如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是
A. 12
B. 11
C. 10
D. 9
[填空题]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim arrl
Dim Min As Integer,i As Integer
arrl=Array(12,435,76,-24,78,54, 866, 43)
Min=____
For i=2 To 8
If arrl(i)<Min Then
Next i
Print “最小值是:”;Min
End Sub
以上程序的功能是:用Arcay函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
[单项选择]设有如下程序:
Option Base 0
Private Sub Form_Click( )
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是( )。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]设有如下程序:
Option Base 1
Private Sub Command1 Click( )
Dim a(10) As Integer
Dim n As Integer
n=InputBox(“输入数据”)
If n< 10 Then
Call,GetArray(a, n)
End If
End Sub
Private Sub GetArray(b( ) As Integer, n As Integer)
Dim c(10)As Integer
j=0
For i=1 To n
b(i)=CInt(Rnd( )*100)
If b(i) /2 =b(i) /2 Then
j=j + 1
c(j) = b(i)
End If
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时,在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10,则窗体上不显示任何信息
[填空题]设有如下程序
Private Sub Fom1_Click( )
Dim s 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 pl(x As Integer,ByValy 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,ByValy As Integer)
x=x+10
y=y+20
End Sub
该程序运行后,单击窗体,则在窗体上显示的内容是:a= 【9】 和b= 【10】 。
[填空题]设有如下程序
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=______。
[单项选择]设有如下程序:
Option Base 0
Private Sub Form Click( )
Dim a
Dim i As Integer
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 0 To 3
Print a(5 - i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是
A. 4 3 21
B. 543 2
C. 6 54 3
D. 7 6 54
[填空题]设有如下程序
Private Sub Search(a( )As Variant,ByVa1 key As Variant,index%)
Dim I%
For I=LBound(a) To UBound(a)
If key=a(1) Then
index=I
Exit Sub
End If
Next I
index=I
End Sub
Private Sub Form_Load( )
Show
Dim b( ) As Variant
Dim n As Integer
b = Array(1,3,5,7,9,11,13,15)
Call Search(b, 11 ,n)
Print n
End Sub程序动行后,输出结果是 【15】 。
[填空题]设有如下程序:
Private Sub Form_Click( )
Dim a As Integer,s As Integer
n=8
S=0
DO
S=S+n
n=n-1
Loop While n>0
Print S
End Sub
以上程序的功能是 【10】 。程序进行后,单击窗体,输出结果为 【11】 。
[单项选择]设有如下程序:
Private Sub Command1_Click( )
Dim sum As Double,x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算一个表达式的值,这个表达式是 ______。
A. 1+1/2+2/3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5