单项选择题

窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click()
Dim a(10) ,x%
For k=1 To 10
a(K)=Int(Rnd*90+10)
x=x+a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。

A) 10个数中偶数的个数
B) 10个数中奇数的个数
C) 10个数中偶数的累加和
D) 10个数中奇数的累加和

<上一题目录下一题>

热门试题

单项选择题

使用Do While循环从打开的文件中逐条读取记录，以下能够正确读取数据的程序是______。

A) Open " c:\File1.txt" For Input As #1
Do While Not EOF()

Line Input #1, strline

……

Loop
B) Open " c:\Filel.txt" For Input As #1
Do While Not EOF(1)

Line Input #1, strline

……

Loop
C) FileNo=FreeFile
Open "c:\File1.txt" For Input As #1

Do While Not EOF(FileNo)

Line Input #1 , strline

……

Loop
D) FileNo=FreeFile
Open "c: \File1.txt" For Input As #1

Do While Not EOF(#FileNo)

Line Input #1, strline

……

Loop

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click() DimmAs Integer,n As Integer,p As Integer m=3: n=5: p=0 Call Y(m,n,p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer,k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。

A) 4
B) 6
C) 8
D) 10

相关试题