单项选择题

在窗体上画一个命令按钮,名称为Command1,然后编写如下代码： Option Base 0 Private Sub Commandl_Click() Dim A(4)As integer,B(4)As Integer For k=0 To 2 A(k+1)=InputBox("请输入一个整数") B(3-k)=A(k+1) Next k Print B(k) End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为【】

A．0
B．2
C．3
D．4

<上一题目录下一题>

热门试题

填空题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Prirate Sub Command1_Click()a＄= Nationalcomputer rank Examination n=Len(a＄)s=0For i=1 To nb＄=Mid(a＄，i，1)If b＄= n Thens=s+1End IfNext iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是【】。

填空题

我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡5元，每只母鸡3元，三只雏鸡1元；如何用100元买100只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。Private Sub Commandl_Click()Dim Cock As IntegerDim Hen As IntegerDim Chick As IntegerForml．Print“公鸡数”，“母鸡数”，“雏鸡数”For Cock；0 To 20For Hen=0 To 33For Chick=0 To 100If 【】ThenForm1．Print Cock，Hen，ChickEnd IfNext ChickNext HenNext CockEnd Sub

相关试题