未分类题

在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：
Option Base 0
Private Sub Command1_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

A.0
B.2
C.3

【参考答案】

B

A（0）=2,A(1)=4,A(2)=6;B(2)=A(0)=2,B(1)=A(1)=4,B(0)=A(2)=6。

<上一题目录下一题>

热门试题

未分类题

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click（） Open 'd: test smtext1.txt' For Input As #1 Do While Not ______ Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$（13） + Chr$（10） Loop Text1.Text = whole$ Close #1 Open 'd: test smtext2.txt' For Output As #1 Print #1, ______Close #1 End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

未分类题

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click（） Open 'd: test smtext1.txt' For Input As #1 Do While Not ______ Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$（13） + Chr$（10） Loop Text1.Text = whole$ Close #1 Open 'd: test smtext2.txt' For Output As #1 Print #1, ______Close #1 End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

相关试题