更多"设有以下程序:
Option Base 1
Priva"的相关试题:
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n<10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b( )As Integer,n As Integer)
Dim c(10)AsInteger
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 lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时,在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10,则窗体上不显示任何信息
[单项选择]设有如下程序: 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,则窗体上不显示任何信息
[填空题]设有程序:
Option Base 1
Private Sub Command1_Click( )
Dim arrl, Max As Integer
arrl=Array(12, 435, 76, 24, 78, 54, 866, 43)
【8】 =arrl(1)
For i=1 To 8
If arrl(i)>Max Then 【9】
Next i
Print "最大值是:" ; Max
End Sub
以上程序的功能是,用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。
[单项选择]设有如下程序: 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,则窗体上不显示任何信息
[单项选择]设有如下程序:
Dption 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(h( )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
Knd Sub
以下叙述中错误的是______。
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时,在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10,则窗体上不显示任何信息
[单项选择]下面程序:________
Option Base 1
Private Sub Command1_Click( )
Dim a(10),p(3)As Integer
Dim i,k As Integer
k=5
For i=1 To 10
a(i)=i
Next
For i=1 To 3
p(i)=a(i*i)
Next
For i=1 To 3
k=k+p(i)*2
Next
Print k
End Sub
运行后的输出结果为________。
A. 33
B. 28
C. 35
D. 37
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n<10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b( )As Integer,n As Integer)
Dim c(10)AsInteger
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 lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时,在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10,则窗体上不显示任何信息
[填空题]设有如下程序:
Option Base 1
Pfivme Sub Command1_Click( )
Dim arr1
Dim Min As Integer,i As Integer
arrl=Array(12,435,76,-24,78,54,866,43)
Min= 【12】
For i=2 TO 8
If arr1(i)<Min Then 【13】
Next i
Print“最小值是:”;Min
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的小值。请填空。
[单项选择]设有如下程序:
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
bb(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,则窗体上不显示任何信息
[单项选择]设有如下程序:
Option Base 1
Private Sub Form Click( )
Dim a(5)As String,i As Integer
For i=1 To 5
a(i)=Chr(Asc("A")+i)
Call f(a,i)
Next i
End Sub
Sub f(ta( )As String,n As.Integer)
Dim i As Integer
For i=1 To n
Print ta(i);
Next i
Print
End Sub
对上述程序.以下叙述中正确的是( )。
A. 程序有错,因为在过程f的定义中数组参数格式不正确
B. 程序可正常运行,输出内容的第一行是一个字母“A”
C. 程序可正常运行,输出内容的第一行是一个字母“B”
D. 程序可正常运行,输出内容的第一行是数字65
[填空题]
设有如下程序:
Option Base 1
Private Sub Commandl 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
Print"最小值是:";Min
End Sub
以上程序的功能是:用Array函数建立一个含有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. 54 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]设有如下程序: 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