[单项选择]设有以下程序：
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（　） "的相关试题:

[填空题]设有以下程序： 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 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)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 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 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 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

查看答案

[单项选择]设有下列程序　　Private Sub Form Click（　）　　X=50 　　For i=1 T0 4 　　 y=InputBox("请输入一个整数") 　　 y=Val(v) 　　 If 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 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

查看答案

[单项选择]设有如下程序：
Private Sub Commandl Click（　）
Dimsum As Double,x As D0uble
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+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

查看答案

[单项选择]设有如下程序：　　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，则窗体上不显示任何信息

查看答案

[填空题]设有程序： Option Base 1 Private Sub Command1 Click（　） Dim arrl，Max as Integer arrl=Array(12，435，76，24，78，54，866，43) ______ =arrl(1) For i=1 To 8 If arrl(i)＞Max Then_______ Next i Print“最大值是：”；Max End Sub 以上程序的功能是：用Atray函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

查看答案

[填空题]设有如下程序
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（ ） "的相关试题:

更多"设有以下程序： Private Sub Form_Click（　） "的相关试题: