UC知道2006年9月二级VB三道题
来源：百度知道 编辑：UC知道 时间：2024/05/22 14:48:22
小弟对2006年9月二级VB笔试有三道实在想不通,望哪位高人能详细指点一下!
(19) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 0 To 50
i = i + 3
n = n + 1
If i > 10 Then Exit For
Next
Text1.Text = str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的内容是
A) 5 B) 4 C) 3 D) 2
(23）在窗体上画一个命令按钮，名称为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
（31）在窗体上画一个通用对话框，其名称为commondialog1，然后画一个命令按扭，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.Filter=”All files(*.*)|*.*|Text Files”&_
“(*.txt)|*.txt|Executable Files(*.exe)|*.exe”
CommonDialo
(19) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 0 To 50
i = i + 3
n = n + 1
If i > 10 Then Exit For
Next
Text1.Text = str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的内容是
A) 5 B) 4 C) 3 D) 2
(23）在窗体上画一个命令按钮，名称为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
（31）在窗体上画一个通用对话框，其名称为commondialog1，然后画一个命令按扭，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.Filter=”All files(*.*)|*.*|Text Files”&_
“(*.txt)|*.txt|Executable Files(*.exe)|*.exe”
CommonDialo
19)C
逐步分析
i=0
i=3
n=1
i<10
i=4
i=7
n=2
i<10
i=8
i=11
n=3
i>10,退出
此时n=3
23)B
B（3-k）=A(k+1)
k=0时
B(3)=A(1)=2
k=1时
B(2)=A(2)=4
K=2时
B(1)=A(3)=6
循环退出，K=3
输出B(3)为2
31）B
CommonDialog1.FilterIndex=3
以|分隔的第3+1个部分为)*.txt
没有告诉N的初值是多少，IF是0的话，那么应该选D。
因为程序只运行了2次就EXIT了。
第一次I＝4，第二次I＝8，第三次I＝12，已经退出循环了。
后面的题明天看。
把题目拿到VB程序中去测试下不就知道拉!