网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

窗体上有一个名为Commandl的命令按钮,并有如下程序:

Private Sub Commandl_Click()

Dim a(1 0),x%

a(k)=Int(Rnd*90+10)

x=x+a(k)Mod 2

Print x

End Sub

程序运行后.单击命令按钮,输出结果是

A.10个数中奇数的个数

B.l0个数中偶数的个教

C.10个数中奇数的累加和

D.10个数中偶数的累加和


参考答案

更多 “ 窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Commandl_Click()Dim a(1 0),x%a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Print xEnd Sub程序运行后.单击命令按钮,输出结果是A.10个数中奇数的个数B.l0个数中偶数的个教C.10个数中奇数的累加和D.10个数中偶数的累加和 ” 相关考题
考题 在窗体上有一个命令按钮Commandl,通用过程fun和命令按钮的事件过程如下: Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,则窗体上输出A.6 B.7 C.8 D.9

考题 (25)在窗体上有一个命令按钮Commandl,编写下列程序: Private Sub Command1_Click() Print ppl(3,7) End Sub Public Funcion ppl(x As Single,n As Integer)As Single If n=0 Then ppl=1 Else If n Mod 2=1 Then ppl=x*x+n Else ppl=x*x-n End If End If End Funcion 程序运行后,单击该命令按钮,屏幕上显示的是 A.2 B.1 C.0 D.16

考题 在窗体上添加一个命令按钮(名为Commandl),然后编写如下程序:打开窗体运行后,单击命令按钮,消息框的输出结果为__________。

考题 窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Command_Click()Dim a As Integer,b As Integera=8b=12Print Fun(a,b);a;bEnd SubPrivate Function Fun(ByVal a As Integer,b As Integer)As Integera=a Mod 5b=b\5Fun=aEnd Function程序运行时,单击命令按钮,则输出结果是A.3 3 2B.3 8 2C.8 8 12D.3 8 1 2

考题 在窗体上有1个名称为Commandl的命令按钮,并有如下事件过程和函数过程:Private Sub Commandl Click()Dim P As Integerp=m(1)+m(2)+m(3)Print PEnd SubPrivate Function m(n As Integer)As IntegerStatic s As IntegerFor k=1 To ns=s+lNextm=sEnd Function运行程序,单击命令按钮Commandl后的输出结果为

考题 在窗体上画一个名为Commandl的命令按钮,编写如下程序:程序运行后,单击命令按钮,输出的结果是( )。A. 4B. 5C. 6D. 8

考题 窗体上有一个名称为Command1的命令按钮,并有如下程序: Private Sub Command1 Click( ) x=14 Do While x0 x=x-3 x=IIf(Int(x/5)=x/5,x+2,x) Loop Print x End Sub 程序运行后,单击命令按钮Command1,输出结果为( )。A.0B.-lC.-2D.-_3

考题 窗体上有一个名称为Command1的命令按钮,并有如下程序:Private Sub Command1 Click( )x=15Do While x0x=x-3x=IIf(Int(x/5)=x/5,x+2,x)LoopPrint xEnd Sub程序运行后,单击命令按钮Command1,输出结果为( )。A.0B.-lC.-2D.-_3

考题 窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Command 1_Click()Dim a As Integer, b As Integera=8b=12Print Fun(a, b);a; bEnd SubPrivate Function Fun(ByVal a As Integer, b As Integer)As Integera=a Mod 5b=b、5Fun=aEnd Function程序运行时,单击命令按钮,则输出结果是A)3 3 2B)3 8 2C)8 8 12D)3 8 12